{ # $Id: search.egw,v 1.34 1996/03/07 12:46:09 adam Exp $ proc start-scan {scanNo targetNo cache dir initSet} { global sessionId global sessionParms global sessionWait global setNo global hist global targets global nextSetNo global env global useIcons global debug set host $hist($setNo,$targetNo,host) html "
\n" display-scan $setNo $scanNo 0 html "
\n"
button-europagate
html {}
if {$useIcons} {
html {}
} else {
html {Previous Terms | }
}
html {}
if {$useIcons} {
html {
}
} else {
html {Next Terms | }
}
html {}
button-new-query 0 $setNo
if {!$debug} return
html "