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-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org