[open-ils-commits] r13292 - branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-06-02 20:43:11 -0400 (Tue, 02 Jun 2009)
New Revision: 13292

Modified:
   branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
regression in hold targeting where blanket expire_time is set

Modified: branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-06-02 19:59:35 UTC (rev 13291)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-06-03 00:43:11 UTC (rev 13292)
@@ -883,9 +883,11 @@
 
 			if ($hold->expire_time) {
 				my $ex_time = $parser->parse_datetime( clense_ISO8601( $hold->expire_time ) );
-				$hold->update( { cancel_time => 'now' } ) if ( DateTime->compare($ex_time, DateTime->now) < 0 );
-				$self->method_lookup('open-ils.storage.transaction.commit')->run;
-				die "OK\n";
+                 if ( DateTime->compare($ex_time, DateTime->now) < 0 ) {
+    				$hold->update( { cancel_time => 'now' } );
+    				$self->method_lookup('open-ils.storage.transaction.commit')->run;
+	    			die "OK\n";
+                }
 			}
 
 			my $all_copies = [];