projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Work on WAIS protocol.
[egate.git] / www / mquery.egw
diff --git a/www/mquery.egw b/www/mquery.egw
index c205519..fa2c809 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: mquery.egw,v 1.9 1996/01/09 16:16:47 adam Exp $
+# $Id: mquery.egw,v 1.14 1996/03/12 16:30:26 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -20,12 +20,16 @@
         set setNo 1
     }
 
+    set useIcons 1
+    button-main
+    button-new-target 0
+
     html {<form action="http:} $env(SCRIPT_NAME)
     html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
 
     set phost {}
     set i 0
-    foreach t [lsort [wform target]] {
+    foreach t [lsort [egw_form target]] {
         set host [lindex $t 0]
         set base [lindex $t 1]
         if {$host != $phost} {
@@ -36,14 +40,23 @@
         }
         lappend hist($setNo,$i,database) $base
     }
+    set oSetNo [lindex $sessionParms 0]
+    if {$i == 0 && [info exists hist($oSetNo,0,host)]} {
+        for {set i 1} {$i <= $hist($oSetNo,0,host)} {incr i} {
+            set hist($setNo,$i,host) $hist($oSetNo,$i,host)
+            set hist($setNo,$i,idAuthentication) \
+                $hist($oSetNo,$i,idAuthentication)
+            set hist($setNo,$i,database) $hist($oSetNo,$i,database)
+        }
+        incr i -1
+    }
     if {$i == 0} {
         html "<h2>No targets specified</h2></body></html>"
-        wabort 1
+        egw_abort 1
     }
     set hist($setNo,0,host) $i
-}
-<h2>Input your search criteria: </h2><br>
-{
+
+    html "Input your search criteria:<br>\n"
     set fields [lindex $targets($host) 2]
     for {set no 1} {$no < 4} {incr no} {
         html {<select name="menu} $no {">} \n
@@ -61,28 +74,20 @@
         }
         html "<br>\n"
     }
-}
-<input type=submit value="Search"><input type=reset value="Reset">
-<br>
-{
-    html {Number of records to display in the result set list: }
-    html {<input type="text" name="hits" value="}
-    html 10
-    html {" size=3>}
-}
-</form>
-{
-    global useIcons
-    if {$useIcons} {
-        html {<img src="/egwgif/button-egw.gif">}
-    }    
-    html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/mtargets.egw}
-    if {$useIcons} {
-        html {"><img src="/egwgif/button-new-target.gif" border=0></a>}
-    } else {
-        html {"> New target </a>}
-    }
+    html {<input type=submit value="Search"><input type=reset value="Reset">}
+    html "<br>\n"
+    html {Display each record in <select name="format">}
+    html "<option>brief\n"
+    html "<option>medium\n"
+    html "</select> notation"
+    html { and sort by <select name="sort">}
+    html "<option>score\n"
+    html "<option>server\n"
+    html "</select><br>\n"
+
+    set useIcons 0
+    button-main
+    button-new-target 0
 }
 {
     catch maintenance
@@ -99,7 +104,7 @@
         html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database) 
         html "<br>\n"
     }
-    html "form: " [wform] " <br>\n"
+    html "form: " [egw_form] " <br>\n"
     html "target: " $host " <br>\n"
     html "setNo: " $setNo " <br>\n"
     html "nextSetNo: " $nextSetNo " <br>\n"
Europgate