1d5dc3240bdba5a2421a91ef46fcfa728384522a
[egate.git] / www / mtargets.egw
1 <html>
2 {
3 # $Id: mtargets.egw,v 1.12 1996/01/26 15:50:07 adam Exp $
4     set setNo 1
5     source ztargets.conf
6     if {[info commands saveState] == ""} {
7         source z39util.tcl
8     }
9     set mMode 1
10 }
11 <head>
12 <title>Europagate, WWW/Z39.50 Gateway</title>
13 </head>
14 <body>
15 {
16     if {![info exists debug]} {
17         if {[lindex $sessionParms 0] == "1"} {
18             set debug 1
19         } else {
20             set debug 0
21         }
22     }
23
24     if {![info exists useIcons]} {
25         if {[lindex $sessionParms 1] == "1"} {
26             set useIcons 0
27         } else {
28             set useIcons 1
29         }
30     }
31
32     set useIcons 1
33     button-europagate
34     button-define-target 0
35
36     html "<h2>Choose one or more targets</h2>\n"
37     html {<form action="http:} $env(SCRIPT_NAME)
38     html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
39     html "<dl>\n"
40     foreach t [array names targets] {
41         html {<dt>} [ lindex $targets($t) 0]
42         html {<dd>}
43         set databases [lindex $targets($t) 1]
44
45         set desc [lindex $targets($t) 4]
46         if {$desc != ""} {
47             html "<em>$desc</em><br>\n"
48         }
49         foreach d $databases {
50             html {<input type="checkbox" name="target"}
51             html { value="} $t + $d {"> } $d 
52         }
53         html "<br>\n"
54     }
55     html "</dl>\n"
56     html {<input type="submit" value="Select"></form>} \n
57
58     html "<p>\n"
59     set useIcons 0
60     button-europagate
61     button-define-target 0
62 }
63
64 {
65     catch maintenance
66     if {!$debug} return
67     html "<hr>\n"
68     html "<h3>Debug information</h3>\n"
69     html "sessionId: $sessionId <br>\n"
70     html "sessionParms: $sessionParms <br>\n"
71     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
72         html $e {: } $env($e) {<br>} \n
73     }
74 }
75 </body>
76 </html>