X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=1f81bfa2aea31324b3af8b6d9d48599c0699e066;hb=25db261b6bbbfcc7bc26f679f195b51d31b9d7d7;hp=306fe16ae07775076b7927f069ffbbe69e76670e;hpb=da4f027b1e7c0bf90efe6782a326448af164cd37;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 306fe16..1f81bfa 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.15 1996/02/19 15:44:59 adam Exp $ set setNo 1 source ztargets.conf if {[info commands saveState] == ""} { @@ -39,7 +39,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]