Lines 680-693
C<$server> one of the servers defined in the koha-conf.xml file
Link Here
|
680 |
|
680 |
|
681 |
C<$async> whether this is a asynchronous connection |
681 |
C<$async> whether this is a asynchronous connection |
682 |
|
682 |
|
683 |
C<$auth> whether this connection has rw access (1) or just r access (0 or NULL) |
|
|
684 |
|
685 |
|
686 |
=cut |
683 |
=cut |
687 |
|
684 |
|
688 |
sub Zconn { |
685 |
sub Zconn { |
689 |
my ($self, $server, $async, $auth, $piggyback, $syntax) = @_; |
686 |
my ($self, $server, $async) = @_; |
690 |
my $connection = _new_Zconn( $server, $async, $piggyback ); |
687 |
my $connection = _new_Zconn( $server, $async ); |
691 |
return $connection; |
688 |
return $connection; |
692 |
} |
689 |
} |
693 |
|
690 |
|
Lines 706-712
C<$auth> whether this connection has rw access (1) or just r access (0 or NULL)
Link Here
|
706 |
=cut |
703 |
=cut |
707 |
|
704 |
|
708 |
sub _new_Zconn { |
705 |
sub _new_Zconn { |
709 |
my ( $server, $async, $piggyback ) = @_; |
706 |
my ( $server, $async ) = @_; |
710 |
|
707 |
|
711 |
my $tried=0; # first attempt |
708 |
my $tried=0; # first attempt |
712 |
my $Zconn; # connection object |
709 |
my $Zconn; # connection object |
Lines 742-748
sub _new_Zconn {
Link Here
|
742 |
$o->option(user => $user) if $user && $password; |
739 |
$o->option(user => $user) if $user && $password; |
743 |
$o->option(password => $password) if $user && $password; |
740 |
$o->option(password => $password) if $user && $password; |
744 |
$o->option(async => 1) if $async; |
741 |
$o->option(async => 1) if $async; |
745 |
$o->option(count => $piggyback) if $piggyback; |
|
|
746 |
$o->option(cqlfile=> $context->{"server"}->{$server}->{"cql2rpn"}); |
742 |
$o->option(cqlfile=> $context->{"server"}->{$server}->{"cql2rpn"}); |
747 |
$o->option(cclfile=> $context->{"serverinfo"}->{$server}->{"ccl2rpn"}); |
743 |
$o->option(cclfile=> $context->{"serverinfo"}->{$server}->{"ccl2rpn"}); |
748 |
$o->option(preferredRecordSyntax => $syntax); |
744 |
$o->option(preferredRecordSyntax => $syntax); |
749 |
- |
|
|