Mailing List Archive

Author: richter
Date: Mon Apr 23 09:17:44 2012
New Revision: 1329141

URL: http://svn.apache.org/viewvc?rev=1329141&view=rev
Log:
Dynamic Radio Boxes

Modified:
perl/embperl/trunk/Embperl/Form/Control/radio.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/radio.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/radio.pm?rev=1329141&r1=1329140&r2=1329141&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/radio.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/radio.pm Mon Apr 23 09:17:44 2012
@@ -48,7 +48,7 @@ __EMBPERL__
my $max = @$values ;
my $set = !defined ($fdat{$name})?1:0 ;
my $nsprefix = $self -> form -> {jsnamespace} ;
-
+ my $ctrlid = ($req -> {uuid} . '_' . $name) ;
my $val ;
my $i = 0 ;

@@ -72,9 +72,10 @@ $]
[$ foreach $val (@$values) $][- $x = ($val =~ /$filter/i) -]
[.- $fdat{$name} = $val, $set = 0 if ($set) ;
$fdat{$name} = $val if ($ignorecase && lc($fdat{$name}) eq lc($val)) ; -]
- [+ do { local $escmode = 0 ; $tr }+]<td><input type="radio" name="[+ $self -> {force_name} || $self -> {name} +]" [.+ do { local $escmode = 0 ; $self -> get_std_control_attr($req) } +] value="[+ $val +]" id="[+ "$name-_-$val" +]"
+ [+ do { local $escmode = 0 ; $tr }+]<td><input type="radio" name="[+ $self -> {force_name} || $self -> {name} +]" [.+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, "$ctlid-_-$val") } +] value="[+ $val +]"
[$if ($self -> {sublines} || $self -> {subobjects}) $] OnClick="[+ $nsprefix +]show_radio_checked(document, this,[+ $i +],[+ $max +])" [$endif$]
></td><td>[+ $options ->[$i] || $val +]</td>[+ do { local $escmode = 0 ; $trend }+]
+ [$if ($self -> {trigger}) $]<script >$('#[+ "$ctlid-_-$val" +]').ef_radio ()</script>[$endif$]
[* $i++ ; *]
[$endforeach$]
[+ do { local $escmode = 0 ; $trendglob }+]</table>



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org