chiark / gitweb /
git URLs for various source trees
[ypp-sc-tools.db-test.git] / yarrg / CommodsWeb.pm
index ab2a4a3..9a60836 100644 (file)
@@ -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
+                     &printable &tr_datarow &tr_datarow_s &escerrq
                      &prettyprint_age &meta_prettyprint_age);
     %EXPORT_TAGS = ( );
 
                      &prettyprint_age &meta_prettyprint_age);
     %EXPORT_TAGS = ( );
 
@@ -210,18 +210,30 @@ 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:
+#    return '&#8220;'.CGI::escapeHTML($_[0]).'&#8221;';
+#    return '&#8216;'.CGI::escapeHTML($_[0]).'&#8217;';
+}
+
 package CommodsWeb::ExpectedError;
 
 sub emsg ($) {
 package CommodsWeb::ExpectedError;
 
 sub emsg ($) {