View | Details | Raw Unified | Return to bug 12005
Collapse All | Expand All

(-)a/C4/Context.pm (-8 / +3 lines)
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
- 

Return to bug 12005