3 <title> WWW/Z39.50 Gateway Query Form</title>
7 # $Id: mquery.egw,v 1.4 1995/11/10 14:47:31 adam Exp $
9 if {[info commands saveState] == ""} {
17 if {[catch {set setNo $nextSetNo}]} {
22 html {<form action="http:} $env(SCRIPT_NAME)
23 html / $sessionId {/msearch.egw/} $setNo {" method=post>} \n
27 foreach t [lsort [wform target]] {
28 set host [lindex $t 0]
29 set base [lindex $t 1]
30 if {$host != $phost} {
33 set hist($setNo,$i,host) $host
34 set hist($setNo,$i,idAuthentication) [lindex $targets($host) 3]
36 lappend hist($setNo,$i,database) $base
39 html "<h2>No targets specified</h2></body></html>"
42 set hist($setNo,0,host) $i
45 <h3>Input your search criteria: </h3> <br>
47 set fields [lindex $targets($host) 2]
48 for {set no 1} {$no < 4} {incr no} {
49 html {<select name="menu} $no {">} \n
51 html {<option> } [lindex $f 0] \n
54 html {<input type="text" name="entry} $no {" size=30>} \n
56 html {<select name="logic} $no {">} \n
59 html "<option> And not\n"
65 <h3> Various technical parameters: </h3> <br>
66 Max hits: <input type="text" name="hits" value="10" size=3>
68 <select name="format">
70 <option> Medium format
76 <input type=submit value="Search"><input type=reset value="Reset">
79 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
80 Last modified 29. september 1995. <br>
81 <em> This and the following pages are under construction
82 and will continue to be so until the end of December 1995.</em>
86 html {<a href="http:} $env(SCRIPT_NAME)
87 html / $sessionId {/mtargets.egw"> New target </a>}
91 html "<h3>Debug information</h3>\n"
92 html "sessionId: $sessionId <br>\n"
93 html "sessionParms: $sessionParms <br>\n"
94 foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
95 html $e {: } $env($e) {<br>} \n
97 set j $hist($setNo,0,host)
98 for {set i 1} {$i <= $j} {incr i} {
99 html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database)
102 html "form: " [wform] " <br>\n"
103 html "target: " $host " <br>\n"
104 html "setNo: " $setNo " <br>\n"
105 html "nextSetNo: " $nextSetNo " <br>\n"