output modules can now define add_row as opposed to add to get input row before norma...

[webpac2] / run.pl

diff --git a/run.pl b/run.pl
index e933728..5f7b247 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -603,6 +603,9 @@ foreach my $database ( sort keys %{ $config->databases } ) {
                                push @{ $row->{'000'} }, $pos;
                        }
 
+                       foreach my $out ( @output_modules ) {
+                               $out->add_row( $mfn, $row ) if $out->can('add_row');
+                       }
 
                        if ($validate) {
                                if ( my $errors = $validate->validate_rec( $row, $input_db->dump_ascii ) ) {