From 9b128435dd3d03976d99c9a682bc23ff1189e96b Mon Sep 17 00:00:00 2001
From: atz <atz@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 29 Jul 2010 17:08:37 +0000
Subject: [PATCH] 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);

git-svn-id: svn://svn.open-ils.org/ILS/trunk@17054 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm
index 753e032917..33f40c9d87 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Search.pm
@@ -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);
-- 
2.43.2