/[webpac2]/trunk/lib/WebPAC/Output/MARC.pm
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/lib/WebPAC/Output/MARC.pm

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

revision 582 by dpavlin, Tue Jul 4 11:36:21 2006 UTC revision 587 by dpavlin, Thu Jul 6 10:31:33 2006 UTC
# Line 127  sub add { Line 127  sub add {
127    
128          if ($self->{dump}) {          if ($self->{dump}) {
129                  $log->info("MARC record on record $id\n",                  $log->info("MARC record on record $id\n",
130                          "<<<<< Original imput row:\n",dump($self->{row}), "\n",                          "<<<<< Original imput row:\n",dump($arg->{row}), "\n",
131                          ">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump( $arg->{fields} ), "\n",                          ">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump( $arg->{fields} ), "\n",
132                  );                  );
133          }          }
Legend:
Removed from v.582  
changed lines
  Added in v.587
  ViewVC Help
Powered by ViewVC 1.1.26