X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=a249f6cdaeb40274b0c3cf81a554d5989f75db83;hb=a6e5ecf2a6d6dedf266c5f9d6bc2447a528b199e;hp=13333edba7ff7c82f6846955ebac9c8c1bf4e27b;hpb=b52740e82ab92e99a6982bf5c99a30ac404bd557;p=egate.git diff --git a/www/search.egw b/www/search.egw index 13333ed..a249f6c 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,6 +1,6 @@ { -# $Id: search.egw,v 1.15 1995/11/13 15:41:44 adam Exp $ +# $Id: search.egw,v 1.17 1995/11/14 16:01:51 adam Exp $ proc buttons {setNo setMax startPos after} { global sessionId @@ -64,11 +64,37 @@ proc buttons {setNo setMax startPos after} { set hist($nextSetNo,host) $hist($setNo,host) set setNo $nextSetNo html "using host " $hist($setNo,host) " WWW/Z39.50 Gateway Search\n\n" + displayError "Empty query" \ + "You must specify at least one search word" + html "\n" + wabort + } + set hist($setNo,query) $query + + set hist($setNo,form,menu1) [wform menu1] + set hist($setNo,form,menu2) [wform menu2] + set hist($setNo,form,menu3) [wform menu3] + + set hist($setNo,form,entry1) [wform entry1] + set hist($setNo,form,entry2) [wform entry2] + set hist($setNo,form,entry3) [wform entry3] + + set hist($setNo,form,logic1) [wform logic1] + set hist($setNo,form,logic2) [wform logic2] + incr nextSetNo + + set host $hist($setNo,host) + set databases [lindex $targets($host) 1] - set hist($setNo,query) [build-query $hist($setNo,host)] set b [wform base] - if {$b == ""} { + if {[wform baseall] != ""} { + set hist($setNo,database) $databases + } elseif {$b == ""} { set hist($setNo,database) $databases } else { set hist($setNo,database) $b