X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FOverdues.pm;h=7676a87283e8803f90f71d114195679002622b82;hb=4612eeddf7889521f3ba73587beee45ac058ef82;hp=ae62b1e780586a69c17d1fa526b1408da4350db7;hpb=624edf3dba8fda35d0a071bb9dc8755ddbf00d44;p=koha.git

diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index ae62b1e780..7676a87283 100644
--- 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;