&to_json_shim &to_json_protecttags
&set_ctype_utf8 &webdatadir
&expected_error &dbw_lookup_string
+ &printable &tr_datarow
&prettyprint_age &meta_prettyprint_age);
%EXPORT_TAGS = ( );
die $r;
}
+sub printable ($) { # printable($m) where $m is the Mason request object
+ my ($m) = @_;
+ my $a= scalar $m->caller_args(-1);
+ foreach my $t (qw(pdf ps html pdf2 ps2)) {
+ return $t if $a->{"printable_$t"};
+ }
+ return 0;
+}
+
+sub tr_datarow ($$) {
+ my ($m, $lineno) = @_;
+ $lineno &= 1;
+ if (!printable($m)) {
+ $m->print("<tr class=\"datarow$lineno\">");
+ } else {
+ $m->print("<tr bgcolor=\"".
+ ($lineno ? "#ffffff" : "#e3e3e3" ).
+ "\">");
+ }
+}
+
package CommodsWeb::ExpectedError;
sub emsg ($) {