|
Lines 248-255
sub SearchAuthorities {
Link Here
|
| 248 |
my @oAuth; |
248 |
my @oAuth; |
| 249 |
my $i; |
249 |
my $i; |
| 250 |
$oAuth[0]=C4::Context->Zconn("authorityserver" , 1); |
250 |
$oAuth[0]=C4::Context->Zconn("authorityserver" , 1); |
| 251 |
my $Anewq= new ZOOM::Query::PQF($query,$oAuth[0]); |
251 |
my $Anewq; |
|
|
252 |
eval { |
| 253 |
$Anewq= new ZOOM::Query::PQF($query,$oAuth[0]); |
| 254 |
}; |
| 255 |
if ($@){ |
| 256 |
warn "Bad PQF query: $@"; |
| 257 |
} |
| 252 |
my $oAResult; |
258 |
my $oAResult; |
|
|
259 |
if ( ! $Anewq ){ |
| 260 |
goto NOLUCK; |
| 261 |
} |
| 253 |
$oAResult= $oAuth[0]->search($Anewq) ; |
262 |
$oAResult= $oAuth[0]->search($Anewq) ; |
| 254 |
while (($i = ZOOM::event(\@oAuth)) != 0) { |
263 |
while (($i = ZOOM::event(\@oAuth)) != 0) { |
| 255 |
my $ev = $oAuth[$i-1]->last_event(); |
264 |
my $ev = $oAuth[$i-1]->last_event(); |
|
Lines 336-342
sub SearchAuthorities {
Link Here
|
| 336 |
|
345 |
|
| 337 |
}## if nbresult |
346 |
}## if nbresult |
| 338 |
NOLUCK: |
347 |
NOLUCK: |
| 339 |
$oAResult->destroy(); |
348 |
$oAResult->destroy() if $oAResult; |
| 340 |
# $oAuth[0]->destroy(); |
349 |
# $oAuth[0]->destroy(); |
| 341 |
|
350 |
|
| 342 |
return (\@finalresult, $nbresults); |
351 |
return (\@finalresult, $nbresults); |
| 343 |
- |
|
|