my $significant_nonempty= $checker->attr_exists('significant_nonempty');
</%perl>
<&| script &>
<%$p%>uri= "qtextstringcheck?format=application/json&ctype=text/xml"
my $significant_nonempty= $checker->attr_exists('significant_nonempty');
</%perl>
<&| script &>
<%$p%>uri= "qtextstringcheck?format=application/json&ctype=text/xml"
id="<% $thingstring %>" name="<% $thingstring %>"
onchange="<%$p%>Needed();" onkeyup="<%$p%>Later();"
value="<% $stringval |h %>"
id="<% $thingstring %>" name="<% $thingstring %>"
onchange="<%$p%>Needed();" onkeyup="<%$p%>Later();"
value="<% $stringval |h %>"
<%perl>
if ($significant_nonempty || length $thingstring) {
my ($emsg,$canonstring,@results)= $m->comp('qtextstringcheck',
<%perl>
if ($significant_nonempty || length $thingstring) {
my ($emsg,$canonstring,@results)= $m->comp('qtextstringcheck',