{ # $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 "