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