From: atz Date: Thu, 29 Jul 2010 17:08:37 +0000 (+0000) Subject: Need to die if we fail to find a picklist, symmetric to the top of the conditional. X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9b128435dd3d03976d99c9a682bc23ff1189e96b;p=evergreen%2Fmasslnc.git 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 --- 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);