From: Jeroen van Wolffelaar <jeroen@wolffelaar.nl>
Date: Fri, 10 Feb 2006 22:18:31 +0000 (+0000)
Subject: Disable multi-page results while that is inefficient and we don't show more
X-Git-Tag: switch-to-templates~140
X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=commitdiff_plain;h=453cd28ba606559921f114a2efce593c510c8e84;hp=3db4c2ee2a6326c08b5e2ad934f649d605e8832c

Disable multi-page results while that is inefficient and we don't show more
than 100 results ever anyway
---

diff --git a/cgi-bin/search_packages.pl b/cgi-bin/search_packages.pl
index 0c78978..8e26b11 100755
--- a/cgi-bin/search_packages.pl
+++ b/cgi-bin/search_packages.pl
@@ -278,12 +278,13 @@ if (@results) {
 
 my @pkgs = sort(keys %pkgs, keys %provided_by);
 	if ($opts{format} eq 'html') {
-	    my ($start, $end) = multipageheader( $input, scalar @pkgs, \%opts );
-	    my $count = 0;
+	    #my ($start, $end) = multipageheader( $input, scalar @pkgs, \%opts );
+	    print "<p>Found <em>".(scalar @pkgs)."</em> matching packages,";
+	    #my $count = 0;
 	
 	    foreach my $pkg (@pkgs) {
-		$count++;
-		next if $count < $start or $count > $end;
+		#$count++;
+		#next if $count < $start or $count > $end;
 		printf "<h3>Package %s</h3>\n", $pkg;
 		print "<ul>\n";
 		foreach my $suite (@SUITES) {
@@ -333,12 +334,13 @@ my @pkgs = sort(keys %pkgs, keys %provided_by);
 	}
 
 	if ($opts{format} eq 'html') {
-	    my ($start, $end) = multipageheader( $input, scalar keys %pkgs, \%opts );
-	    my $count = 0;
+	    #my ($start, $end) = multipageheader( $input, scalar keys %pkgs, \%opts );
+	    print "<p>Found <em>".(scalar keys %pkgs)."</em> matching packages,";
+	    #my $count = 0;
 	    
 	    foreach my $pkg (sort keys %pkgs) {
-		$count++;
-		next if ($count < $start) or ($count > $end);
+		#$count++;
+		#next if ($count < $start) or ($count > $end);
 		printf "<h3>Source package %s</h3>\n", $pkg;
 		print "<ul>\n";
 		foreach my $suite (@SUITES) {
@@ -368,7 +370,7 @@ my @pkgs = sort(keys %pkgs, keys %provided_by);
 	    }
 	}
     }
-    printindexline( $input, scalar keys %pkgs, \%opts );
+    #printindexline( $input, scalar keys %pkgs, \%opts );
 }
 #print_results(\@results, \%opts) if @results;;
 my $tet1 = new Benchmark;