projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Handles method GET.
[egate.git] / www / query.egw
diff --git a/www/query.egw b/www/query.egw
index d1a122c..a5b874e 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.26 1996/01/08 08:42:15 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -113,7 +113,7 @@ proc ok-response {} {
     }
     
     html {<form action="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/search.egw/} $setNo {" method=post>} \n
+    html / $sessionId {/search.egw/} $setNo {" method=get>} \n
     set nodb [llength $databases]
     if {$nodb > 1} {
         if {$nodb > 2} {
@@ -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} {
Europgate