From eb2c10eff99ccd48bd23833be2c210014fd232fc Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Thu, 2 Dec 2010 12:45:13 +0000 Subject: [PATCH] Bug 5104: Add control number as search option to acq z39.50 search Adds control number as search option to z39.50 search in acquisitions. Signed-off-by: Marcel de Rooy Signed-off-by: Chris Cormack --- acqui/z3950_search.pl | 6 ++++++ .../intranet-tmpl/prog/en/modules/acqui/z3950_search.tmpl | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl index 182e12158e..b0a8b92f25 100755 --- a/acqui/z3950_search.pl +++ b/acqui/z3950_search.pl @@ -57,6 +57,7 @@ my $lccn = $input->param('lccn'); my $lccall = $input->param('lccall'); my $subject= $input->param('subject'); my $dewey = $input->param('dewey'); +my $controlnumber = $input->param('controlnumber'); my $op = $input->param('op'); my $booksellerid = $input->param('booksellerid'); my $basketno = $input->param('basketno'); @@ -118,6 +119,7 @@ if ( $op ne "do_search" ) { lccall => $lccall, title => $title, author => $author, + controlnumber=> $controlnumber, serverloop => $serverloop, opsearch => "search", biblionumber => $biblionumber, @@ -164,6 +166,10 @@ else { $query .= " \@attr 1=16 \@attr 2=3 \@attr 3=1 \@attr 4=1 \@attr 5=1 \@attr 6=1 \"$lccall\" "; $nterms++; } + if ($controlnumber) { + $query .= " \@attr 1=12 \"$controlnumber\" "; + $nterms++; + } for my $i (1..$nterms-1) { $query = "\@and " . $query; } diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/z3950_search.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/z3950_search.tmpl index 2219dfa7ba..063520cd5d 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/z3950_search.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/z3950_search.tmpl @@ -75,7 +75,9 @@ tr.selected { background-color : #FFFFCC; } tr.selected td { background-color :
  1. " />
  2. " />
  3. -
+
  • +
  • +
    -- 2.39.5