version 1.121, 2006/06/26 21:36:53
|
version 1.128, 2006/07/02 12:18:01
|
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 378 ENDSCRIPT
|
Line 378 ENDSCRIPT
|
var str = document.cu.elements[i].name; |
var str = document.cu.elements[i].name; |
var checkcurr = str.match(re1); |
var checkcurr = str.match(re1); |
if (checkcurr != null) { |
if (checkcurr != null) { |
var re2 = /^currsec_[a-zA-Z0-9]+_[a-zA-Z0-9]+_(\\w+)\$/; |
|
if (document.cu.elements[i-1].checked == true) { |
if (document.cu.elements[i-1].checked == true) { |
var re2 = /^currsec_[a-zA-Z0-9]+_[a-zA-Z0-9]+_(\\w+)\$/; |
var re2 = /^currsec_[a-zA-Z0-9]+_[a-zA-Z0-9]+_(\\w+)\$/; |
match = re2.exec(str); |
match = re2.exec(str); |
Line 415 ENDSCRIPT
|
Line 414 ENDSCRIPT
|
sections = document.cu.elements[i+1].value; |
sections = document.cu.elements[i+1].value; |
} |
} |
var newsecs = document.cu.elements[i+1].value; |
var newsecs = document.cu.elements[i+1].value; |
|
var numsplit; |
if (newsecs != null && newsecs != "") { |
if (newsecs != null && newsecs != "") { |
var numsplit = newsecs.split(/,/g); |
numsplit = newsecs.split(/,/g); |
numsec = numsec + numsplit.length; |
numsec = numsec + numsplit.length; |
} |
} |
|
|
if ((role == 'st') && (numsec > 1)) { |
if ((role == 'st') && (numsec > 1)) { |
alert("In each course, each user may only have one student role at a time. You had selected "+numsec+" sections.\\nPlease modify your selections so they include no more than one section.") |
alert("In each course, each user may only have one student role at a time. You had selected "+numsec+" sections.\\nPlease modify your selections so they include no more than one section.") |
return; |
return; |
} |
} |
else { |
else if (numsplit != null) { |
for (var j=0; j<numsplit.length; j++) { |
for (var j=0; j<numsplit.length; j++) { |
if ((numsplit[j] == 'all') || |
if ((numsplit[j] == 'all') || |
(numsplit[j] == 'none')) { |
(numsplit[j] == 'none')) { |
Line 437 ENDSCRIPT
|
Line 438 ENDSCRIPT
|
} |
} |
} |
} |
} |
} |
document.cu.elements[i+2].value = sections; |
|
} |
} |
|
document.cu.elements[i+2].value = sections; |
} |
} |
} |
} |
} |
} |
Line 1598 sub custom_role_editor {
|
Line 1599 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"':'').' />':' '). |
Line 1770 sub course_level_table {
|
Line 1766 sub course_level_table {
|
foreach ('st','ta','ep','in','cc') { |
foreach ('st','ta','ep','in','cc') { |
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { |
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { |
my $plrole=&Apache::lonnet::plaintext($_); |
my $plrole=&Apache::lonnet::plaintext($_); |
# Was this left in by mistake? |
|
# if ($type eq 'Group') { |
|
# $plrole = &Apache::loncommon::convert_role($plrole,$type); |
|
# } |
|
$table .= <<ENDEXTENT; |
$table .= <<ENDEXTENT; |
<tr bgcolor="#$bgcol"> |
<tr bgcolor="#$bgcol"> |
<td><input type="checkbox" name="act_$protectedcourse\_$_"></td> |
<td><input type="checkbox" name="act_$protectedcourse\_$_"></td> |