<html>
{
-# $Id: search.egw,v 1.24 1996/01/05 16:35:01 adam Exp $
+# $Id: search.egw,v 1.25 1996/01/08 08:42:17 adam Exp $
proc start-scan {scanNo cache dir} {
global sessionId
}
set hist($setNo,query) $query
} else {
+ if {![info exists hist($setNo,scan)]} return
if {$hist($setNo,scan) > 0} {
set scanNo [lindex $sessionParms 1]
set dir [lindex $sessionParms 2]
html "<h3>Debug information</h3>\n"
html "sessionId: $sessionId <br>\n"
html "sessionParms: $sessionParms <br>\n"
- foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
- html $e {: } $env($e) {<br>} \n
+ foreach n [array names env] {
+ html "env($n) = " $env($n) " <br>\n"
}
html "form: " [wform] " <br>\n"
html "target: " $host " <br>\n"