chiark / gitweb /
Midnight has some Lime dye; Cobalt has some Navy dye
[ypp-sc-tools.db-live.git] / yarrg / CommodsWeb.pm
index ab2a4a3..5e12003 100644 (file)
@@ -52,7 +52,7 @@ BEGIN {
                      &to_json_shim &to_json_protecttags
                      &set_ctype_utf8 &webdatadir
                      &expected_error &dbw_lookup_string
-                     &printable &tr_datarow
+                     &printable &tr_datarow &escerrq
                      &prettyprint_age &meta_prettyprint_age);
     %EXPORT_TAGS = ( );
 
@@ -222,6 +222,13 @@ sub tr_datarow ($$) {
     }
 }
 
+sub escerrq ($) {
+    return '"'.CGI::escapeHTML($_[0]).'"';
+    # Prettier qotes as below are not in HTML 3.2:
+#    return '“'.CGI::escapeHTML($_[0]).'”';
+#    return '‘'.CGI::escapeHTML($_[0]).'’';
+}
+
 package CommodsWeb::ExpectedError;
 
 sub emsg ($) {