Buf fix: Uninitialized outbuffer_offset member.

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

index cad8e7a..a8db8ff 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: query.egw,v 1.27 1996/01/12 10:03:17 adam Exp $
+# $Id: query.egw,v 1.28 1996/01/12 13:08:28 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -156,13 +156,13 @@ proc ok-response {} {
          if {[string length $template] > 0} {
              html { value="} $template {"}
          }
-        html { size=35> }
-        if {[lsearch [z39 options] scan] >= 0} {
-            html {<input type="checkbox" name="scan} $no {" value="1" scan>}
+        html { size=45> }
+        if {0 && [lsearch [z39 options] scan] >= 0} {
+                html {<input type="checkbox" name="scan} $no {" value="1" scan>}
          }
          html "<br>\n"
          if {$no < 3} {
-            html {<select name="logic} $no {">} \n
+            html {<center><select name="logic} $no {">} \n
              set template {}
              if {$oSetNo > 0} {
                  set template [join $hist($oSetNo,form,logic$no) " "]
@@ -174,7 +174,7 @@ proc ok-response {} {
                  if {$template == $op} continue
                  html "<option> " [join $op " "] \n
              }
-            html "</select>\n"
+            html "</select></center>\n"
          }
          html "<br>\n"
      }
@@ -200,6 +200,10 @@ proc ok-response {} {
      button-europagate
  
      button-new-target 1
+
+    if {[lsearch [z39 options] scan] >= 0} {
+        button-scan-window 1 $setNo
+    }
      button-view-history 0 
  }