X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fqtextstringcheck;h=0a75f8e9b6ae71be9f50117c542733c9ce71e787;hp=9dce8287e208d8213418dd6432e49898c998a74a;hb=b14effcf3ea7900eb4198f6e50112da751f29add;hpb=872e647cac241531e4599c8b8b330d8772020253

diff --git a/yarrg/web/qtextstringcheck b/yarrg/web/qtextstringcheck
index 9dce828..0a75f8e 100755
--- a/yarrg/web/qtextstringcheck
+++ b/yarrg/web/qtextstringcheck
@@ -65,7 +65,7 @@ my $mydbh;
 $dbh ||= ($mydbh= dbw_connect($ocean));
 
 my $debugf= !$debug ? sub { } : sub {
-    print "@_\n";
+    print escapeHTML("@_")."\n";
 };
 
 $debugf->("QTSC STRING '$string'");
@@ -105,11 +105,12 @@ if ($chk->method_exists('execute')) {
 			$sth, $sqlstmt_nqs,
 			$chk->attr_exists('abbrev_initials'),
 			$chk->attr('maxambig'),
-			$chk->scall_method("nomatch", spec => $each),
+			$chk->scall_method("nomatch", specq => escerrq($each)),
 			$chk->scall_method("manyambig"),
 			sub {
 				$chk->scall_method("ambiguous",
-					spec => $each, couldbe => $_[1])
+					specq => escerrq($each),
+					couldbe => $_[1])
 			});
 		if (defined $temsg) {
 			$emsg= $temsg;