Fix AppUtils.pm ou_ancestor_setting.

Make sure it also returns undef when the setting is empty.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
index 98e6805..ce50017 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
@@ -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})};
 }