X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FHTML.pm;h=9f019fb79449758b1fc73701ae07a7b9c665b809;hb=47c93cb066364b11f0b216589ddc68671435b060;hp=90c95691805b873655feeafca185a9cb08d1ad48;hpb=344794b96a00a8df993bbc0743d05715d2682681;p=deb%2Fpackages.git diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm index 90c9569..9f019fb 100644 --- a/lib/Packages/HTML.pm +++ b/lib/Packages/HTML.pm @@ -24,7 +24,7 @@ our @ISA = qw( Exporter ); our @EXPORT = qw( header title trailer file_changed time_stamp read_md5_hash write_md5_hash simple_menu ds_begin ds_item ds_end note title marker pdesc - pdeplegend pkg_list pmoreinfo print_deps ); + pdeplegend pkg_list pmoreinfo print_deps print_src_deps ); our $CHANGELOG_URL = '/changelogs'; @@ -52,7 +52,7 @@ sub title { } sub marker { - return "[$_[0]]"; + return "[$_[0]]"; } sub pdesc { @@ -69,7 +69,7 @@ sub pdesc { } sub pdeplegend { - my $str = "
[0].gif\" alt=\"[$entry->[0]]\" width=\"16\" height=\"16\">= $entry->[1] | "; @@ -79,38 +79,28 @@ sub pdeplegend { return $str; } -# sub pkg_list { -# my ( $pkgs, $lang, $env ) = @_; - -# my $str = ""; -# foreach my $p ( @$pkgs ) { -# my $p_pkg = $env->{db}->get_pkg( $p ); - -# if ( $p_pkg ) { -# if ($p_pkg->is_virtual) { -# $str .= "