X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=cgi-bin%2Fshow_package.pl;h=747db62ada96ee2b29bd87695a7b2255c19befd3;hb=2c68295edf18a88ff0e5437c6f7f9a67438fd65a;hp=445195d37e55192f280e3a52b43be6f2ce11266f;hpb=9f26e8bcb912da43661983f13714c3e56f406007;p=deb%2Fpackages.git
diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl
index 445195d..747db62 100755
--- a/cgi-bin/show_package.pl
+++ b/cgi-bin/show_package.pl
@@ -225,11 +225,11 @@ unless (@Packages::CGI::fatal_errors) {
$package_page .= simple_menu( [ gettext( "Distribution:" ),
gettext( "Overview over this suite" ),
- "/$suite/",
+ "$ROOT/$suite/",
$suite ],
[ gettext( "Section:" ),
gettext( "All packages in this section" ),
- "/$suite/$subsection/",
+ "$ROOT/$suite/$subsection/",
$subsection ],
);
@@ -298,35 +298,22 @@ unless (@Packages::CGI::fatal_errors) {
$package_page .= "
".gettext("Architecture")." | ".gettext("Files")." | ".gettext( "Package Size")." | ".gettext("Installed Size")." | \n";
foreach my $a ( @archs ) {
$package_page .= "\n";
- $package_page .= "{$a});
- $package_page .= "&md5sum=$file_md5sums->{$a}";
- $package_page .= "&arch=$a";
- for ($archives->{$a}) {
- /security/o && do {
- $package_page .= "&type=security"; last };
- /volatile/o && do {
- $package_page .= "&type=volatile"; last };
- /backports/o && do {
- $package_page .= "&type=backports"; last };
- /non-us/io && do {
- $package_page .= "&type=nonus"; last };
- $package_page .= "&type=main";
- }
+ $package_page .= " | $a | \n";
$package_page .= "";
if ( $suite ne "experimental" ) {
- $package_page .= sprintf( "[".gettext( "list of files" )."]\n", "$FILELIST_URL$encodedpkg&version=$suite&arch=$a", $pkg );
+ $package_page .= sprintf( "[".gettext( "list of files" )."]\n",
+ "$ROOT/$suite/$encodedpkg/$a/filelist", $pkg );
} else {
$package_page .= gettext( "no current information" );
}
- $package_page .= " | \n";
- $package_page .= floor(($sizes_deb->{$a}/102.4)+0.5)/10;
- $package_page .= " | \n";
- $package_page .= $sizes_inst->{$a};
+ $package_page .= " | \n"; #FIXME: css
+ $package_page .= floor(($sizes_deb->{$a}/102.4)+0.5)/10 . " kB";
+ $package_page .= " | \n"; #FIXME: css
+ $package_page .= $sizes_inst->{$a} . " kB";
$package_page .= " | \n
";
}
- $package_page .= "".gettext ( "Size is measured in kBytes." )."
\n";
+ $package_page .= "\n";
$package_page .= " \n";
#