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 2011/07/08 05:28:11 UTC
svn commit: r1144143 - /perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm
Author: richter
Date: Fri Jul 8 03:28:11 2011
New Revision: 1144143
URL: http://svn.apache.org/viewvc?rev=1144143&view=rev
Log:
checkboxes can now get an arrayref as input
Modified:
perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm?rev=1144143&r1=1144142&r2=1144143&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm Fri Jul 8 03:28:11 2011
@@ -43,6 +43,23 @@ sub show_control_addons
}
+# ------------------------------------------------------------------------------------------
+#
+# init_data - daten aufteilen
+#
+
+sub init_data
+ {
+ my ($self, $req) = @_ ;
+
+ my $fdat = $req -> {docdata} || \%fdat ;
+ my $name = $self->{name} ;
+ if (ref $fdat -> {$name})
+ {
+ $fdat -> {$name} = join ("\t", @{$fdat -> {$name}}) ;
+ }
+
+ }
1 ;
__EMBPERL__
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org