- foreach my $row ( 0 .. $#{ $table->{$group} } ) {
- print $fh "<tr><th>", $report_labels[$row], "</th>";
- print $fh "<td>", $table->{$group}->[ $row ]->[ $_ ] || '', "</td>" foreach 0 .. $#departments;
- print $fh "</tr>";
+ foreach my $row ( 0 .. $#{ $table->{ffzg}->{$group} } ) {
+ print_fh "<tr><th>", $report_labels[$row], "</th>\n";
+ foreach ( 0 .. $#departments ) {
+ print_fh "<td>";
+ print $fh $table->{ffzg}->{$group}->[ $row ]->[ $_ ] || '';
+ print $fh2 $table->{external}->{$group}->[ $row ]->[ $_ ] || '';
+ print_fh "</td>\n"
+ }
+ print_fh "</tr>\n";