</head>
<body>
{
-# $Id: mquery.egw,v 1.11 1996/01/26 15:50:07 adam Exp $
+# $Id: mquery.egw,v 1.13 1996/03/08 16:47:04 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
lappend hist($setNo,$i,database) $base
}
set oSetNo [lindex $sessionParms 0]
- if {$i == 0 && $oSetNo != ""} {
+ if {$i == 0 && [info exists hist($oSetNo,0,host)]} {
for {set i 1} {$i <= $hist($oSetNo,0,host)} {incr i} {
set hist($setNo,$i,host) $hist($oSetNo,$i,host)
set hist($setNo,$i,idAuthentication) \
}
html {<input type=submit value="Search"><input type=reset value="Reset">}
html "<br>\n"
- html {Number of records to display in the result set list: }
- html {<input type="text" name="hits" value="}
- html 10
- html {" size=3></form>}
-
+ html {Display each record in <select name="format">}
+ html "<option>brief\n"
+ html "<option>medium\n"
+ html "</select> notation"
+ html { and sort by <select name="sort">}
+ html "<option>score\n"
+ html "<option>server\n"
+ html "</select><br>\n"
+
set useIcons 0
button-europagate
button-new-target 0