[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.17,1.6.2.18

[Alan Millar]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv22636

Modified Files:
      Tag: rel-1-2
        marcimport.pl 
Log Message:
fix bug in arrayed subfields

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.17
retrieving revision 1.6.2.18
diff -C2 -r1.6.2.17 -r1.6.2.18
*** marcimport.pl       10 Jun 2002 06:47:17 -0000      1.6.2.17
--- marcimport.pl       12 Jun 2002 20:25:35 -0000      1.6.2.18
***************
*** 636,644 ****
                if ( $fieldname=$tagmap{ $field->{'tag'} }->{$subfield}->{name} 
) {
                    # Yes, so keep the value
!                   $bib->{$fieldname}=$field->{'subfields'}->{$subfield};
                    # if it was an array, just keep first element.
!                   if (ref($bib->{$fieldname}) eq 'ARRAY') {
!                       $bib->{$fieldname}=$$bib->{fieldname}[0]
                    } # if array
                    # see if this field should have trailing chars dropped
                    if ($strip=$tagmap{ $field->{'tag'} 
}->{$subfield}->{striptrail} ) {
--- 636,646 ----
                if ( $fieldname=$tagmap{ $field->{'tag'} }->{$subfield}->{name} 
) {
                    # Yes, so keep the value
!                   if ( ref($field->{'subfields'}->{$subfield} ) eq 'ARRAY' ) {
                    # if it was an array, just keep first element.
!                       
$bib->{$fieldname}=$field->{'subfields'}->{$subfield}[0];
!                   } else {
!                       $bib->{$fieldname}=$field->{'subfields'}->{$subfield};
                    } # if array
+                   print "$field->{'tag'} $subfield 
$fieldname=$bib->{$fieldname}\n" if $debug;
                    # see if this field should have trailing chars dropped
                    if ($strip=$tagmap{ $field->{'tag'} 
}->{$subfield}->{striptrail} ) {