[Koha-cvs] koha pay.pl [dev_week]
Kyle Hall
kyle.m.hall at gmail.com
Fri Apr 27 18:03:07 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Kyle Hall <kylemhall> 07/04/27 16:03:07
Modified files:
. : pay.pl
Log message:
Fixed writeoff weirdness: if a borrower had two separate fines for the same
item, both would be written off.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/pay.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.9.2.5.2.5&r2=1.9.2.5.2.6
Patches:
Index: pay.pl
===================================================================
RCS file: /sources/koha/koha/Attic/pay.pl,v
retrieving revision 1.9.2.5.2.5
retrieving revision 1.9.2.5.2.6
diff -u -b -r1.9.2.5.2.5 -r1.9.2.5.2.6
--- pay.pl 27 Apr 2007 15:09:09 -0000 1.9.2.5.2.5
+++ pay.pl 27 Apr 2007 16:03:07 -0000 1.9.2.5.2.6
@@ -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.5 2007/04/27 15:09:09 kylemhall Exp $
+# $Id: pay.pl,v 1.9.2.5.2.6 2007/04/27 16:03:07 kylemhall Exp $
#written 11/1/2000 by chris at katipo.oc.nz
#part of the koha library system, script to facilitate paying off fines
@@ -171,7 +171,8 @@
writeoff( $bornum, $accountno, $itemno, $accounttype, $amount );
}
else {
- writeoff( $bornum, '', $itemno, $accounttype, $amount );
+ my $accountno = $input->param("accountno$value");
+ writeoff( $bornum, $accountno, $itemno, $accounttype, $amount );
}
}
$bornum = $input->param('bornum');
@@ -199,9 +200,10 @@
else {
$sth =
$dbh->prepare(
-"Update accountlines set amountoutstanding=0 where accounttype=? and itemnumber=? and borrowernumber=?"
+"Update accountlines set amountoutstanding=0 where accountno=? and borrowernumber=?"
);
- $sth->execute( $accounttype, $itemnum, $bornum );
+ $sth->execute( $accountnum, $bornum );
+ print STDERR "accountnum: $accountnum bornum: $bornum \n";
}
$sth->finish;
$sth = $dbh->prepare("select max(accountno) from accountlines");
More information about the Koha-cvs
mailing list