LP1786312 Due date extension honors max fine (follow up)

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
index 22d530d..fb4ee8d 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
@@ -599,7 +599,7 @@ sub generate_fines {
             # occurred after the current due date*.  Otherwise, when a 
             # due date changes, the fine generator will back-fill billings
             # for a period of time where the item was not technically overdue.
-            @fines = grep { $_->billing_ts > $c->$due_date_method } @fines;
+            @fines = grep { $_->billing_ts gt $c->$due_date_method } @fines;
     
             my $f_idx = 0;
             my $fine = $fines[$f_idx] if (@fines);