|
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 |
- |
|
|