my $subsection = $data{section} || '-';
if ($data{section} && ($data{section} =~ m=/=o)) {
($section, $subsection) = split m=/=o, $data{section}, 2;
- ($subsection, $section) = split m=/=o, $data{section}, 2
- if $section eq 'non-US';
}
$data{'section'} = $section;
$data{'subsection'} = $subsection;
for (my $i=1; $i<= $#descriptions; $i++) {
# strip away additional data
my ($only_desc, $pkg, $tags) = split /\000/o, $descriptions[$i], 3;
+ my $orig_desc = $only_desc;
# WARNING: This needs to correspond with what happens in
# Packages/Search.pm:do_xapian_search
$only_desc =~ s#[^\w/+]+# #og;
};
die $@ if $@;
- $descriptions_db{$i} = $only_desc;
+ $descriptions_db{$i} = $orig_desc;
}
untie %descriptions_db;
$xapian_db->flush;