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

[Kyle Hall]

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 address@hidden
 #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");