X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=cgi-bin%2Fshow_package.pl;h=5e7cfe2bbf59cb41b45681467449bbcb9b39243e;hb=9494a133fe92354405caf9cb25a7029bd4af1ec2;hp=445195d37e55192f280e3a52b43be6f2ce11266f;hpb=9f26e8bcb912da43661983f13714c3e56f406007;p=deb%2Fpackages.git diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl index 445195d..5e7cfe2 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 ( "Size is measured in kBytes." )."
\n"; + $package_page .= "\n"; $package_page .= " \n"; # @@ -355,8 +342,8 @@ unless (@Packages::CGI::fatal_errors) { my (undef, $archive, undef, $section, $subsection, $priority, $version) = @$entry; - my $data = $sources_all{"$pkg $version"}; - $page->merge_data($pkg, $version, $data) or debug( "Merging $pkg $version FAILED", 2 ); + my $data = $sources_all{"$archive $suite $pkg"}; + $page->merge_data($pkg, $suite, $archive, $data) or debug( "Merging $pkg $version FAILED", 2 ); } $version = $page->{version}; @@ -472,7 +459,8 @@ unless (@Packages::CGI::fatal_errors) { gettext("Size (in kB)"), gettext("md5sum") ); foreach( @$source_files ) { - my ($src_file_md5, $src_file_size, $src_file_name) = @$_; + my ($src_file_md5, $src_file_size, $src_file_name) + = split /\s+/, $_; my $src_url; for ($archive) { /security/o && do { @@ -508,8 +496,8 @@ unless (@Packages::CGI::fatal_errors) { } } -#use Data::Dumper; -#debug( "Final page object:\n".Dumper($page), 3 ); +use Data::Dumper; +debug( "Final page object:\n".Dumper($page), 3 ); my $title = $opts{source} ? "Details of source package $pkg in $suite" :