version 1.92, 2006/06/22 23:30:33
|
version 1.93, 2006/06/26 18:56:50
|
Line 307 sub rolesprefchanger {
|
Line 307 sub rolesprefchanger {
|
my %frozen_roles = |
my %frozen_roles = |
&Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'}); |
&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); |
my @sorted_roles = sort {$role_text{$a} cmp $role_text{$b}} keys(%role_text); |
|
|
$roles_check_list .= |
$roles_check_list .= |
Line 364 sub rolespref_get_role_text {
|
Line 364 sub rolespref_get_role_text {
|
foreach my $item (@$roles) { |
foreach my $item (@$roles) { |
# get course information |
# get course information |
my ($role,$rest) = split(/\./, $item); |
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 ($tdomain,$other,$tsection)= split(/\//,Apache::lonnet::declutter($rest)); |
my $tother = '-'; |
my $tother = '-'; |
if ($role =~ /cc|st|in|ta/ ) { |
if ($role =~ /^(cc|st|in|ta|ep|cr)/ ) { |
my %newhash=&Apache::lonnet::coursedescription($tdomain."_".$other); |
my %newhash=&Apache::lonnet::coursedescription($tdomain."_".$other); |
$tother = " - ".$newhash{'description'}; |
$tother = " - ".$newhash{'description'}; |
} elsif ($role =~ /dc/) { |
} elsif ($role =~ /dc/) { |