loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.20, 2010/03/23 12:01:49	version 1.23, 2021/03/07 02:34:25
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 137 sub main {	Line 138 sub main {
foreach my $filename (@allfiles) {	foreach my $filename (@allfiles) {
if ($filename=~/^\./) { next; }	if ($filename=~/^\./) { next; }
if ($filename=~/^publicuser_/) { next; }	if ($filename=~/^publicuser_/) { next; }
	if ($filename=~/^[a-f0-9]+_(linked\|lti_\d+)\.id$/) { next; }
my ($dev,$ino,$mode,$nlink,	my ($dev,$ino,$mode,$nlink,
$uid,$gid,$rdev,$size,	$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,	$atime,$mtime,$ctime,
Line 266 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>");