19 |
use File::Path; |
use File::Path; |
20 |
use Time::HiRes qw/time/; |
use Time::HiRes qw/time/; |
21 |
use File::Slurp; |
use File::Slurp; |
22 |
use MARC::Record; |
use MARC::Record 2.0; # need 2.0 for utf-8 encoding see marcpm.sf.net |
23 |
|
|
24 |
=head1 NAME |
=head1 NAME |
25 |
|
|
269 |
row => $row, |
row => $row, |
270 |
rules => $rules, |
rules => $rules, |
271 |
lookup => $lookup ? $lookup->lookup_hash : undef, |
lookup => $lookup ? $lookup->lookup_hash : undef, |
272 |
|
marc_encoding => 'utf-8', |
273 |
); |
); |
274 |
|
|
275 |
$db->save_ds( |
$db->save_ds( |
286 |
|
|
287 |
if ($marc_fh) { |
if ($marc_fh) { |
288 |
my $marc = new MARC::Record; |
my $marc = new MARC::Record; |
289 |
|
$marc->encoding( 'utf-8' ); |
290 |
$marc->add_fields( WebPAC::Normalize::_get_marc21_fields() ); |
$marc->add_fields( WebPAC::Normalize::_get_marc21_fields() ); |
291 |
print $marc_fh $marc->as_usmarc; |
print $marc_fh $marc->as_usmarc; |
292 |
} |
} |