Handles method GET.

[egate.git] / www / search.egw
diff --git a/www/search.egw b/www/search.egw

index 0920e0a..587e94d 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
  <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
@@ -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 "<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"