projects
/
egate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
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>
{
</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
if {[info commands saveState] == ""} {
source z39util.tcl
@@
-25,6
+25,9
@@
proc ok-response {} {
global hist
set host [lindex $sessionParms 0]
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
if {[catch {set setNo $nextSetNo}]} {
set nextSetNo 1
@@
-95,13
+98,21
@@
proc ok-response {} {
}
set databases [lindex $targets($host) 1]
}
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 databaseDefault [lindex $databases 0]
set oSetNo 0
} else {
- set oSetNo [expr $setNo - 1]
+ set oSetNo $initSet
set databaseDefault $hist($oSetNo,database)
}
set databaseDefault $hist($oSetNo,database)
}
+
html {<form action="http:} $env(SCRIPT_NAME)
html / $sessionId {/search.egw/} $setNo {" method=post>} \n
set nodb [llength $databases]
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 {"}
}
html "</select>\n"
html {<input type="text" name="entry} $no {"}
+ if {$scanLine == $no} {
+ html { value="} $scanTerm {" }
+ }
html { size=35>} \n
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} {
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 "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>
}
</body></html>