3 # $Id: mtargets.egw,v 1.23 1996/08/28 09:36:02 adam Exp $
6 if {![info exists debug]} {
7 if {[lindex $sessionParms 1] == "1"} {
13 if {[info commands saveState] == ""} {
16 set html3 [lindex $sessionParms 0]
17 if {[string length $html3] == 0} {
18 if {![info exists env(HTTP_USER_AGENT)]} {
20 } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
22 egw_log debug "New user using Netscape"
25 egw_log debug "New user Not using Netscape"
30 <title>Europagate, WWW/Z39.50 Gateway</title>
34 set scriptQuery mquery.egw
35 set scriptTarget mtargets.egw
42 html "<h2>Choose one or more targets</h2>\n"
43 html {<form action="http:} $env(SCRIPT_NAME)
44 html / $sessionId / $scriptQuery {;/} -1 {" method=get><br>} \n
48 html {<dt><h2>} $h \n {</h2>}
52 html {<dt><b>} [lindex $targets($t) 0]
54 set databases [splitDatabaseSpec $t]
56 set desc [lindex $targets($t) 4]
57 if {[string length $desc] > 0} {
61 foreach d $databases {
62 html {<input type="checkbox" name="target"}
63 html { value="} $t + $d {"> } $d
67 serverList headlineC targetC
70 html {<input type="submit" value="Select"></form>} \n
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