X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FHTML.pm;h=e0814a715ca0d099956074fd314af418f5e9a9e5;hb=411dd86a5f305fcce69912b47f84dc16914d2da1;hp=0fc506a189344dfb38a5983fa584ae17a14a9df3;hpb=c6b61e4d05ebeccd211fbd2bbf333ffddab3b649;p=deb%2Fpackages.git diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm index 0fc506a..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 = "