X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2FCommodsWeb.pm;h=9a608365d88ffb31f7f6059731770e7ea7aa2f30;hp=5e120039838271ed9f5ce8377c397b49974b62a1;hb=4adafa149280c9ac2972582c05ae7859f3fddddf;hpb=55776234257e165e887a1695d92cd569a63a13e7

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index 5e12003..9a60836 100644
--- 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
-		      &printable &tr_datarow &escerrq
+		      &printable &tr_datarow &tr_datarow_s &escerrq
 		      &prettyprint_age &meta_prettyprint_age);
     %EXPORT_TAGS = ( );
 
@@ -210,18 +210,23 @@ sub printable ($) { # printable($m)  where $m is the Mason request object
     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: