X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=670facdcbcb2a2a869807d4a52fb379e0e2eeedf;hb=0d7108cd3425504a09522f915dda5c9158443084;hp=ede4eed6712f6b0ca9e13cd3d257b4d9767e52da;hpb=0eb16f9fa8de016fbe9378db5f975825cc9c5e48;p=egate.git diff --git a/www/search.egw b/www/search.egw index ede4eed..670facd 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,6 +1,6 @@ { -# $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 "\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 "\n" + wabort + } if {![info exists hist($setNo,scan)]} return if {$hist($setNo,scan) > 0} { set scanNo [lindex $sessionParms 1]