X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fquery.egw;h=cd40d6933fd41687aa48842caeae5899a22ab773;hb=7f332a840baf336e34d612cdee0ef27901f0dd11;hp=5c5e0336e93d3db4f9b469b83f10a930184373d9;hpb=a4571caef991e968e3c20b515490b7923306a1cf;p=egate.git diff --git a/www/query.egw b/www/query.egw index 5c5e033..cd40d69 100644 --- a/www/query.egw +++ b/www/query.egw @@ -1,13 +1,13 @@ - - WWW/Z39.50 Gateway Query Form - - { -# $Id: query.egw,v 1.37 1996/03/12 16:30:27 adam Exp $ +# $Id: query.egw,v 1.41 2001/02/26 14:32:36 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl + if {![info exists debug]} { + session-lost + egw_abort + } } proc fail-response {} { @@ -24,6 +24,8 @@ proc ok-response {} { global nextSetNo global hist + html { WWW/Z39.50 Gateway Query Form} + set initSet [lindex $sessionParms 0] set host [lindex $sessionParms 1] set scanLine [lindex $sessionParms 2] @@ -96,11 +98,12 @@ proc ok-response {} { set useIcons 1 button-main - button-new-target 1 + button-feedback + 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" @@ -115,7 +118,7 @@ proc ok-response {} { set databaseDefault $hist($oSetNo,0,database) } - html {
} \n set nodb [llength $databases] if {$nodb > 1} { @@ -139,7 +142,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 {