| 694 |
my $nr=$attref->{nr} || die "need <radiobuttons_tab nr=\"999\"> for number of buttons"; |
my $nr=$attref->{nr} || die "need <radiobuttons_tab nr=\"999\"> for number of buttons"; |
| 695 |
# shownumbers="before|after" |
# shownumbers="before|after" |
| 696 |
my $shownumbers=lc(x($attref->{shownumbers})) || 'no'; |
my $shownumbers=lc(x($attref->{shownumbers})) || 'no'; |
| 697 |
|
my $showlabels=lc(x($attref->{showlabels})) || 'no'; |
| 698 |
|
my $class=lc(x($attref->{class})) || ''; |
| 699 |
|
$class=' class="'.$class.'"' if ($class); |
| 700 |
my $p=new_que(); |
my $p=new_que(); |
| 701 |
for (my $i=1; $i<=$nr; $i++) { |
for (my $i=1; $i<=$nr; $i++) { |
| 702 |
$body.="<td>"; |
$body.="<td$class>"; |
| 703 |
$body.=$i if ($shownumbers eq "before"); |
$body.=$i if ($shownumbers eq "before"); |
| 704 |
|
if ($showlabels eq "before" && $attref->{"label_$i"}) { |
| 705 |
|
$body.=x($attref->{"label_$i"}); |
| 706 |
|
} |
| 707 |
$body.="<input type=radio name=$p value=$i>"; |
$body.="<input type=radio name=$p value=$i>"; |
| 708 |
$body.=$i if ($shownumbers eq "after"); |
$body.=$i if ($shownumbers eq "after"); |
| 709 |
$body.="</td> "; |
$body.="</td> "; |
Parent Directory
| 
Revision Log
| 
Patch