Minor changes.
authorAdam Dickmeiss <adam@indexdata.dk>
Tue, 2 Jan 1996 15:34:08 +0000 (15:34 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Tue, 2 Jan 1996 15:34:08 +0000 (15:34 +0000)
www/query.egw

index 0c4832d..16856a1 100644 (file)
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: query.egw,v 1.21 1996/01/02 10:52:26 adam Exp $
+# $Id: query.egw,v 1.22 1996/01/02 15:34:08 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -127,8 +127,6 @@ proc ok-response {} {
         }
         html "Input your search criteria:<br>\n"
     }
-}
-{
     set fields [lindex $targets($host) 2]
     for {set no 1} {$no < 4} {incr no} {
         html {<select name="menu} $no {">} \n
@@ -145,6 +143,7 @@ proc ok-response {} {
         html "</select>\n"
         html {<input type="text" name="entry} $no {"}
         html { size=35>} \n
+        html {<input type="checkbox" name="scan" value="} $no {" scan>}
         if {$no < 3} {
             html {<select name="logic} $no {">} \n
             if {$oSetNo > 0} {
@@ -163,7 +162,6 @@ proc ok-response {} {
 }
 
 <input type=submit name=submit value="Search">
-<input type=submit name=submit value="Scan">
 <input type=reset value="Reset">
 <br>
 {