chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use invented icons for unknown ship classes
[ypp-sc-tools.db-test.git]
/
yarrg
/
CommodsWeb.pm
diff --git
a/yarrg/CommodsWeb.pm
b/yarrg/CommodsWeb.pm
index 5e120039838271ed9f5ce8377c397b49974b62a1..9a608365d88ffb31f7f6059731770e7ea7aa2f30 100644
(file)
--- a/
yarrg/CommodsWeb.pm
+++ b/
yarrg/CommodsWeb.pm
@@
-52,7
+52,7
@@
BEGIN {
&to_json_shim &to_json_protecttags
&set_ctype_utf8 &webdatadir
&expected_error &dbw_lookup_string
&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 = ( );
&prettyprint_age &meta_prettyprint_age);
%EXPORT_TAGS = ( );
@@
-210,18
+210,23
@@
sub printable ($) { # printable($m) where $m is the Mason request object
return 0;
}
return 0;
}
-sub tr_datarow ($$) {
+sub tr_datarow
_s
($$) {
my ($m, $lineno) = @_;
$lineno &= 1;
if (!printable($m)) {
my ($m, $lineno) = @_;
$lineno &= 1;
if (!printable($m)) {
-
$m->print("<tr class=\"datarow$lineno\">")
;
+
return "<tr class=\"datarow$lineno\">"
;
} else {
} 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:
sub escerrq ($) {
return '"'.CGI::escapeHTML($_[0]).'"';
# Prettier qotes as below are not in HTML 3.2: