3 # $Id: mtargets.egw,v 1.19 1996/03/13 14:07:30 adam Exp $
6 if {[info commands saveState] == ""} {
9 if {![info exists debug]} {
10 if {[lindex $sessionParms 1] == "1"} {
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
41 html "<h2>Choose one or more targets</h2>\n"
42 html {<form action="http:} $env(SCRIPT_NAME)
43 html / $sessionId / $scriptQuery {;/} -1 {" method=get><br>} \n
47 html {<dt><h2>} $h \n {</h2>}
51 html {<dt><b>} [ lindex $targets($t) 0]
53 set databases [splitDatabaseSpec $t]
55 set desc [lindex $targets($t) 4]
56 if {[string length $desc] > 0} {
60 foreach d $databases {
61 html {<input type="checkbox" name="target"}
62 html { value="} $t + $d {"> } $d
66 serverList headlineC targetC
69 html {<input type="submit" value="Select"></form>} \n
81 html "<h3>Debug information</h3>\n"
82 html "sessionId: $sessionId <br>\n"
83 html "sessionParms: $sessionParms <br>\n"
84 foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
85 html $e {: } $env($e) {<br>} \n