fbcd44d0a8c219c677c9ca10c10365afe9852f63
[egate.git] / www / mtargets.egw
1 <html>
2 {
3 # $Id: mtargets.egw,v 1.16 1996/03/05 18:50:25 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     if {![info exists debug]} {
12         if {[lindex $sessionParms 1] == "1"} {
13             set debug 1
14         } else {
15             set debug 0
16         }
17     }
18     set html3 [lindex $sessionParms 0]
19     if {[string length $html3] == 0} {
20         if {![info exists env(HTTP_USER_AGENT)]} {
21             set html3 1
22         } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
23             set html3 1
24             egw_log debug "New user using Netscape"
25         } else {
26             set html3 0
27             egw_log debug "New user Not using Netscape"
28         }
29     }
30 }
31 <head>
32 <title>Europagate, WWW/Z39.50 Gateway</title>
33 </head>
34 <body>
35 {
36     set useIcons 1
37     button-europagate
38     button-define-target 0
39
40     html "<h2>Choose one or more targets</h2>\n"
41     html {<form action="http:} $env(SCRIPT_NAME)
42     html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
43     html "<dl>\n"
44
45
46
47     proc targetsCmp {l r} {
48         global targets
49         return [string compare [string tolower [lindex $targets($l) 0]] \
50                                [string tolower [lindex $targets($r) 0]]]
51     }
52     set tt [array names targets]
53     set tn [lsort -command targetsCmp $tt]
54     foreach t $tn {
55         html {<dt>} [ lindex $targets($t) 0]
56         html {<dd>}
57         set databases [lindex $targets($t) 1]
58
59         set desc [lindex $targets($t) 4]
60         if {$desc != ""} {
61             html "$desc<br>\n"
62         }
63         foreach d $databases {
64             html {<input type="checkbox" name="target"}
65             html { value="} $t + $d {"> } $d 
66         }
67         html "<br>\n"
68     }
69     html "</dl>\n"
70     html {<input type="submit" value="Select"></form>} \n
71
72     html "<p>\n"
73     set useIcons 0
74     button-europagate
75     button-define-target 0
76 }
77
78 {
79     catch maintenance
80     if {!$debug} return
81     html "<hr>\n"
82     html "<h3>Debug information</h3>\n"
83     html "sessionId: $sessionId <br>\n"
84     html "sessionParms: $sessionParms <br>\n"
85     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
86         html $e {: } $env($e) {<br>} \n
87     }
88 }
89 </body>
90 </html>