[open-ils-commits] r13297 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-06-03 10:40:26 -0400 (Wed, 03 Jun 2009)
New Revision: 13297

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
indent tidying; quiet the oilsContinueStatus messages a good bit

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-06-03 02:18:29 UTC (rev 13296)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-06-03 14:40:26 UTC (rev 13297)
@@ -894,11 +894,11 @@
 
 			if ($hold->expire_time) {
 				my $ex_time = $parser->parse_datetime( clense_ISO8601( $hold->expire_time ) );
-                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";
-                }
+				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 = [];
@@ -993,7 +993,7 @@
 			$log->debug( "\tMapping ".scalar(@$all_copies)." potential copies for hold ".$hold->id);
 			action::hold_copy_map->create( { hold => $hold->id, target_copy => $_->id } ) for (@$all_copies);
 
-			$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
+			#$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
 
 			my @good_copies;
 			for my $c (@$all_copies) {
@@ -1015,7 +1015,7 @@
 
 				# we passed all three, keep it
 				push @good_copies, $c if ($c);
-				$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
+				#$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
 			}
 
 			$log->debug("\t".scalar(@good_copies)." (non-current) copies available for targeting...");
@@ -1039,7 +1039,7 @@
 				}
 			}
 
-			$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
+			#$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
 			my $prox_list = [];
 			$$prox_list[0] =
 			[
@@ -1050,7 +1050,7 @@
 
 			$all_copies = [grep {$_->circ_lib != $hold->pickup_lib } @good_copies];
 
-			$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
+			#$client->status( new OpenSRF::DomainObject::oilsContinueStatus );
 			my $best = choose_nearest_copy($hold, $prox_list);
 			$client->status( new OpenSRF::DomainObject::oilsContinueStatus );