From: Mike Rylander <mrylander@gmail.com>
Date: Fri, 24 Jun 2011 18:55:49 +0000 (-0400)
Subject: Filter out copies that have a monograph part designator when the hold is a non-P... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=20735bf13454c3d9bdcc958805228c85ec7af031;p=contrib%2FConifer.git

Filter out copies that have a monograph part designator when the hold is a non-P hold

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Jason Etheridge <jason@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
index c9743e2721..ca1e0dfde5 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
@@ -1270,7 +1270,8 @@ sub new_hold_copy_targeter {
 						isTrue($_->location->holdable) && 
 						isTrue($_->holdable) &&
 						!isTrue($_->deleted) &&
-						(isTrue($hold->mint_condition) ? isTrue($_->mint_condition) : 1)
+						(isTrue($hold->mint_condition) ? isTrue($_->mint_condition) : 1) &&
+						($hold->hold_type ne 'P' ? @{ $_->part_maps } == 0 : 1)
 					} @$all_copies;
 
 			# let 'em know we're still working