&to_json_shim &to_json_protecttags
&set_ctype_utf8 &webdatadir
&expected_error &dbw_lookup_string
- &printable &tr_datarow &escerrq
+ &printable &tr_datarow &tr_datarow_s &escerrq
&prettyprint_age &meta_prettyprint_age);
%EXPORT_TAGS = ( );
return 0;
}
-sub tr_datarow ($$) {
+sub tr_datarow_s ($$) {
my ($m, $lineno) = @_;
$lineno &= 1;
if (!printable($m)) {
- $m->print("<tr class=\"datarow$lineno\">");
+ return "<tr class=\"datarow$lineno\">";
} else {
- $m->print("<tr bgcolor=\"".
- ($lineno ? "#ffffff" : "#e3e3e3" ).
- "\">");
+ return "<tr bgcolor=\"".
+ ($lineno ? "#ffffff" : "#e3e3e3" ).
+ "\">";
}
}
+sub tr_datarow ($$) {
+ my ($m, $lineno) = @_;
+ $m->print(tr_datarow_s($m, $lineno));
+}
+
sub escerrq ($) {
return '"'.CGI::escapeHTML($_[0]).'"';
# Prettier qotes as below are not in HTML 3.2: