Lines 425-433
if ($params->{'limit-yr'}) {
Link Here
|
425 |
# $ %z3950p will be a hash ref if the indexes are present (advacned search), otherwise undef |
425 |
# $ %z3950p will be a hash ref if the indexes are present (advacned search), otherwise undef |
426 |
my $z3950par; |
426 |
my $z3950par; |
427 |
my $indexes2z3950 = { |
427 |
my $indexes2z3950 = { |
428 |
kw=>'title', au=>'author', 'au,phr'=>'author', nb=>'isbn', ns=>'issn', |
428 |
kw => 'title', au => 'author', 'au,phr' => 'author', nb => 'isbn', ns => 'issn', |
429 |
'lcn,phr'=>'dewey', su=>'subject', 'su,phr'=>'subject', |
429 |
callnum => 'dewey', su => 'subject', 'su,phr' => 'subject', |
430 |
ti=>'title', 'ti,phr'=>'title', se=>'title' |
430 |
ti => 'title', 'ti,phr' => 'title', se => 'title' |
431 |
}; |
431 |
}; |
432 |
for (my $ii = 0; $ii < @operands; ++$ii) |
432 |
for (my $ii = 0; $ii < @operands; ++$ii) |
433 |
{ |
433 |
{ |
434 |
- |
|
|