removing use MARC::Charset

[koha_fer] / acqui.simple / marcimport.pl

diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl
index 80b5d15..b8bae89 100755 (executable)
--- a/acqui.simple/marcimport.pl
+++ b/acqui.simple/marcimport.pl
@@ -43,7 +43,6 @@ use MARC::File::USMARC;
 use HTML::Template;
 use C4::Output;
 use C4::Auth;
-use MARC::Charset;
 
 #------------------
 # Constants
@@ -131,9 +130,9 @@ if ($uploadmarc && length($uploadmarc)>0) {
                                        my $recoded;
                                        $recoded = $marcrecord->as_usmarc();
                                                if ($breedingid) {
-                                                       $replacesql ->execute($filename,$oldbiblio->{isbn}.$oldbiblio->{issn},$oldbiblio->{title},$oldbiblio->{author},$recoded,$breedingid);
+                                                       $replacesql ->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded,$breedingid);
                                                } else {
-                                                       $insertsql ->execute($filename,$oldbiblio->{isbn}.$oldbiblio->{issn},$oldbiblio->{title},$oldbiblio->{author},$recoded);
+                                                       $insertsql ->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded);
                                                }
                                        $imported++;
                                } else {
@@ -810,6 +809,13 @@ sub FormatMarcText {
 #---------------
 # log cleared, as marcimport is (almost) rewritten from scratch.
 # $Log$
+# Revision 1.29  2003/01/28 15:28:31  tipaul
+# removing use MARC::Charset
+# Was a buggy test
+#
+# Revision 1.28  2003/01/28 15:00:31  tipaul
+# user can now search in breeding farm with isbn/issn or title. Title/name are stored in breeding farm and showed when a search is done
+#
 # Revision 1.27  2003/01/26 23:21:49  acli
 # Handle non-latin1 charsets
 #