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