--- loncom/auth/lonroles.pm	2000/09/30 17:25:04	1.7
+++ loncom/auth/lonroles.pm	2000/09/30 19:19:34	1.8
@@ -86,6 +86,10 @@ ENDHEADER
         }
     }
 
+# ---------------------------------------------- Get cached course descriptions
+
+    my %cdes=Apache::lonnet::dump('coursedescriptions');
+
 # -------------------------------------------------------- Generate Page Output
 # --------------------------------------------------------------- Error Header?
     if ($error) {
@@ -183,16 +187,28 @@ ENDHEADER
             }
             my $ttype;
             my $twhere;
-            my ($tres,$tdom,$trest)=split(/\//,$where);
+            my ($tdom,$trest)=
+               split(/\//,Apache::lonnet::declutter($where));
             if ($trest) {
 		$ttype='Course';
-                $twhere=$tdom.'/'.$trest;
+                my $tcourseid=$tdom.'/'.$trest;
+                if ($cdes{$tcourseid}) {
+		    $twhere=$cdes{$tcourseid};
+                } else {
+                    my %newhash=Apache::lonnet::coursedescription($tcourseid);
+                    if (%newhash) {
+			$twhere=$newhash{'description'};
+                    } else {
+                        $twhere='Currently not available';
+                    }
+                    $cdes{$tcourseid}=$twhere;
+                }     
             } elsif ($tdom) {
                 $ttype='Domain';
                 $twhere=$tdom;
             } else {
                 $ttype='System';
-                $twhere='/';
+                $twhere='system wide';
             }
                
             $r->print('<tr bgcolor='.$tbg.'>');
@@ -225,10 +241,11 @@ ENDHEADER
             my $where=join('.',@pwhere);
             my $ttype;
             my $twhere;
-            my ($tres,$tdom,$trest)=split(/\//,$where);
+            my ($tdom,$trest)=
+               split(/\//,Apache::lonnet::declutter($where));
             if ($trest) {
 		$ttype='Course';
-                $twhere=$tdom.'/'.$trest;
+                $twhere=$cdes{$tdom.'/'.$trest};
             } elsif ($tdom) {
                 $ttype='Domain';
                 $twhere=$tdom;