Index: openacs-4/packages/jabber/www/admin/online-users.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/jabber/www/admin/online-users.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/jabber/www/admin/online-users.tcl 1 Mar 2005 00:01:38 -0000 1.2 +++ openacs-4/packages/jabber/www/admin/online-users.tcl 11 Oct 2018 11:17:07 -0000 1.3 @@ -10,7 +10,7 @@ ltext:onevalue get_users:multirow online_check_p:onevalue - statecolour:onevalue + statecolor:onevalue } @@ -29,22 +29,22 @@ } -multirow create get_users screen_id status statecolour im_screen_name service resource +multirow create get_users screen_id status statecolor im_screen_name service resource db_foreach get_users "select * from jb_screens where status != 'offline'" { set online_check_p 1 if { $status == "online" } { - set statecolour "green" + set statecolor "green" } elseif { $status == "away" } { - set statecolour "mediumslateblue" + set statecolor "mediumslateblue" } elseif { $status == "dnd" } { - set statecolour "navy" + set statecolor "navy" } else { - set statecolour "black" + set statecolor "black" } - multirow append get_users $screen_id $status $statecolour $im_screen_name $service $resourc + multirow append get_users $screen_id $status $statecolor $im_screen_name $service $resourc } if_no_rows { set online_check_p 0