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

[svn at svn.open-ils.org]

Author: miker
Date: 2011-01-04 10:10:48 -0500 (Tue, 04 Jan 2011)
New Revision: 19096

Modified:
   trunk/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: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2011-01-04 14:51:21 UTC (rev 19095)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2011-01-04 15:10:48 UTC (rev 19096)
@@ -1181,7 +1181,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') {
@@ -1196,7 +1199,7 @@
 								],
 								( $types   ? (item_type => [split '', $types])   : () ),
 								( $formats ? (item_form => [split '', $formats]) : () ),
-								( $lang    ? (item_lang => $lang)                : () ),
+								( $lang	   ? (item_lang => $lang)				 : () ),
 							)
 				) {
 					my ($rtree) = $self