From 4af90ce17642003d969a1613465682fb1295fb8d Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 10 Oct 2014 23:34:10 +0200 Subject: [PATCH] Bug 12005: Remove useless parameters C4::Context::Zconn subroutine takes too much more paramters. This subroutine is never called with more that 2 parameters. Others can be removed. Signed-off-by: Jonathan Druart --- C4/Context.pm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/C4/Context.pm b/C4/Context.pm index c87e7e2..f8f71cd 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -680,14 +680,11 @@ C<$server> one of the servers defined in the koha-conf.xml file C<$async> whether this is a asynchronous connection -C<$auth> whether this connection has rw access (1) or just r access (0 or NULL) - - =cut sub Zconn { - my ($self, $server, $async, $auth, $piggyback, $syntax) = @_; - my $connection = _new_Zconn( $server, $async, $piggyback ); + my ($self, $server, $async) = @_; + my $connection = _new_Zconn( $server, $async ); return $connection; } @@ -706,7 +703,7 @@ C<$auth> whether this connection has rw access (1) or just r access (0 or NULL) =cut sub _new_Zconn { - my ( $server, $async, $piggyback ) = @_; + my ( $server, $async ) = @_; my $tried=0; # first attempt my $Zconn; # connection object @@ -742,7 +739,6 @@ sub _new_Zconn { $o->option(user => $user) if $user && $password; $o->option(password => $password) if $user && $password; $o->option(async => 1) if $async; - $o->option(count => $piggyback) if $piggyback; $o->option(cqlfile=> $context->{"server"}->{$server}->{"cql2rpn"}); $o->option(cclfile=> $context->{"serverinfo"}->{$server}->{"ccl2rpn"}); $o->option(preferredRecordSyntax => $syntax); -- 2.1.0