10 |
use WebPAC::Parser 0.04; |
use WebPAC::Parser 0.04; |
11 |
use WebPAC::Input 0.13; |
use WebPAC::Input 0.13; |
12 |
use WebPAC::Store 0.11; |
use WebPAC::Store 0.11; |
13 |
use WebPAC::Normalize 0.21; |
use WebPAC::Normalize 0.22; |
14 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
15 |
use WebPAC::Validate 0.06; |
use WebPAC::Validate 0.06; |
16 |
use WebPAC::Output::MARC; |
use WebPAC::Output::MARC; |
364 |
my $rec = shift || die "need rec!"; |
my $rec = shift || die "need rec!"; |
365 |
my $mfn = $rec->{'000'}->[0] || die "need mfn in 000"; |
my $mfn = $rec->{'000'}->[0] || die "need mfn in 000"; |
366 |
|
|
367 |
|
$store->save_row( |
368 |
|
database => $database, |
369 |
|
input => $input_name, |
370 |
|
id => $mfn, |
371 |
|
row => $rec, |
372 |
|
); |
373 |
|
|
374 |
WebPAC::Normalize::data_structure( |
WebPAC::Normalize::data_structure( |
375 |
row => $rec, |
row => $rec, |
376 |
rules => "_debug(2); $rules _debug(0)", |
rules => $rules, |
377 |
config => create_ds_config( $db_config, $database, $input, $mfn ), |
config => create_ds_config( $db_config, $database, $input, $mfn ), |
378 |
); |
); |
379 |
|
|
380 |
warn "current lookup: ", dump(WebPAC::Normalize::_get_lookup()); |
#warn "current lookup: ", dump(WebPAC::Normalize::_get_lookup()); |
381 |
}; |
}; |
382 |
|
|
383 |
WebPAC::Normalize::_set_lookup( undef ); |
WebPAC::Normalize::_set_lookup( undef ); |
491 |
lookup => $lookup_hash, |
lookup => $lookup_hash, |
492 |
config => create_ds_config( $db_config, $database, $input, $mfn ), |
config => create_ds_config( $db_config, $database, $input, $mfn ), |
493 |
marc_encoding => 'utf-8', |
marc_encoding => 'utf-8', |
494 |
load_ds_coderef => sub { |
load_row_coderef => sub { |
495 |
my ($database,$input,$mfn) = @_; |
my ($database,$input,$mfn) = @_; |
496 |
return $store->load_ds( |
return $store->load_row( |
497 |
database => $database, |
database => $database, |
498 |
input => $input, |
input => $input, |
499 |
id => $mfn, |
id => $mfn, |
501 |
}, |
}, |
502 |
); |
); |
503 |
|
|
504 |
|
$log->debug("ds = ",dump($ds)); |
505 |
|
|
506 |
$store->save_ds( |
$store->save_ds( |
507 |
database => $database, |
database => $database, |
508 |
input => $input_name, |
input => $input_name, |