Work on WAIS protocol.
[egate.git] / www / search.egw
index 5c90170..3e66629 100644 (file)
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: search.egw,v 1.36 1996/03/11 17:40:48 adam Exp $
+# $Id: search.egw,v 1.37 1996/03/12 16:30:28 adam Exp $
 
 proc start-scan {scanNo targetNo cache dir initSet} {
     global sessionId
@@ -21,7 +21,7 @@ proc start-scan {scanNo targetNo cache dir initSet} {
     html "</head><body>\n"
 
     set useIcons 1
-    button-europagate
+    button-main
 
     if {$dir == "b"} {
         set lines 20
@@ -120,7 +120,7 @@ proc start-scan {scanNo targetNo cache dir initSet} {
 
     set useIcons 0
     if {$hist($setNo,$scanNo,scanTerm) == ""} {
-        button-europagate
+        button-main
         button-new-query 0 $setNo        
         return
     }
@@ -129,7 +129,7 @@ proc start-scan {scanNo targetNo cache dir initSet} {
     display-scan $setNo $scanNo 0
     html "<p>\n"
 
-    button-europagate
+    button-main
 
     html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/search.egw/} $setNo + $targetNo +