--- loncom/auth/lonroles.pm	2010/01/18 17:16:58	1.240.2.14
+++ loncom/auth/lonroles.pm	2010/08/09 23:39:59	1.240.2.15
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.240.2.14 2010/01/18 17:16:58 raeburn Exp $
+# $Id: lonroles.pm,v 1.240.2.15 2010/08/09 23:39:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -455,6 +455,12 @@ ENDENTERKEY
                         &Apache::lonnet::appenv({'request.role.adv'=>$tadv});
 			my ($furl,$ferr)=
 			    &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
+                        if ($custommenu) {
+                            unless (($ferr) || ($env{'form.switchrole'})) {
+                                &Apache::lonnet::put('nohist_crslastlogin',{$env{'user.name'}.':'.$env{'user.domain'}.':'.$csec.':'.$role => $now},
+                                                     $cdom,$cnum);
+                            }
+                        }
 			if (($env{'form.orgurl'}) && 
 			    ($env{'form.orgurl'}!~/^\/adm\/flip/)) {
 			    my $dest=$env{'form.orgurl'};