projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5609701)
Scan work.
authorAdam Dickmeiss <adam@indexdata.dk>
Fri, 12 Jan 1996 13:39:22 +0000 (13:39 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Fri, 12 Jan 1996 13:39:22 +0000 (13:39 +0000)
www/search.egw patch | blob | history

diff --git a/www/search.egw b/www/search.egw
index 670facd..d6d8717 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: search.egw,v 1.28 1996/01/12 13:08:30 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"
 
Europgate