[svn:p5ee] r7944 - p5ee/trunk/App-Context/lib/App

Author: spadkins
Date: Mon Oct 16 10:36:43 2006
New Revision: 7944

Modified:
   p5ee/trunk/App-Context/lib/App/SessionObject.pm

Log:
get translate() working (bugfix?\!?)

Modified: p5ee/trunk/App-Context/lib/App/SessionObject.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/SessionObject.pm	(original)
+++ p5ee/trunk/App-Context/lib/App/SessionObject.pm	Mon Oct 16 10:36:43 2006
@@ -821,6 +821,7 @@
 =cut
 
 sub translate {
+    &App::sub_entry if ($App::trace);
     my ($self, $label, $lang) = @_;
 
     #print "translate($label, $lang)\n";
@@ -830,7 +831,8 @@
     }
     else {
         $lang = $self->{lang} if (!$lang);
-        my $dict = $self->{dict};
+        my $context = $self->{context};
+        my $dict = $context->so_get("dict");
         if (!$lang || !$dict) {
             # do nothing (return $label without translation)
         }
@@ -846,6 +848,7 @@
         }
     }
 
+    &App::sub_exit($trans_label) if ($App::trace);
     return $trans_label;
 }