--- loncom/auth/lonroles.pm	2001/03/03 00:55:36	1.23
+++ loncom/auth/lonroles.pm	2001/05/03 17:54:12	1.24
@@ -9,7 +9,7 @@
 # 12/08,12/28,
 # 01/15/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison
-# 03/02 Gerd Kortemeyer
+# 03/02,05/03 Gerd Kortemeyer
 
 package Apache::lonroles;
 
@@ -222,6 +222,11 @@ ENDHEADER
             my ($tdom,$trest,$tsection)=
                split(/\//,Apache::lonnet::declutter($where));
             if ($trest) {
+	      if ($role eq 'ca') {
+	        $ttype='Construction Space';
+                $twhere='User: '.$trest.'<br>Domain: '.$tdom;
+                $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
+              } else {
 		$ttype='Course';
                 if ($tsection) {
                    $ttype.='<br>Section/Group: '.$tsection;
@@ -238,6 +243,7 @@ ENDHEADER
                         $ENV{'course.'.$tcourseid.'.description'}=$twhere;
                     }
                 }
+	      }
             } elsif ($tdom) {
                 $ttype='Domain';
                 $twhere=$tdom;
@@ -295,11 +301,16 @@ ENDHEADER
             my ($tdom,$trest,$tsec)=
                split(/\//,Apache::lonnet::declutter($where));
             if ($trest) {
+	      if ($ENV{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') {
+	        $ttype='Construction Space';
+                $twhere='User: '.$trest.', Domain: '.$tdom;
+              } else {
 		$ttype='Course';
                 $twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'};
                 if ($tsec) {
 		    $twhere.=' (Section/Group: '.$tsec.')';
                 }
+	      }
             } elsif ($tdom) {
                 $ttype='Domain';
                 $twhere=$tdom;