X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fquery.egw;h=74ad296851e55ec8458970dee32f9af055eedf9c;hb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;hp=319d5f12de51a82a99009e53da0b704bc69be7fe;hpb=fb42e8909c46dfe29d2b8d8852e0ebf297eb2963;p=egate.git
diff --git a/www/query.egw b/www/query.egw
index 319d5f1..74ad296 100644
--- a/www/query.egw
+++ b/www/query.egw
@@ -1,118 +1,238 @@
-
- WWW/Z39.50 Gateway Query Form
-
-
{
-# $Id: query.egw,v 1.4 1995/10/30 17:35:17 adam Exp $
+# $Id: query.egw,v 1.39 1996/03/14 11:50:47 adam Exp $
+
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ if {![info exists debug]} {
+ session-lost
+ egw_abort
+ }
+ }
+
proc fail-response {} {
global sessionWait
set sessionWait -1
}
-proc init-response {} {
+proc ok-response {} {
global sessionWait
set sessionWait 1
}
- set t $sessionParms
- set databases [lindex $targets($t) 1]
- set sessionWait 0
- ir z39
- z39 failback fail-response
- if {[catch {z39 connect $t}]} {
- htmlr "Cannot connect to target $t
"
- htmlr ""
- return
- }
- z39 callback init-response
- z39 init
- zwait sessionWait
- if {$sessionWait == -1} {
- htmlr "Cannot initialize with target $t
"
- htmlr "