fixing weird edge case of pushing out the due date after fines start to acrue

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7697 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
index fc125dc..fb2afeb 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -528,7 +528,9 @@ sub generate_fines {
                                "\tItem was due on or before: ".localtime($due)."\n");
        
                        my @fines = money::billing->search_where(
-                               { xact => $c->id, billing_type => 'Overdue materials' },
+                               { xact => $c->id,
+                                 billing_type => 'Overdue materials',
+                                 billing_ts => { '>' => $c->due_date } },
                                { order_by => 'billing_ts DESC'}
                        );