[Koha-patches] [PATCH] fix error on lastincrement.

Ryan Higgins rch at balrog.liblime.com
Mon May 12 12:41:25 CEST 2008


---
 C4/Overdues.pm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index 196c641..cdda769 100644
--- a/C4/Overdues.pm
+++ b/C4/Overdues.pm
@@ -457,14 +457,13 @@ sub UpdateFine {
            
             my $diff = $amount - $data->{'amount'};
             my $out  = $data->{'amountoutstanding'} + $diff;
-			my $increment = -1 * $diff;
             my $sth2 = $dbh->prepare(
                 "UPDATE accountlines SET date=now(), amount=?,
       amountoutstanding=?, lastincrement=? , accounttype='FU' WHERE
       borrowernumber=? AND itemnumber=?
       AND (accounttype='FU' OR accounttype='O') AND description LIKE ?"
             );
-            $sth2->execute( $amount, $out, $increment, $data->{'borrowernumber'},
+            $sth2->execute( $amount, $out, $diff , $data->{'borrowernumber'},
                 $data->{'itemnumber'}, "%$due%" );
             $sth2->finish;
         }
-- 
1.5.4.2




More information about the Koha-patches mailing list