End of response marker in response from wsh/wproto to wcgi.

[egate.git] / www / search.egw
diff --git a/www/search.egw b/www/search.egw

index 0b2c02c..bfb64bd 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: search.egw,v 1.6 1995/11/01 16:15:45 adam Exp $
+# $Id: search.egw,v 1.7 1995/11/02 16:35:36 adam Exp $
  
  proc search-response {sno} {
      global sessionWait
@@ -231,12 +231,15 @@ proc research {setNo oldHost piggy} {
      set oldHost $hist($setNo,host)
  
      if {[wform menu1] == ""} {
+        html "state 1<br>\n"
          set setNo [lindex $sessionParms 0]
      } else {
+        html "state 2<br>\n"
          if {![info exists hist($nextSetNo,host)]} {
             set hist($nextSetNo,host) $oldHost
          }
          set setNo $nextSetNo
+        html "using host " $hist($setNo,host) " <br\n"
          incr nextSetNo
  
          set hist($setNo,query) [build-query]
@@ -343,7 +346,7 @@ proc research {setNo oldHost piggy} {
      html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
      html / $sessionId {/targets.egw"> New target </a>} " | \n"
      html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
-    html / $sessionId {/query.egw/} $host {"> New query </a>}
+    html / $sessionId {/query.egw/} $host + $setNo {"> New query </a>}
  }
  </body>
  </html>