X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=bfb64bd266767041c013b2634210a35754c0f41b;hb=150d836eb46d0dde8fedeb77fc7fd4ef6eafba4f;hp=0b2c02c10b72536c10c885b307643f11cf24caaa;hpb=949f8c4efedfe6d191264853690c84f527e1790b;p=egate.git
diff --git a/www/search.egw b/www/search.egw
index 0b2c02c..bfb64bd 100644
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
{
-# $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
\n"
set setNo [lindex $sessionParms 0]
} else {
+ html "state 2
\n"
if {![info exists hist($nextSetNo,host)]} {
set hist($nextSetNo,host) $oldHost
}
set setNo $nextSetNo
+ html "using host " $hist($setNo,host) "
New target } " | \n"
html { New query }
+ html / $sessionId {/query.egw/} $host + $setNo {"> New query }
}