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