From 646a8cdaff748e705da36e3df8e326f79387d1f3 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 6 May 2015 15:48:58 +0000 Subject: [PATCH] pass the $locale scalar where it needs to be Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 b4a499510c..7ab69a3623 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm @@ -144,12 +144,12 @@ sub init_ro_object_cache { sub flesh_aout { my $node = shift; my $locale_subs = shift; - my $ctx = shift; + my $locale = shift; $node->ou_type( $locale_subs->{get_aout}->($node->ou_type) ); $cache{map}{$locale}{aou}{$node->id} = $node; - flesh_aout($_, $locale_subs, $ctx) foreach @{$node->children}; + flesh_aout($_, $locale_subs, $locale) foreach @{$node->children}; }; - flesh_aout($tree, $locale_subs, $ctx); + flesh_aout($tree, $locale_subs, $locale); $cache{aou_tree}{$locale} = $tree; } -- 2.11.0