X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fcreate_index_pages;h=55e9f47b68a64dd78850d18bc76ca664dd83c7ce;hb=564f2f93ec21c9210415eb6cfb7eea589b05a5ae;hp=1cce8f17921222ff1a8842fcc4b58bf8addbd4e7;hpb=a3e6aa1e34000d0a7faa1773bd6bc32c32cfa625;p=deb%2Fpackages.git

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 1cce8f1..55e9f47 100755
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -63,8 +63,8 @@ foreach my $s (@SUITES) {
 						       desc => encode_entities( $index_title, '"' ),
 						       lang => $lang ),
 	title( $index_title ), '<div id="lefthalfcol"><dl>';
-	my $i = 0; my $num_sections = keys %{$subsections->{$s}{'us'}};
-	foreach my $ssec ((keys %{$subsections->{$s}{'us'}}, 'virtual')) {
+	my $i = 0; my $num_sections = keys %{$subsections->{$s}};
+	foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
 	    next if $ssec eq '-';
 	    if ($sections_descs{$ssec}) {
 		print {$pages{$key}{$lang}{index}{fh}} "<dt><a href=\"$ssec/\">".dgettext( 'sections', $sections_descs{$ssec}[0] )."</a></dt><dd>".dgettext( 'sections', $sections_descs{$ssec}[1] )."</dd>\n";
@@ -104,7 +104,7 @@ foreach my $s (@SUITES) {
 				     lang => 'en' ),
     title( $title ), '<dl>';
 
-    foreach my $sec (keys %{$sections->{$s}{'us'}}) {
+    foreach my $sec (keys %{$sections->{$s}}) {
 	mkpath ( "$wwwdir/$key/$sec" );
 	open $pages{$key}{$sec}{fh}, '>', "$wwwdir/$key/$sec/index.en.html.new"
 	    or die "can't open index file for output: $!";
@@ -116,7 +116,7 @@ foreach my $s (@SUITES) {
 					       lang => 'en' ),
 	title( $title ), '<dl>';
     }
-    foreach my $ssec ((keys %{$subsections->{$s}{'us'}}, 'virtual')) {
+    foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
 	next if $ssec eq '-';
 	mkpath ( "$wwwdir/$key/$ssec" );
 	open $pages{$key}{$ssec}{fh}, '>', "$wwwdir/$key/$ssec/index.en.html.new"
@@ -129,7 +129,7 @@ foreach my $s (@SUITES) {
 						lang => 'en' ),
 	title( $title ), '<dl>';
     }
-    foreach my $prio (keys %{$priorities->{$s}{'us'}}) {
+    foreach my $prio (keys %{$priorities->{$s}}) {
 	next if $prio eq '-';
 	mkpath ( "$wwwdir/$key/$prio" );
 	open $pages{$key}{$prio}{fh}, '>', "$wwwdir/$key/$prio/index.en.html.new"
@@ -203,8 +203,6 @@ while (my ($pkg, $data) = each %packages) {
 	print {$pages{$key}{$section}{fh}} $str
 	    or die "couldn't write to output file: $!";
 	if ($subsection ne '-') {
-	    print STDERR "pages{$key}{$subsection}{fh}\n"
-		unless $pages{$key}{$subsection}{fh};
 	    print {$pages{$key}{$subsection}{fh}} $str
 		or die "couldn't write to output file: $!";
 	}
@@ -230,7 +228,7 @@ foreach my $s (@SUITES) {
 	rename( "$wwwdir/$key/$sec/index.en.html.new",
 		"$wwwdir/$key/$sec/index.en.html" );
     }
-    foreach my $ssec ((keys %{$subsections->{$s}{'us'}}, 'virtual')) {
+    foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
 	next if $ssec eq '-';
 	print {$pages{$key}{$ssec}{fh}} '</dl>', trailer( "../../" );
 	close $pages{$key}{$ssec}{fh} or
@@ -238,7 +236,7 @@ foreach my $s (@SUITES) {
 	rename( "$wwwdir/$key/$ssec/index.en.html.new",
 		"$wwwdir/$key/$ssec/index.en.html" );
     }
-    foreach my $prio (keys %{$priorities->{$s}{'us'}}) {
+    foreach my $prio (keys %{$priorities->{$s}}) {
 	next if $prio eq '-';
 	print {$pages{$key}{$prio}{fh}} '</dl>', trailer( "../../" );
 	close $pages{$key}{$prio}{fh} or