Further refactoring to make query_commod small

[ypp-sc-tools.web-live.git] / yarrg / web / qtextstring

diff --git a/yarrg/web/qtextstring b/yarrg/web/qtextstring
index 45f2e32a75c53f9b404cc93db52c858d84d8b99b..3b0bd6b72e65b5f942ff1eff70b0786d9901c903 100644 (file)
--- a/yarrg/web/qtextstring
+++ b/yarrg/web/qtextstring
@@ -37,6 +37,8 @@
 </%doc>
 <%args>
 $thingstring
+$emsgstore
+$perresult
 $qa => $m->caller_args(1)->{'qa'}
 </%args>
 <%perl>
@@ -94,3 +96,19 @@ window.onload= ts_Needed;
  >
 <br>
 <div id="ts_results">&nbsp;</div><br>
+
+<%perl>
+if (length $thingstring) {
+       my ($emsg,$canonstring,$results)= $m->comp('qtextstringcheck',
+               what => $thingstring,
+               ocean => $qa->{Ocean},
+               string => $stringval,
+               format => 'return'
+       );
+       $$emsgstore= $emsg;
+
+       foreach my $entry (@$results) {
+               $perresult->(@$entry);
+       }
+}
+</%perl>