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