<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
html "</head><body>\n"
set useIcons 1
- button-europagate
+ button-main
if {$dir == "b"} {
set lines 20
set useIcons 0
if {$hist($setNo,$scanNo,scanTerm) == ""} {
- button-europagate
+ button-main
button-new-query 0 $setNo
return
}
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 +