/[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 268 by dpavlin, Fri Dec 16 21:09:42 2005 UTC revision 312 by dpavlin, Tue Dec 20 23:31:37 2005 UTC
# Line 11  WebPAC::Normalize - data mungling for no Line 11  WebPAC::Normalize - data mungling for no
11    
12  =head1 VERSION  =head1 VERSION
13    
14  Version 0.06  Version 0.07
15    
16  =cut  =cut
17    
18  our $VERSION = '0.06';  our $VERSION = '0.07';
19    
20  =head1 SYNOPSIS  =head1 SYNOPSIS
21    
# Line 123  sub new { Line 123  sub new {
123    
124          $log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l);          $log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l);
125    
126          if ($self->{filter} && ! $self->{filter}->{regex}) {          if (! $self->{filter} || ! $self->{filter}->{regex}) {
127                  $log->debug("adding built-in filter regex");                  $log->debug("adding built-in filter regex");
128                  $self->{filter}->{regex} = sub {                  $self->{filter}->{regex} = sub {
129                          my ($val, $regex) = @_;                          my ($val, $regex) = @_;
# Line 157  sub data_structure { Line 157  sub data_structure {
157    
158          $log->debug("data_structure rec = ", sub { Dumper($rec) });          $log->debug("data_structure rec = ", sub { Dumper($rec) });
159    
160          $log->logdie("need unique ID (mfn) in field 000 of record ", sub { Dumper($rec) } ) unless (defined($rec->{'000'}));          $log->logdie("need unique ID (mfn) in field 000 of record " . Dumper($rec) ) unless (defined($rec->{'000'}));
161    
162          my $id = $rec->{'000'}->[0] || $log->logdie("field 000 isn't array!");          my $id = $rec->{'000'}->[0] || $log->logdie("field 000 isn't array!");
163    
Legend:
Removed from v.268  
changed lines
  Added in v.312
  ViewVC Help
Powered by ViewVC 1.1.26