version 1.376, 2013/04/02 13:36:34
|
version 1.377, 2013/06/04 23:12:08
|
Line 1739 sub display_existing_roles {
|
Line 1739 sub display_existing_roles {
|
} |
} |
} |
} |
if ($role_code eq 'ca' || $role_code eq 'au' || $role_code eq 'aa') { |
if ($role_code eq 'ca' || $role_code eq 'au' || $role_code eq 'aa') { |
$class='Construction Space'; |
$class='Authoring Space'; |
} elsif ($role_code eq 'su') { |
} elsif ($role_code eq 'su') { |
$class='System'; |
$class='System'; |
} else { |
} else { |
Line 1810 sub display_existing_roles {
|
Line 1810 sub display_existing_roles {
|
|
|
my $rolesdisplay = 0; |
my $rolesdisplay = 0; |
my %output = (); |
my %output = (); |
foreach my $type ('Construction Space','Course','Community','Domain','System','Unknown') { |
foreach my $type ('Authoring Space','Course','Community','Domain','System','Unknown') { |
$output{$type} = ''; |
$output{$type} = ''; |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) { |
if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) { |
Line 1836 sub display_existing_roles {
|
Line 1836 sub display_existing_roles {
|
$contextrole = &mt('Existing Roles in this Course'); |
$contextrole = &mt('Existing Roles in this Course'); |
} |
} |
} elsif ($env{'request.role'} =~ /^au\./) { |
} elsif ($env{'request.role'} =~ /^au\./) { |
$contextrole = &mt('Existing Co-Author Roles in your Construction Space'); |
$contextrole = &mt('Existing Co-Author Roles in your Authoring Space'); |
} else { |
} else { |
$contextrole = &mt('Existing Roles in this Domain'); |
$contextrole = &mt('Existing Roles in this Domain'); |
} |
} |
Line 1848 sub display_existing_roles {
|
Line 1848 sub display_existing_roles {
|
'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}. |
'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}. |
'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'. |
'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'. |
&Apache::loncommon::end_data_table_header_row()); |
&Apache::loncommon::end_data_table_header_row()); |
foreach my $type ('Construction Space','Course','Community','Domain','System','Unknown') { |
foreach my $type ('Authoring Space','Course','Community','Domain','System','Unknown') { |
if ($output{$type}) { |
if ($output{$type}) { |
$r->print($output{$type}."\n"); |
$r->print($output{$type}."\n"); |
} |
} |
Line 1873 sub new_coauthor_roles {
|
Line 1873 sub new_coauthor_roles {
|
my $cuname=$env{'user.name'}; |
my $cuname=$env{'user.name'}; |
my $cudom=$env{'request.role.domain'}; |
my $cudom=$env{'request.role.domain'}; |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'cs' => "Construction Space", |
'cs' => "Authoring Space", |
'act' => "Activate", |
'act' => "Activate", |
'rol' => "Role", |
'rol' => "Role", |
'ext' => "Extent", |
'ext' => "Extent", |
Line 1924 sub new_coauthor_roles {
|
Line 1924 sub new_coauthor_roles {
|
'</span>'); |
'</span>'); |
} elsif (($env{'user.name'} eq $ccuname) && |
} elsif (($env{'user.name'} eq $ccuname) && |
($env{'user.domain'} eq $ccdomain)) { |
($env{'user.domain'} eq $ccdomain)) { |
$r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Construction Space is not permitted')); |
$r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Authoring Space is not permitted')); |
} |
} |
} |
} |
return $addrolesdisplay;; |
return $addrolesdisplay;; |