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