diff --git a/lib/WebGUI/Operation/Statistics.pm b/lib/WebGUI/Operation/Statistics.pm index 6a5ca66f8..3776b4d44 100644 --- a/lib/WebGUI/Operation/Statistics.pm +++ b/lib/WebGUI/Operation/Statistics.pm @@ -53,7 +53,9 @@ sub www_viewActiveSessions { my ($output, $p, @row, $i, $sth, %data); tie %data, 'Tie::CPHash'; $output = '

'.WebGUI::International::get(425).'

'; - $sth = WebGUI::SQL->read("select * from users,userSession where users.userId=userSession.userId"); + $sth = WebGUI::SQL->read("select users.username,users.userId,userSession.sessionId,userSession.expires, + userSession.lastPageView,userSession.lastIP from users,userSession where users.userId=userSession.userId + and users.userId<>1 order by users.username,userSession.lastPageView desc"); while (%data = $sth->hash) { $row[$i] = ''.$data{username}.' ('.$data{userId}.')'; $row[$i] .= ''.$data{sessionId}.'';