[Koha-cvs] koha pay.pl [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   07/03/26 16:28:42

Modified files:
        .              : pay.pl 

Log message:
        recordpayment was not inserting the branchcode

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/pay.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.9.2.5.2.2&r2=1.9.2.5.2.3

Patches:
Index: pay.pl
===================================================================
RCS file: /sources/koha/koha/Attic/pay.pl,v
retrieving revision 1.9.2.5.2.2
retrieving revision 1.9.2.5.2.3
diff -u -b -r1.9.2.5.2.2 -r1.9.2.5.2.3
--- pay.pl      22 Mar 2007 14:59:16 -0000      1.9.2.5.2.2
+++ pay.pl      26 Mar 2007 16:28:42 -0000      1.9.2.5.2.3
@@ -2,7 +2,7 @@
 # WARNING: Not enough context to figure out the correct tabstop size
 # WARNING: Assume that this file uses 4-character tabs
 
-# $Id: pay.pl,v 1.9.2.5.2.2 2007/03/22 14:59:16 kylemhall Exp $
+# $Id: pay.pl,v 1.9.2.5.2.3 2007/03/26 16:28:42 kylemhall Exp $
 
 #written 11/1/2000 by address@hidden
 #part of the koha library system, script to facilitate paying off fines
@@ -95,7 +95,9 @@
 $user =~ s/Foxton/F/i;
 $user =~ s/Shannon/S/i;
 
-$env{'branchcode'} = $user;
+#FIXME: what the heck did the following line ever do?
+#$env{'branchcode'} = $user;
+$env{'branchcode'} = $branch;
 
 my $total = $input->param('total');