From a0e141c3952e3ccecfecddbb10e725c906c99a6d Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 23 Jun 2003 11:28:52 +0000
Subject: [PATCH] adding isbn/author/title support (forgot to commit those...)

---
 z3950/processz3950queue |  3 ++-
 z3950/search.pl         | 18 ++++++++++++++----
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/z3950/processz3950queue b/z3950/processz3950queue
index f753469cf3..2d0feee9f1 100755
--- a/z3950/processz3950queue
+++ b/z3950/processz3950queue
@@ -154,7 +154,8 @@ while (1) {
 								warn "no connection at $globalname ";
 							} else {
 								warn "$globalname ==> $globalsyntax";
- 								eval { $conn->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::USMARC);} if ($globalsyntax eq "USMARC");
+ 								eval {$conn->option(elementSetName => 'F')};
+								eval { $conn->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::USMARC);} if ($globalsyntax eq "USMARC");
  								eval { $conn->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::UNIMARC);} if ($globalsyntax eq "UNIMARC");
  								if ($@) {
  									print "$globalname ERROR: $@\n";
diff --git a/z3950/search.pl b/z3950/search.pl
index 1c74fd8289..274bea4436 100755
--- a/z3950/search.pl
+++ b/z3950/search.pl
@@ -39,6 +39,7 @@ my $dbh = C4::Context->dbh;
 my $error = $input->param('error');
 my $bibid=$input->param('bibid');
 my $title = $input->param('title');
+my $author = $input->param('author');
 my $isbn = $input->param('isbn');
 my $issn = $input->param('issn');
 my $random = $input->param('random');
@@ -48,18 +49,26 @@ my $toggle;
 
 my $record;
 my $oldbiblio;
-if ($bibid) {
+warn "search.pl : $bibid / $title / $author / $isbn";
+if ($bibid > 0) {
 	$record = MARCgetbiblio($dbh,$bibid);
 	$oldbiblio = MARCmarc2koha($dbh,$record);
 }
-$isbn = $oldbiblio->{'isbn'};
-$issn = $oldbiblio->{'issn'};
-$title = $oldbiblio->{'title'};
 my $errmsg;
 unless ($random) { # if random is a parameter => we're just waiting for the search to end, it's a refresh.
+warn "NO RANDOM";
 	if ($isbn) {
+	warn "ADD ISBN $isbn";
 		$random =rand(1000000000);
 		$errmsg = addz3950queue($isbn, "isbn", $random, 'CHECKED');
+	} elsif ($author) {
+	warn "ADD AUTHOR $author";
+		$random =rand(1000000000);
+		$errmsg = addz3950queue($author, "author", $random, 'CHECKED');
+	} elsif ($title) {
+	warn "ADD TITLE : $title";
+		$random =rand(1000000000);
+		$errmsg = addz3950queue($title, "title", $random, 'CHECKED');
 	}
 }
 my ($template, $loggedinuser, $cookie)
@@ -93,6 +102,7 @@ for (my $i=0; $i <= $#results; $i++) {
 
 $template->param(isbn => $isbn,
 						title => $title,
+						author => $author,
 						breeding_loop => \@breeding_loop,
 						refresh => ($numberpending eq 0 ? 0 : "search.pl?bibid=$bibid&random=$random"),
 						numberpending => $numberpending,
-- 
2.39.5