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 $p=new_que(); |
my $p=new_que(); |
699 |
for (my $i=1; $i<=$nr; $i++) { |
for (my $i=1; $i<=$nr; $i++) { |
700 |
$body.="<td>"; |
$body.="<td>"; |
701 |
$body.=$i if ($shownumbers eq "before"); |
$body.=$i if ($shownumbers eq "before"); |
702 |
|
if ($showlabels eq "before" && $attref->{"label_$i"}) { |
703 |
|
$body.=x($attref->{"label_$i"}); |
704 |
|
} |
705 |
$body.="<input type=radio name=$p value=$i>"; |
$body.="<input type=radio name=$p value=$i>"; |
706 |
$body.=$i if ($shownumbers eq "after"); |
$body.=$i if ($shownumbers eq "after"); |
707 |
$body.="</td> "; |
$body.="</td> "; |