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

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   07/04/27 15:09:09

Modified files:
        .              : pay.pl pay_by_amount.pl 

Log message:
        Fixing more branchcode stuff for fine payments.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/pay.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.9.2.5.2.4&r2=1.9.2.5.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/pay_by_amount.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.4&r2=1.1.2.5

Patches:
Index: pay.pl
===================================================================
RCS file: /sources/koha/koha/Attic/pay.pl,v
retrieving revision 1.9.2.5.2.4
retrieving revision 1.9.2.5.2.5
diff -u -b -r1.9.2.5.2.4 -r1.9.2.5.2.5
--- pay.pl      27 Apr 2007 15:02:31 -0000      1.9.2.5.2.4
+++ pay.pl      27 Apr 2007 15:09:09 -0000      1.9.2.5.2.5
@@ -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.4 2007/04/27 15:02:31 kylemhall Exp $
+# $Id: pay.pl,v 1.9.2.5.2.5 2007/04/27 15:09:09 kylemhall Exp $
 
 #written 11/1/2000 by address@hidden
 #part of the koha library system, script to facilitate paying off fines

Index: pay_by_amount.pl
===================================================================
RCS file: /sources/koha/koha/Attic/pay_by_amount.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- pay_by_amount.pl    27 Apr 2007 13:15:52 -0000      1.1.2.4
+++ pay_by_amount.pl    27 Apr 2007 15:09:09 -0000      1.1.2.5
@@ -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_by_amount.pl,v 1.1.2.4 2007/04/27 13:15:52 kylemhall Exp $
+# $Id: pay_by_amount.pl,v 1.1.2.5 2007/04/27 15:09:09 kylemhall Exp $
 
 #written 11/1/2000 by address@hidden
 #part of the koha library system, script to facilitate paying off fines
@@ -63,11 +63,9 @@
 my @names = $input->param;
 my %env;
 
-$env{'branchcode'} = $user;
+$env{'branchcode'} = $input->cookie('branch');
 my $total = $input->param('total');
 
-print STDERR "Branchcode: $user Bornumber: $bornum Total: $total \n";
-
 if ($total ne ''){
   recordpayment(\%env,$bornum,$total);
 }