X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoShow.pm;h=92b69e59718be617d87373983f9d9248edcc8b92;hb=00d2959ac17d719af9cce1c320092e2fbed182a7;hp=30158c54b42d35ce6f5dcc91e8b008aac502efb3;hpb=11fd4b5f87f668eeb33922c6f64823e40828d137;p=deb%2Fpackages.git diff --git a/lib/Packages/DoShow.pm b/lib/Packages/DoShow.pm index 30158c5..92b69e5 100644 --- a/lib/Packages/DoShow.pm +++ b/lib/Packages/DoShow.pm @@ -14,7 +14,7 @@ use Deb::Versions; use Packages::Config qw( $DBDIR @SUITES @ARCHIVES @SECTIONS @ARCHITECTURES %FTP_SITES @DDTP_LANGUAGES); use Packages::I18N::Locale; -use Packages::CGI qw( :DEFAULT make_url make_search_url note ); +use Packages::CGI qw( :DEFAULT make_url make_search_url ); use Packages::DB; use Packages::Search qw( :all ); use Packages::Page (); @@ -68,8 +68,8 @@ sub do_show { } unless (@results || @non_results ) { - fatal_error( _g( "No such package." )."
". - sprintf( _g( 'Search for the package' ), make_search_url('','keywords='.uri_escape($pkg)) ) ); + fatal_error( _g( "No such package.") ); + #sprintf( _g( 'Search for the package' ), make_search_url('','keywords='.uri_escape($pkg)) ) ); } else { my %all_suites; foreach (@results, @non_results) { @@ -222,7 +222,7 @@ sub do_show { my @downloads; foreach my $a ( @archs ) { my %d = ( arch => $a, - pkgsize => sprintf( '%.1f', floor(($sizes_deb->{$a}/102.4)+0.5)/10 ), + pkgsize => floor(($sizes_deb->{$a}/102.4)+0.5)/10, instsize => $sizes_inst->{$a}, ); $d{version} = $versions->{$a} if $multiple_versions; @@ -311,7 +311,7 @@ sub do_show { my $path = "/$source_dir/$src_file_name"; push @{$contents{srcfiles}}, { server => $server, path => $path, filename => $src_file_name, - size => sprintf("%.1f", (floor(($src_file_size/102.4)+0.5)/10)), + size => floor(($src_file_size/102.4)+0.5)/10, md5sum => $src_file_md5 }; } @@ -422,7 +422,7 @@ sub build_deps { if ($arch_str ||= '') { if ($arch_neg) { - $arch_str = _g("not")." $arch_str"; + $arch_str = sprintf( _g("not %s"), "$arch_str" ); } else { $arch_str = $arch_str; }