Minor changes.
[egate.git] / www / mtargets.egw
1 <html>
2 {
3 # $Id: mtargets.egw,v 1.4 1995/11/08 18:07:23 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(SCRIPT_NAME)
19     html / $sessionId {/mquery.egw/} $setNo {" method=post><br>} \n
20     html "<dl>\n"
21     foreach t [array names targets] {
22         html {<dt>} [ lindex $targets($t) 0]
23 #        html {<input type="checkbox" name="target" value="} $t
24 #        html {"> }
25         html {<dd>}
26         set databases [lindex $targets($t) 1]
27         foreach d $databases {
28             html {<input type="checkbox" name="target} $t {" } 
29             html { value="} $d {">} " $d "
30             html "<br>\n"
31         }
32         html "\n"
33     }
34     html "</dl>\n"
35 }
36 <input type="submit" value="Select">
37 </form>
38 <hr>
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>
43 {
44     html "<hr>\n"
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
50     }
51 }
52 </body>
53 </html>