3 # $Id: mtargets.egw,v 1.7 1995/12/21 15:49:51 adam Exp $
5 source /usr/local/etc/httpd/conf/ztargets.conf
6 if {[info commands saveState] == ""} {
11 <title>Europagate, WWW/Z39.50 Gateway</title>
16 <img src="/gif/button-egw.gif" Alt="EUROPAGATE">
18 <h2>Choose one or more Z39.50 targets</h2>
20 html {<form action="http:} $env(SCRIPT_NAME)
21 html / $sessionId {/mquery.egw/} $setNo {" method=post><br>} \n
23 foreach t [array names targets] {
24 html {<dt>} [ lindex $targets($t) 0]
26 set databases [lindex $targets($t) 1]
28 set desc [lindex $targets($t) 4]
30 html "<em>$desc</em><br>\n"
32 foreach d $databases {
33 html {<input type="checkbox" name="target"}
34 html { value="} $t + $d {"> } $d
40 <input type="submit" value="Select">
43 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
44 Last modified 25. september 1995. <br>
45 <em> This and the following pages are under construction and will continue
46 to be so until the end of December 1995.</em>
49 html "<h3>Debug information</h3>\n"
50 html "sessionId: $sessionId <br>\n"
51 html "sessionParms: $sessionParms <br>\n"
52 foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
53 html $e {: } $env($e) {<br>} \n