Merge remote branch 'kc/new/bug_5186' into kcmaster

[koha_gimpoz] / circ / branchtransfers.pl

diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl
index 08380a1..ab38749 100755 (executable)
--- a/circ/branchtransfers.pl
+++ b/circ/branchtransfers.pl
@@ -17,9 +17,9 @@
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
 use warnings;
@@ -41,7 +41,8 @@ my $query = new CGI;
 
 if (!C4::Context->userenv){
        my $sessionID = $query->cookie("CGISESSID");
-       my $session = get_session($sessionID) if $sessionID;
+    my $session;
+       $session = get_session($sessionID) if $sessionID;
        if (!$session or $session->param('branch') eq 'NO_LIBRARY_SET'){
                # no branch set we can't transfer
                print $query->redirect("/cgi-bin/koha/circ/selectbranchprinter.pl");
@@ -208,7 +209,7 @@ foreach my $code ( keys %$messages ) {
     elsif ( $code eq 'WasReturned' ) {
         $err{errwasreturned} = 1;
                $err{borrowernumber} = $messages->{'WasReturned'};
-               my $borrower = GetMember($messages->{'WasReturned'},'borrowernumber');
+               my $borrower = GetMember('borrowernumber'=>$messages->{'WasReturned'});
                $err{title}      = $borrower->{'title'};
                $err{firstname}  = $borrower->{'firstname'};
                $err{surname}    = $borrower->{'surname'};