version 1.288, 2009/04/04 20:06:37
|
version 1.291, 2009/04/22 17:19:10
|
Line 1230 sub display_existing_roles {
|
Line 1230 sub display_existing_roles {
|
} |
} |
} |
} |
if ($rolesdisplay == 1) { |
if ($rolesdisplay == 1) { |
|
my $contextrole=''; |
|
if ($env{'request.course.id'}) { |
|
$contextrole = 'Existing Roles in this Course'; |
|
} elsif ($env{'request.role'} =~ /^au\./) { |
|
$contextrole = 'Existing Co-Author Roles in your Construction Space'; |
|
} else { |
|
$contextrole = 'Existing Roles in this Domain'; |
|
} |
$r->print(' |
$r->print(' |
<h3>'.$lt{'rer'}.'</h3>'. |
<h3>'.$lt{'rer'}.'</h3>'. |
|
'<div>'.&mt($contextrole).'</div>'. |
&Apache::loncommon::start_data_table("LC_createuser"). |
&Apache::loncommon::start_data_table("LC_createuser"). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
'<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}. |
'<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}. |
Line 1283 sub new_coauthor_roles {
|
Line 1292 sub new_coauthor_roles {
|
&Apache::loncommon::end_data_table_header_row()."\n". |
&Apache::loncommon::end_data_table_header_row()."\n". |
&Apache::loncommon::start_data_table_row().' |
&Apache::loncommon::start_data_table_row().' |
<td> |
<td> |
<input type=checkbox name="act_'.$cudom.'_'.$cuname.'_ca" /> |
<input type="checkbox" name="act_'.$cudom.'_'.$cuname.'_ca" /> |
</td> |
</td> |
<td>'.$lt{'cau'}.'</td> |
<td>'.$lt{'cau'}.'</td> |
<td>'.$cudom.'_'.$cuname.'</td> |
<td>'.$cudom.'_'.$cuname.'</td> |
Line 1295 sub new_coauthor_roles {
|
Line 1304 sub new_coauthor_roles {
|
"javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n". |
"javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n". |
&Apache::loncommon::end_data_table_row()."\n". |
&Apache::loncommon::end_data_table_row()."\n". |
&Apache::loncommon::start_data_table_row()."\n". |
&Apache::loncommon::start_data_table_row()."\n". |
'<td><input type=checkbox name="act_'.$cudom.'_'.$cuname.'_aa" /></td> |
'<td><input type="checkbox" name="act_'.$cudom.'_'.$cuname.'_aa" /></td> |
<td>'.$lt{'caa'}.'</td> |
<td>'.$lt{'caa'}.'</td> |
<td>'.$cudom.'_'.$cuname.'</td> |
<td>'.$cudom.'_'.$cuname.'</td> |
<td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_aa" value="" /> |
<td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_aa" value="" /> |
Line 1346 sub new_domain_roles {
|
Line 1355 sub new_domain_roles {
|
$num_domain_level ++; |
$num_domain_level ++; |
$domaintext .= |
$domaintext .= |
&Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |
'<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'" /></td> |
'<td><input type="checkbox" name="act_'.$thisdomain.'_'.$role.'" /></td> |
<td>'.$plrole.'</td> |
<td>'.$plrole.'</td> |
<td>'.$thisdomain.'</td> |
<td>'.$thisdomain.'</td> |
<td><input type="hidden" name="start_'.$thisdomain.'_'.$role.'" value="" /> |
<td><input type="hidden" name="start_'.$thisdomain.'_'.$role.'" value="" /> |
Line 3340 sub handler {
|
Line 3349 sub handler {
|
if ($env{'form.action'} ne 'dateselect') { |
if ($env{'form.action'} ne 'dateselect') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/adm/createuser", |
({href=>"/adm/createuser", |
text=>"User Management"}); |
text=>"User Management", |
|
help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'}); |
} |
} |
|
#SD Following files not added to help, because the corresponding .tex-files seem to |
|
#be missing: Course_Approve_Selfenroll,Course_User_Logs, |
my ($permission,$allowed) = |
my ($permission,$allowed) = |
&Apache::lonuserutils::get_permission($context); |
&Apache::lonuserutils::get_permission($context); |
if (!$allowed) { |
if (!$allowed) { |