---
acqui/z3950_search.pl | 6 ++++++
cataloguing/z3950_search.pl | 6 ++++++
2 files changed, 12 insertions(+), 0 deletions(-)
diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
index 444c893..0215873 100755
--- a/acqui/z3950_search.pl
+++ b/acqui/z3950_search.pl
@@ -54,6 +54,7 @@ my $author = $input->param('author');
my $isbn = $input->param('isbn');
my $issn = $input->param('issn');
my $lccn = $input->param('lccn');
+my $lccall = $input->param('lccall');
my $subject= $input->param('subject');
my $dewey = $input->param('dewey');
my $op = $input->param('op');
@@ -114,6 +115,7 @@ if ( $op ne "do_search" ) {
isbn => $isbn,
issn => $issn,
lccn => $lccn,
+ lccall => $lccall,
title => $title,
author => $author,
serverloop => $serverloop,
@@ -158,6 +160,10 @@ else {
$query .= " \...@attr 1=9 $lccn ";
$nterms++;
}
+ if ($lccall) {
+ $query .= " \...@attr 1=16 \...@attr 2=3 \...@attr 3=1 \...@attr 4=1
\...@attr 5=1 \...@attr 6=1 \"$lccall\" ";
+ $nterms++;
+ }
for my $i (1..$nterms-1) {
$query = "\...@and " . $query;
}
diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
index cf9e7b2..9b6c8f1 100755
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -41,6 +41,7 @@ my $author = $input->param('author');
my $isbn = $input->param('isbn');
my $issn = $input->param('issn');
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');
@@ -88,6 +89,7 @@ if ( $op ne "do_search" ) {
isbn => $isbn,
issn => $issn,
lccn => $lccn,
+ lccall => $lccall,
title => $title,
author => $author,
controlnumber=> $controlnumber,
@@ -136,6 +138,10 @@ else {
$query .= " \...@attr 1=9 $lccn ";
$nterms++;
}
+ if ($lccall) {
+ $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++;
--
1.6.3.3
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
