[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.22,1.23

[Paul POULAIN]

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

Modified Files:
	marcimport.pl 
Log Message:
removing trailing #

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -r1.22 -r1.23
*** marcimport.pl	12 Nov 2002 15:58:43 -0000	1.22
--- marcimport.pl	6 Jan 2003 13:06:28 -0000	1.23
***************
*** 121,127 ****
  					if (!$breedingresult || $overwrite_biblio) {
  						my $recoded;
! 						warn "IMPORT => $marcarray[$i]\x1D')";
  						$recoded = $marcrecord->as_usmarc(); #MARC::File::USMARC::encode($marcrecord);
! 						warn "RECODED : $recoded";
  						$insertsql ->execute($filename,$oldbiblio->{isbn}.$oldbiblio->{issn},$recoded);
  						$imported++;
--- 121,127 ----
  					if (!$breedingresult || $overwrite_biblio) {
  						my $recoded;
! #						warn "IMPORT => $marcarray[$i]\x1D')";
  						$recoded = $marcrecord->as_usmarc(); #MARC::File::USMARC::encode($marcrecord);
! #						warn "RECODED : $recoded";
  						$insertsql ->execute($filename,$oldbiblio->{isbn}.$oldbiblio->{issn},$recoded);
  						$imported++;
***************
*** 800,803 ****
--- 800,806 ----
  # log cleared, as marcimport is (almost) rewritten from scratch.
  # $Log$
+ # Revision 1.23  2003/01/06 13:06:28  tipaul
+ # removing trailing #
+ #
  # Revision 1.22  2002/11/12 15:58:43  tipaul
  # road to 1.3.2 :