X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoSearch.pm;h=64160c13b52183081957b38f45749242adb636ad;hb=3bb6c9d9922b0487901c02962b1d64c525f1bdd7;hp=60052c59bb2b3b2cd03dcca7859e58020c19d1c0;hpb=56d4b3ed57e20359e5ea46feabb850cf4a94caf2;p=deb%2Fpackages.git diff --git a/lib/Packages/DoSearch.pm b/lib/Packages/DoSearch.pm index 60052c5..64160c1 100644 --- a/lib/Packages/DoSearch.pm +++ b/lib/Packages/DoSearch.pm @@ -27,9 +27,9 @@ sub do_search { $Params::Search::too_many_hits = 0; if ($params->{errors}{keywords}) { - fatal_error( _( "keyword not valid or missing" ) ); + fatal_error( _g( "keyword not valid or missing" ) ); } elsif (length($opts->{keywords}) < 2) { - fatal_error( _( "keyword too short (keywords need to have at least two characters)" ) ); + fatal_error( _g( "keyword too short (keywords need to have at least two characters)" ) ); } $$menu = ""; @@ -102,16 +102,16 @@ sub do_search { } if ($Packages::Search::too_many_hits) { - error( sprintf( _( "Your search was too wide so we will only display exact matches. At least %s results have been omitted and will not be displayed. Please consider using a longer keyword or more keywords." ), $Packages::Search::too_many_hits ) ); + error( sprintf( _g( "Your search was too wide so we will only display exact matches. At least %s results have been omitted and will not be displayed. Please consider using a longer keyword or more keywords." ), $Packages::Search::too_many_hits ) ); } if (!@Packages::CGI::fatal_errors && !@results) { if ($searchon eq "names") { unless (@non_results) { - error( _( "Can't find that package." ) ); + error( _g( "Can't find that package." ) ); } else { - hint( _( "Can't find that package." )." ". - sprintf( _( '%s'. + hint( _g( "Can't find that package." )." ". + sprintf( _g( '%s'. " results have not been displayed due to the". " search parameters." ), "$SEARCH_URL/$keyword_esc" , $#non_results+1 ) ); @@ -121,24 +121,24 @@ sub do_search { if (($suites_enc eq 'all') && ($archs_enc eq 'any') && ($sections_enc eq 'all')) { - error( _( "Can't find that string." ) ); + error( _g( "Can't find that string." ) ); } else { - error( sprintf( _( "Can't find that string, at least not in that suite (%s, section %s) and on that architecture (%s)." ), + error( sprintf( _g( "Can't find that string, at least not in that suite (%s, section %s) and on that architecture (%s)." ), $suites_enc, $sections_enc, $archs_enc ) ); } if ($opts->{exact}) { - hint( sprintf( _( 'You have searched only for words exactly matching your keywords. You can try to search allowing subword matching.' ), + hint( sprintf( _g( 'You have searched only for words exactly matching your keywords. You can try to search allowing subword matching.' ), encode_entities("$SEARCH_URL?exact=0&$opts->{common_params}") ) ); } } - hint( sprintf( _( 'You can try a different search on the Packages search page.' ), "$SEARCH_PAGE#search_packages" ) ); + hint( sprintf( _g( 'You can try a different search on the Packages search page.' ), "$SEARCH_PAGE#search_packages" ) ); } - %$html_header = ( title => _( 'Package Search Results' ) , + %$html_header = ( title => _g( 'Package Search Results' ) , lang => $opts->{lang}, - title_tag => _( 'Debian Package Search Results' ), + title_tag => _g( 'Debian Package Search Results' ), print_title => 1, print_search_field => 'packages', search_field_values => { @@ -226,21 +226,21 @@ sub print_packages { #my ($start, $end) = multipageheader( $input, scalar @pkgs, \%opts ); my $str = '
".sprintf( _( "Found %s matching packages." ), + $str .= "
".sprintf( _g( "Found %s matching packages." ), scalar @$pkgs_list )."
"; #my $count = 0; my $have_exact; if (grep { $_ eq $keyword } @$pkgs_list) { $have_exact = 1; - $str .= '".sprintf( _( '%s results have not been displayed because you requested only exact matches.' ), + $str .= "
".sprintf( _g( '%s results have not been displayed because you requested only exact matches.' ), encode_entities("$SEARCH_URL?exact=0&$opts->{common_params}"), scalar @$pkgs_list )."
"; } @@ -262,7 +262,7 @@ sub print_packages { sub print_package { my ($pkg, $pkgs, $provided_by, $archives, $sect, $subsect, $desc) = @_; - my $str = '