3 # $Id: mtargets.egw,v 1.4 1995/11/08 18:07:23 adam Exp $
5 source /usr/local/etc/httpd/conf/ztargets.conf
6 if {[info commands saveState] == ""} {
11 <title>Europagate, WWW/Z39.50 Gateway</title>
14 <h1>Search in multiple targets</h1>
16 <h3>Choose one or more Z39.50 targets:</h3>
18 html {<form action="http:} $env(SCRIPT_NAME)
19 html / $sessionId {/mquery.egw/} $setNo {" method=post><br>} \n
21 foreach t [array names targets] {
22 html {<dt>} [ lindex $targets($t) 0]
23 # html {<input type="checkbox" name="target" value="} $t
26 set databases [lindex $targets($t) 1]
27 foreach d $databases {
28 html {<input type="checkbox" name="target} $t {" }
29 html { value="} $d {">} " $d "
36 <input type="submit" value="Select">
39 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
40 Last modified 25. september 1995. <br>
41 <em> This and the following pages are under construction and will continue
42 to be so until the end of December 1995.</em>
45 html "<h3>Debug information</h3>\n"
46 html "sessionId: $sessionId <br>\n"
47 html "sessionParms: $sessionParms <br>\n"
48 foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
49 html $e {: } $env($e) {<br>} \n