From 150d836eb46d0dde8fedeb77fc7fd4ef6eafba4f Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 2 Nov 1995 16:35:36 +0000 Subject: [PATCH] Bug fixes and select on FIFOs in wcgi - doesn't really work! --- www/query.egw | 11 +++++++---- www/search.egw | 7 +++++-- www/targets.egw | 3 +-- www/wcgi.c | 51 +++++++++++++++++++++++++++++++++++++++++---------- www/wirtcl.c | 9 +++++++-- www/wproto.c | 10 +++++++++- 6 files changed, 70 insertions(+), 21 deletions(-) diff --git a/www/query.egw b/www/query.egw index d07e2c3..ba6672f 100644 --- a/www/query.egw +++ b/www/query.egw @@ -4,7 +4,7 @@ { -# $Id: query.egw,v 1.7 1995/11/01 16:15:44 adam Exp $ +# $Id: query.egw,v 1.8 1995/11/02 16:35:36 adam Exp $ proc fail-response {} { global sessionWait set sessionWait -1 @@ -19,14 +19,17 @@ proc ok-response {} { global nextSetNo global hist - set host $sessionParms + set host [lindex $sessionParms 0] if {[info exists setNo]} { set oldHost $hist($setNo,host) } else { set oldHost "" } - set setNo $nextSetNo + if {[catch {set setNo $nextSetNo}]} { + set nextSetNo 1 + set setNo 1 + } set hist($setNo,host) $host if {[catch {z39 failback fail-response}]} { @@ -115,7 +118,7 @@ Alternatively you can enter your query in

Various technical parameters:
-Max hits: +Max hits: Records are shown in: