Fix AppUtils.pm ou_ancestor_setting.
authorJason Stephenson <jstephenson@mvlc.org>
Mon, 26 Sep 2011 14:01:24 +0000 (10:01 -0400)
committerJason Stephenson <jstephenson@mvlc.org>
Mon, 26 Sep 2011 14:01:24 +0000 (10:01 -0400)
Make sure it also returns undef when the setting is empty.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm

index 98e6805..ce50017 100644 (file)
@@ -1347,7 +1347,8 @@ sub ou_ancestor_setting {
     my $query = {from => ['actor.org_unit_ancestor_setting', $name, $orgid]};
     my $setting = $e->json_query($query);
     return undef unless (ref($setting) eq 'ARRAY');
-    $setting = $setting->[0] if (ref($setting) eq 'ARRAY');
+    $setting = $setting->[0];
+    return undef unless($setting);
     return {org => $setting->{org_unit}, value => OpenSRF::Utils::JSON->JSON2perl($setting->{value})};
 }