X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;ds=sidebyside;f=lib%2FPackages%2FHTML.pm;h=c7dfd0b7479d6c420a52e88dbd4f4b4d867da23c;hb=38aca122efcdfa5282e2fb1ec911d4085a6067bf;hp=c8cd39df920de4dca0a2f2f2f9e2cb2cc5ee159d;hpb=a3e6aa1e34000d0a7faa1773bd6bc32c32cfa625;p=deb%2Fpackages.git diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm index c8cd39d..c7dfd0b 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 ); @@ -82,12 +82,14 @@ sub pkg_list { my $suite = $opts->{suite}[0]; my $str = ""; - foreach my $p ( @$pkgs ) { + foreach my $p ( sort @$pkgs ) { + # we don't deal with virtual packages here because for the + # current uses of this function this isn't needed my $short_desc = (read_entry_simple( $packages, $p, $opts->{h_archives}, $suite))->[-1]; if ( $short_desc ) { - $str .= "
". sprintf( _g( "To report a problem with the web site, e-mail %s. For other contact information, see the Debian contact page." ), $CONTACT_MAIL, $CONTACT_MAIL, $HOME). "
\n". - "". _g( "Last Modified: " ). "LAST_MODIFIED_DATE". + "
". _g( "Last Modified: " ). gmtime().
"
\n".
sprintf( _g( "Copyright © 1997-2005 SPI; See license terms." ), "$HOME/" )."
\n".
_g( "Debian is a registered trademark of Software in the Public Interest, Inc." ).