|
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 532-537
sub Z3950SearchAuth {
Link Here
|
| 532 |
my $record; |
535 |
my $record; |
| 533 |
my @serverhost; |
536 |
my @serverhost; |
| 534 |
my @servername; |
537 |
my @servername; |
|
|
538 |
my @server_attributes = (); |
| 535 |
my @breeding_loop = (); |
539 |
my @breeding_loop = (); |
| 536 |
|
540 |
|
| 537 |
my @oConnection; |
541 |
my @oConnection; |
|
Lines 617-628
sub Z3950SearchAuth {
Link Here
|
| 617 |
$serverhost[$s] = $server->{host}; |
621 |
$serverhost[$s] = $server->{host}; |
| 618 |
$servername[$s] = $server->{servername}; |
622 |
$servername[$s] = $server->{servername}; |
| 619 |
$encoding[$s] = ($server->{encoding}?$server->{encoding}:"iso-5426"); |
623 |
$encoding[$s] = ($server->{encoding}?$server->{encoding}:"iso-5426"); |
|
|
624 |
$server_attributes[$s] = $server->{attributes}; |
| 620 |
$s++; |
625 |
$s++; |
| 621 |
} ## while fetch |
626 |
} ## while fetch |
| 622 |
} # foreach |
627 |
} # foreach |
| 623 |
my $nremaining = $s; |
628 |
my $nremaining = $s; |
| 624 |
|
629 |
|
| 625 |
for ( my $z = 0 ; $z < $s ; $z++ ) { |
630 |
for ( my $z = 0 ; $z < $s ; $z++ ) { |
|
|
631 |
if(my $attributes = $server_attributes[$z]){ |
| 632 |
$query = "$attributes $query"; |
| 633 |
} |
| 626 |
$oResult[$z] = $oConnection[$z]->search_pqf($query); |
634 |
$oResult[$z] = $oConnection[$z]->search_pqf($query); |
| 627 |
} |
635 |
} |
| 628 |
|
636 |
|