Make language override URLs more robust

[deb/packages.git] / bin / create_index_pages

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 8072fa48fec3ca70441b800735b44b98d0617aa3..3e9fc529f63ff74fe27dcc2590370e1e3c0c297c 100755 (executable)
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -188,12 +188,18 @@ foreach my $source (("", "source/")) {
     foreach my $s (@SUITES) {
        my %common_vars = ( suite => $s,
                            is_source => $source );
-       close_file("$source$s", \%common_vars, 'allpackages');
-       close_txt_file("$source$s", \%common_vars, 'allpackages');
+       my $page_base = "$source$s/";
+       close_file("$source$s", { %common_vars,
+                                 page_name => "${page_base}allpackages" },
+                  'allpackages');
+       close_txt_file("$source$s", { %common_vars,
+                                     page_name => "{$page_base}allpackages" },
+                      'allpackages');
 
        foreach my $sec (keys %{$sections->{$s}}) {
            close_file("$source$s/$sec",
                       { %common_vars,
+                        page_name => "$page_base$sec/",
                         category => { id => N_('Section'),
                                       name => $sec }});
        }
@@ -201,6 +207,7 @@ foreach my $source (("", "source/")) {
            next if $ssec eq '-';
            close_file("$source$s/$ssec",
                       { %common_vars,
+                        page_name => "$page_base$ssec/",
                         category => { id => N_('Subsection'),
                                       name => $ssec }});
        }
@@ -208,6 +215,7 @@ foreach my $source (("", "source/")) {
            next if $prio eq '-';
            close_file("$source$s/$prio",
                       { %common_vars,
+                        page_name => "$page_base$prio/",
                         category => { id => N_('Priority'),
                                       name => $prio }});
        }