/[webpac2]/trunk/run.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/run.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 735 by dpavlin, Fri Sep 29 20:25:34 2006 UTC revision 736 by dpavlin, Thu Oct 5 12:57:51 2006 UTC
# Line 10  use WebPAC::Common 0.02; Line 10  use WebPAC::Common 0.02;
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;
# Line 364  while (my ($database, $db_config) = each Line 364  while (my ($database, $db_config) = each
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 => $rules,                                          rules => $rules,
# Line 484  while (my ($database, $db_config) = each Line 491  while (my ($database, $db_config) = each
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,
# Line 494  while (my ($database, $db_config) = each Line 501  while (my ($database, $db_config) = each
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,
Legend:
Removed from v.735  
changed lines
  Added in v.736
  ViewVC Help
Powered by ViewVC 1.1.26