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 |
|
|
545 |
$marc->add( |
$marc->add( |
546 |
id => $mfn . ( $i ? "/$i" : '' ), |
id => $mfn . ( $i ? "/$i" : '' ), |
547 |
fields => $fields, |
fields => $fields, |
548 |
leader => WebPAC::Normalize::marc_leader(), |
leader => WebPAC::Normalize::_get_marc_leader(), |
549 |
row => $row, |
row => $row, |
550 |
); |
); |
551 |
$i++; |
$i++; |
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( report => 1 ), "\n\n"; |
566 |
} |
} |
567 |
|
|
568 |
if ($stats) { |
if ($stats) { |