-sub multipageheader {
- my ( $input, $no_results, $opts ) = @_;
-
- my ($start, $end);
- if ($opts->{number} =~ /^all$/i) {
- $start = 1;
- $end = $no_results;
- $opts->{number} = $no_results;
- $opts->{number_all}++;
- } else {
- $start = Packages::Search::start( $opts );
- $end = Packages::Search::end( $opts );
- if ($end > $no_results) { $end = $no_results; }
- }
-
- print "<p>Found <em>$no_results</em> matching packages,";
- if ($end == $start) {
- print " displaying package $end.</p>";
- } else {
- print " displaying packages $start to $end.</p>";
- }
-
- printindexline( $input, $no_results, $opts );
-
- if ($no_results > 100) {
- print "<p>Results per page: ";
- my @resperpagelinks;
- for (50, 100, 200) {
- if ($opts->{number} == $_) {
- push @resperpagelinks, $_;
- } else {
- push @resperpagelinks, resperpagelink($input,$opts,$_);
- }
- }
- if ($opts->{number_all}) {
- push @resperpagelinks, "all";
+#sub multipageheader {
+# my ( $input, $no_results, $opts ) = @_;
+#
+# my ($start, $end);
+# if ($opts->{number} =~ /^all$/i) {
+# $start = 1;
+# $end = $no_results;
+# $opts->{number} = $no_results;
+# $opts->{number_all}++;
+# } else {
+# $start = Packages::Search::start( $opts );
+# $end = Packages::Search::end( $opts );
+# if ($end > $no_results) { $end = $no_results; }
+# }
+#
+# print "<p>Found <em>$no_results</em> matching packages,";
+# if ($end == $start) {
+# print " displaying package $end.</p>";
+# } else {
+# print " displaying packages $start to $end.</p>";
+# }
+#
+# printindexline( $input, $no_results, $opts );
+#
+# if ($no_results > 100) {
+# print "<p>Results per page: ";
+# my @resperpagelinks;
+# for (50, 100, 200) {
+# if ($opts->{number} == $_) {
+# push @resperpagelinks, $_;
+# } else {
+# push @resperpagelinks, resperpagelink($input,$opts,$_);
+# }
+# }
+# if ($opts->{number_all}) {
+# push @resperpagelinks, "all";
+# } else {
+# push @resperpagelinks, resperpagelink($input, $opts, "all");
+# }
+# print join( " | ", @resperpagelinks )."</p>";
+# }
+# return ( $start, $end );
+#}
+
+sub read_entry_all {
+ my ($hash, $key, $results, $non_results, $opts) = @_;
+ my $result = $hash->{$key} || '';
+ foreach (split /\000/o, $result) {
+ my @data = split ( /\s/o, $_, 8 );
+ debug( "Considering entry ".join( ':', @data), 2);
+ if ($opts->{h_archives}{$data[0]} && $opts->{h_suites}{$data[1]}
+ && ($opts->{h_archs}{$data[2]} || $data[2] eq 'all'
+ || $data[2] eq 'virtual')
+ && ($opts->{h_sections}{$data[3]} || $data[3] eq 'v')) {
+ debug( "Using entry ".join( ':', @data), 2);
+ push @$results, [ $key, @data ];