[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.19,1.6.2.20

[Alan Millar]

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

Modified Files:
      Tag: rel-1-2
        marcimport.pl 
Log Message:
fix array handling bug in Marc formatted display

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.19
retrieving revision 1.6.2.20
diff -C2 -r1.6.2.19 -r1.6.2.20
*** marcimport.pl       12 Jun 2002 22:11:14 -0000      1.6.2.19
--- marcimport.pl       12 Jun 2002 22:33:59 -0000      1.6.2.20
***************
*** 1591,1594 ****
--- 1591,1595 ----
        $label,
        $subfieldcode,$subfieldvalue,
+       @values, $value
      );
  
***************
*** 1618,1623 ****
            foreach $subfieldcode ( sort( keys %{ $field->{'subfields'} }   )) {
                $subfieldvalue=$field->{'subfields'}->{$subfieldcode};
!               $marctext.="<tr><td>$subfieldcode </td>" .
!                   "<td>$subfieldvalue</td></tr>\n";
            } # foreach subfield
            $marctext.="</table></td>\n";
--- 1619,1632 ----
            foreach $subfieldcode ( sort( keys %{ $field->{'subfields'} }   )) {
                $subfieldvalue=$field->{'subfields'}->{$subfieldcode};
!               if (ref($subfieldvalue) eq 'ARRAY' ) {
!                   # if it's a pointer to array, get the values
!                   @address@hidden;
!               } else {
!                   @values=( $subfieldvalue );
!               } # if subfield array
!               foreach $value ( @values ) {
!                 $marctext.="<tr><td>$subfieldcode </td>" .
!                   "<td>$value</td></tr>\n";
!               } # foreach value
            } # foreach subfield
            $marctext.="</table></td>\n";