[UBUNTU] Add mailing lists archive urls for lists.ubuntu.com

[deb/packages.git] / bin / create_index_pages

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 0766f78fe5a275ebc192f0fcfe2089520fe6dab0..811a3e574a60adc34f928b0e24751c655f4959e6 100755 (executable)
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -97,7 +97,7 @@ sub close_file {
     print "closing $key\n";
 
     foreach my $lang (@LANGUAGES) {
-       print {$fh{$key}} "$s{begin}{$lang}\n";
+       print {$fh{$key}} "\n$s{begin}{$lang}\n";
        $template->page( 'index_foot',
                         { %{$lang_vars{$lang}},
                           %$vars },
@@ -230,11 +230,13 @@ foreach my $pkg (@PACKAGES) {
                my %sdescs;
                my %trans_desc = split /\000|\001/, $trans_desc;
                while (my ($l, $d) = each %trans_desc) {
-                   $d =~ s/\n.*//os;
+                   # filter out non-po languages
+                   next unless exists $lang_vars{$l};
 
+                   $d =~ s/\n.*//os;
                    $sdescs{$l} = $d;
                }
-               $p{trans_desc} = \%sdescs;
+               $p{trans_desc} = \%sdescs if %sdescs;
            }
            $p{priority} = $entry->get_newest( 'priority' );
        }