From a21deb11cc2c79ff70eab917d283dcf9dcab1e86 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 29 Jul 2011 12:19:18 -0400 Subject: [PATCH] Prevent undef warnings on org unit lookup Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm index 8b12453e70..1245605079 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm @@ -105,6 +105,7 @@ sub init_ro_object_cache { # Add a special handler for the tree-shaped org unit cache $ro_object_subs->{get_aou} = sub { my $org_id = shift; + return undef unless defined $org_id; $ro_object_subs->{aou_tree}->(); # force the org tree to load return $cache{map}{aou}{$org_id}; }; -- 2.43.2