user can now search in breeding farm with isbn/issn or title. Title/name are stored...

diff --git a/acqui.simple/isbnsearch.pl b/acqui.simple/isbnsearch.pl
index 790f9bd..1ef6ed8 100755 (executable)
--- 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 80b5d15..d132145 100755 (executable)
--- 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
 #