X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fquery.egw;h=ba6672f7bf9c96464ae192c5f75dd0d617e1dcd0;hb=150d836eb46d0dde8fedeb77fc7fd4ef6eafba4f;hp=d07e2c3d0a11ef9970c67af389c1403810e7ed28;hpb=949f8c4efedfe6d191264853690c84f527e1790b;p=egate.git
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: