--- loncom/interface/lonpreferences.pm	2006/06/22 23:30:33	1.92
+++ loncom/interface/lonpreferences.pm	2006/06/26 18:56:50	1.93
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.92 2006/06/22 23:30:33 albertel Exp $
+# $Id: lonpreferences.pm,v 1.93 2006/06/26 18:56:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -307,7 +307,7 @@ sub rolesprefchanger {
         my %frozen_roles =
                &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});
         
-        my %role_text = &rolespref_get_role_text(keys(%recent_roles));
+        my %role_text = &rolespref_get_role_text([keys(%recent_roles)]);
         my @sorted_roles = sort {$role_text{$a} cmp $role_text{$b}} keys(%role_text);
 
         $roles_check_list .=
@@ -364,10 +364,11 @@ sub rolespref_get_role_text {
     foreach my $item (@$roles) {
 # get course information
         my ($role,$rest) = split(/\./, $item);
-        my $trole = &Apache::lonnet::plaintext($role);
+        my $trole = "";
+        $trole = &Apache::lonnet::plaintext($role);
         my ($tdomain,$other,$tsection)= split(/\//,Apache::lonnet::declutter($rest));
         my $tother = '-';
-        if ($role =~ /cc|st|in|ta/ ) {
+        if ($role =~ /^(cc|st|in|ta|ep|cr)/ ) {
             my %newhash=&Apache::lonnet::coursedescription($tdomain."_".$other);
             $tother = " - ".$newhash{'description'};
         } elsif ($role =~ /dc/) {