projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Previus/next scan buttons in scan.
[egate.git] / www / query.egw
diff --git a/www/query.egw b/www/query.egw
index 16856a1..618955e 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: query.egw,v 1.22 1996/01/02 15:34:08 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]
@@ -142,8 +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" value="} $no {" scan>}
+        html {<input type="checkbox" name="scan} $no {" value="1" scan>}
         if {$no < 3} {
             html {<select name="logic} $no {">} \n
             if {$oSetNo > 0} {
@@ -204,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>
 
Europgate