[open-ils-commits] r14626 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-27 08:26:04 -0400 (Tue, 27 Oct 2009)
New Revision: 14626

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
canceled holds, when they exist, happened in the past, not the future

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-27 07:09:48 UTC (rev 14625)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-27 12:26:04 UTC (rev 14626)
@@ -367,7 +367,7 @@
     } elsif($cancel_age) {
 
         # find all of the canceled holds that were canceled within the configured time frame
-        my $date = DateTime->now->add(seconds => OpenSRF::Utils::interval_to_seconds($cancel_age));
+        my $date = DateTime->now->subtract(seconds => OpenSRF::Utils::interval_to_seconds($cancel_age));
         $date = $U->epoch2ISO8601($date->epoch);
 
         my $canceled = $e->search_action_hold_request([