[open-ils-commits] r7697 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher

[svn at svn.open-ils.org]

Author: miker
Date: 2007-08-16 17:06:21 -0400 (Thu, 16 Aug 2007)
New Revision: 7697

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
fixing weird edge case of pushing out the due date after fines start to acrue

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2007-08-16 21:05:56 UTC (rev 7696)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2007-08-16 21:06:21 UTC (rev 7697)
@@ -528,7 +528,9 @@
 				"\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'}
 			);