chiark / gitweb /
Properly quote various error messages
[ypp-sc-tools.main.git] / yarrg / CommodsWeb.pm
index ab2a4a3..461a8ad 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,11 @@ sub tr_datarow ($$) {
     }
 }
 
+sub escerrq ($) {
+    return '“'.CGI::escapeHTML($_[0]).'”';
+#    return '‘'.CGI::escapeHTML($_[0]).'’';
+}
+
 package CommodsWeb::ExpectedError;
 
 sub emsg ($) {