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