charset: common cell formatting for utf8 schema

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 15183cfb479eae12889f06cfd41d5512b3be4c62..557c66fce9cbb448da4d8df9414e9d4560261d97 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -134,6 +134,7 @@ sub range_cell {
        }
 
        $attr .= sprintf ' colspan=%d', $len unless $len == 1;
+       $attr .= $1 if $class and $class =~ s/( \w+="[^"]*")//;
        $attr .= sprintf ' class="%s"', $class if $class;
        $attr .= sprintf ' title="%s"', EscapeHTML($title) if $title;
        return "<td$attr>$name";