/[webpac2]/trunk/run.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/run.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 638 by dpavlin, Wed Sep 6 19:51:32 2006 UTC revision 652 by dpavlin, Thu Sep 7 15:01:45 2006 UTC
# Line 12  use WebPAC::Input 0.11; Line 12  use WebPAC::Input 0.11;
12  use WebPAC::Store 0.03;  use WebPAC::Store 0.03;
13  use WebPAC::Normalize 0.11;  use WebPAC::Normalize 0.11;
14  use WebPAC::Output::TT;  use WebPAC::Output::TT;
15  use WebPAC::Validate;  use WebPAC::Validate 0.06;
16  use WebPAC::Output::MARC;  use WebPAC::Output::MARC;
17  use YAML qw/LoadFile/;  use YAML qw/LoadFile/;
18  use Getopt::Long;  use Getopt::Long;
# Line 406  while (my ($database, $db_config) = each Line 406  while (my ($database, $db_config) = each
406    
407    
408                                  if ($validate) {                                  if ($validate) {
409                                          my @errors = $validate->validate_errors( $row );                                          if ( my $errors = $validate->validate_errors( $row ) ) {
410                                          $log->error( "MFN $mfn validation errors:\n", join("\n", @errors) ) if (@errors);                                                  my $dump_record = defined($errors->{dump}->{record});
411                                                    $log->error( "MFN $mfn\n",
412                                                            $dump_record ? $input_db->dump : '',
413                                                            "validation errors:\n", dump( $errors )
414                                                    );
415                                            }
416                                  }                                  }
417    
418                                  my $ds_config = dclone($db_config);                                  my $ds_config = dclone($db_config);
# Line 460  while (my ($database, $db_config) = each Line 465  while (my ($database, $db_config) = each
465                                  $total_rows++;                                  $total_rows++;
466                          }                          }
467    
468                            $log->info("validation errors:\n", dump( $validate->{errors} ) ) if ($validate && defined($validate->{errors}));
469    
470                          $log->info("statistics of fields usage:\n", $input_db->stats) if ($stats);                          $log->info("statistics of fields usage:\n", $input_db->stats) if ($stats);
471    
472                          # close MARC file                          # close MARC file
Legend:
Removed from v.638  
changed lines
  Added in v.652
  ViewVC Help
Powered by ViewVC 1.1.26