{ # $Id: search.egw,v 1.39 1996/03/14 11:50:48 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-main html {} if {$useIcons} { html {} } else { html {Previous Terms | } } html {} if {$useIcons} { html {} } else { html {Next Terms | } } html {} button-new-query $setNo if {!$debug} return html "