We need to get the in-use copy proximity separately, as they are already filtered...

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
index 6180ae7..64f1970 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/HoldTargeter.pm
@@ -761,6 +761,14 @@ sub compile_weighted_proximity_map {
         push(@{$prox_map{$prox}}, $copy_hash) foreach (1 .. $weight);
     }
 
+    # We need to grab the proximity for copies targeted by other holds
+    # that belong to this pickup lib for hard-stalling tests later. We'll
+    # just grab them all in case it's useful later.
+    for my $copy_hash (@{$self->in_use_copies}) {
+        my $prox = $copy_prox_map{$copy_hash->{id}};
+        $copy_hash->{proximity} = $prox;
+    }
+
     return $self->{weighted_prox_map} = \%prox_map;
 }