Bug 5945: email not searchable in patron search

[koha_fer] / circ / branchtransfers.pl

diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl
index 08380a1..7e0cb75 100755 (executable)
--- a/circ/branchtransfers.pl
+++ b/circ/branchtransfers.pl
@@ -1,10 +1,9 @@
 #!/usr/bin/perl
-# WARNING: This file uses 4-character tabs!
 
-#written 11/3/2002 by Finlay
 #script to execute branch transfers of books
 
 # Copyright 2000-2002 Katipo Communications
+# copyright 2010 BibLibre
 #
 # This file is part of Koha.
 #
@@ -17,9 +16,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 +40,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 +208,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'};