6c91b0310c6a816a3ed3c455fb89997c78101902
[egate.git] / www / mtargets.egw
1 <html>
2 {
3 # $Id: mtargets.egw,v 1.2 1995/11/07 14:56:58 adam Exp $
4     set setNo 1
5     source /usr/local/etc/httpd/conf/ztargets.conf
6     if {[info commands saveState] == ""} {
7         source z39util.tcl
8     }
9 }
10 <head>
11 <title>Europagate, WWW/Z39.50 Gateway</title>
12 </head>
13 <body>
14 <h1>Search in multiple targets</h1>
15 <hr>
16 <h3>Choose one or more Z39.50 targets:</h3>
17 {
18     html {<form action="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
19     html / $sessionId {/mquery.egw/} $setNo {" method=post><br>} \n
20     foreach t [array names targets] {
21         html {<input type="checkbox" name="target" value="} $t
22         html {"> } $t \n
23         html "<br>\n"
24     }
25 }
26 <input type="submit" value="Select">
27 </form>
28 <hr>
29 This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
30 Last modified 25. september 1995. <br>
31 <em> This and the following pages are under construction and will continue 
32 to be so until the end of December 1995.</em>
33 {
34     html "<hr>\n"
35     html "<h3>Debug information</h3>\n"
36     html "sessionId: $sessionId <br>\n"
37     html "sessionParms: $sessionParms <br>\n"
38     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
39         html $e {: } $env($e) {<br>} \n
40     }
41 }
42 </body>
43 </html>