+<html>
+{
+# $Id: mtargets.egw,v 1.1 1995/11/07 10:44:31 adam Exp $
+ set setNo 1
+ source /usr/local/etc/httpd/conf/ztargets.conf
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ }
+}
+<head>
+<title>Europagate, WWW/Z39.50 Gateway</title>
+</head>
+<body>
+<h1>Search in multiple targets</h1>
+<hr>
+<h3>Choose one or more Z39.50 targets:</h3>
+{
+ html {<form action="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+ html / $sessionId {/msearch.egw/} $setNo {" method=post><br>} \n
+ foreach t [array names targets] {
+ html {<input type="checkbox" name="target" value="} $t
+ html {"> } $t \n
+ html "<br>\n"
+ }
+}
+<input type="submit" value="Select">
+</form>
+<hr>
+This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
+Last modified 25. september 1995. <br>
+<em> This and the following pages are under construction and will continue
+to be so until the end of December 1995.</em>
+{
+ html "<hr>\n"
+ html "<h3>Debug information</h3>\n"
+ html "sessionId: $sessionId <br>\n"
+ html "sessionParms: $sessionParms <br>\n"
+ foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
+ html $e {: } $env($e) {<br>} \n
+ }
+}
+</body>
+</html>