|
|
@@ -617,8 +617,8 @@ proc ::cims::chanstat_users {chan users} {
|
|
|
proc ::cims::chanstat_userlist {chan unique_userlist} {
|
|
|
set ch_userlist [chanlist ${chan}]
|
|
|
|
|
|
- lappend unique_userlist [join $ch_userlist]
|
|
|
- set unique_userlist [lsort -unique $unique_userlist]
|
|
|
+ set unique_userlist [lsort -unique [join [lappend unique_userlist [join $ch_userlist]]]]
|
|
|
+
|
|
|
putlog "uulist: $unique_userlist"
|
|
|
|
|
|
return $unique_userlist
|
