144 |
"help" => \$help, |
"help" => \$help, |
145 |
); |
); |
146 |
|
|
147 |
|
$marc_generate = 0 if ( $validate_delimiters_path ); |
148 |
|
|
149 |
pod2usage(-verbose => 2) if ($help); |
pod2usage(-verbose => 2) if ($help); |
150 |
|
|
151 |
my $config = new WebPAC::Config( path => $config_path ); |
my $config = new WebPAC::Config( path => $config_path ); |
570 |
print $report_fh "$errors\n" if ($report_fh); |
print $report_fh "$errors\n" if ($report_fh); |
571 |
} |
} |
572 |
|
|
573 |
print $report_fh "\nAll possible subfields/delimiter templates:\n", $validate->delimiters_templates( report => 1 ), "\n\n"; |
print $report_fh "\nAll possible subfields/delimiter templates:\n", $validate->delimiters_templates( report => 1, current_input => 1 ), "\n\n"; |
574 |
|
|
575 |
|
# must be last thing that touches $validate for this input |
576 |
|
$validate->reset; |
577 |
} |
} |
578 |
|
|
579 |
if ($stats) { |
if ($stats) { |
586 |
$marc->finish if ($marc); |
$marc->finish if ($marc); |
587 |
|
|
588 |
# close report |
# close report |
589 |
close($report_fh) if ($report_fh) |
close($report_fh) if ($report_fh); |
|
|
|
590 |
} |
} |
591 |
|
|
592 |
eval { $indexer->finish } if ($indexer && $indexer->can('finish')); |
eval { $indexer->finish } if ($indexer && $indexer->can('finish')); |
614 |
} |
} |
615 |
|
|
616 |
# save new delimiters if needed |
# save new delimiters if needed |
617 |
$validate->save_delimiters_templates; |
$validate->save_delimiters_templates if ( $validate ); |
618 |
|
|
619 |
# |
# |
620 |
# handle links or merge after indexing |
# handle links or merge after indexing |