X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fcreate_index_pages;h=0cc0bf8fe3cd0ce2e43d03e3f9a1a3531d0c2b2a;hb=e221d0617395700c44f3c1bfaaad964fd08cbacf;hp=973dff71685af3d51d518fc06a1f7eec67d1da50;hpb=92a6b3d4b5bcd96dfe05ee814722e5e0e47e1d3f;p=deb%2Fpackages.git diff --git a/bin/create_index_pages b/bin/create_index_pages index 973dff7..0cc0bf8 100755 --- a/bin/create_index_pages +++ b/bin/create_index_pages @@ -13,13 +13,14 @@ use Compress::Zlib; use lib './lib'; -use Packages::Config qw( $TOPDIR $DBDIR @ARCHIVES @SUITES @LANGUAGES $LOCALES); +use Packages::Config qw( $TOPDIR $DBDIR @ARCHIVES @SUITES @LANGUAGES ); use Packages::Template; use Packages::I18N::Locale; use Packages::Page; use Packages::SrcPage; use Packages::Sections; &Packages::Config::init( './' ); +&Packages::I18N::Locale::load( "$TOPDIR/po" ); my $wwwdir = "$TOPDIR/www"; @@ -62,7 +63,7 @@ foreach my $s (@SUITES) { my %content = ( subsections => [], suite => $s, lang => $lang, charset => $charset, cat => $cat, used_langs => \@LANGUAGES, suites => \@SUITES ); - foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) { + foreach my $ssec (sort (keys %{$subsections->{$s}}, 'virtual')) { next if $ssec eq '-'; if ($sections_descs{$ssec}) { push @{$content{subsections}}, {