X-Git-Url: http://git.indexdata.com/?p=egate.git;a=blobdiff_plain;f=www%2Fmtargets.egw;h=1f81bfa2aea31324b3af8b6d9d48599c0699e066;hp=5b641f5884b82c6ec660c4454e0e1b844c28afaf;hb=c38544a87dfb550dfe4731c450bbde093c095bde;hpb=3bbb844581f17ede97f6eb7ea8022b69a0859420 diff --git a/www/mtargets.egw b/www/mtargets.egw index 5b641f5..1f81bfa 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,6 +1,6 @@ { -# $Id: mtargets.egw,v 1.13 1996/01/26 17:41:25 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,14 +39,24 @@ 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] set desc [lindex $targets($t) 4] if {$desc != ""} { - html "$desc
\n" + html "$desc
\n" } foreach d $databases { html {