my $lccn= $pars->{lccn};
my $lccall= $pars->{lccall};
my $controlnumber= $pars->{controlnumber};
+ my $srchany= $pars->{srchany};
+ my $stdid= $pars->{stdid};
my $show_next = 0;
my $total_pages = 0;
$nterms++;
}
if ($title) {
- utf8::decode($title);
$query .= " \@attr 1=4 \"$title\" ";
$nterms++;
}
if ($author) {
- utf8::decode($author);
$query .= " \@attr 1=1003 \"$author\" ";
$nterms++;
}
$nterms++;
}
if ($subject) {
- utf8::decode($subject);
$query .= " \@attr 1=21 \"$subject\" ";
$nterms++;
}
$query .= " \@attr 1=12 \"$controlnumber\" ";
$nterms++;
}
+ if($srchany) {
+ $query .= " \@attr 1=1016 \"$srchany\" ";
+ $nterms++;
+ }
+ if($stdid) {
+ $query .= " \@attr 1=1007 \"$stdid\" ";
+ $nterms++;
+ }
for my $i (1..$nterms-1) {
$query = "\@and " . $query;
}