From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 25 Aug 2008 21:56:16 +0000 (+0000)
Subject: make sure has is defined
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0db29d47b29ba7aeae83b9e87abaa2ae33cb3975;p=Evergreen.git

make sure has is defined

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10441 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index 61c3f62abb..e76bab0870 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -1291,6 +1291,7 @@ sub find_highest_work_orgs {
     my($self, $e, $perm, $options) = @_;
     my $work_orgs = $self->get_user_work_ou_ids($e, $e->requestor->id);
     $logger->debug("found work orgs @$work_orgs");
+	$options ||= {};
 
     my @allowed_orgs;
 	my $org_tree = $self->get_org_tree();