+<div id="<%$p%>results"> </div><br>
+
+<%perl>
+if (length $thingstring) {
+ my ($emsg,$canonstring,$results)= $m->comp('qtextstringcheck',
+ what => $thingstring,
+ ocean => $qa->{Ocean},
+ string => $stringval,
+ format => 'return'
+ );
+ if (defined $emsg and length $emsg) {
+ $$emsgstore='' unless defined $$emsgstore;
+ $$emsgstore .= $emsg. ' ';
+ }
+
+ foreach my $entry (@$results) {
+#print STDERR "qts entry perresult \`@$entry'\n";
+ $perresult->(@$entry);
+ }
+}
+</%perl>