3 # $Id: mtargets.egw,v 1.6 1995/11/10 14:47:31 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]
24 set databases [lindex $targets($t) 1]
26 set desc [lindex $targets($t) 4]
28 html "<em>$desc</em><br>\n"
30 foreach d $databases {
31 html {<input type="checkbox" name="target"}
32 html { value="} $t + $d {"> } $d
38 <input type="submit" value="Select">
41 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
42 Last modified 25. september 1995. <br>
43 <em> This and the following pages are under construction and will continue
44 to be so until the end of December 1995.</em>
47 html "<h3>Debug information</h3>\n"
48 html "sessionId: $sessionId <br>\n"
49 html "sessionParms: $sessionParms <br>\n"
50 foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
51 html $e {: } $env($e) {<br>} \n