/[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 1036 by dpavlin, Mon Nov 12 11:10:48 2007 UTC revision 1048 by dpavlin, Mon Nov 19 16:33:09 2007 UTC
# Line 27  use strict; Line 27  use strict;
27    
28  #use base qw/WebPAC::Common/;  #use base qw/WebPAC::Common/;
29  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
 use Storable qw/dclone/;  
30  use Carp qw/confess/;  use Carp qw/confess/;
31    
32  # debugging warn(s)  # debugging warn(s)
33  my $debug = 0;  my $debug = 0;
34    _debug( $debug );
35    
36  # FIXME  # FIXME
37  use WebPAC::Normalize::ISBN;  use WebPAC::Normalize::ISBN;
# Line 449  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.1036  
changed lines
  Added in v.1048
  ViewVC Help
Powered by ViewVC 1.1.26