X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=e3bb9dd9e4bc18fd7611a6b71b8c4cdecabd76b9;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=1f81bfa2aea31324b3af8b6d9d48599c0699e066;hpb=c38544a87dfb550dfe4731c450bbde093c095bde;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 1f81bfa..e3bb9dd 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,13 +1,11 @@ { -# $Id: mtargets.egw,v 1.15 1996/02/19 15:44:59 adam Exp $ +# $Id: mtargets.egw,v 1.19 1996/03/13 14:07:30 adam Exp $ set setNo 1 source ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } - set mMode 1 - if {![info exists debug]} { if {[lindex $sessionParms 1] == "1"} { set debug 1 @@ -16,8 +14,10 @@ } } set html3 [lindex $sessionParms 0] - if {$html3 == ""} { - if {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} { + if {[string length $html3] == 0} { + if {![info exists env(HTTP_USER_AGENT)]} { + set html3 1 + } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} { set html3 1 egw_log debug "New user using Netscape" } else { @@ -31,46 +31,47 @@ { + set scriptQuery mquery.egw + set scriptTarget mtargets.egw + set useIcons 1 - button-europagate - button-define-target 0 + button-main + button-define-target html "

Choose one or more targets

\n" html {

} \n + html / $sessionId / $scriptQuery {;/} -1 {" method=get>
} \n html "
\n" - - - proc targetsCmp {l r} { - global targets - return [string compare [string tolower [lindex $targets($l) 0]] \ - [string tolower [lindex $targets($r) 0]]] + proc headlineC {h} { + html {

} $h \n {

} } - set tt [array names targets] - set tn [lsort -command targetsCmp $tt] - foreach t $tn { - html {
} [ lindex $targets($t) 0] - html {
} - set databases [lindex $targets($t) 1] - + proc targetC {t} { + global targets + html {
} [ lindex $targets($t) 0] + html {: } + set databases [splitDatabaseSpec $t] + set desc [lindex $targets($t) 4] - if {$desc != ""} { + if {[string length $desc] > 0} { html "$desc
\n" } + html {
} foreach d $databases { html { } $d } - html "
\n" + html "

\n" } + serverList headlineC targetC + html "
\n" html {
} \n html "

\n" set useIcons 0 - button-europagate - button-define-target 0 + button-main + button-define-target } {