chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix up search too long error message - really fix up
[ypp-sc-tools.main.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
&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 = ( );
&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 ($) {
package CommodsWeb::ExpectedError;
sub emsg ($) {