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 |
|