X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fquery.egw;h=8f816bef125a779445d071e64038c52531238a59;hb=6315a552d51ac08b60d25d8500da5574a83ba530;hp=3f0d25f5d2d6723af1225c2e7053813f4d8ef948;hpb=c1c09b4242df9a16cd11477deea2e35f8ff57fec;p=egate.git
diff --git a/www/query.egw b/www/query.egw
index 3f0d25f..8f816be 100644
--- a/www/query.egw
+++ b/www/query.egw
@@ -1,88 +1,136 @@
+
+ WWW/Z39.50 Gateway Query Form
+
+
{
-# $Id: query.egw,v 1.3 1995/10/27 17:30:15 adam Exp $
+# $Id: query.egw,v 1.10 1995/11/08 12:42:17 adam Exp $
+
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ }
+
proc fail-response {} {
global sessionWait
- htmlr {Init fail
}
- set sessionWait 0
+ set sessionWait -1
}
-proc init-response {} {
+proc ok-response {} {
global sessionWait
- htmlr {Init ok
}
- htmlr {}
- htmlr {}
- set sessionWait 0
+ set sessionWait 1
}
- set t $sessionParms
- set databases [lindex $targets($t) 1]
- set sessionWait 1
- ir z39
+ global setNo
+ global nextSetNo
+ global hist
+
+ set host [lindex $sessionParms 0]
+
+ if {[info exists setNo]} {
+ set oldHost $hist($setNo,host)
+ } else {
+ set oldHost ""
+ }
+ if {[catch {set setNo $nextSetNo}]} {
+ set nextSetNo 1
+ set setNo 1
+ }
+ set hist($setNo,host) $host
+ set hist($setNo,idAuthentication) [lindex $targets($host) 3]
+
+ if {[catch {z39 failback fail-response}]} {
+ ir z39
+ }
+
+ html " Search in " [lindex $targets($host) 0] "
\n"
+
+ z39 callback ok-response
z39 failback fail-response
- z39 connect $t
- z39 callback init-response
- z39 init
-}
-
- WWW/Z39.50 Gateway Query Form
-
-
- Search in databases
-
-{
+ if {$host != $oldHost} {
+ catch {z39 disconnect}
+
+ set sessionWait 0
+ if {[catch {z39 connect $host}]} {
+ html "Cannot connect to target ${host}
\n"
+ html "