projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Minor changes.
[egate.git] / www / nwi.egw
diff --git a/www/nwi.egw b/www/nwi.egw
index a42ac74..c7eaecb 100644 (file)
--- a/www/nwi.egw
+++ b/www/nwi.egw
@@ -1,15 +1,12 @@
 <html>
 {
-# $Id: nwi.egw,v 1.3 1996/03/13 14:07:30 adam Exp $
+# $Id: nwi.egw,v 1.7 1996/05/22 16:50:26 adam Exp $
     source ztargets.conf
 
     set scriptQuery nwi.egw
     set scriptTarget {}
     set utilExtension nwiutil.tcl
 
-    if {[info commands saveState] == ""} {
-        source z39util.tcl
-    }
     if {![info exists debug]} {
         if {[lindex $sessionParms 1] == "1"} {
             set debug 1
@@ -17,6 +14,9 @@
             set debug 0
         }
     }
+    if {[info commands saveState] == ""} {
+        source z39util.tcl
+    }
     set html3 [lindex $sessionParms 0]
     if {[string length $html3] == 0} {
         if {![info exists env(HTTP_USER_AGENT)]} {
@@ -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
 }
 
Europgate