--- loncom/cgi/userstatus.pl 2009/01/09 07:06:27 1.19 +++ 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.19 2009/01/09 07:06:27 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', @@ -121,7 +122,13 @@ sub main { unless ($oneline) { my $now = time(); - print '
'."\n". + print ''."\n". + ''."\n"."\n". + ''."\n". + ''."\n". + '$filename
". "$lt{'login'}: ". &Apache::lonlocal::locallocaltime($userinfo{'user.login.time'}). " $lt{'Browser'}: ".$userinfo{'browser.type'}. - " $lt{'on'} ".$userinfo{'browser.os'}."$lt{'Client'}:". + " $lt{'on'} ".$userinfo{'browser.os'}." $lt{'Client'}:". $userinfo{'request.host'}.""); - print(join(" | ",('Any',@actl)));
+ print("
|
---|