513 |
|
|
514 |
my $report_fh; |
my $report_fh; |
515 |
if ($stats || $validate) { |
if ($stats || $validate) { |
516 |
my $path = "out/report/${database}-${input_name}.txt"; |
my $out_report = 'out/report'; # FIXME move to config |
517 |
|
mkpath $out_report unless -e $out_report; |
518 |
|
my $path = "$out_report/${database}-${input_name}.txt"; |
519 |
open($report_fh, '>', $path) || $log->logdie("can't open $path: $!"); |
open($report_fh, '>', $path) || $log->logdie("can't open $path: $!"); |
520 |
|
|
521 |
print $report_fh "Report for database '$database' input '$input_name' records ", |
print $report_fh "Report for database '$database' input '$input_name' records ", |
530 |
|
|
531 |
my $marc; |
my $marc; |
532 |
if ($marc_generate && $parser->have_rules( 'marc', $database, $input_name )) { |
if ($marc_generate && $parser->have_rules( 'marc', $database, $input_name )) { |
533 |
|
|
534 |
|
my $out_marc = 'out/marc'; # FIXME move to config |
535 |
|
mkpath $out_marc unless -e $out_marc; |
536 |
|
|
537 |
$marc = new WebPAC::Output::MARC( |
$marc = new WebPAC::Output::MARC( |
538 |
path => "out/marc/${database}-${input_name}.marc", |
path => "$out_marc/${database}-${input_name}.marc", |
539 |
lint => $marc_lint, |
lint => $marc_lint, |
540 |
dump => $marc_dump, |
dump => $marc_dump, |
541 |
); |
); |