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

(-)a/C4/Context.pm (-7 / +6 lines)
Lines 673-680 sub Zconn { Link Here
673
    my $auth=shift;
673
    my $auth=shift;
674
    my $piggyback=shift;
674
    my $piggyback=shift;
675
    my $syntax=shift;
675
    my $syntax=shift;
676
    if ( defined($context->{"Zconn"}->{$server}) && (0 == $context->{"Zconn"}->{$server}->errcode()) ) {
676
    if ( defined($context->{"Zconn"}->{$server}->{$async}) && (0 == $context->{"Zconn"}->{$server}->{$async}->errcode()) ) {
677
        return $context->{"Zconn"}->{$server};
677
        return $context->{"Zconn"}->{$server}->{$async};
678
    # No connection object or it died. Create one.
678
    # No connection object or it died. Create one.
679
    }else {
679
    }else {
680
        # release resources if we're closing a connection and making a new one
680
        # release resources if we're closing a connection and making a new one
Lines 683-694 sub Zconn { Link Here
683
        # and make a new one, particularly for a batch job.  However, at
683
        # and make a new one, particularly for a batch job.  However, at
684
        # first glance it does not look like there's a way to easily check
684
        # first glance it does not look like there's a way to easily check
685
        # the basic health of a ZOOM::Connection
685
        # the basic health of a ZOOM::Connection
686
        $context->{"Zconn"}->{$server}->destroy() if defined($context->{"Zconn"}->{$server});
686
        $context->{"Zconn"}->{$server}->{$async}->destroy() if defined($context->{"Zconn"}->{$server}->{$async});
687
687
688
        $context->{"Zconn"}->{$server} = &_new_Zconn($server,$async,$auth,$piggyback,$syntax);
688
        $context->{"Zconn"}->{$server}->{$async} = &_new_Zconn($server,$async,$auth,$piggyback,$syntax);
689
        $context->{ Zconn }->{ $server }->option(
689
        $context->{ Zconn }->{ $server }->{$async}->option(
690
            preferredRecordSyntax => C4::Context->preference("marcflavour") );
690
            preferredRecordSyntax => C4::Context->preference("marcflavour") );
691
        return $context->{"Zconn"}->{$server};
691
        return $context->{"Zconn"}->{$server}->{$async};
692
    }
692
    }
693
}
693
}
694
694
695
- 

Return to bug 7419