X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2FCommodsWeb.pm;fp=yarrg%2FCommodsWeb.pm;h=461a8ad49332da3d232121822012e0002ecb00dc;hb=ad29b01fe6470a4b3bb108a8f485657927175e24;hp=ab2a4a30a322e002135422a558eb1ecaff0b4c3e;hpb=eb4dd353926d8d5f38ea442ee172ce0b2bb5925e;p=ypp-sc-tools.main.git

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index ab2a4a3..461a8ad 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,11 @@ sub tr_datarow ($$) {
     }
 }
 
+sub escerrq ($) {
+    return '“'.CGI::escapeHTML($_[0]).'”';
+#    return '‘'.CGI::escapeHTML($_[0]).'’';
+}
+
 package CommodsWeb::ExpectedError;
 
 sub emsg ($) {