my ($len, $class, $name, $title) = @{$def};
my $attr = '';
my ($len, $class, $name, $title) = @{$def};
my $attr = '';
- $table->{$offset + $cols} = [$len, "$class joinu", $name, $title];
+ $table->{$offset + $nibsize*$cols} = [$len*$nibsize, "$class joinu", $name, $title];
- $table->{$offset + $rows * 16} = [$len, "$class joinu", '', $title];
+ $table->{$offset + $nibsize*$rows * 16} = [$len*$nibsize, "$class joinu", '', $title];
$attr .= sprintf ' class="%s"', $class if $class;
$attr .= sprintf ' title="%s"', EscapeHTML($title) if $title;
return "<td$attr>$name";
$attr .= sprintf ' class="%s"', $class if $class;
$attr .= sprintf ' title="%s"', EscapeHTML($title) if $title;
return "<td$attr>$name";