[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
! 		    @values=@{$subfieldvalue};
! 		} 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";