Author: richter
Date: Thu Aug 9 07:25:17 2012
New Revision: 1371057
URL: http://svn.apache.org/viewvc?rev=1371057&view=rev
Log:
Embperl::Form: checkboxes
Modified:
perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm
perl/embperl/trunk/Embperl/Form/Control/select.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkbox.pm?rev=1371057&r1=1371056&r2=1371057&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/checkbox.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/checkbox.pm Thu Aug 9 07:25:17 2012
@@ -91,7 +91,6 @@ __EMBPERL__
push @{$self -> form -> {fields2empty}}, $name ;
$]
<input type="checkbox" name="[+ $ctlname +]" [+ do { local $escmode = 0 ;
$ctlattrs } +] value="[+ $val +]"
-[$if ($self -> {sublines} || $self -> {subobjects}) $] OnClick="[+ $nsprefix
+]show_checked(document, this)" [$endif$]
>[$if ($self -> {trigger}) $]<script >$('#[+ $ctlid +]').ef_checkbox
>()</script>[$endif$]
[$endsub$]
Modified: perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm?rev=1371057&r1=1371056&r2=1371057&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm Thu Aug 9 07:25:17
2012
@@ -71,6 +71,35 @@ __EMBPERL__
[$ sub show_control ($self, $req, $filter)
+ my $name = $self -> {name} ;
+ $filter ||= $self -> {filter} ;
+ my $val ;
+ my $i = 0 ;
+ my ($values, $options) = $self -> get_all_values ($req) ;
+ my ($ctlattrs, $ctlid, $ctlname) = $self -> get_std_control_attr($req) ;
+ my $tab = $self -> {tab} ;
+
+$]
+[$if $tab $]<[# #]table>[$ endif $]
+[* $i = 0 ; *]
+[$ foreach $val (@$values) $]
+ [$if !defined ($filter) || ($val =~ /$filter/i) $]
+ [$ if $tab $][$ if $colcnt == 0 $]<[# #]tr>[- $colcnt = $tab
-][$endif$]<td>[$endif$]
+ <input type="checkbox" name="[+ $name +]" value="[+ $val +]" [+ do { local
$escmode = 0 ; $ctlattrs } +]>
+ [$ if $tab $]</td><td>[$endif$]
+ [+ $options ->[$i] || $val +]
+ [- $vert = $self -> {vert} -][$while $vert-- > 0 $]<br/>[$endwhile$]
+ [$ if $tab $]</td>[$ if $colcnt-- < 1 $]<[# #]/tr>[$endif$][$endif$]
+ [$endif$]
+ [* $i++ ; *]
+[$endforeach$]
+[$if ($self -> {trigger}) $]<script >$('#[+ $ctlid +]').ef_checkbox
()</script>[$endif$]
+[$if $tab $]<[# #]/table>[$ endif $]
+[$endsub$]
+
+
+[$ sub xxshow_control ($self, $req, $filter)
+
my ($values, $options) = $self -> get_values ($req) ;
my $name = $self -> {name} ;
$filter ||= $self -> {filter} ;
Modified: perl/embperl/trunk/Embperl/Form/Control/select.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/select.pm?rev=1371057&r1=1371056&r2=1371057&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/select.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/select.pm Thu Aug 9 07:25:17 2012
@@ -54,7 +54,6 @@ __EMBPERL__
$]
<select name="[+ $ctlname +]" [+ $self->{multiple}?'multiple':''+] [+ do {
local $escmode = 0 ; $ctlattrs } +]
-[$if ($self -> {sublines} || $self -> {subobjects}) $] OnChange="[+ $nsprefix
+]show_selected(document, this)" [$endif$]
[$if ($self -> {rows}) $] size="[+ $self->{rows} +]" [$endif$]
>
[* $i = 0 ; *]
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
