--- trunk/run.pl 2007/05/27 10:50:39 850 +++ trunk/run.pl 2007/05/27 11:14:40 851 @@ -144,6 +144,8 @@ "help" => \$help, ); +$marc_generate = 0 if ( $validate_delimiters_path ); + pod2usage(-verbose => 2) if ($help); my $config = new WebPAC::Config( path => $config_path ); @@ -568,7 +570,10 @@ print $report_fh "$errors\n" if ($report_fh); } - 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"; + + # must be last thing that touches $validate for this input + $validate->reset; } if ($stats) { @@ -582,9 +587,6 @@ # close report close($report_fh) if ($report_fh); - - # reset validate stats - $validate->reset if ( $validate ); } eval { $indexer->finish } if ($indexer && $indexer->can('finish'));