--- loncom/cgi/userstatus.pl 2009/01/09 07:06:27 1.19 +++ loncom/cgi/userstatus.pl 2010/03/23 12:01:49 1.20 @@ -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.20 2010/03/23 12:01:49 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -121,7 +121,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("
|
---|