3 # $Id: mtargets.egw,v 1.18 1996/03/12 16:30:27 adam Exp $
6 if {[info commands saveState] == ""} {
11 if {![info exists debug]} {
12 if {[lindex $sessionParms 1] == "1"} {
18 set html3 [lindex $sessionParms 0]
19 if {[string length $html3] == 0} {
20 if {![info exists env(HTTP_USER_AGENT)]} {
22 } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
24 egw_log debug "New user using Netscape"
27 egw_log debug "New user Not using Netscape"
32 <title>Europagate, WWW/Z39.50 Gateway</title>
36 set scriptQuery mquery.egw
37 set scriptTarget mtargets.egw
41 button-define-target 0
43 html "<h2>Choose one or more targets</h2>\n"
44 html {<form action="http:} $env(SCRIPT_NAME)
45 html / $sessionId {/mquery.egw/} $setNo {" method=get><br>} \n
48 proc targetsCmp {l r} {
50 return [string compare [string tolower [lindex $targets($l) 0]] \
51 [string tolower [lindex $targets($r) 0]]]
53 set tt [array names targets]
54 set tn [lsort -command targetsCmp $tt]
56 html {<dt>} [ lindex $targets($t) 0]
58 set databases [splitDatabaseSpec $t]
60 set desc [lindex $targets($t) 4]
64 foreach d $databases {
65 html {<input type="checkbox" name="target"}
66 html { value="} $t + $d {"> } $d
71 html {<input type="submit" value="Select"></form>} \n
76 button-define-target 0
83 html "<h3>Debug information</h3>\n"
84 html "sessionId: $sessionId <br>\n"
85 html "sessionParms: $sessionParms <br>\n"
86 foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
87 html $e {: } $env($e) {<br>} \n