pass the $locale scalar where it needs to be
authorGalen Charlton <gmc@esilibrary.com>
Wed, 6 May 2015 15:48:58 +0000 (15:48 +0000)
committerGalen Charlton <gmc@esilibrary.com>
Wed, 6 May 2015 15:48:58 +0000 (15:48 +0000)
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm

index b4a4995..7ab69a3 100644 (file)
@@ -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;
         }