Merge commit 'alioth/master'

[deb/packages.git] / bin / create_index_pages

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 973dff71685af3d51d518fc06a1f7eec67d1da50..0cc0bf8fe3cd0ce2e43d03e3f9a1a3531d0c2b2a 100755 (executable)
--- 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}}, {