You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2015/09/30 08:03:31 UTC
svn commit: r1705968 - /perl/embperl/trunk/Embperl/Form/Control.pm
Author: richter
Date: Wed Sep 30 06:03:29 2015
New Revision: 1705968
URL: http://svn.apache.org/viewvc?rev=1705968&view=rev
Log:
Convert Hashs and Arrays to strings for display control
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=1705968&r1=1705967&r2=1705968&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Wed Sep 30 06:03:29 2015
@@ -464,6 +464,22 @@ sub get_display_text
$value = $self -> get_value ($req) if (!defined ($value)) ;
+ if (ref $value)
+ {
+ if (ref ($value) eq 'ARRAY')
+ {
+ return join (' ', map { $_ ne ''?$self -> get_display_text ($req, $_):() } @$value) ;
+ }
+ elsif (ref ($value) eq 'HASH')
+ {
+ return join (' ', map { $_ ne ''?$self -> get_display_text ($req, $_):() } %$value) ;
+ }
+ elsif (ref ($value) eq 'SCALAR')
+ {
+ return $$value ;
+ }
+ }
+
return $value ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org