/[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 787 by dpavlin, Sun Dec 10 12:45:11 2006 UTC revision 788 by dpavlin, Sun Dec 10 12:56:59 2006 UTC
# Line 661  sub marc_remove { Line 661  sub marc_remove {
661          if ($f eq '*') {          if ($f eq '*') {
662    
663                  delete( $marc_record->[ $marc_record_offset ] );                  delete( $marc_record->[ $marc_record_offset ] );
664                    warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1);
665    
666          } else {          } else {
667    
# Line 699  sub marc_remove { Line 700  sub marc_remove {
700                  $marc_record->[ $marc_record_offset ] = $marc;                  $marc_record->[ $marc_record_offset ] = $marc;
701          }          }
702    
   
703          warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1);          warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1);
704  }  }
705    

Legend:
Removed from v.787  
changed lines
  Added in v.788

  ViewVC Help
Powered by ViewVC 1.1.26