# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
my $subsection = $data{section} || '-';
if ($data{section} && ($data{section} =~ m=/=o)) {
($section, $subsection) = split m=/=o, $data{section}, 2;
my $subsection = $data{section} || '-';
if ($data{section} && ($data{section} =~ m=/=o)) {
($section, $subsection) = split m=/=o, $data{section}, 2;
$subsections{$suite}{$subsection}++;
$priorities{$suite}{$data{priority}}++;
my $pkgitem = "$archive $suite $data{'architecture'} ".
$subsections{$suite}{$subsection}++;
$priorities{$suite}{$data{priority}}++;
my $pkgitem = "$archive $suite $data{'architecture'} ".
my $previtem = ($packages_small{$data{'package'}}{$suite}{$data{'architecture'}}
||= $pkgitem);
$packages_small{$data{'package'}}{$suite}{$data{'architecture'}} = $pkgitem
my $previtem = ($packages_small{$data{'package'}}{$suite}{$data{'architecture'}}
||= $pkgitem);
$packages_small{$data{'package'}}{$suite}{$data{'architecture'}} = $pkgitem
for (my $i=1; $i<= $#descriptions; $i++) {
# strip away additional data
my ($only_desc, $pkg, $tags) = split /\000/o, $descriptions[$i], 3;
for (my $i=1; $i<= $#descriptions; $i++) {
# strip away additional data
my ($only_desc, $pkg, $tags) = split /\000/o, $descriptions[$i], 3;
# WARNING: This needs to correspond with what happens in
# Packages/Search.pm:do_xapian_search
$only_desc =~ s#[^\w/+]+# #og;
# WARNING: This needs to correspond with what happens in
# Packages/Search.pm:do_xapian_search
$only_desc =~ s#[^\w/+]+# #og;