[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.22,1.23
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.22,1.23 |
Date: |
Mon, 06 Jan 2003 05:06:31 -0800 |
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 :
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.22,1.23,
Paul POULAIN <=