version 1.121, 2006/06/26 21:36:53
|
version 1.123, 2006/06/27 17:48:53
|
Line 142 sub print_username_entry_form {
|
Line 142 sub print_username_entry_form {
|
'nr' => "Name of Role", |
'nr' => "Name of Role", |
'cre' => "Custom Role Editor" |
'cre' => "Custom Role Editor" |
); |
); |
my $help = &Apache::loncommon::help_open_menu('',undef,undef,'',282,'Instructor Interface'); |
my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface'); |
my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges'); |
my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges'); |
my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles'); |
my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles'); |
$r->print(<<"ENDDOCUMENT"); |
$r->print(<<"ENDDOCUMENT"); |
Line 1598 sub custom_role_editor {
|
Line 1598 sub custom_role_editor {
|
ENDCCF |
ENDCCF |
foreach my $priv (sort keys %full) { |
foreach my $priv (sort keys %full) { |
my $privtext = &Apache::lonnet::plaintext($priv); |
my $privtext = &Apache::lonnet::plaintext($priv); |
if ($env{'course.'.$env{'request.course.id'}.'.type'}) { |
|
$privtext =~ s/Student/Member/; |
|
$privtext =~ s/student/member/; |
|
$privtext =~ s/course/group/; |
|
} |
|
$r->print('<tr><td>'.$privtext.'</td><td>'. |
$r->print('<tr><td>'.$privtext.'</td><td>'. |
($courselevel{$priv}?'<input type="checkbox" name="'.$priv.':c" '. |
($courselevel{$priv}?'<input type="checkbox" name="'.$priv.':c" '. |
($courselevelcurrent{$priv}?'checked="1"':'').' />':' '). |
($courselevelcurrent{$priv}?'checked="1"':'').' />':' '). |