X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=587e94d392dd9aac820ff5684ff9e5a41d951f31;hb=71ad5b6272d0bc6320bea6c1ec10f5e10bbfe8ef;hp=0920e0af207a2e554892ac401018ec0d586d0216;hpb=96a50ec75c6c2879756772ddd06956d69ea5a1c2;p=egate.git
diff --git a/www/search.egw b/www/search.egw
index 0920e0a..587e94d 100644
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
{
-# $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
@@ -212,6 +212,7 @@ proc buttons {setNo setMax startPos after} {
}
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]
@@ -286,8 +287,8 @@ proc buttons {setNo setMax startPos after} {
html "Debug information
\n"
html "sessionId: $sessionId
\n"
html "sessionParms: $sessionParms
\n"
- foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
- html $e {: } $env($e) {
} \n
+ foreach n [array names env] {
+ html "env($n) = " $env($n) "
\n"
}
html "form: " [wform] "
\n"
html "target: " $host "
\n"