--- 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("
"); - print(join(" | ",('Any',@actl))); + print(join(" | ",(map {$ltref->{$_}; {'Any',@actl))); print(" | |
---|---|---|---|
$type | ");