--- loncom/cgi/userstatus.pl	2021/03/06 19:09:03	1.22
+++ loncom/cgi/userstatus.pl	2021/03/07 02:34:25	1.23
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.22 2021/03/06 19:09:03 raeburn Exp $
+# $Id: userstatus.pl,v 1.23 2021/03/07 02:34:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -268,7 +268,7 @@ sub showact {
     print("<h3>$ltref->{$cat}</h3>\n");
     
     print("<table border='1'><tr><th>&nbsp;</th><th>");
-    print(join("</th><th>",(map {$ltref->{$_}; {'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>");