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-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org