X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=88969cd0c800b6446184757d26c05e149b017c00;hb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;hp=fd25d08ff8236d9404a0774351ee919a70b0e604;hpb=a61ad0378b93e99e362a1d92c33d701dbf103eba;p=egate.git diff --git a/www/search.egw b/www/search.egw index fd25d08..88969cd 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,6 +1,6 @@ { -# $Id: search.egw,v 1.38 1996/03/13 14:07:31 adam Exp $ +# $Id: search.egw,v 1.39 1996/03/14 11:50:48 adam Exp $ proc start-scan {scanNo targetNo cache dir initSet} { global sessionId @@ -170,6 +170,10 @@ proc start-scan {scanNo targetNo cache dir initSet} { if {[info commands saveState] == ""} { source z39util.tcl + if {![info exists debug]} { + session-lost + egw_abort + } } global sessionWait global nextSetNo