--- loncom/cgi/userstatus.pl	2018/07/05 15:23:59	1.21
+++ loncom/cgi/userstatus.pl	2021/03/06 19:09:03	1.22
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.21 2018/07/05 15:23:59 raeburn Exp $
+# $Id: userstatus.pl,v 1.22 2021/03/06 19:09:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -114,6 +114,7 @@ sub main {
                   Course              => 'Course',
                   Browser             => 'Browser',
                   OS                  => 'OS',
+                  Any                 => 'Any',
                   Active              => 'Active',
                   'Moderately Active' => 'Moderately Active',
                   Inactive            => 'Inactive',
@@ -267,7 +268,7 @@ sub showact {
     print("<h3>$ltref->{$cat}</h3>\n");
     
     print("<table border='1'><tr><th>&nbsp;</th><th>");
-    print(join("</th><th>",('Any',@actl)));
+    print(join("</th><th>",(map {$ltref->{$_}; {'Any',@actl)));
     print("</th></tr>");
     foreach my $type (sort(keys(%{$usercount{$cat}}))) {
 	print("<tr><td>$type</td>");