X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2FCommodsWeb.pm;h=5e120039838271ed9f5ce8377c397b49974b62a1;hp=ab2a4a30a322e002135422a558eb1ecaff0b4c3e;hb=5f3c445b5b9eda482c8098c115a9b5282e55f001;hpb=6302552bfa5844eddb7c26386c9995733f0a5174

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index ab2a4a3..5e12003 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
+		      &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 ($) {