/[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 574 by dpavlin, Mon Jul 3 21:08:07 2006 UTC revision 579 by dpavlin, Tue Jul 4 11:08:43 2006 UTC
# Line 35  WebPAC::Normalize - describe normalisato Line 35  WebPAC::Normalize - describe normalisato
35    
36  =head1 VERSION  =head1 VERSION
37    
38  Version 0.10  Version 0.11
39    
40  =cut  =cut
41    
42  our $VERSION = '0.10';  our $VERSION = '0.11';
43    
44  =head1 SYNOPSIS  =head1 SYNOPSIS
45    
# Line 326  sub _get_marc_fields { Line 326  sub _get_marc_fields {
326                  warn "## saved/3 ", dump( $field ),$/ if ($debug);                  warn "## saved/3 ", dump( $field ),$/ if ($debug);
327          }          }
328    
329          return @m;          return \@m;
330  }  }
331    
332  =head2 _debug  =head2 _debug
# Line 565  sub marc_remove { Line 565  sub marc_remove {
565    
566          warn "### marc_remove before = ", dump( $marc ), $/ if ($debug > 2);          warn "### marc_remove before = ", dump( $marc ), $/ if ($debug > 2);
567    
568          foreach my $i ( 0 .. $#{ $marc } ) {          my $i = 0;
569            foreach ( 0 .. $#{ $marc } ) {
570                  last unless (defined $marc->[$i]);                  last unless (defined $marc->[$i]);
571                  warn "#### working on ",dump( @{ $marc->[$i] }), $/ if ($debug > 3);                  warn "#### working on ",dump( @{ $marc->[$i] }), $/ if ($debug > 3);
572                  if ($marc->[$i]->[0] eq $f) {                  if ($marc->[$i]->[0] eq $f) {
# Line 591  sub marc_remove { Line 592  sub marc_remove {
592                                  }                                  }
593                          }                          }
594                  }                  }
595                    $i++;
596          }          }
597    
598          warn "### marc_remove($f", $sf ? ",$sf" : "", ") after = ", dump( $marc ), $/ if ($debug > 2);          warn "### marc_remove($f", $sf ? ",$sf" : "", ") after = ", dump( $marc ), $/ if ($debug > 2);

Legend:
Removed from v.574  
changed lines
  Added in v.579

  ViewVC Help
Powered by ViewVC 1.1.26