From 63c8e57b7a0fb06b0f6069104229e03b1e2dbf37 Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 6 Jan 2003 13:06:28 +0000 Subject: [PATCH] removing trailing # --- acqui.simple/marcimport.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl index 20ab1fa9a1..0b1d4d935a 100755 --- a/acqui.simple/marcimport.pl +++ b/acqui.simple/marcimport.pl @@ -120,9 +120,9 @@ if ($uploadmarc && length($uploadmarc)>0) { } if (!$breedingresult || $overwrite_biblio) { my $recoded; - warn "IMPORT => $marcarray[$i]\x1D')"; +# warn "IMPORT => $marcarray[$i]\x1D')"; $recoded = $marcrecord->as_usmarc(); #MARC::File::USMARC::encode($marcrecord); - warn "RECODED : $recoded"; +# warn "RECODED : $recoded"; $insertsql ->execute($filename,$oldbiblio->{isbn}.$oldbiblio->{issn},$recoded); $imported++; } else { @@ -799,6 +799,9 @@ sub FormatMarcText { #--------------- # 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 : # * many bugfixes -- 2.39.5