[open-ils-commits] r10441 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-08-25 17:56:16 -0400 (Mon, 25 Aug 2008)
New Revision: 10441

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
make sure has is defined

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-08-25 17:49:56 UTC (rev 10440)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-08-25 21:56:16 UTC (rev 10441)
@@ -1291,6 +1291,7 @@
     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();