[LON-CAPA-cvs] cvs: loncom /cgi userstatus.pl

[albertel]

albertel		Mon Oct  1 21:36:33 2007 EDT

  Modified files:              
    /loncom/cgi	userstatus.pl 
  Log:
  - include the filename
  
  
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.15 loncom/cgi/userstatus.pl:1.16
--- loncom/cgi/userstatus.pl:1.15	Tue Sep 19 17:36:31 2006
+++ loncom/cgi/userstatus.pl	Mon Oct  1 21:36:31 2007
@@ -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 @@
 		    $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> ".