226 |
|
|
227 |
foreach my $normalize (@norm_array) { |
foreach my $normalize (@norm_array) { |
228 |
|
|
|
my $rules; |
|
229 |
my $normalize_path = $normalize->{path} || $log->logdie("can't find normalize path in config"); |
my $normalize_path = $normalize->{path} || $log->logdie("can't find normalize path in config"); |
230 |
|
|
231 |
$log->logdie("Found '$normalize_path' as normalization file which isn't supported any more!") unless ( $normalize_path =~ m!\.pl$!i ); |
$log->logdie("Found '$normalize_path' as normalization file which isn't supported any more!") unless ( $normalize_path =~ m!\.pl$!i ); |
286 |
if ($marc_fh) { |
if ($marc_fh) { |
287 |
my $marc = new MARC::Record; |
my $marc = new MARC::Record; |
288 |
$marc->encoding( 'utf-8' ); |
$marc->encoding( 'utf-8' ); |
289 |
$marc->add_fields( WebPAC::Normalize::_get_marc21_fields() ); |
$marc->add_fields( WebPAC::Normalize::_get_marc_fields() ); |
290 |
print $marc_fh $marc->as_usmarc; |
print $marc_fh $marc->as_usmarc; |
291 |
} |
} |
292 |
|
|