X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=www%2Fnwi.egw;h=c7eaecbdf786a46ac30cca92c5d7fc0cd76f2b6d;hb=2d6edbdef65394561fec868309e31a5b3c3196ba;hp=75209c3a41222b0e52985801ca85eb33a0548abe;hpb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;p=egate.git

diff --git a/www/nwi.egw b/www/nwi.egw
index 75209c3..c7eaecb 100644
--- a/www/nwi.egw
+++ b/www/nwi.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: nwi.egw,v 1.4 1996/03/14 11:50:46 adam Exp $
+# $Id: nwi.egw,v 1.7 1996/05/22 16:50:26 adam Exp $
     source ztargets.conf
 
     set scriptQuery nwi.egw
@@ -53,6 +53,7 @@
     set curEntry {}
 
     set initSet 0
+
     catch {
         set initSet [lindex $sessionParms 0]
         if {$initSet < 0} {
@@ -79,12 +80,11 @@
 
     html {<dt><b>and search the following servers</b><dd>}
 
-    foreach t {
-            {nwi.ub2.lu.se/sverige}
-            {nwi.ub2.lu.se/new_nor_lib} 
-            {localhost:9999/test}
-            {localhost:210/Default}
-        } {
+    set hosts {
+            {mars.dtv.dk:9999/Default} 
+            {nwi.ub2.lu.se:2121/sverige}
+    }
+    foreach t $hosts {
         html {<input type="checkbox" name="host" }
         if {[info exists curTargets]} {
             if {[lsearch -exact $curTargets $t] != -1} {
@@ -113,9 +113,67 @@
     }
     html "</select></b><br></dl>\n"
 
+    html {<input type=submit value="Search"><input type=reset value="Reset">}
+
+    html "\n<br><p><hr>\n"
+
+    if {0} {
+    html {<form action="http:} $env(SCRIPT_NAME)
+    html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
+    }
+
+    html {<b>Advanced search</b><br>}
+
+    set host [lindex $hosts 0]
+    set fields [lindex $targets($host) 2]
+    for {set no 2} {$no < 6} {incr no} {
+
+        html {<select name="menu} $no {">} \n
+        set template {}
+        if {$initSet} {
+            set template [join $hist($initSet,form,menu$no)]
+        }
+        if {[string length $template] > 0} {
+            html {<option> } $template "\n"
+        }
+        foreach f $fields {
+            set name [lindex $f 0]
+            if {$template == $name} continue
+            html {<option> } $name \n
+        }
+        html "</select>\n"
+
+        html {<input type="text" name="entry} $no {" size=35 value="}
+
+        if {$initSet} {
+            if {[info exists hist($initSet,form,entry$no)]} {
+                html [join $hist($initSet,form,entry$no) " "]
+            }
+        }
+        html {">} \n
+        if {$no < 5} {
+            html {<select name="logic} $no {">} \n
+            set template {}
+            if {$initSet} {
+                set template [join $hist($initSet,form,logic$no) " "]
+            }
+            if {[string length $template] > 0} {
+                html "<option> " $template \n
+            }
+            foreach op {And Or {And not}} {
+                if {$template == $op} continue
+                html "<option> " [join $op " "] \n
+            }
+            html "</select>\n"
+        }
+        html "<br>\n"
+    }
+    unset hosts
+    html "</form><br>\n"
     set useIcons 0
     button-main
 
+
     catch maintenance
 }
 
