projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Europagate buttons.
[egate.git] / www / search.egw
diff --git a/www/search.egw b/www/search.egw
index a249f6c..c25bfb9 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,13 +1,14 @@
 <html>
 {
-# $Id: search.egw,v 1.17 1995/11/14 16:01:51 adam Exp $
+# $Id: search.egw,v 1.18 1995/12/20 16:31:31 adam Exp $
 
 proc buttons {setNo setMax startPos after} {
     global sessionId
+    global useIcons
     global env
     global hist
 
-    if {$after && $setMax < [z39.$setNo resultCount]} {
+    if {!$useIcons && $after && $setMax < [z39.$setNo resultCount]} {
         html "<p>\n"
         html "<center>\n"
         html {<a href="http:} $env(SCRIPT_NAME)
@@ -18,27 +19,47 @@ proc buttons {setNo setMax startPos after} {
     }
 
     html "<p>\n"
+    if {$useIcons} {
+        html {<img src="/gif/button-egw.gif">}
+    }
     if {$setMax < [z39.$setNo resultCount]} {
         html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
         html + [expr $setMax + $hist($setNo,maxPresent)]
-        html {">Next records</a>} " | \n"
+        if {$useIcons} {
+            html {"><img src="/gif/button-next-records.gif" border=0></a>}
+        } else {
+            html {">Next records</a>} " | \n"
+        }
     }
     if {$startPos != "" && $startPos != "1"} {
         html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo 
         html + [expr $startPos - $hist($setNo,maxPresent)]
         html + [expr $startPos - 1]
-        html {">Previous records</a>} " | \n"
+        if {$useIcons} {
+            html {"><img src="/gif/button-previous-records.gif" border=0></a>}
+        } else {
+            html {">Previous records</a>} " | \n"
+        }
     }
     html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo 
-    html {">New query</a>} " | \n"
+    if {$useIcons} {
+        html {"><img src="/gif/button-new-query.gif" border=0></a>}
+    } else {
+        html {">New query</a>} " | \n"
+    }
 
     html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/targets.egw">New target</a>} "<p>\n"
-
-    if {!$after && $startPos != "" && $startPos != "1"} {
+    html / $sessionId {/targets.egw}
+    if {$useIcons} {
+        html {"><img src="/gif/button-new-target.gif" border=0></a>}
+    } else {
+        html {">New target</a>}
+    }
+    html "<p>\n"
+    if {!$useIcons && !$after && $startPos != "" && $startPos != "1"} {
         html "<center>\n"
         html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo 
@@ -63,7 +84,6 @@ proc buttons {setNo setMax startPos after} {
         set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
         set hist($nextSetNo,host) $hist($setNo,host)
         set setNo $nextSetNo
-        html "using host " $hist($setNo,host) " <br\n"
 
         set query [build-query $hist($setNo,host)]
         if {"x$query" == "x"} {
Europgate