1967138ff6b32f87f01e5b24ee01cba52075a77f
[egate.git] / www / mtargets.egw
1 <html>
2 {
3 # $Id: mtargets.egw,v 1.10 1996/01/09 16:16:48 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 {
15     if {![info exists debug]} {
16         if {[lindex $sessionParms 0] == "1"} {
17             set debug 1
18         } else {
19             set debug 0
20         }
21     }
22
23     if {![info exists useIcons]} {
24         if {[lindex $sessionParms 1] == "1"} {
25             set useIcons 0
26         } else {
27             set useIcons 1
28         }
29     }
30 }
31 <center>
32 <img src="/egwgif/button-egw.gif" Alt="EUROPAGATE">
33 </center>
34 <h2>Choose one or more Z39.50 targets</h2>
35 {
36     html {<form action="http:} $env(SCRIPT_NAME)
37     html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
38     html "<dl>\n"
39     foreach t [array names targets] {
40         html {<dt>} [ lindex $targets($t) 0]
41         html {<dd>}
42         set databases [lindex $targets($t) 1]
43
44         set desc [lindex $targets($t) 4]
45         if {$desc != ""} {
46             html "<em>$desc</em><br>\n"
47         }
48         foreach d $databases {
49             html {<input type="checkbox" name="target"}
50             html { value="} $t + $d {"> } $d 
51         }
52         html "<br>\n"
53     }
54     html "</dl>\n"
55 }
56 <input type="submit" value="Select">
57 </form>
58 {
59     catch maintenance
60     if {!$debug} return
61     html "<hr>\n"
62     html "<h3>Debug information</h3>\n"
63     html "sessionId: $sessionId <br>\n"
64     html "sessionParms: $sessionParms <br>\n"
65     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
66         html $e {: } $env($e) {<br>} \n
67     }
68 }
69 </body>
70 </html>