From 4c444f30647dedeeaea1300adf8ba3e60d1f63f3 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 23 Sep 2010 13:07:28 +0000 Subject: [PATCH] fix repeatable subfields in to_hash git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@42 49f9634a-d7ec-0310-8e6b-ec35c6cc8804 --- lib/MARC/Fast.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/MARC/Fast.pm b/lib/MARC/Fast.pm index aef3d5b..35a1e6a 100644 --- a/lib/MARC/Fast.pm +++ b/lib/MARC/Fast.pm @@ -333,18 +333,20 @@ sub to_hash { foreach my $t (split(/\x1F/,$l)) { next if (! $t); my $f = substr($t,0,1); + my $v = substr($t,1); push @subfields, ( $f, $sf_usage->{$f}++ || 0 ); # repeatable subfiled -- convert it to array - if ($val->{$f}) { + if ( defined $val->{$f} ) { if ( ref($val->{$f}) ne 'ARRAY' ) { - $val->{$f} = [ $val->{$f}, $val ]; + $val->{$f} = [ $val->{$f}, $v ]; } else { - push @{$val->{$f}}, $val; + push @{$val->{$f}}, $v; } + } else { + $val->{$f} = $v; } - $val->{substr($t,0,1)} = substr($t,1); } $val->{subfields} = [ @subfields ] if $args->{include_subfields}; } else { -- 2.20.1