--- loncom/auth/lonroles.pm	2001/05/03 17:54:12	1.24
+++ loncom/auth/lonroles.pm	2001/05/25 19:38:42	1.25
@@ -9,7 +9,7 @@
 # 12/08,12/28,
 # 01/15/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison
-# 03/02,05/03 Gerd Kortemeyer
+# 03/02,05/03,05/25 Gerd Kortemeyer
 
 package Apache::lonroles;
 
@@ -58,7 +58,7 @@ sub handler {
                    my ($cdom,$cnum,$csec)=split(/\//,$where);
                    &Apache::lonnet::appenv('request.role' => $trolecode,
                                            'request.course.sec' => $csec);
-                   if ($cnum) {
+                   if (($cnum) && ($role ne 'ca')) {
 		      my ($furl,$ferr)=
 			  &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
                       if (($ENV{'form.orgurl'}) && 
@@ -130,6 +130,11 @@ ENDHEADER
         $r->print("Action  : $msg\n</pre><hr>");
     } else {
         $r->print("<h1>LON-CAPA User Roles</h1>");
+        if ($ENV{'user.error.msg'}) {
+	    $r->print(
+ '<h3><font color=red>You need to choose another user role or '.
+ 'enter a specific course for this function</font></h3>');
+	}
     }
 # -------------------------------------------------------- Choice or no choice?
     if ($nochoose) {