loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.21, 2018/07/05 15:23:59	version 1.22, 2021/03/06 19:09:03
Line 114 sub main {	Line 114 sub main {
Course => 'Course',	Course => 'Course',
Browser => 'Browser',	Browser => 'Browser',
OS => 'OS',	OS => 'OS',
	Any => 'Any',
Active => 'Active',	Active => 'Active',
'Moderately Active' => 'Moderately Active',	'Moderately Active' => 'Moderately Active',
Inactive => 'Inactive',	Inactive => 'Inactive',
Line 267 sub showact {	Line 268 sub showact {
print("<h3>$ltref->{$cat}</h3>\n");	print("<h3>$ltref->{$cat}</h3>\n");

print("<table border='1'><tr><th> </th><th>");	print("<table border='1'><tr><th> </th><th>");
print(join("</th><th>",('Any',@actl)));	print(join("</th><th>",(map {$ltref->{$_}; {'Any',@actl)));
print("</th></tr>");	print("</th></tr>");
foreach my $type (sort(keys(%{$usercount{$cat}}))) {	foreach my $type (sort(keys(%{$usercount{$cat}}))) {
print("<tr><td>$type</td>");	print("<tr><td>$type</td>");