-
-print "write footers ...\n";
-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');
-
- foreach my $sec (keys %{$sections->{$s}}) {
- close_file("$source$s/$sec",
- { %common_vars,
- category => { id => N_('Section'),
- name => $sec }});
- }
- foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
- next if $ssec eq '-';
- close_file("$source$s/$ssec",
- { %common_vars,
- category => { id => N_('Subsection'),
- name => $ssec }});
- }
- foreach my $prio (keys %{$priorities->{$s}}) {
- next if $prio eq '-';
- close_file("$source$s/$prio",
- { %common_vars,
- category => { id => N_('Priority'),
- name => $prio }});
- }
- }