153 |
|
|
154 |
my $config = new WebPAC::Config( path => $config_path ); |
my $config = new WebPAC::Config( path => $config_path ); |
155 |
|
|
156 |
|
WebPAC::Normalize::_debug( $debug - 1 ) if $debug > 1; |
157 |
|
|
158 |
#print "config = ",dump($config) if ($debug); |
#print "config = ",dump($config) if ($debug); |
159 |
|
|
160 |
die "no databases in config file!\n" unless ($config->databases); |
die "no databases in config file!\n" unless ($config->databases); |
565 |
marc_encoding => 'utf-8', |
marc_encoding => 'utf-8', |
566 |
load_row_coderef => sub { |
load_row_coderef => sub { |
567 |
my ($database,$input,$mfn) = @_; |
my ($database,$input,$mfn) = @_; |
568 |
warn "### load_row($database,$input,$mfn) from data_structure\n"; |
#warn "### load_row($database,$input,$mfn) from data_structure\n"; |
569 |
return $store->load_row( |
return $store->load_row( |
570 |
database => $database, |
database => $database, |
571 |
input => $input, |
input => $input, |
602 |
if ($marc) { |
if ($marc) { |
603 |
my $i = 0; |
my $i = 0; |
604 |
|
|
605 |
while (my $fields = WebPAC::Normalize::_get_marc_fields( fetch_next => 1 ) ) { |
while (my $fields = WebPAC::Normalize::MARC::_get_marc_fields( fetch_next => 1 ) ) { |
606 |
$marc->add( |
$marc->add( |
607 |
id => $mfn . ( $i ? "/$i" : '' ), |
id => $mfn . ( $i ? "/$i" : '' ), |
608 |
fields => $fields, |
fields => $fields, |
609 |
leader => WebPAC::Normalize::_get_marc_leader(), |
leader => WebPAC::Normalize::MARC::_get_marc_leader(), |
610 |
row => $row, |
row => $row, |
611 |
); |
); |
612 |
$i++; |
$i++; |