git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: replace newline output by say()
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index b0d3b834b477f366d3cc534120fc59927bb123f3..85b652bd89889c6c1586882571aea2ec3308cf16 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-89,9
+89,9
@@
my @request = map {
}
}
else {
}
}
else {
-
print "<p>Encoding $input unknown</p>\n
";
+
say "<p class=error>Encoding <q>$input</q> unknown</p>
";
}
}
-
\%row
;
+
$row{set} ? \%row : ()
;
}
else {
();
}
else {
();
@@
-123,7
+123,7
@@
sub range_cell {
$cols = $len if $len < $cols; #TODO: optimise
if ($len -= $cols) {
# continued on new row
$cols = $len if $len < $cols; #TODO: optimise
if ($len -= $cols) {
# continued on new row
- $table->{$offset + $nibsize*$cols} = [$len*$nibsize, "$class joinu", $name, $title];
+ $table->{$offset + $nibsize*$cols}
//
= [$len*$nibsize, "$class joinu", $name, $title];
$name = '';
$class .= ' joind';
}
$name = '';
$class .= ' joind';
}
@@
-133,7
+133,7
@@
sub range_cell {
# multiple full rows
if ($len -= $rows << 4) {
# partial row remains
# multiple full rows
if ($len -= $rows << 4) {
# partial row remains
- $table->{$offset + $nibsize*$rows * 16} = [$len*$nibsize, "$class joinu", '', $title];
+ $table->{$offset + $nibsize*$rows * 16}
//
= [$len*$nibsize, "$class joinu", '', $title];
$class .= ' joind';
}
$attr .= sprintf ' rowspan=%d', $rows;
$class .= ' joind';
}
$attr .= sprintf ' rowspan=%d', $rows;
@@
-182,7
+182,7
@@
for my $row (@request) {
}
print "\n";
}
}
print "\n";
}
-
print "</table></div>\n"
;
+
say '</table></div>'
;
}
:>
}
:>