Bug 5549 : CalcFine was corrupting due date

Clone the passed duedate as the addition of days was
corrupting it in calling context causing new account recs
to be written rather than updating the existing

diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index ae62b1e..7676a87 100644 (file)
--- a/C4/Overdues.pm
+++ b/C4/Overdues.pm
@@ -252,7 +252,8 @@ or "Final Notice".  But CalcFine never defined any value.
 =cut
 
 sub CalcFine {
-    my ( $item, $bortype, $branchcode, $start_date, $end_date  ) = @_;
+    my ( $item, $bortype, $branchcode, $due_dt, $end_date  ) = @_;
+    my $start_date = $due_dt->clone();
     my $dbh = C4::Context->dbh;
     my $amount = 0;
     my $charge_duration;