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'; |
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"}) { |
if ($showlabels eq "before" && $attref->{"label_$i"}) { |
705 |
$body.=x($attref->{"label_$i"}); |
$body.=x($attref->{"label_$i"}); |