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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-10-28 23:13:46 -0400 (Wed, 28 Oct 2009)
New Revision: 14665

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
reverting previous change and correcting the use of target_weight -- I had not completed the logic

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-10-29 02:28:05 UTC (rev 14664)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-10-29 03:13:46 UTC (rev 14665)
@@ -819,7 +819,7 @@
 
 	local $OpenILS::Application::Storage::WRITE = 1;
 
-	$self->{target_weight} = 0;
+	$self->{target_weight} = {};
 
 	my $holds;
 
@@ -1512,12 +1512,12 @@
 		next unless (defined($prox));
 
 		# Fetch the weighting value for hold targeting, defaulting to 1
-		$self->{target_weight} ||= $actor->request(
+		$self->{target_weight}{$lib} ||= $actor->request(
 			'open-ils.actor.ou_setting.ancestor_default' => $lib => 'circ.holds.org_unit_target_weight'
 		)->gather(1) || 1;
 
 		$prox_list[$prox] = [] unless defined($prox_list[$prox]);
-		for my $w ( 1 .. $self->{target_weight} ) {
+		for my $w ( 1 .. $self->{target_weight}{$lib} ) {
 			push @{$prox_list[$prox]}, $cp;
 		}
 	}