X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoSearchContents.pm;h=67d2028dbd7fce371d67e71b44a67b1ebb9887ba;hb=47c93cb066364b11f0b216589ddc68671435b060;hp=6d236d1bff5015939cba6ec960a9843bb982ac68;hpb=e297f56fb5ba59c24f4b3d325b8a43fc05c71f5d;p=deb%2Fpackages.git diff --git a/lib/Packages/DoSearchContents.pm b/lib/Packages/DoSearchContents.pm index 6d236d1..67d2028 100644 --- a/lib/Packages/DoSearchContents.pm +++ b/lib/Packages/DoSearchContents.pm @@ -3,7 +3,7 @@ package Packages::DoSearchContents; use strict; use warnings; -use Benchmark; +use Benchmark ':hireswallclock'; use DB_File; use URI::Escape; use HTML::Entities; @@ -15,7 +15,7 @@ use Deb::Versions; use Packages::Search qw( :all ); use Packages::CGI; use Packages::DB; -use Packages::Config qw( $DBDIR $SEARCH_URL $SEARCH_CGI $SEARCH_PAGE +use Packages::Config qw( $DBDIR $SEARCH_URL $SEARCH_PAGE @SUITES @ARCHIVES $ROOT ); sub do_search_contents { @@ -138,7 +138,7 @@ sub do_search_contents { $$page_content = ''; if (@results) { $$page_content .= "

Found ".scalar(@results)." results

"; - $$page_content .= "
"; + $$page_content .= "
FilePackages
"; foreach my $result (sort { $a->[0] cmp $b->[0] } @results) { my $file = shift @$result; $$page_content .= "'; } - $$page_content .= '' if @results > 20; + $$page_content .= '' if @results > 20; $$page_content .= '
FilePackages
$file"; @@ -150,7 +150,7 @@ sub do_search_contents { $$page_content .= join( ", ", map { "$_" } sort keys %pkgs); $$page_content .= '
FilePackages
FilePackages
'; } } # sub do_search_contents