--- loncom/lonnet/perl/lonnet.pm	2007/07/19 23:02:37	1.897
+++ loncom/lonnet/perl/lonnet.pm	2007/07/20 23:16:19	1.898
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.897 2007/07/19 23:02:37 albertel Exp $
+# $Id: lonnet.pm,v 1.898 2007/07/20 23:16:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2113,6 +2113,14 @@ sub userrolelog {
          {$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}
                     =$tend.':'.$tstart;
     }
+    if (($env{'request.role'} =~ /dc\./) &&
+	(($trole=~/^au/) || ($trole=~/^in/) ||
+	 ($trole=~/^cc/) || ($trole=~/^ep/) ||
+	 ($trole=~/^cr/) || ($trole=~/^ta/))) {
+       $userrolehash
+         {$trole.':'.$username.':'.$domain.':'.$env{'user.name'}.':'.$env{'user.domain'}.':'}
+                    =$tend.':'.$tstart;
+    }
     if (($trole=~/^dc/) || ($trole=~/^ad/) ||
         ($trole=~/^li/) || ($trole=~/^li/) ||
         ($trole=~/^au/) || ($trole=~/^dg/) ||
@@ -2122,6 +2130,7 @@ sub userrolelog {
          {$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}
                     = $tend.':'.$tstart;
     }
+    &flushcourselogs();
 }
 
 sub get_course_adv_roles {