koha-cvs
[Top][All Lists]
Advanced

[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 :




reply via email to

[Prev in Thread] Current Thread [Next in Thread]