From a9b7e08077d9958bfeaeabc7ab5ba3cf8530840f Mon Sep 17 00:00:00 2001
From: Ryan Higgins <rch@balrog.liblime.com>
Date: Mon, 12 May 2008 05:41:25 -0500
Subject: [PATCH] fix error on lastincrement.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Overdues.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index 196c641646..cdda769111 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;
         }
-- 
2.39.5