X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoShow.pm;h=076e11f7c3826a909ed459b412eb7a2e898c6b3f;hb=48d5454d1a9475bff05c755aed312f991dcb2aed;hp=c9912df2941bf1ca506c3b60f0dc7ae3351b2522;hpb=6b32484cb228479df13814cf1ba0f6667ff7148d;p=deb%2Fpackages.git diff --git a/lib/Packages/DoShow.pm b/lib/Packages/DoShow.pm index c9912df..076e11f 100644 --- a/lib/Packages/DoShow.pm +++ b/lib/Packages/DoShow.pm @@ -145,20 +145,20 @@ sub do_show { $long_desc =~ s/(((\n|\A) [^\n]*)+)/\n
$1\n<\/pre>/sgo; # $long_desc = conv_desc( $lang, $long_desc ); # $short_desc = conv_desc( $lang, $short_desc ); - - $$menu .= simple_menu( [ _g( "Distribution:" ), - _g( "Overview over this suite" ), - "$ROOT/$suite/", - $suite ], - [ _g( "Section:" ), - _g( "All packages in this section" ), - "$ROOT/$suite/$subsection/", - $subsection ], - [ _g( "Source:" ), - _g( "Source package building this package" ), - "$ROOT/$suite/source/".$page->get_src('package'), - $page->get_src('package') ], - ); + my @menu = ( [ _g( "Distribution:" ), + _g( "Overview over this suite" ), + "$ROOT/$suite/", + $suite ], + [ _g( "Section:" ), + _g( "All packages in this section" ), + "$ROOT/$suite/$subsection/", + $subsection ], ); + my $source = $page->get_src('package'); + push @menu, [ _g( "Source:" ), + _g( "Source package building this package" ), + "$ROOT/$suite/source/$source", + $source ] if $source; + $$menu .= simple_menu( @menu ); my $v_str = $version; my $multiple_versions = grep { $_ ne $version } values %$versions; @@ -203,9 +203,6 @@ sub do_show { if ( $dep_list ) { $package_page .= "\n"; $package_page .= sprintf( ""._g( "Other Packages Related to %s" )."
\n", $pkg ); - if ($suite eq "experimental") { - note( sprintf( _g( 'Note that the experimental distribution is not self-contained; missing dependencies are likely found in the unstable distribution.' ), "$ROOT/unstable/" ) ); - } $package_page .= pdeplegend( [ 'dep', _g( 'depends' ) ], [ 'rec', _g( 'recommends' ) ], @@ -307,11 +304,11 @@ sub do_show { $$menu .= simple_menu( [ _g( "Distribution:" ), _g( "Overview over this suite" ), - "/$suite/", + "$ROOT/$suite/", $suite ], [ _g( "Section:" ), _g( "All packages in this section" ), - "/$suite/$subsection/", + "$ROOT/$suite/$subsection/", $subsection ], ); @@ -356,10 +353,6 @@ sub do_show { if ( $dep_list ) { $package_page .= "\n"; $package_page .= sprintf( ""._g( "Other Packages Related to %s" )."
\n", $pkg ); - if ($suite eq "experimental") { - note( sprintf( _g( 'Note that the experimental distribution is not self-contained; missing dependencies are likely found in the unstable distribution.' ), "$ROOT/unstable/" ) ); - - } $package_page .= pdeplegend( [ 'adep', _g( 'build-depends' ) ], [ 'idep', _g( 'build-depends-indep' ) ], @@ -388,7 +381,7 @@ sub do_show { my ($src_file_md5, $src_file_size, $src_file_name) = split /\s+/, $_; my $src_url; - for ($archive) { + for ("$suite/$archive") { /security/o && do { $src_url = $FTP_SITES{security}; last }; /volatile/o && do {