|
Lines 230-248
sub Z3950Search {
Link Here
|
| 230 |
sub _auth_build_query { |
230 |
sub _auth_build_query { |
| 231 |
my ( $pars ) = @_; |
231 |
my ( $pars ) = @_; |
| 232 |
|
232 |
|
| 233 |
#FIXME These variables are not used |
|
|
| 234 |
my $nameany= $pars->{nameany}; |
| 235 |
my $authorany= $pars->{authorany}; |
| 236 |
my $authorpersonal= $pars->{authorpersonal}; |
| 237 |
my $authorcorp= $pars->{authorcorp}; |
| 238 |
my $authormeetingcon= $pars->{authormeetingcon}; |
| 239 |
my $title= $pars->{title}; |
| 240 |
my $uniformtitle= $pars->{uniformtitle}; |
| 241 |
my $subject= $pars->{subject}; |
| 242 |
my $subjectsubdiv= $pars->{subjectsubdiv}; |
| 243 |
my $srchany= $pars->{srchany}; |
| 244 |
my $authid= $pars->{authid}; |
| 245 |
|
| 246 |
my $qry_build = { |
233 |
my $qry_build = { |
| 247 |
nameany => '@attr 1=1002 "#term" ', |
234 |
nameany => '@attr 1=1002 "#term" ', |
| 248 |
authorany => '@attr 1=1003 "#term" ', |
235 |
authorany => '@attr 1=1003 "#term" ', |
| 249 |
- |
|
|