Trying Hunter but it failed

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

diff --git a/yarrg/web/qtextstring b/yarrg/web/qtextstring
index 45f2e32a75c53f9b404cc93db52c858d84d8b99b..84564df55205125a2bbad3deac5611b256167582 100644 (file)
--- a/yarrg/web/qtextstring
+++ b/yarrg/web/qtextstring
@@ -36,8 +36,11 @@
 
 </%doc>
 <%args>
-$thingstring
 $qa => $m->caller_args(1)->{'qa'}
+$dbh
+$thingstring
+$emsgstore
+$perresult
 </%args>
 <%perl>
 my $stringval= $qa->{$thingstring};
@@ -84,7 +87,7 @@ function ts_Ready() {
   ts_request= false;
   ts_Request();
 }
-window.onload= ts_Needed;
+register_onload(ts_Needed);
 </&script>
 
 <input type="text" <% $m->content %>
@@ -94,3 +97,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>