{ # $Id: search.egw,v 1.41 2001/02/26 14:32:36 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 if {!$useIcons} { html "\n | " } html {} if {$useIcons} { html {} } else { html {Previous Terms} } if {!$useIcons} { html "\n | " } html {} if {$useIcons} { html {} } else { html {Next Terms} } html {} button-new-query $setNo if {!$debug} return html "