731 |
|
|
732 |
sub _pack_subfields_hash { |
sub _pack_subfields_hash { |
733 |
|
|
734 |
warn "## _pack_subfields_hash( ",dump(@_), " )\n"; |
warn "## _pack_subfields_hash( ",dump(@_), " )\n" if ($debug > 1); |
735 |
|
|
736 |
my ($h,$include_subfields) = @_; |
my ($h,$include_subfields) = @_; |
737 |
|
|
777 |
my @out; |
my @out; |
778 |
foreach my $h ( @{ $rec->{$f} } ) { |
foreach my $h ( @{ $rec->{$f} } ) { |
779 |
if (ref($h) eq 'HASH') { |
if (ref($h) eq 'HASH') { |
|
warn "rec1 hash: ",dump($h),"\n"; |
|
780 |
push @out, ( _pack_subfields_hash( $h ) ); |
push @out, ( _pack_subfields_hash( $h ) ); |
781 |
} else { |
} else { |
782 |
push @out, $h; |
push @out, $h; |