X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FHTML.pm;h=e0814a715ca0d099956074fd314af418f5e9a9e5;hb=411dd86a5f305fcce69912b47f84dc16914d2da1;hp=620053405de9a0b6e6ff5c61ffb4549c3125ccf7;hpb=dc1f8cc1360f5abb632e30e72753e2e132ff9290;p=deb%2Fpackages.git diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm index 6200534..e0814a7 100644 --- a/lib/Packages/HTML.pm +++ b/lib/Packages/HTML.pm @@ -8,7 +8,7 @@ use URI::Escape; use HTML::Entities; use Locale::gettext; -use Packages::CGI (); +use Packages::CGI qw(make_url make_search_url); use Packages::Search qw( read_entry_simple ); use Packages::Config qw( :all ); @@ -21,7 +21,7 @@ use Packages::I18N::LanguageNames; 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 title marker pdesc + ds_begin ds_item ds_end title marker pdesc ptags pdeplegend pkg_list pmoreinfo print_deps print_src_deps ); our $CHANGELOG_URL = '/changelogs'; @@ -66,6 +66,20 @@ sub pdesc { return $str; } +sub ptags { + my ( $package, @tags ) = @_; + my $str = ""; + + $str .= "
\n"; + + return $str; +} + sub pdeplegend { my $str = "