Trade plan; wip data age

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

diff --git a/yarrg/web/qtextstring b/yarrg/web/qtextstring
index 82c29dcda728e030ef4587fca3dc0a086b9bce87..16aa372bd6794caad89992d6d7b2f2a976d519c2 100644 (file)
--- a/yarrg/web/qtextstring
+++ b/yarrg/web/qtextstring
@@ -36,17 +36,17 @@
 
 </%doc>
 <%args>
-$thingstring
 $qa => $m->caller_args(1)->{'qa'}
+$dbh
+$thingstring
+$emsgstore
+$perresult
 </%args>
 <%perl>
 my $stringval= $qa->{$thingstring};
 $stringval='' if !defined $stringval;
 </%perl>
 
-Enter route (islands, or archipelagoes, separated by |s or commas;
- abbreviations are OK):<br>
-
 <&| script &>
 ts_uri= "qtextstringcheck?format=application/json&ctype=text/xml"
                + "&what=<% $thingstring %>"
@@ -97,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>