Work on scan.

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

index ede4eed..670facd 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: search.egw,v 1.27 1996/01/12 10:03:19 adam Exp $
+# $Id: search.egw,v 1.28 1996/01/12 13:08:30 adam Exp $
  
  proc start-scan {scanNo cache dir initSet} {
      global sessionId
@@ -235,7 +235,7 @@ proc buttons {setNo setMax startPos after} {
              set termPlusAttr [build-scan $hist($setNo,host) $i]
              set hist($setNo,$scanNo,scanTerm) [lindex $termPlusAttr 0]
              set hist($setNo,scanAttr) [lindex $termPlusAttr 1]
-            start-scan $scanNo 0 {} $setNo
+            start-scan $scanNo 0 {} {}
              html "</body></html>\n"
              wabort
              return
@@ -250,6 +250,13 @@ proc buttons {setNo setMax startPos after} {
          }
          set hist($setNo,query) $query
      } else {
+        if {[lindex $sessionParms 1] == "scan"} {
+            set scanNo 1000
+            set hist($setNo,$scanNo,scanTerm) {}
+            start-scan $scanNo 0 {} {}
+            html "</body></html>\n"
+            wabort
+        }
          if {![info exists hist($setNo,scan)]} return
          if {$hist($setNo,scan) > 0} {
              set scanNo [lindex $sessionParms 1]