[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.10,1.11

[Paul POULAIN]

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

Modified Files:
	marcimport.pl 
Log Message:
trying to merge rel-1-2 into main branch... test with this script, choosen randomly ;-)


Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** marcimport.pl	23 May 2002 20:49:31 -0000	1.10
--- marcimport.pl	20 Jun 2002 15:56:51 -0000	1.11
***************
*** 7,11 ****
  
  # Licensed under the GPL
! 
  #use strict;
  
--- 7,11 ----
  
  # Licensed under the GPL
! use strict;
  #use strict;
[...2625 lines suppressed...]
! 		    @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";
! 	} # if subfields
! 	$marctext.="</tr>\n";
! 
!     } # foreach field
! 
!     $marctext.="</table>\n";
! 
!     return $marctext;
! 
! } # sub FormatMarcText