View | Details | Raw Unified | Return to bug 9986
Collapse All | Expand All

(-)a/C4/Breeding.pm (-3 / +10 lines)
Lines 243-248 sub Z3950Search { Link Here
243
    my $lccn= $pars->{lccn};
243
    my $lccn= $pars->{lccn};
244
    my $lccall= $pars->{lccall};
244
    my $lccall= $pars->{lccall};
245
    my $controlnumber= $pars->{controlnumber};
245
    my $controlnumber= $pars->{controlnumber};
246
    my $srchany= $pars->{srchany};
247
    my $stdid= $pars->{stdid};
246
248
247
    my $show_next       = 0;
249
    my $show_next       = 0;
248
    my $total_pages     = 0;
250
    my $total_pages     = 0;
Lines 280-291 sub Z3950Search { Link Here
280
        $nterms++;
282
        $nterms++;
281
    }
283
    }
282
    if ($title) {
284
    if ($title) {
283
        utf8::decode($title);
284
        $query .= " \@attr 1=4 \"$title\" ";
285
        $query .= " \@attr 1=4 \"$title\" ";
285
        $nterms++;
286
        $nterms++;
286
    }
287
    }
287
    if ($author) {
288
    if ($author) {
288
        utf8::decode($author);
289
        $query .= " \@attr 1=1003 \"$author\" ";
289
        $query .= " \@attr 1=1003 \"$author\" ";
290
        $nterms++;
290
        $nterms++;
291
    }
291
    }
Lines 294-300 sub Z3950Search { Link Here
294
        $nterms++;
294
        $nterms++;
295
    }
295
    }
296
    if ($subject) {
296
    if ($subject) {
297
        utf8::decode($subject);
298
        $query .= " \@attr 1=21 \"$subject\" ";
297
        $query .= " \@attr 1=21 \"$subject\" ";
299
        $nterms++;
298
        $nterms++;
300
    }
299
    }
Lines 310-315 sub Z3950Search { Link Here
310
        $query .= " \@attr 1=12 \"$controlnumber\" ";
309
        $query .= " \@attr 1=12 \"$controlnumber\" ";
311
        $nterms++;
310
        $nterms++;
312
    }
311
    }
312
    if($srchany) {
313
        $query .= " \@attr 1=1016 \"$srchany\" ";
314
        $nterms++;
315
    }
316
    if($stdid) {
317
        $query .= " \@attr 1=1007 \"$stdid\" ";
318
        $nterms++;
319
    }
313
    for my $i (1..$nterms-1) {
320
    for my $i (1..$nterms-1) {
314
        $query = "\@and " . $query;
321
        $query = "\@and " . $query;
315
    }
322
    }
(-)a/acqui/z3950_search.pl (-1 / +1 lines)
Lines 21-27 Link Here
21
21
22
use warnings;
22
use warnings;
23
use strict;
23
use strict;
24
use CGI;
24
use CGI qw/-utf8/;
25
25
26
use C4::Auth;
26
use C4::Auth;
27
use C4::Output;
27
use C4::Output;
(-)a/cataloguing/z3950_search.pl (-3 / +2 lines)
Lines 106-113 my $pars= { Link Here
106
        subject => $subject,
106
        subject => $subject,
107
        lccall => $lccall,
107
        lccall => $lccall,
108
        controlnumber => $controlnumber,
108
        controlnumber => $controlnumber,
109
        stdid => 0,
109
        stdid => $stdid,
110
        srchany => 0,
110
        srchany => $srchany,
111
};
111
};
112
Z3950Search($pars, $template);
112
Z3950Search($pars, $template);
113
output_html_with_http_headers $input, $cookie, $template->output;
113
output_html_with_http_headers $input, $cookie, $template->output;
114
- 

Return to bug 9986