X-Git-Url: http://git.indexdata.com/?p=egate.git;a=blobdiff_plain;f=www%2Fquery.egw;h=f17cc585b848eee5b3c11a853c74c394cc9f3b14;hp=5c5e0336e93d3db4f9b469b83f10a930184373d9;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hpb=a4571caef991e968e3c20b515490b7923306a1cf diff --git a/www/query.egw b/www/query.egw index 5c5e033..f17cc58 100644 --- a/www/query.egw +++ b/www/query.egw @@ -4,7 +4,7 @@ { -# $Id: query.egw,v 1.37 1996/03/12 16:30:27 adam Exp $ +# $Id: query.egw,v 1.38 1996/03/13 14:07:30 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -96,11 +96,11 @@ proc ok-response {} { set useIcons 1 button-main - button-new-target 1 + button-new-target if {[lsearch [z390 options] scan] >= 0} { - button-scan-window 1 $setNo + button-scan-window $setNo } - button-view-history 0 + button-view-history html "

" [lindex $targets($host) 0] "

\n" @@ -139,7 +139,7 @@ proc ok-response {} { html [concat $databases] {"> All
} \n } } - html "Input your search criteria:
\n" + html "Fill-in this search form:
\n" set fields [lindex $targets($host) 2] for {set no 1} {$no < 4} {incr no} { html {