Previus/next scan buttons in scan.

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

index 0c4832d..618955e 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -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.23 1996/01/03 08:59:41 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -25,6 +25,9 @@ proc ok-response {} {
      global hist
  
      set host [lindex $sessionParms 0]
+    set initSet [lindex $sessionParms 1]
+    set scanLine [lindex $sessionParms 2]
+    set scanTerm [lindex $sessionParms 3]
  
      if {[catch {set setNo $nextSetNo}]} {
          set nextSetNo 1
@@ -95,13 +98,21 @@ proc ok-response {} {
      }
      set databases [lindex $targets($host) 1]
  
-    if {[catch {set prevHost $hist([expr $setNo - 1],host)}]} {
+#    if {[catch {set prevHost $hist([expr $setNo - 1],host)}]} {
+#        set databaseDefault [lindex $databases 0]
+#        set oSetNo 0
+#    } else {
+#        set oSetNo [expr $setNo - 1]
+#        set databaseDefault $hist($oSetNo,database)
+#    }
+    if {$initSet == ""} {
          set databaseDefault [lindex $databases 0]
          set oSetNo 0
      } else {
-        set oSetNo [expr $setNo - 1]
+        set oSetNo $initSet
          set databaseDefault $hist($oSetNo,database)
      }
+    
      html {<form action="http:} $env(SCRIPT_NAME)
      html / $sessionId {/search.egw/} $setNo {" method=post>} \n
      set nodb [llength $databases]
@@ -127,8 +138,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
@@ -144,7 +153,11 @@ proc ok-response {} {
          }
          html "</select>\n"
          html {<input type="text" name="entry} $no {"}
+        if {$scanLine == $no} {
+            html { value="} $scanTerm {" }
+        }
          html { size=35>} \n
+        html {<input type="checkbox" name="scan} $no {" value="1" scan>}
          if {$no < 3} {
              html {<select name="logic} $no {">} \n
              if {$oSetNo > 0} {
@@ -163,7 +176,6 @@ proc ok-response {} {
  }
  
  <input type=submit name=submit value="Search">
-<input type=submit name=submit value="Scan">
  <input type=reset value="Reset">
  <br>
  {
@@ -206,6 +218,9 @@ and will continue to be so until the end of December 1995.</em>
      html "databases: " $databases " <br>\n"
      html "setNo: " $setNo " <br>\n"
      html "nextSetNo: " $nextSetNo " <br>\n"
+    html "initSet: " $initSet " <br>\n"
+    html "scanLine: " $scanLine " <br>\n"
+    html "scanTerm: " $scanTerm " <br>\n"
  }
  </body></html>