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