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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-05-29 14:03:46 -0400 (Fri, 29 May 2009)
New Revision: 13260

Modified:
   branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
be more strict about going away after short-circut code; check earlier for hold validity

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-05-29 15:48:16 UTC (rev 13259)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-05-29 18:03:46 UTC (rev 13260)
@@ -875,6 +875,8 @@
 			$hold->remove_from_object_index();
 			$hold = action::hold_request->retrieve( $hold->id );
 
+			die "OK\n" if (!$hold or $hold->capture_time or $hold->cancel_time);
+
 			# remove old auto-targeting maps
 			my @oldmaps = action::hold_copy_map->search( hold => $hold->id );
 			$_->delete for (@oldmaps);
@@ -883,10 +885,9 @@
 				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";
 			}
 
-			die "OK\n" if (!$hold or $hold->capture_time or $hold->cancel_time);
-
 			my $all_copies = [];
 
 			# find filters for MR holds