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