|
Lines 619-625
sub Z3950SearchAuth {
Link Here
|
| 619 |
$oConnection[$s] = create ZOOM::Connection($option1); |
619 |
$oConnection[$s] = create ZOOM::Connection($option1); |
| 620 |
$oConnection[$s]->connect( $server->{host}, $server->{port} ); |
620 |
$oConnection[$s]->connect( $server->{host}, $server->{port} ); |
| 621 |
$serverhost[$s] = $server->{host}; |
621 |
$serverhost[$s] = $server->{host}; |
| 622 |
$servername[$s] = $server->{name}; |
622 |
$servername[$s] = $server->{servername}; |
| 623 |
$encoding[$s] = ($server->{encoding}?$server->{encoding}:"iso-5426"); |
623 |
$encoding[$s] = ($server->{encoding}?$server->{encoding}:"iso-5426"); |
| 624 |
$s++; |
624 |
$s++; |
| 625 |
} ## while fetch |
625 |
} ## while fetch |
| 626 |
- |
|
|