[LON-CAPA-cvs] cvs: loncom /cgi userstatus.pl

[raeburn]

raeburn		Sun Mar  7 02:34:25 2021 EDT

  Modified files:              
    /loncom/cgi	userstatus.pl 
  Log:
  - Typo in rev. 1.22
  
  
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.22 loncom/cgi/userstatus.pl:1.23
--- loncom/cgi/userstatus.pl:1.22	Sat Mar  6 19:09:03 2021
+++ loncom/cgi/userstatus.pl	Sun Mar  7 02:34:25 2021
@@ -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 @@
     print("<h3>$ltref->{$cat}</h3>\n");
     
     print("<table border='1'><tr><th> </th><th>");
-    print(join("</th><th>",(map {$ltref->{$_}; {'Any', at actl)));
+    print(join("</th><th>",map {$ltref->{$_};} ('Any', at actl)));
     print("</th></tr>");
     foreach my $type (sort(keys(%{$usercount{$cat}}))) {
 	print("<tr><td>$type</td>");