</head>
<body>
{
-# $Id: mquery.egw,v 1.4 1995/11/10 14:47:31 adam Exp $
+# $Id: mquery.egw,v 1.6 1995/12/21 15:49:51 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
global setNo
global nextSetNo
global hist
+ global targets
if {[catch {set setNo $nextSetNo}]} {
set nextSetNo 1
}
set hist($setNo,0,host) $i
}
-<hr>
-<h3>Input your search criteria: </h3> <br>
+<h2>Input your search criteria: </h2><br>
{
set fields [lindex $targets($host) 2]
for {set no 1} {$no < 4} {incr no} {
html {<option> } [lindex $f 0] \n
}
html "</select>\n"
- html {<input type="text" name="entry} $no {" size=30>} \n
+ html {<input type="text" name="entry} $no {" size=35>} \n
if {$no < 3} {
html {<select name="logic} $no {">} \n
html "<option> And\n"
html "<br>\n"
}
}
-<h3> Various technical parameters: </h3> <br>
-Max hits: <input type="text" name="hits" value="10" size=3>
-Records are shown in:
-<select name="format">
-<option> Long format
-<option> Medium format
-<option> Short format
-<option> Raw MARC
-</select>
-<br>
-<p>
<input type=submit value="Search"><input type=reset value="Reset">
+<br>
+{
+ html {Number of records to display in the result set list: }
+ html {<input type="text" name="hits" value="}
+ html 10
+ html {" size=3>}
+}
</form>
+{
+ global useIcons
+ if {$useIcons} {
+ html {<img src="/gif/button-egw.gif">}
+ }
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/mtargets.egw}
+ if {$useIcons} {
+ html {"><img src="/gif/button-new-target.gif" border=0></a>}
+ } else {
+ html {"> New target </a>}
+ }
+}
<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>
-<hr>
-
-{
- html {<a href="http:} $env(SCRIPT_NAME)
- html / $sessionId {/mtargets.egw"> New target </a>}
-}
{
html "<hr>\n"
html "<h3>Debug information</h3>\n"