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

[raeburn]

raeburn		Sat Mar  6 19:09:03 2021 EDT

  Modified files:              
    /loncom/cgi	userstatus.pl 
  Log:
  - Missing localization call added.
  
  
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.21 loncom/cgi/userstatus.pl:1.22
--- loncom/cgi/userstatus.pl:1.21	Thu Jul  5 15:23:59 2018
+++ loncom/cgi/userstatus.pl	Sat Mar  6 19:09:03 2021
@@ -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 @@
                   Course              => 'Course',
                   Browser             => 'Browser',
                   OS                  => 'OS',
+                  Any                 => 'Any',
                   Active              => 'Active',
                   'Moderately Active' => 'Moderately Active',
                   Inactive            => 'Inactive',
@@ -267,7 +268,7 @@
     print("<h3>$ltref->{$cat}</h3>\n");
     
     print("<table border='1'><tr><th> </th><th>");
-    print(join("</th><th>",('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>");