/[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 1066 by dpavlin, Tue Nov 27 22:31:09 2007 UTC revision 1118 by dpavlin, Sun Oct 26 15:57:37 2008 UTC
# Line 47  push @EXPORT, ( qw/ Line 47  push @EXPORT, ( qw/
47          marc_template          marc_template
48  /);  /);
49    
50    use Storable qw/dclone/;
51    
52  =head1 NAME  =head1 NAME
53    
54  WebPAC::Normalize - describe normalisaton rules using sets  WebPAC::Normalize - describe normalisaton rules using sets
# Line 364  sub _pack_subfields_hash { Line 366  sub _pack_subfields_hash {
366    
367          warn "## _pack_subfields_hash( ",dump(@_), " )\n" if ($debug > 1);          warn "## _pack_subfields_hash( ",dump(@_), " )\n" if ($debug > 1);
368    
369          my ($h,$include_subfields) = @_;          my ($hash,$include_subfields) = @_;
370    
371          # sanity and ease of use          # sanity and ease of use
372          return $h if (ref($h) ne 'HASH');          return $hash if (ref($hash) ne 'HASH');
373    
374            my $h = dclone( $hash );
375    
376          if ( defined($h->{subfields}) ) {          if ( defined($h->{subfields}) ) {
377                  my $sfs = delete $h->{subfields} || die "no subfields?";                  my $sfs = delete $h->{subfields} || die "no subfields?";
Legend:
Removed from v.1066  
changed lines
  Added in v.1118
  ViewVC Help
Powered by ViewVC 1.1.26