projects
/
egate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
First search request/response that works.
[egate.git]
/
www
/
query.egw
diff --git
a/www/query.egw
b/www/query.egw
index
e188c71
..
3f0d25f
100644
(file)
--- a/
www/query.egw
+++ b/
www/query.egw
@@
-1,6
+1,12
@@
<html>
{
<html>
{
-# $Id: query.egw,v 1.2 1995/10/27 15:12:04 adam Exp $
+# $Id: query.egw,v 1.3 1995/10/27 17:30:15 adam Exp $
+proc fail-response {} {
+ global sessionWait
+ htmlr {Init fail<br>}
+ set sessionWait 0
+}
+
proc init-response {} {
global sessionWait
htmlr {Init ok <br>}
proc init-response {} {
global sessionWait
htmlr {Init ok <br>}
@@
-11,8
+17,9
@@
proc init-response {} {
set t $sessionParms
set databases [lindex $targets($t) 1]
set t $sessionParms
set databases [lindex $targets($t) 1]
- ir z39
set sessionWait 1
set sessionWait 1
+ ir z39
+ z39 failback fail-response
z39 connect $t
z39 callback init-response
z39 init
z39 connect $t
z39 callback init-response
z39 init