--- loncom/lonnet/perl/lonnet.pm	2006/06/22 15:34:16	1.757
+++ loncom/lonnet/perl/lonnet.pm	2006/06/26 18:56:03	1.758
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.757 2006/06/22 15:34:16 albertel Exp $
+# $Id: lonnet.pm,v 1.758 2006/06/26 18:56:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1885,9 +1885,6 @@ sub get_course_adv_roles {
 	    (!$nothide{$username.':'.$domain})) { next; }
 	if ($role eq 'cr') { next; }
         my $key=&plaintext($role);
-	if ($role =~ /^cr/) {
-	    $key=(split('/',$role))[3];
-	}
         if ($section) { $key.=' (Sec/Grp '.$section.')'; }
         if ($returnhash{$key}) {
 	    $returnhash{$key}.=','.$username.':'.$domain;
@@ -4113,6 +4110,9 @@ sub devalidate_getgroups_cache {
 
 sub plaintext {
     my ($short,$type,$cid) = @_;
+    if ($short =~ /^cr/) {
+	return (split('/',$short))[-1];
+    }
     if (!defined($cid)) {
         $cid = $env{'request.course.id'};
     }