|
Lines 156-168
sub Z3950Search {
Link Here
|
| 156 |
); |
156 |
); |
| 157 |
my @servers = $rs->all; |
157 |
my @servers = $rs->all; |
| 158 |
foreach my $server ( @servers ) { |
158 |
foreach my $server ( @servers ) { |
|
|
159 |
my $server_zquery = $zquery; |
| 159 |
if(my $attributes = $server->{attributes}){ |
160 |
if(my $attributes = $server->{attributes}){ |
| 160 |
$zquery = "$attributes $zquery"; |
161 |
$server_zquery = "$attributes $zquery"; |
| 161 |
} |
162 |
} |
| 162 |
$oConnection[$s] = _create_connection( $server ); |
163 |
$oConnection[$s] = _create_connection( $server ); |
| 163 |
$oResult[$s] = |
164 |
$oResult[$s] = |
| 164 |
$server->{servertype} eq 'zed'? |
165 |
$server->{servertype} eq 'zed'? |
| 165 |
$oConnection[$s]->search_pqf( $zquery ): |
166 |
$oConnection[$s]->search_pqf( $server_zquery ): |
| 166 |
$oConnection[$s]->search(new ZOOM::Query::CQL( |
167 |
$oConnection[$s]->search(new ZOOM::Query::CQL( |
| 167 |
_translate_query( $server, $squery ))); |
168 |
_translate_query( $server, $squery ))); |
| 168 |
$s++; |
169 |
$s++; |
| 169 |
- |
|
|