Need to die if we fail to find a picklist, symmetric to the top of the conditional.
[working/Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Application / Acq / Search.pm
index 753e032..33f40c9 100644 (file)
@@ -549,8 +549,8 @@ sub bib_search {
                 $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);