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; |
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 |
|
|
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) { |