|
Lines 156-161
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 |
if(my $attributes = $server->{attributes}){ |
| 160 |
$zquery = "$attributes $zquery"; |
| 161 |
} |
| 159 |
$oConnection[$s] = _create_connection( $server ); |
162 |
$oConnection[$s] = _create_connection( $server ); |
| 160 |
$oResult[$s] = |
163 |
$oResult[$s] = |
| 161 |
$server->{servertype} eq 'zed'? |
164 |
$server->{servertype} eq 'zed'? |
|
Lines 534-539
sub Z3950SearchAuth {
Link Here
|
| 534 |
my $record; |
537 |
my $record; |
| 535 |
my @serverhost; |
538 |
my @serverhost; |
| 536 |
my @servername; |
539 |
my @servername; |
|
|
540 |
my @server_attributes = (); |
| 537 |
my @breeding_loop = (); |
541 |
my @breeding_loop = (); |
| 538 |
|
542 |
|
| 539 |
my @oConnection; |
543 |
my @oConnection; |
|
Lines 619-630
sub Z3950SearchAuth {
Link Here
|
| 619 |
$serverhost[$s] = $server->{host}; |
623 |
$serverhost[$s] = $server->{host}; |
| 620 |
$servername[$s] = $server->{servername}; |
624 |
$servername[$s] = $server->{servername}; |
| 621 |
$encoding[$s] = ($server->{encoding}?$server->{encoding}:"iso-5426"); |
625 |
$encoding[$s] = ($server->{encoding}?$server->{encoding}:"iso-5426"); |
|
|
626 |
$server_attributes[$s] = $server->{attributes}; |
| 622 |
$s++; |
627 |
$s++; |
| 623 |
} ## while fetch |
628 |
} ## while fetch |
| 624 |
} # foreach |
629 |
} # foreach |
| 625 |
my $nremaining = $s; |
630 |
my $nremaining = $s; |
| 626 |
|
631 |
|
| 627 |
for ( my $z = 0 ; $z < $s ; $z++ ) { |
632 |
for ( my $z = 0 ; $z < $s ; $z++ ) { |
|
|
633 |
if(my $attributes = $server_attributes[$z]){ |
| 634 |
$query = "$attributes $query"; |
| 635 |
} |
| 628 |
$oResult[$z] = $oConnection[$z]->search_pqf($query); |
636 |
$oResult[$z] = $oConnection[$z]->search_pqf($query); |
| 629 |
} |
637 |
} |
| 630 |
|
638 |
|