X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=fbcd44d0a8c219c677c9ca10c10365afe9852f63;hb=4938d0c2e8f4e1eec397c2bfbbc7e23fd150c369;hp=306fe16ae07775076b7927f069ffbbe69e76670e;hpb=da4f027b1e7c0bf90efe6782a326448af164cd37;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 306fe16..fbcd44d 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,6 +1,6 @@ { -# $Id: mtargets.egw,v 1.14 1996/01/29 17:31:47 adam Exp $ +# $Id: mtargets.egw,v 1.16 1996/03/05 18:50:25 adam Exp $ set setNo 1 source ztargets.conf if {[info commands saveState] == ""} { @@ -16,8 +16,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 { @@ -39,7 +41,17 @@ html {

} \n html "
\n" - foreach t [array names targets] { + + + + proc targetsCmp {l r} { + global targets + return [string compare [string tolower [lindex $targets($l) 0]] \ + [string tolower [lindex $targets($r) 0]]] + } + 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]