[LON-CAPA-cvs] cvs: loncom(version_2_2_X) /auth lonroles.pm

[albertel]

albertel		Mon Oct  9 21:55:34 2006 EDT

  Modified files:              (Branch: version_2_2_X)
    /loncom/auth	lonroles.pm 
  Log:
  - backport 1.165
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.162.2.2 loncom/auth/lonroles.pm:1.162.2.3
--- loncom/auth/lonroles.pm:1.162.2.2	Wed Jul 19 06:07:14 2006
+++ loncom/auth/lonroles.pm	Mon Oct  9 21:55:33 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.162.2.2 2006/07/19 10:07:14 albertel Exp $
+# $Id: lonroles.pm,v 1.162.2.3 2006/10/10 01:55:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -851,9 +851,10 @@
             $roletext.='<td'.$rowspan.'>&nbsp;</td>';
         }
     }
-    $tremark.=&Apache::lonannounce::showday(time,1,
-                 &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
-
+    if ($trolecode !~ m/^(dc|ca|au|aa)\./) {
+	$tremark.=&Apache::lonannounce::showday(time,1,
+			 &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
+    }
     $roletext.='<td><font color="'.$tfont.'">'.$trole.
 	       '</font></td><td><font color="'.$tfont.'">'.$twhere.
                '</font></td><td><font color="'.$tfont.'">'.$tpstart.