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 |
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?"; |