where-vessels: show errorInfo in acq error

[ypp-sc-tools.db-live.git] / yarrg / CommodsWeb.pm

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index ab2a4a30a322e002135422a558eb1ecaff0b4c3e..5e120039838271ed9f5ce8377c397b49974b62a1 100644 (file)
--- 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 ($) {