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