From 809bfb7efed659a836dd1b3d01a8518d1e0951ef Mon Sep 17 00:00:00 2001 From: =?utf-8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?= Date: Mon, 7 Feb 2011 09:25:54 -0500 Subject: [PATCH] Comment one line in Overdues.pm that could cause "amountoutstanding > amount" --- C4/Overdues.pm | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/C4/Overdues.pm b/C4/Overdues.pm index 032ca93..10b63ee 100644 --- a/C4/Overdues.pm +++ b/C4/Overdues.pm @@ -493,7 +493,8 @@ sub UpdateFine { # (i.e. , of accounttype 'FU'). Doing so will break accrual. if ( $data->{'amount'} != $amount ) { my $diff = $amount - $data->{'amount'}; - $diff = 0 if ( $data->{amount} > $amount); + #Commented for BUG 3341 + #$diff = 0 if ( $data->{amount} > $amount); my $out = $data->{'amountoutstanding'} + $diff; my $query = " UPDATE accountlines -- 1.5.6.5