Lines 42-47
my $issn = $input->param('issn');
Link Here
|
42 |
my $lccn = $input->param('lccn'); |
42 |
my $lccn = $input->param('lccn'); |
43 |
my $lccall = $input->param('lccall'); |
43 |
my $lccall = $input->param('lccall'); |
44 |
my $subject = $input->param('subject'); |
44 |
my $subject = $input->param('subject'); |
|
|
45 |
my $srchany = $input->param('srchany'); |
46 |
my $stdid = $input->param('stdid'); |
45 |
my $dewey = $input->param('dewey'); |
47 |
my $dewey = $input->param('dewey'); |
46 |
my $controlnumber = $input->param('controlnumber'); |
48 |
my $controlnumber = $input->param('controlnumber'); |
47 |
my $op = $input->param('op')||''; |
49 |
my $op = $input->param('op')||''; |
Lines 79-84
$template->param(
Link Here
|
79 |
biblionumber => $biblionumber, |
81 |
biblionumber => $biblionumber, |
80 |
dewey => $dewey, |
82 |
dewey => $dewey, |
81 |
subject => $subject, |
83 |
subject => $subject, |
|
|
84 |
srchany => $srchany, |
85 |
stdid => $stdid, |
82 |
); |
86 |
); |
83 |
|
87 |
|
84 |
if ( $op ne "do_search" ) { |
88 |
if ( $op ne "do_search" ) { |
Lines 119-126
my $pars= {
Link Here
|
119 |
subject => $subject, |
123 |
subject => $subject, |
120 |
lccall => $lccall, |
124 |
lccall => $lccall, |
121 |
controlnumber => $controlnumber, |
125 |
controlnumber => $controlnumber, |
122 |
stdid => 0, |
126 |
stdid => $stdid, |
123 |
srchany => 0, |
127 |
srchany => $srchany, |
124 |
}; |
128 |
}; |
125 |
Z3950Search($pars, $template); |
129 |
Z3950Search($pars, $template); |
126 |
output_html_with_http_headers $input, $cookie, $template->output; |
130 |
output_html_with_http_headers $input, $cookie, $template->output; |