[Koha-patches] [PATCH] KOHA BUG 1277 Enhance: Z39.50 More search criteria

[darrellulm at kohavmware]

From: root <root at smfpl.org>

---
 cataloguing/z3950_search.pl |   20 +++++++++++++++++++-
 1 files changed, 19 insertions(+), 1 deletions(-)

diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
index 884333c..3161e83 100755
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -43,6 +43,9 @@ my $issn          = $input->param('issn');
 my $lccn          = $input->param('lccn');
 my $subject= $input->param('subject');
 my $dewey = $input->param('dewey');
+my $controlnumber	= $input->param('controlnumber');
+my $stdid			= $input->param('stdid');
+my $srchany			= $input->param('srchany');
 my $random        = $input->param('random');
 my $op            = $input->param('op');
 my $noconnection;
@@ -95,6 +98,9 @@ if ( $op ne "do_search" ) {
         issn         => $issn,
         lccn         => $lccn,
         title        => $title,
+        controlnumber=> $controlnumber,
+        stdid			=> $stdid,
+        srchany		=> $srchany,
         author       => $author,
         serverloop   => $serverloop,
         opsearch     => "search",
@@ -135,8 +141,20 @@ else {
         $query .= " \@attr 1=21 \"$subject\" ";
         $nterms++;
     }
+    if ($controlnumber) {
+        $query .= " \@attr 1=12 \"$controlnumber\" ";
+        $nterms++;
+    }
+    if ($stdid) {
+        $query .= " \@attr 1=1007 \"$stdid\" ";
+        $nterms++;
+    }
+    if ($srchany) {
+        $query .= " \@attr 1=1016 \"$srchany\" ";
+        $nterms++;
+    }
 	if ($lccn) {	
-        $query .= " \@attr 1=9 $lccn ";
+        $query .= " \@attr 1=51 $lccn ";
         $nterms++;
     }
 for my $i (1..$nterms-1) {
-- 
1.5.6.5