[open-ils-commits] r17054 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (atz)

[svn at svn.open-ils.org]

Author: atz
Date: 2010-07-29 13:08:37 -0400 (Thu, 29 Jul 2010)
New Revision: 17054

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm
Log:
Need to die if we fail to find a picklist, symmetric to the top of the conditional.

Otherwise, we crash out on $conn->respond($picklist->id);

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm	2010-07-29 16:23:21 UTC (rev 17053)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm	2010-07-29 17:08:37 UTC (rev 17054)
@@ -549,8 +549,8 @@
                 $bibs = [ @new_bibs ];
             }
         } else {
-            $picklist =
-                OpenILS::Application::Acq::Order::zsearch_build_pl($mgr, undef);
+            $picklist = OpenILS::Application::Acq::Order::zsearch_build_pl($mgr, undef)
+                or return $e->die_event;
         }
 
         $conn->respond($picklist->id);