/[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 1037 by dpavlin, Mon Nov 12 11:17:19 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 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;
266    warn "#### MARC::debug = ",dump($WebPAC::Normalize::MARC::debug);
267  }  }
268    
269  =head1 Functions to create C<data_structure>  =head1 Functions to create C<data_structure>

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

  ViewVC Help
Powered by ViewVC 1.1.26