|
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/) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface