Scan buttons only present if scan option is set.

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

index d1a122c..92e2e1d 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: query.egw,v 1.24 1996/01/03 15:19:39 adam Exp $
+# $Id: query.egw,v 1.25 1996/01/04 10:40:00 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -157,8 +157,10 @@ proc ok-response {} {
          } elseif {[info exists hist($oSetNo,form,entry$no)]} {
              html { value="} [join $hist($oSetNo,form,entry$no) " "] {"}
          }
-        html { size=35>} \n
-        html {<input type="checkbox" name="scan} $no {" value="1" scan>}
+        html { size=35> }
+        if {[lsearch [z39 options] scan] >= 0} {
+            html {<input type="checkbox" name="scan} $no {" value="1" scan>}
+        }
          if {$no < 3} {
              html {<select name="logic} $no {">} \n
              if {$oSetNo > 0} {