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: [email protected]
For additional commands, e-mail: [email protected]
