/[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 814 by dpavlin, Sun Apr 1 21:47:48 2007 UTC revision 833 by dpavlin, Wed May 23 20:04:13 2007 UTC
# Line 12  use WebPAC::Input 0.16; Line 12  use WebPAC::Input 0.16;
12  use WebPAC::Store 0.14;  use WebPAC::Store 0.14;
13  use WebPAC::Normalize 0.22;  use WebPAC::Normalize 0.22;
14  use WebPAC::Output::TT;  use WebPAC::Output::TT;
15  use WebPAC::Validate 0.06;  use WebPAC::Validate 0.11;
16  use WebPAC::Output::MARC;  use WebPAC::Output::MARC;
17  use WebPAC::Config;  use WebPAC::Config;
18  use Getopt::Long;  use Getopt::Long;
# Line 167  if ($merge) { Line 167  if ($merge) {
167  my $validate;  my $validate;
168  $validate = new WebPAC::Validate(  $validate = new WebPAC::Validate(
169          path => $validate_path,          path => $validate_path,
170            delimiters => $config->webpac('delimiters'),
171  ) if ($validate_path);  ) if ($validate_path);
172    
173    
# Line 560  while (my ($database, $db_config) = each Line 561  while (my ($database, $db_config) = each
561                                  $log->info("validation errors:\n$errors\n" );                                  $log->info("validation errors:\n$errors\n" );
562                                  print $report_fh "$errors\n" if ($report_fh);                                  print $report_fh "$errors\n" if ($report_fh);
563                          }                          }
564    
565                            print $report_fh "\nAll possible subfields/delimiter templates:\n", $validate->delimiters_templates, "\n\n";
566                  }                  }
567    
568                  if ($stats) {                  if ($stats) {
Legend:
Removed from v.814  
changed lines
  Added in v.833
  ViewVC Help
Powered by ViewVC 1.1.26