[open-ils-commits] r19097 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2011-01-04 10:11:59 -0500 (Tue, 04 Jan 2011)
New Revision: 19097

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
Patch from Jason Stephenson to silence spurious warnings: https://bugs.launchpad.net/evergreen/+bug/695510

Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2011-01-04 15:10:48 UTC (rev 19096)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2011-01-04 15:11:59 UTC (rev 19097)
@@ -1169,7 +1169,10 @@
 			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 @@
 								],
 								( $types   ? (item_type => [split '', $types])   : () ),
 								( $formats ? (item_form => [split '', $formats]) : () ),
-								( $lang    ? (item_lang => $lang)                : () ),
+								( $lang	   ? (item_lang => $lang)				 : () ),
 							)
 				) {
 					my ($rtree) = $self