Bug fixes and select on FIFOs in wcgi - doesn't really work!

[egate.git] / www / query.egw
diff --git a/www/query.egw b/www/query.egw

index d07e2c3..ba6672f 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $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
  <input type=text name="cclentry" size=52> <br>
  <hr>
  <strong> Various technical parameters: </strong> <br>
-Max hits: <input type="text" name="hits" value="50" size=3>
+Max hits: <input type="text" name="hits" value="10" size=3>
  Records are shown in:
  <select name="format">
  <option> Long format