[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...]
!                   @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";
!       } # if subfields
!       $marctext.="</tr>\n";
! 
!     } # foreach field
! 
!     $marctext.="</table>\n";
! 
!     return $marctext;
! 
! } # sub FormatMarcText