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

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

revision 1037 by dpavlin, Mon Nov 12 11:17:19 2007 UTC revision 1048 by dpavlin, Mon Nov 19 16:33:09 2007 UTC
# Line 263  sub _debug { Line 263  sub _debug {
263          warn "debug level $l",$/ if ($l > 0);          warn "debug level $l",$/ if ($l > 0);
264          $debug = $l;          $debug = $l;
265          $WebPAC::Normalize::MARC::debug = $debug;          $WebPAC::Normalize::MARC::debug = $debug;
 warn "#### MARC::debug = ",dump($WebPAC::Normalize::MARC::debug);  
266  }  }
267    
268  =head1 Functions to create C<data_structure>  =head1 Functions to create C<data_structure>
# Line 450  sub rec2 { Line 449  sub rec2 {
449                  } else {                  } else {
450                          $_->{$sf};                          $_->{$sf};
451                  }                  }
452          } grep { ref($_) eq 'HASH' && $_->{$sf} } @{ $rec->{$f} };          } grep { ref($_) eq 'HASH' && defined $_->{$sf} } @{ $rec->{$f} };
453  }  }
454    
455  =head2 rec  =head2 rec

Legend:
Removed from v.1037  
changed lines
  Added in v.1048

  ViewVC Help
Powered by ViewVC 1.1.26