X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/68902e108bea69d11a4142a57c80e0ca1449dcbe..7f9b1647257de067fb1ca3c58ac19bae8c747141:/charset.plp?ds=sidebyside diff --git a/charset.plp b/charset.plp index d96ca45..33eb679 100644 --- a/charset.plp +++ b/charset.plp @@ -121,8 +121,18 @@ sub range_cell { $rest = $len if $len < $rest; #TODO: optimise if ($len -= $rest) { # continued on new row - $table->{$offset + $colsize*$rest} //= [$len*$colsize, "$class joinu", $name, $title]; - $name = ''; + my @next = ($len * $colsize, "$class joinu"); + if ($len > $rest) { + # minority remains + push @next, $name, $title; + $title ||= $name; + $name = ''; + } + else { + # minority on next row + push @next, '"', $title || $name; + } + $table->{$offset + $colsize*$rest} //= \@next; $class .= ' joind'; } $len = $rest;