Mailing List Archive

Author: richter
Date: Fri Jan 10 10:57:41 2014
New Revision: 1557079

URL: http://svn.apache.org/r1557079
Log:
Control Label Text Caching

Modified:
perl/embperl/trunk/Embperl/Form/Control.pm

Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1557079&r1=1557078&r2=1557079&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Fri Jan 10 10:57:41 2014
@@ -262,7 +262,7 @@ sub label_text
{
my ($self, $req) = @_ ;

- my $key = 'label_text' . $req -> {form_options}{language} ;
+ my $key = 'label_text' . ($req -> {form_options}{language_fingerprint} || $req -> {form_options}{language}) ;

return $self -> {$key} if ($self -> {$key}) ;




---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org