version 1.16, 2007/12/14 00:20:53
|
version 1.21, 2007/12/21 20:34:26
|
Line 46 sub modifystudent {
|
Line 46 sub modifystudent {
|
# if $csec is undefined, drop the student from all the courses matching |
# if $csec is undefined, drop the student from all the courses matching |
# this one. If $csec is defined, drop them from all other sections of |
# this one. If $csec is defined, drop them from all other sections of |
# this course and add them to section $csec |
# this course and add them to section $csec |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
my ($cnum,$cdom) = &get_course_identity($courseid); |
my $cnum = $env{'course.'.$courseid.'.num'}; |
|
my %roles = &Apache::lonnet::dump('roles',$udom,$unam); |
my %roles = &Apache::lonnet::dump('roles',$udom,$unam); |
my ($tmp) = keys(%roles); |
my ($tmp) = keys(%roles); |
# Bail out if we were unable to get the students roles |
# Bail out if we were unable to get the students roles |
Line 236 sub domain_roles_select {
|
Line 235 sub domain_roles_select {
|
} elsif ($roletype eq 'author') { |
} elsif ($roletype eq 'author') { |
@roles = &construction_space_roles(); |
@roles = &construction_space_roles(); |
} else { |
} else { |
@roles = &course_roles('domain'); |
my $custom = 1; |
unshift(@roles,'cr'); |
@roles = &course_roles('domain',undef,$custom); |
} |
} |
my $order = ['Any',@roles]; |
my $order = ['Any',@roles]; |
$select_menus{$roletype}->{'order'} = $order; |
$select_menus{$roletype}->{'order'} = $order; |
Line 772 sub forceid_change {
|
Line 771 sub forceid_change {
|
############################################################### |
############################################################### |
############################################################### |
############################################################### |
sub print_upload_manager_form { |
sub print_upload_manager_form { |
my ($r,$context) = @_; |
my ($r,$context,$permission) = @_; |
my $firstLine; |
my $firstLine; |
my $datatoken; |
my $datatoken; |
if (!$env{'form.datatoken'}) { |
if (!$env{'form.datatoken'}) { |
Line 962 sub make_dates_default {
|
Line 961 sub make_dates_default {
|
my ($startdate,$enddate,$context) = @_; |
my ($startdate,$enddate,$context) = @_; |
my $result = ''; |
my $result = ''; |
if ($context eq 'course') { |
if ($context eq 'course') { |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my ($cnum,$cdom) = &get_course_identity(); |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $put_result = &Apache::lonnet::put('environment', |
my $put_result = &Apache::lonnet::put('environment', |
{'default_enrollment_start_date'=>$startdate, |
{'default_enrollment_start_date'=>$startdate, |
'default_enrollment_end_date' =>$enddate},$dom,$crs); |
'default_enrollment_end_date' =>$enddate},$cdom,$cnum); |
if ($put_result eq 'ok') { |
if ($put_result eq 'ok') { |
$result .= &mt('Set default start and end dates for course'). |
$result .= &mt('Set default start and end dates for course'). |
'<br />'."\n"; |
'<br />'."\n"; |
Line 1048 sub default_role_selector {
|
Line 1046 sub default_role_selector {
|
sub default_course_roles { |
sub default_course_roles { |
my ($context,$checkpriv,%customroles) = @_; |
my ($context,$checkpriv,%customroles) = @_; |
my $output; |
my $output; |
my @roles = &course_roles($context,$checkpriv); |
my $custom = 1; |
|
my @roles = &course_roles($context,$checkpriv,$custom); |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $plrole=&Apache::lonnet::plaintext($role); |
my $plrole=&Apache::lonnet::plaintext($role); |
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
Line 1066 sub default_course_roles {
|
Line 1065 sub default_course_roles {
|
|
|
sub construction_space_roles { |
sub construction_space_roles { |
my ($checkpriv) = @_; |
my ($checkpriv) = @_; |
my @allroles = ('ca','aa'); |
my @allroles = &roles_by_context('author'); |
my @roles; |
my @roles; |
if ($checkpriv) { |
if ($checkpriv) { |
foreach my $role (@allroles) { |
foreach my $role (@allroles) { |
Line 1082 sub construction_space_roles {
|
Line 1081 sub construction_space_roles {
|
|
|
sub domain_roles { |
sub domain_roles { |
my ($checkpriv) = @_; |
my ($checkpriv) = @_; |
my @allroles = ('dc','li','dg','au','sc'); |
my @allroles = &roles_by_context('domain'); |
my @roles; |
my @roles; |
if ($checkpriv) { |
if ($checkpriv) { |
foreach my $role (@allroles) { |
foreach my $role (@allroles) { |
Line 1097 sub domain_roles {
|
Line 1096 sub domain_roles {
|
} |
} |
|
|
sub course_roles { |
sub course_roles { |
my ($context,$checkpriv) = @_; |
my ($context,$checkpriv,$custom) = @_; |
my @allroles = ('st','ta','ep','in','cc'); |
my @allroles = &roles_by_context('course',$custom); |
my @roles; |
my @roles; |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
@roles = @allroles; |
@roles = @allroles; |
Line 1128 sub course_roles {
|
Line 1127 sub course_roles {
|
|
|
sub curr_role_permissions { |
sub curr_role_permissions { |
my ($context,$setting,$checkpriv) = @_; |
my ($context,$setting,$checkpriv) = @_; |
|
my $custom = 1; |
my @roles; |
my @roles; |
if ($context eq 'author') { |
if ($context eq 'author') { |
@roles = &construction_space_roles($checkpriv); |
@roles = &construction_space_roles($checkpriv); |
} elsif ($context eq 'domain') { |
} elsif ($context eq 'domain') { |
if ($setting eq 'course') { |
if ($setting eq 'course') { |
@roles = &course_roles($context,$checkpriv); |
@roles = &course_roles($context,$checkpriv,$custom); |
} else { |
} else { |
@roles = &domain_roles($checkpriv); |
@roles = &domain_roles($checkpriv); |
} |
} |
} elsif ($context eq 'course') { |
} elsif ($context eq 'course') { |
@roles = &course_roles($context,$checkpriv); |
@roles = &course_roles($context,$checkpriv,$custom); |
} |
} |
return @roles; |
return @roles; |
} |
} |
Line 1287 sub print_userlist {
|
Line 1287 sub print_userlist {
|
} |
} |
} |
} |
my $cid =$env{'request.course.id'}; |
my $cid =$env{'request.course.id'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my ($cnum,$cdom) = &get_course_identity($cid); |
my $cnum=$env{'course.'.$cid.'.num'}; |
|
my $showroles; |
my $showroles; |
if ($env{'form.showrole'} ne 'Any') { |
if ($env{'form.showrole'} ne 'Any') { |
$showroles = [$env{'form.showrole'}]; |
$showroles = [$env{'form.showrole'}]; |
Line 1303 sub print_userlist {
|
Line 1302 sub print_userlist {
|
my (%cstr_roles,%dom_roles); |
my (%cstr_roles,%dom_roles); |
if ($context eq 'author') { |
if ($context eq 'author') { |
# List co-authors and assistant co-authors |
# List co-authors and assistant co-authors |
my @possroles = ('ca','aa'); |
my @possroles = &roles_by_context($context); |
%cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef, |
%cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef, |
\@statuses,\@possroles); |
\@statuses,\@possroles); |
&gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo, |
&gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo, |
Line 1328 sub print_userlist {
|
Line 1327 sub print_userlist {
|
} else { |
} else { |
my @possroles; |
my @possroles; |
if ($env{'form.showrole'} eq 'Any') { |
if ($env{'form.showrole'} eq 'Any') { |
@possroles = ('ca','aa'); |
my @possroles = &roles_by_context($context); |
} else { |
} else { |
@possroles = ($env{'form.showrole'}); |
@possroles = ($env{'form.showrole'}); |
} |
} |
Line 1351 sub print_userlist {
|
Line 1350 sub print_userlist {
|
foreach my $cid (keys(%courses)) { |
foreach my $cid (keys(%courses)) { |
my %coursehash = |
my %coursehash = |
&Apache::lonnet::coursedescription($cid,{'one_time' => 1}); |
&Apache::lonnet::coursedescription($cid,{'one_time' => 1}); |
my $cdom = $coursehash{'domain'}; |
my ($cnum,$cdom,$cdesc) = &get_course_identity($cid); |
my $cnum = $coursehash{'num'}; |
|
next if ($cnum eq '' || $cdom eq ''); |
next if ($cnum eq '' || $cdom eq ''); |
my $cdesc = $coursehash{'description'}; |
my $custom = 1; |
my (@roles,@sections,%access,%users,%userdata, |
my (@roles,@sections,%access,%users,%userdata, |
%statushash); |
%statushash); |
if ($env{'form.showrole'} eq 'Any') { |
if ($env{'form.showrole'} eq 'Any') { |
@roles = &course_roles($context); |
@roles = &course_roles($context,undef,$custom); |
unshift(@roles,'cr'); |
unshift(@roles,'cr'); |
} else { |
} else { |
@roles = ($env{'form.showrole'}); |
@roles = ($env{'form.showrole'}); |
Line 1760 sub show_users_list {
|
Line 1758 sub show_users_list {
|
my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers); |
my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers); |
if ($context eq 'course') { |
if ($context eq 'course') { |
$cid=$env{'request.course.id'}; |
$cid=$env{'request.course.id'}; |
$cdom = $env{'course.'.$cid.'.domain'}; |
($cnum,$cdom) = &get_course_identity($cid); |
$cnum = $env{'course.'.$cid.'.num'}; |
|
($classgroups) = &Apache::loncoursedata::get_group_memberships( |
($classgroups) = &Apache::loncoursedata::get_group_memberships( |
$userlist,$keylist,$cdom,$cnum); |
$userlist,$keylist,$cdom,$cnum); |
if ($mode eq 'autoenroll') { |
if ($mode eq 'autoenroll') { |
Line 2426 ENDTWO
|
Line 2423 ENDTWO
|
} |
} |
|
|
sub date_section_selector { |
sub date_section_selector { |
my ($context) = @_; |
my ($context,$permission) = @_; |
my $callingform = $env{'form.callingform'}; |
my $callingform = $env{'form.callingform'}; |
my $formname = 'dateselect'; |
my $formname = 'dateselect'; |
my $groupslist = &get_groupslist(); |
my $groupslist = &get_groupslist(); |
Line 2505 END
|
Line 2502 END
|
$starttime = time; |
$starttime = time; |
} |
} |
$date_items = &date_setting_table($starttime,undef,$context, |
$date_items = &date_setting_table($starttime,undef,$context, |
$env{'form.bulkaction'}); |
$env{'form.bulkaction'},$formname, |
|
$permission); |
} |
} |
$output .= '<h3>'.$headertext.'</h3>'. |
$output .= '<h3>'.$headertext.'</h3>'. |
'<form name="'.$formname.'" method="post">'."\n". |
'<form name="'.$formname.'" method="post">'."\n". |
$date_items; |
$date_items; |
if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') { |
if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') { |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my ($cnum,$cdom) = &get_course_identity(); |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my %sections_count = |
my %sections_count = |
&Apache::loncommon::get_sections($cdom,$cnum); |
&Apache::loncommon::get_sections($cdom,$cnum); |
my $info; |
my $info; |
Line 2540 END
|
Line 2537 END
|
$info = '<input type="hidden" name="retainsec" value="0" />'; |
$info = '<input type="hidden" name="retainsec" value="0" />'; |
} |
} |
my $sections_select .= &course_sections(\%sections_count,$env{'form.showrole'}); |
my $sections_select .= &course_sections(\%sections_count,$env{'form.showrole'}); |
my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n". |
my $rowtitle = &mt('New section to assign'); |
&Apache::lonhtmlcommon::row_title(&mt('New section to assign'),'LC_oddrow_value')."\n". |
my $secbox = §ion_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,$permission,$context); |
'<table class="LC_createuser"><tr class="LC_section_row">'."\n". |
|
'<td align="center">'.&mt('Existing sections')."\n". |
|
'<br />'.$sections_select.'</td><td align="center">'. |
|
&mt('New section').'<br />'."\n". |
|
'<input type="text" name="newsec" size="15" />'."\n". |
|
'<input type="hidden" name="sections" value="" />'."\n". |
|
'</td></tr></table>'."\n". |
|
&Apache::lonhtmlcommon::row_closure(1)."\n". |
|
&Apache::lonhtmlcommon::end_pick_box().'</p>'; |
|
$output .= $info.$secbox; |
$output .= $info.$secbox; |
} |
} |
$output .= '<p>'. |
$output .= '<p>'. |
Line 2560 END
|
Line 2548 END
|
return $output; |
return $output; |
} |
} |
|
|
|
sub section_picker { |
|
my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode) = @_; |
|
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum); |
|
my $sections_select .= &course_sections(\%sections_count,$role); |
|
my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n"; |
|
if ($mode eq 'upload') { |
|
my ($options,$cb_script,$coursepick) = |
|
&default_role_selector($context,1); |
|
$secbox .= &Apache::lonhtmlcommon::row_title('role','LC_oddrow_value'). |
|
$options. &Apache::lonhtmlcommon::row_closure(1)."\n"; |
|
} |
|
$secbox .= &Apache::lonhtmlcommon::row_title($rowtitle,'LC_oddrow_value')."\n"; |
|
if ($env{'request.course.sec'} eq '') { |
|
$secbox .= '<table class="LC_createuser"><tr class="LC_section_row">'."\n". |
|
'<td align="center">'.&mt('Existing sections')."\n". |
|
'<br />'.$sections_select.'</td><td align="center">'. |
|
&mt('New section').'<br />'."\n". |
|
'<input type="text" name="newsec" size="15" />'."\n". |
|
'<input type="hidden" name="sections" value="" />'."\n". |
|
'</td></tr></table>'."\n"; |
|
} else { |
|
$secbox .= '<input type="hidden" name="sections" value="'. |
|
$env{'request.course.sec'}.'" />'. |
|
$env{'request.course.sec'}; |
|
} |
|
$secbox .= &Apache::lonhtmlcommon::row_closure(1)."\n". |
|
&Apache::lonhtmlcommon::end_pick_box().'</p>'; |
|
return $secbox; |
|
} |
|
|
sub results_header_row { |
sub results_header_row { |
my ($rolefilter,$statusmode,$context,$permission) = @_; |
my ($rolefilter,$statusmode,$context,$permission) = @_; |
my ($description,$showfilter); |
my ($description,$showfilter); |
Line 2671 sub results_header_row {
|
Line 2689 sub results_header_row {
|
################################################# |
################################################# |
################################################# |
################################################# |
sub show_drop_list { |
sub show_drop_list { |
my ($r,$classlist,$keylist,$nosort)=@_; |
my ($r,$classlist,$keylist,$nosort,$permission)=@_; |
my $cid=$env{'request.course.id'}; |
my $cid=$env{'request.course.id'}; |
|
my ($cnum,$cdom) = &get_course_identity($cid); |
if (! exists($env{'form.sortby'})) { |
if (! exists($env{'form.sortby'})) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['sortby']); |
['sortby']); |
Line 2681 sub show_drop_list {
|
Line 2700 sub show_drop_list {
|
if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) { |
if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) { |
$sortby = 'username'; |
$sortby = 'username'; |
} |
} |
my $cdom = $env{'course.'.$cid.'.domain'}; |
|
my $cnum = $env{'course.'.$cid,'.num'}; |
|
my ($classgroups) = &Apache::loncoursedata::get_group_memberships( |
my ($classgroups) = &Apache::loncoursedata::get_group_memberships( |
$classlist,$keylist,$cdom,$cnum); |
$classlist,$keylist,$cdom,$cnum); |
# |
# |
my $action = "drop"; |
my $action = "drop"; |
|
my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript(); |
$r->print(<<END); |
$r->print(<<END); |
<input type="hidden" name="sortby" value="$sortby" /> |
<input type="hidden" name="sortby" value="$sortby" /> |
<input type="hidden" name="action" value="$action" /> |
<input type="hidden" name="action" value="$action" /> |
<input type="hidden" name="state" value="done" /> |
<input type="hidden" name="state" value="done" /> |
<script> |
<script type="text/javascript" language="Javascript"> |
function checkAll(field) { |
$check_uncheck_js |
for (i = 0; i < field.length; i++) |
|
field[i].checked = true ; |
|
} |
|
|
|
function uncheckAll(field) { |
|
for (i = 0; i < field.length; i++) |
|
field[i].checked = false ; |
|
} |
|
</script> |
</script> |
<p> |
<p> |
<input type="hidden" name="phase" value="four"> |
<input type="hidden" name="phase" value="four"> |
Line 2715 my %lt=&Apache::lonlocal::texthash('usrn
|
Line 2725 my %lt=&Apache::lonlocal::texthash('usrn
|
'groups' => "active groups", |
'groups' => "active groups", |
); |
); |
if ($nosort) { |
if ($nosort) { |
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row()); |
$r->print(<<END); |
$r->print(<<END); |
<tr> |
|
<th> </th> |
<th> </th> |
<th>$lt{'usrn'}</th> |
<th>$lt{'usrn'}</th> |
<th>$lt{'dom'}</th> |
<th>$lt{'dom'}</th> |
Line 2727 my %lt=&Apache::lonlocal::texthash('usrn
|
Line 2737 my %lt=&Apache::lonlocal::texthash('usrn
|
<th>$lt{'start'}</th> |
<th>$lt{'start'}</th> |
<th>$lt{'end'}</th> |
<th>$lt{'end'}</th> |
<th>$lt{'groups'}</th> |
<th>$lt{'groups'}</th> |
</tr> |
|
END |
END |
|
$r->print(&Apache::loncommon::end_data_table_header_row()); |
} else { |
} else { |
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row()); |
$r->print(<<END); |
$r->print(<<END); |
<tr><th> </th> |
<th> </th> |
<th> |
<th> |
<a href="/adm/dropadd?action=$action&sortby=username">$lt{'usrn'}</a> |
<a href="/adm/createuser?action=$action&sortby=username">$lt{'usrn'}</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=domain">$lt{'dom'}</a> |
<a href="/adm/createuser?action=$action&sortby=domain">$lt{'dom'}</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=id">ID</a> |
<a href="/adm/createuser?action=$action&sortby=id">ID</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=fullname">$lt{'sn'}</a> |
<a href="/adm/createuser?action=$action&sortby=fullname">$lt{'sn'}</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=section">$lt{'sec'}</a> |
<a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=start">$lt{'start'}</a> |
<a href="/adm/createuser?action=$action&sortby=start">$lt{'start'}</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=end">$lt{'end'}</a> |
<a href="/adm/createuser?action=$action&sortby=end">$lt{'end'}</a> |
</th><th> |
</th><th> |
<a href="/adm/dropadd?action=$action&sortby=groups">$lt{'groups'}</a> |
<a href="/adm/createuser?action=$action&sortby=groups">$lt{'groups'}</a> |
</th> |
</th> |
</tr> |
|
END |
END |
|
$r->print(&Apache::loncommon::end_data_table_header_row()); |
} |
} |
# |
# |
# Sort the students |
# Sort the students |
Line 2799 END
|
Line 2809 END
|
} |
} |
my $status = $sdata->[$index{'status'}]; |
my $status = $sdata->[$index{'status'}]; |
next if ($status ne 'Active'); |
next if ($status ne 'Active'); |
|
if ($env{'request.course.sec'} ne '') { |
|
if ($section ne $env{'request.course.sec'}) { |
|
next; |
|
} |
|
} |
|
my $studentkey = $student.':'.$section; |
|
my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$index{'start'}].'" />'; |
# |
# |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(<<"END"); |
$r->print(<<"END"); |
Line 2858 sub print_first_users_upload_form {
|
Line 2875 sub print_first_users_upload_form {
|
|
|
# ================================================= Drop/Add from uploaded file |
# ================================================= Drop/Add from uploaded file |
sub upfile_drop_add { |
sub upfile_drop_add { |
my ($r,$context) = @_; |
my ($r,$context,$permission) = @_; |
&Apache::loncommon::load_tmp_file($r); |
&Apache::loncommon::load_tmp_file($r); |
my @userdata=&Apache::loncommon::upfile_record_sep(); |
my @userdata=&Apache::loncommon::upfile_record_sep(); |
if($env{'form.noFirstLine'}){shift(@userdata);} |
if($env{'form.noFirstLine'}){shift(@userdata);} |
Line 3309 sub user_change_result {
|
Line 3326 sub user_change_result {
|
} |
} |
|
|
# ========================================================= Menu Phase Two Drop |
# ========================================================= Menu Phase Two Drop |
sub print_expire_menu { |
sub print_drop_menu { |
my ($r,$context) = @_; |
my ($r,$context,$permission) = @_; |
$r->print("<h3>".&mt("Expire Users' Roles")."</h3>"); |
$r->print('<h3>'.&mt("Drop Students").'</h3>'."\n". |
|
'<form name="studentform" method="post">'."\n"); |
my $cid=$env{'request.course.id'}; |
my $cid=$env{'request.course.id'}; |
my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); |
my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); |
if (! defined($classlist)) { |
if (! defined($classlist)) { |
Line 3319 sub print_expire_menu {
|
Line 3337 sub print_expire_menu {
|
return; |
return; |
} |
} |
# Print out the available choices |
# Print out the available choices |
&show_drop_list($r,$classlist,$keylist); |
&show_drop_list($r,$classlist,$keylist,$permission); |
|
$r->print('</form>'. &Apache::loncommon::end_page()); |
return; |
return; |
} |
} |
|
|
|
|
# ================================================================== Phase four |
# ================================================================== Phase four |
|
|
sub update_user_list { |
sub update_user_list { |
Line 3339 sub update_user_list {
|
Line 3357 sub update_user_list {
|
my %result_text = ( ok => { 'revoke' => 'Revoked', |
my %result_text = ( ok => { 'revoke' => 'Revoked', |
'delete' => 'Deleted', |
'delete' => 'Deleted', |
'reenable' => 'Re-enabled', |
'reenable' => 'Re-enabled', |
'activate' => 'Activated', |
'activate' => 'Activated', |
|
'chgdates' => 'Changed Access Dates for', |
|
'chgsec' => 'Changed section for', |
|
'drop' => 'Dropped', |
}, |
}, |
error => {'revoke' => 'revoking', |
error => {'revoke' => 'revoking', |
'delete' => 'deleting', |
'delete' => 'deleting', |
'reenable' => 're-enabling', |
'reenable' => 're-enabling', |
'activate' => 'activating', |
'activate' => 'activating', |
|
'chgdates' => 'changing access dates for', |
|
'chgsec' => 'changing section for', |
|
'drop' => 'dropping', |
}, |
}, |
); |
); |
my ($startdate,$enddate); |
my ($startdate,$enddate); |
Line 3354 sub update_user_list {
|
Line 3378 sub update_user_list {
|
foreach my $item (@changelist) { |
foreach my $item (@changelist) { |
my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,@sections, |
my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,@sections, |
$scopestem); |
$scopestem); |
if ($context eq 'course') { |
if ($choice eq 'drop') { |
|
($uname,$udom,$sec) = split(/:/,$item,-1); |
|
$role = 'st'; |
|
$cid = $env{'request.course.id'}; |
|
$scopestem = '/'.$cid; |
|
$scopestem =~s/\_/\//g; |
|
if ($sec eq '') { |
|
$scope = $scopestem; |
|
} else { |
|
$scope = $scopestem.'/'.$sec; |
|
} |
|
} elsif ($context eq 'course') { |
($uname,$udom,$role,$sec,$type,$locktype) = split(/\:/,$item,-1); |
($uname,$udom,$role,$sec,$type,$locktype) = split(/\:/,$item,-1); |
$cid = $env{'request.course.id'}; |
$cid = $env{'request.course.id'}; |
$scopestem = '/'.$cid; |
$scopestem = '/'.$cid; |
Line 3387 sub update_user_list {
|
Line 3422 sub update_user_list {
|
my ($uid,$first,$middle,$last,$gene,$sec); |
my ($uid,$first,$middle,$last,$gene,$sec); |
my $start = $env{'form.'.$item.'_start'}; |
my $start = $env{'form.'.$item.'_start'}; |
my $end = $env{'form.'.$item.'_end'}; |
my $end = $env{'form.'.$item.'_end'}; |
# revoke or delete user role |
if ($choice eq 'drop') { |
if ($choice eq 'revoke') { |
# drop students |
|
$end = $now; |
|
$type = 'manual'; |
|
$result = |
|
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); |
|
} elsif ($choice eq 'revoke') { |
|
# revoke or delete user role |
$end = $now; |
$end = $now; |
if ($role eq 'st') { |
if ($role eq 'st') { |
$result = |
$result = |
Line 3490 sub update_user_list {
|
Line 3531 sub update_user_list {
|
} |
} |
} |
} |
} |
} |
|
my $extent = $scope; |
|
if ($choice eq 'drop' || $context eq 'course') { |
|
my ($cnum,$cdom,$cdesc) = &get_course_identity($cid); |
|
if ($cdesc) { |
|
$extent = $cdesc; |
|
} |
|
} |
if ($result eq 'ok' || $result eq 'ok:') { |
if ($result eq 'ok' || $result eq 'ok:') { |
$r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]", |
$r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]", |
$plrole,$scope,$uname.':'.$udom).'<br />'); |
$plrole,$extent,$uname.':'.$udom).'<br />'); |
$count++; |
$count++; |
} else { |
} else { |
$r->print( |
$r->print( |
&mt("Error $result_text{'error'}{$choice} [_1] in [_2] for [_3]:[_4]", |
&mt("Error $result_text{'error'}{$choice} [_1] in [_2] for [_3]:[_4]", |
$plrole,$scope,$uname.':'.$udom,$result).'<br />'); |
$plrole,$extent,$uname.':'.$udom,$result).'<br />'); |
} |
} |
} |
} |
$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,users].",$count).'</b></p>'); |
$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,users].",$count).'</b></p>'); |
if ($count > 0) { |
if ($count > 0) { |
if ($choice eq 'revoke') { |
if ($choice eq 'revoke' || $choice eq 'drop') { |
$r->print('<p>'.&mt('Re-enabling will re-activate data for the role.</p>')); |
$r->print('<p>'.&mt('Re-enabling will re-activate data for the role.</p>')); |
} |
} |
# Flush the course logs so reverse user roles immediately updated |
# Flush the course logs so reverse user roles immediately updated |
Line 3754 sub can_create_user {
|
Line 3802 sub can_create_user {
|
return $cancreate; |
return $cancreate; |
} |
} |
|
|
|
sub can_modify_userinfo { |
|
my ($context,$dom,$fields,$userroles) = @_; |
|
my %domconfig = |
|
&Apache::lonnet::get_dom('configuration',['usermodification'], |
|
$dom); |
|
my %canmodify; |
|
if (ref($fields) eq 'ARRAY') { |
|
foreach my $field (@{$fields}) { |
|
$canmodify{$field} = 0; |
|
if (&Apache::lonnet::allowed('mau',$dom)) { |
|
$canmodify{$field} = 1; |
|
} else { |
|
if (ref($domconfig{'usermodification'}) eq 'HASH') { |
|
if (ref($domconfig{'usermodification'}{$context}) eq 'HASH') { |
|
if (ref($userroles) eq 'ARRAY') { |
|
foreach my $role (@{$userroles}) { |
|
my $testrole; |
|
if ($role =~ /^cr\//) { |
|
$testrole = 'cr'; |
|
} else { |
|
$testrole = $role; |
|
} |
|
if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') { |
|
if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) { |
|
$canmodify{$field} = 1; |
|
last; |
|
} |
|
} |
|
} |
|
} else { |
|
foreach my $key (keys(%{$domconfig{'usermodification'}{$context}})) { |
|
if (ref($domconfig{'usermodification'}{$context}{$key}) eq 'HASH') { |
|
if ($domconfig{'usermodification'}{$context}{$key}{$field}) { |
|
$canmodify{$field} = 1; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} elsif ($context eq 'course') { |
|
if (ref($userroles) eq 'ARRAY') { |
|
if (grep(/^st$/,@{$userroles})) { |
|
$canmodify{$field} = 1; |
|
} |
|
} else { |
|
$canmodify{$field} = 1; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return %canmodify; |
|
} |
|
|
|
sub check_usertype { |
|
my ($dom,$uname,$rules) = @_; |
|
my $usertype; |
|
if (ref($rules) eq 'HASH') { |
|
my @user_rules = keys(%{$rules}); |
|
if (@user_rules > 0) { |
|
my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules); |
|
if (keys(%rule_check) > 0) { |
|
$usertype = 'unofficial'; |
|
foreach my $item (keys(%rule_check)) { |
|
if ($rule_check{$item}) { |
|
$usertype = 'official'; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return $usertype; |
|
} |
|
|
|
sub roles_by_context { |
|
my ($context,$custom) = @_; |
|
my @allroles; |
|
if ($context eq 'course') { |
|
@allroles = ('st','ad','ta','ep','in','cc'); |
|
if ($custom) { |
|
push(@allroles,'cr'); |
|
} |
|
} elsif ($context eq 'author') { |
|
@allroles = ('ca','aa'); |
|
} elsif ($context eq 'domain') { |
|
@allroles = ('li','dg','sc','au','dc'); |
|
} |
|
return @allroles; |
|
} |
|
|
sub get_permission { |
sub get_permission { |
my ($context) = @_; |
my ($context,$roles) = @_; |
my %permission; |
my %permission; |
if ($context eq 'course') { |
if ($context eq 'course') { |
if ((&Apache::lonnet::allowed('cta',$env{'request.course.id'})) || |
my $custom = 1; |
(&Apache::lonnet::allowed('cin',$env{'request.course.id'})) || |
my @allroles = &roles_by_context($context,$custom); |
(&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) || |
foreach my $role (@allroles) { |
(&Apache::lonnet::allowed('cep',$env{'request.course.id'})) || |
if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) { |
(&Apache::lonnet::allowed('cst',$env{'request.course.id'}))) { |
$permission{'cusr'} = 1; |
$permission{'cusr'} = 1; |
last; |
$permission{'view'} = |
} |
&Apache::lonnet::allowed('vcl',$env{'request.course.id'}); |
|
|
|
} |
} |
if (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) { |
$permission{'custom'} = 1; |
$permission{'custom'} = 1; |
Line 3781 sub get_permission {
|
Line 3919 sub get_permission {
|
$permission{'view_section'} = $env{'request.course.sec'}; |
$permission{'view_section'} = $env{'request.course.sec'}; |
} |
} |
} |
} |
|
if (!$permission{'cusr'}) { |
|
if ($env{'request.course.sec'} ne '') { |
|
my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'}; |
|
$permission{'cusr'} = (&Apache::lonnet::allowed('cst',$scope)); |
|
if ($permission{'cusr'}) { |
|
$permission{'cusr_section'} = $env{'request.course.sec'}; |
|
} |
|
} |
|
} |
if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) { |
$permission{'grp_manage'} = 1; |
$permission{'grp_manage'} = 1; |
} |
} |
Line 3788 sub get_permission {
|
Line 3935 sub get_permission {
|
$permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'}); |
$permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'}); |
$permission{'view'} = $permission{'cusr'}; |
$permission{'view'} = $permission{'cusr'}; |
} else { |
} else { |
if ((&Apache::lonnet::allowed('cad',$env{'request.role.domain'})) || |
my @allroles = &roles_by_context($context); |
(&Apache::lonnet::allowed('cli',$env{'request.role.domain'})) || |
foreach my $role (@allroles) { |
(&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) || |
if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) { $permission{'cusr'} = 1; |
(&Apache::lonnet::allowed('csc',$env{'request.role.domain'})) || |
last; |
(&Apache::lonnet::allowed('cdg',$env{'request.role.domain'})) || |
} |
(&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) { |
} |
$permission{'cusr'} = 1; |
if (!$permission{'cusr'}) { |
|
if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) { |
|
$permission{'cusr'} = 1; |
|
} |
} |
} |
if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) { |
$permission{'custom'} = 1; |
$permission{'custom'} = 1; |
Line 3816 sub authorpriv {
|
Line 3966 sub authorpriv {
|
|| (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; } return 1; |
|| (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; } return 1; |
} |
} |
|
|
|
sub get_course_identity { |
|
my ($cid) = @_; |
|
my ($cnum,$cdom,$cdesc); |
|
if ($cid eq '') { |
|
$cid = $env{'request.course.id'} |
|
} |
|
if ($cid ne '') { |
|
$cnum = $env{'course.'.$cid.'.num'}; |
|
$cdom = $env{'course.'.$cid.'.domain'}; |
|
$cdesc = $env{'course.'.$cid.'.description'}; |
|
if ($cnum eq '' || $cdom eq '') { |
|
my %coursehash = |
|
&Apache::lonnet::coursedescription($cid,{'one_time' => 1}); |
|
$cdom = $coursehash{'domain'}; |
|
$cnum = $coursehash{'num'}; |
|
$cdesc = $coursehash{'description'}; |
|
} |
|
} |
|
return ($cnum,$cdom,$cdesc); |
|
} |
|
|
|
sub dc_setcourse_js { |
|
my ($formname,$mode) = @_; |
|
my $dc_setcourse_code; |
|
my $cctext = &Apache::lonnet::plaintext('cc'); |
|
my %alerts = §ioncheck_alerts(); |
|
my $role = 'role'; |
|
if ($mode eq 'upload') { |
|
$role = 'courserole'; |
|
} |
|
$dc_setcourse_code = (<<"SCRIPTTOP"); |
|
function setCourse() { |
|
var course = document.$formname.dccourse.value; |
|
if (course != "") { |
|
if (document.$formname.dcdomain.value != document.$formname.origdom.value) { |
|
alert("$alerts{'curd'}"); |
|
return; |
|
} |
|
var userrole = document.$formname.$role.options[document.$formname.$role.selectedIndex].value |
|
var section=""; |
|
var numsections = 0; |
|
var newsecs = new Array(); |
|
for (var i=0; i<document.$formname.currsec.length; i++) { |
|
if (document.$formname.currsec.options[i].selected == true ) { |
|
if (document.$formname.currsec.options[i].value != "" && document.$formname.currsec.options[i].value != null) { |
|
if (numsections == 0) { |
|
section = document.$formname.currsec.options[i].value |
|
numsections = 1; |
|
} |
|
else { |
|
section = section + "," + document.$formname.currsec.options[i].value |
|
numsections ++; |
|
} |
|
} |
|
} |
|
} |
|
if (document.$formname.newsec.value != "" && document.$formname.newsec.value != null) { |
|
if (numsections == 0) { |
|
section = document.$formname.newsec.value |
|
} |
|
else { |
|
section = section + "," + document.$formname.newsec.value |
|
} |
|
newsecs = document.$formname.newsec.value.split(/,/g); |
|
numsections = numsections + newsecs.length; |
|
} |
|
if ((userrole == 'st') && (numsections > 1)) { |
|
alert("$alerts{'inea'}. $alerts{'youh'} "+numsections+" $alerts{'sect'}.\\n$alerts{'plsm'}.") |
|
return; |
|
} |
|
for (var j=0; j<newsecs.length; j++) { |
|
if ((newsecs[j] == 'all') || (newsecs[j] == 'none')) { |
|
alert("'"+newsecs[j]+"' $alerts{'mayn'}.\\n$alerts{'plsc'}."); |
|
return; |
|
} |
|
if (document.$formname.groups.value != '') { |
|
var groups = document.$formname.groups.value.split(/,/g); |
|
for (var k=0; k<groups.length; k++) { |
|
if (newsecs[j] == groups[k]) { |
|
alert("'"+newsecs[j]+"' $alerts{'mayt'}.\\n$alerts{'secn'}. $alerts{'plsc'}."); |
|
return; |
|
} |
|
} |
|
} |
|
} |
|
if ((userrole == 'cc') && (numsections > 0)) { |
|
alert("$alerts{'secd'} $cctext $alerts{'role'}.\\n$alerts{'accr'}."); |
|
section = ""; |
|
} |
|
SCRIPTTOP |
|
if ($mode ne 'upload') { |
|
$dc_setcourse_code .= (<<"ENDSCRIPT"); |
|
var coursename = "_$env{'request.role.domain'}"+"_"+course+"_"+userrole |
|
var numcourse = getIndex(document.$formname.dccourse); |
|
if (numcourse == "-1") { |
|
alert("$alerts{'thwa'}"); |
|
return; |
|
} |
|
else { |
|
document.$formname.elements[numcourse].name = "act"+coursename; |
|
var numnewsec = getIndex(document.$formname.newsec); |
|
if (numnewsec != "-1") { |
|
document.$formname.elements[numnewsec].name = "sec"+coursename; |
|
document.$formname.elements[numnewsec].value = section; |
|
} |
|
var numstart = getIndex(document.$formname.start); |
|
if (numstart != "-1") { |
|
document.$formname.elements[numstart].name = "start"+coursename; |
|
} |
|
var numend = getIndex(document.$formname.end); |
|
if (numend != "-1") { |
|
document.$formname.elements[numend].name = "end"+coursename |
|
} |
|
} |
|
} |
|
document.$formname.submit(); |
|
} |
|
|
|
ENDSCRIPT |
|
} else { |
|
$dc_setcourse_code .= " |
|
document.$formname.sections.value = section; |
|
} |
|
return 'ok'; |
|
} |
|
"; |
|
} |
|
$dc_setcourse_code .= (<<"ENDSCRIPT"); |
|
|
|
function getIndex(caller) { |
|
for (var i=0;i<document.$formname.elements.length;i++) { |
|
if (document.$formname.elements[i] == caller) { |
|
return i; |
|
} |
|
} |
|
return -1; |
|
} |
|
ENDSCRIPT |
|
} |
|
|
|
sub sectioncheck_alerts { |
|
my %alerts = &Apache::lonlocal::texthash( |
|
curd => 'You must select a course in the current domain', |
|
inea => 'In each course, each user may only have one student role at a time', |
|
youh => 'You had selected', |
|
sect => 'sections', |
|
plsm => 'Please modify your selections so they include no more than one section', |
|
mayn => 'may not be used as the name for a section, as it is a reserved word', |
|
plsc => 'Please choose a different section name', |
|
mayt => 'may not be used as the name for a section, as it is the name of a course group', |
|
secn => 'Section names and group names must be distinct', |
|
secd => 'Section designations do not apply to ', |
|
role => 'roles', |
|
accr => 'role will be added with access to all sections', |
|
thwa => 'There was a problem with your course selection' |
|
); |
|
return %alerts; |
|
} |
|
|
|
|
1; |
1; |
|
|