From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 4 Jan 2011 15:11:59 +0000 (+0000)
Subject: Patch from Jason Stephenson to silence spurious warnings: https://bugs.launchpad... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3ca7111d3b8ccb35d67adefa8b13fa873997a47a;p=contrib%2FConifer.git

Patch from Jason Stephenson to silence spurious warnings: https://bugs.launchpad.net/evergreen/+bug/695510

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_2_0@19097 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
index 47e743c092..d978f06cdd 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -1169,7 +1169,10 @@ sub new_hold_copy_targeter {
 			my $all_copies = [];
 
 			# find filters for MR holds
-			my ($types, $formats, $lang) = split '-', $hold->holdable_formats;
+			my ($types, $formats, $lang);
+			if (defined($hold->holdable_formats)) {
+				($types, $formats, $lang) = split '-', $hold->holdable_formats;
+			}
 
 			# find all the potential copies
 			if ($hold->hold_type eq 'M') {
@@ -1184,7 +1187,7 @@ sub new_hold_copy_targeter {
 								],
 								( $types   ? (item_type => [split '', $types])   : () ),
 								( $formats ? (item_form => [split '', $formats]) : () ),
-								( $lang    ? (item_lang => $lang)                : () ),
+								( $lang	   ? (item_lang => $lang)				 : () ),
 							)
 				) {
 					my ($rtree) = $self