From 3f3aec97e0e1db914cbd8545f3a8c9e024732168 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 28 Jan 2003 15:00:30 +0000
Subject: [PATCH] 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

---
 acqui.simple/isbnsearch.pl | 2 +-
 acqui.simple/marcimport.pl | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/acqui.simple/isbnsearch.pl b/acqui.simple/isbnsearch.pl
index 790f9bdc44..1ef6ed8b58 100755
--- a/acqui.simple/isbnsearch.pl
+++ b/acqui.simple/isbnsearch.pl
@@ -54,7 +54,7 @@ if (! $isbn && !$title) {
 		$showoffset = 1;
 	};
 	if (! $num) { $num = 10 };
-	($count, @results) = isbnsearch($isbn);
+	($count, @results) = isbnsearch($isbn,$title);
 
 	if ($count < ($offset + $num)) {
 		$total = $count;
diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl
index 80b5d156a9..d132145545 100755
--- a/acqui.simple/marcimport.pl
+++ b/acqui.simple/marcimport.pl
@@ -131,9 +131,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 +810,9 @@ sub FormatMarcText {
 #---------------
 # log cleared, as marcimport is (almost) rewritten from scratch.
 # $Log$
+# 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
 #
-- 
2.39.5