/[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 653 by dpavlin, Thu Sep 7 15:57:48 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, $input_db->dump ) ) {
410                                          $log->error( "MFN $mfn validation errors:\n", join("\n", @errors) ) if (@errors);                                                  $log->error( "MFN $mfn validation error:\n",
411                                                            dump( $errors )
412                                                    );
413                                            }
414                                  }                                  }
415    
416                                  my $ds_config = dclone($db_config);                                  my $ds_config = dclone($db_config);
# Line 460  while (my ($database, $db_config) = each Line 463  while (my ($database, $db_config) = each
463                                  $total_rows++;                                  $total_rows++;
464                          }                          }
465    
466                            $log->info("validation errors:\n", dump( $validate->all_errors ) ) if ($validate && defined($validate->all_errors));
467    
468                          $log->info("statistics of fields usage:\n", $input_db->stats) if ($stats);                          $log->info("statistics of fields usage:\n", $input_db->stats) if ($stats);
469    
470                          # close MARC file                          # close MARC file
Legend:
Removed from v.638  
changed lines
  Added in v.653
  ViewVC Help
Powered by ViewVC 1.1.26