/[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 620 by dpavlin, Sun Jul 9 14:05:49 2006 UTC revision 621 by dpavlin, Fri Aug 25 18:06:42 2006 UTC
# Line 117  sub add { Line 117  sub add {
117                  my @w = $self->{lint}->warnings;                  my @w = $self->{lint}->warnings;
118                  if (@w) {                  if (@w) {
119                          $log->error("MARC lint detected warning on record $id\n",                          $log->error("MARC lint detected warning on record $id\n",
120                                  "<<<<< Original imput row:\n",dump($arg->{row}), "\n",                                  "<<<<< Original input row:\n",dump($arg->{row}), "\n",
121                                  ">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump( $arg->{fields} ), "\n",                                  ">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump( $arg->{fields} ), "\n",
122                                  "!!!!! MARC lint warnings:\n",join("\n",@w),"\n"                                  "!!!!! MARC lint warnings:\n",join("\n",@w),"\n"
123                          );                          );
Legend:
Removed from v.620  
changed lines
  Added in v.621
  ViewVC Help
Powered by ViewVC 1.1.26