--- loncom/cgi/userstatus.pl	2006/09/19 21:36:31	1.15
+++ loncom/cgi/userstatus.pl	2007/10/02 01:36:31	1.16
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.15 2006/09/19 21:36:31 albertel Exp $
+# $Id: userstatus.pl,v 1.16 2007/10/02 01:36:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -111,7 +111,9 @@ sub main {
 		    $userinfo{'environment.middlename'}.' '.
 		    $userinfo{'environment.generation'}." (".
 		    $userinfo{'user.name'}."\@".$userinfo{'user.domain'}.
-		    ")</h3>\n<b>Login time:</b> ".
+		    ")</h3>\n".
+		    "<p><tt>$filename</tt></p>".
+		    "<b>Login time:</b> ".
 		    localtime($userinfo{'user.login.time'}).
 		    ' <b>Browser</b>: '.$userinfo{'browser.type'}.
 		    " on ".$userinfo{'browser.os'}."<b>Client:</b> ".