projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Minor changes.
[egate.git] / www / search.egw
diff --git a/www/search.egw b/www/search.egw
index ede4eed..d6d8717 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: search.egw,v 1.27 1996/01/12 10:03:19 adam Exp $
+# $Id: search.egw,v 1.29 1996/01/12 13:39:22 adam Exp $
 
 proc start-scan {scanNo cache dir initSet} {
     global sessionId
@@ -72,8 +72,12 @@ proc start-scan {scanNo cache dir initSet} {
     html { size=35> }
     html {<input type=submit name=submit value="Scan">}
     html "\n"
-    html {</form>}
+    html {</form><br>}
+
+    button-europagate
+
     if {$hist($setNo,$scanNo,scanTerm) == ""} {
+        button-new-query 0 $setNo
         wabort
         return
     }
@@ -91,7 +95,27 @@ proc start-scan {scanNo cache dir initSet} {
         return
     }
 
-    html "<br><p>\n"
+    html {<a href="http:} $env(SCRIPT_NAME)
+    html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b {">}
+    if {$useIcons} {
+        html {<img src="/egwgif/button-previous-terms.gif" }
+        html {alt="Next Terms" border=0></a>}
+    } else {
+        html {Previous Terms</a> | }
+    }
+
+    html {<a href="http:} $env(SCRIPT_NAME)
+    html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f {">}
+    if {$useIcons} {
+        html {<img src="/egwgif/button-next-terms.gif" }
+        html {alt="Next Terms" border=0></a>}
+    } else {
+        html {Next Terms</a> | }
+    }
+    html {</a>}
+    button-new-query 0 $setNo
+
+    html "<p>\n"
     display-scan $setNo $scanNo 0
     html "<p>\n"
 
@@ -235,7 +259,7 @@ proc buttons {setNo setMax startPos after} {
             set termPlusAttr [build-scan $hist($setNo,host) $i]
             set hist($setNo,$scanNo,scanTerm) [lindex $termPlusAttr 0]
             set hist($setNo,scanAttr) [lindex $termPlusAttr 1]
-            start-scan $scanNo 0 {} $setNo
+            start-scan $scanNo 0 {} {}
             html "</body></html>\n"
             wabort
             return
@@ -250,6 +274,13 @@ proc buttons {setNo setMax startPos after} {
         }
         set hist($setNo,query) $query
     } else {
+        if {[lindex $sessionParms 1] == "scan"} {
+            set scanNo 1000
+            set hist($setNo,$scanNo,scanTerm) {}
+            start-scan $scanNo 0 {} {}
+            html "</body></html>\n"
+            wabort
+        }
         if {![info exists hist($setNo,scan)]} return
         if {$hist($setNo,scan) > 0} {
             set scanNo [lindex $sessionParms 1]
Europgate