</head>
<body>
{
-# $Id: query.egw,v 1.23 1996/01/03 08:59:41 adam Exp $
+# $Id: query.egw,v 1.24 1996/01/03 15:19:39 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
set host [lindex $sessionParms 0]
set initSet [lindex $sessionParms 1]
set scanLine [lindex $sessionParms 2]
- set scanTerm [lindex $sessionParms 3]
+ set scanTerm [lrange $sessionParms 3 end]
if {[catch {set setNo $nextSetNo}]} {
set nextSetNo 1
}
html "<h2>Search in " [lindex $targets($host) 0] "</h2>\n"
-
z39 callback ok-response
z39 failback fail-response
if {$host != $oldHost} {
html "</select>\n"
html {<input type="text" name="entry} $no {"}
if {$scanLine == $no} {
- html { value="} $scanTerm {" }
+ html { value="} [join $scanTerm " "] {"}
+ } 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>}
if {$no < 3} {
html {<select name="logic} $no {">} \n
if {$oSetNo > 0} {
- html "<option> " $hist($oSetNo,form,logic$no) \n
+ html "<option> " [join $hist($oSetNo,form,logic$no) " "] \n
}
foreach op {And Or {And not}} {
if {$oSetNo > 0} {
if {$hist($oSetNo,form,logic$no) == $op} continue
}
- html "<option> " $op \n
+ html "<option> " [join $op " "] \n
}
html "</select>\n"
}
} else {
html 20
}
- html {" size=3>}
+ html {" size=4>}
}
</form>
<p>
{
- html {<img src="/gif/button-egw.gif" alt="Europagate" border=0></a>}
- html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/targets.egw}
- html {"><img src="/gif/button-new-target.gif" alt="New Target" }
- html {border=0 alt="New Target"></a>}
-}
+ button-europagate
-<hr>
-This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
-Last modified 29. september 1995. <br>
-<em> This and the following pages are under construction
-and will continue to be so until the end of December 1995.</em>
+ button-new-target 1
+ button-view-history 0
+}
{
+ catch maintenance
+ global debug
+ if {!$debug} return
html "<hr>\n"
html "<h3>Debug information</h3>\n"
html "sessionId: $sessionId <br>\n"