[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /auth switchserver.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2015-01-22 22:45:06
Message-ID: cvsraeburn1421966706 () cvsserver
[Download RAW message or body]
raeburn Thu Jan 22 22:45:06 2015 EDT
Modified files:
/loncom/auth switchserver.pm
Log:
- Make switch server entries in a user's activity.log file less confusing
by only including the phrase "with role", if a role was passed to
/adm/switchserver.
Index: loncom/auth/switchserver.pm
diff -u loncom/auth/switchserver.pm:1.33 loncom/auth/switchserver.pm:1.34
--- loncom/auth/switchserver.pm:1.33 Thu Jan 8 21:18:29 2015
+++ loncom/auth/switchserver.pm Thu Jan 22 22:45:06 2015
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Switch Servers Handler
#
-# $Id: switchserver.pm,v 1.33 2015/01/08 21:18:29 raeburn Exp $
+# $Id: switchserver.pm,v 1.34 2015/01/22 22:45:06 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -160,9 +160,15 @@
my %temp=('switchserver' => time.':'.$env{'form.otherserver'},
$env{'form.role'});
&Apache::lonnet::put('email_status',\%temp);
+ my $logmsg = "Switch Server to $env{'form.otherserver'}";
+ if ($env{'form.role'}) {
+ $logmsg .= " with role: $env{'form.role'}";
+ } else {
+ $logmsg .= " (no role)";
+ }
+ $logmsg .= ' '.$ENV{'REMOTE_ADDR'};
&Apache::lonnet::log($env{'user.domain'},$env{'user.name'},
- $env{'user.home'},
- "Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}");
+ $env{'user.home'},$logmsg);
&Apache::loncommon::content_type($r,'text/html');
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic