'.&Apache::loncommon::start_data_table(); foreach my $role (sort(keys(%coursepersonnel))) { next if ($role =~ /^\s*$/); $output .= &Apache::loncommon::start_data_table_row(). '
'); } my ($output,$actionselect,%canchange,%canchangesec); if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll' || $mode eq 'pickauthor') { if ($mode ne 'autoenroll' && $mode ne 'pickauthor') { if ($permission->{'cusr'}) { $actionselect = &select_actions($context,$setting,$statusmode,$formname); } $r->print(<
| '.&mt('manual').' | |
| '; $manualcount ++; if ($in{'lockedtype'}) { $cellentry .= ''; $unlockcount ++; } else { $cellentry .= ''; $lockcount ++; } $cellentry .= ' |
'); } elsif ($mode eq 'excel') { $excel_workbook->close(); $r->print(&mt('[_1]Your Excel spreadsheet[_2] is ready for download.', '
','')."
\n"); } elsif ($mode eq 'csv') { close($CSVfile); $r->print(&mt('[_1]Your CSV file[_2] is ready for download.', '','')."
\n"); $r->rflush(); } if ($mode eq 'autoenroll') { return ($usercount,$autocount,$manualcount,$lockcount,$unlockcount); } else { return ($usercount); } } sub bulkaction_javascript { my ($formname,$caller) = @_; my $docstart = 'document'; if ($caller eq 'popup') { $docstart = 'opener.document'; } my %lt = &Apache::lonlocal::texthash( acwi => 'Access will be set to start immediately', asyo => 'as you did not select an end date in the pop-up window', accw => 'Access will be set to continue indefinitely', asyd => 'as you did not select an end date in the pop-up window', sewi => "Sections will be switched to 'No section'", ayes => "as you either selected the 'No section' option", oryo => 'or you did not select a section in the pop-up window', arol => 'A role with no section will be added', swbs => 'Sections will be switched to:', rwba => 'Roles will be added for section(s):', ); my $alert = &mt("You must select at least one user by checking a user's 'Select' checkbox"); my $noaction = &mt("You need to select an action to take for the user(s) you have selected"); my $singconfirm = &mt(' for a single user?'); my $multconfirm = &mt(' for multiple users?'); my $output = <<"ENDJS"; function verify_action (field) { var numchecked = 0; var singconf = '$singconfirm'; var multconf = '$multconfirm'; if ($docstart.$formname.elements[field].length > 0) { for (i=0; i<$docstart.$formname.elements[field].length; i++) { if ($docstart.$formname.elements[field][i].checked == true) { numchecked ++; } } } else { if ($docstart.$formname.elements[field].checked == true) { numchecked ++; } } if (numchecked == 0) { alert("$alert"); return; } else { var message = $docstart.$formname.bulkaction[$docstart.$formname.bulkaction.selectedIndex].text; var choice = $docstart.$formname.bulkaction[$docstart.$formname.bulkaction.selectedIndex].value; if (choice == '') { alert("$noaction"); return; } else { if (numchecked == 1) { message += singconf; } else { message += multconf; } ENDJS if ($caller ne 'popup') { $output .= <<"NEWWIN"; if (choice == 'chgdates' || choice == 'reenable' || choice == 'activate' || choice == 'chgsec') { opendatebrowser(document.$formname,'$formname','go'); return; } else { if (confirm(message)) { document.$formname.phase.value = 'bulkchange'; document.$formname.submit(); return; } } NEWWIN } else { $output .= <<"POPUP"; if (choice == 'chgdates' || choice == 'reenable' || choice == 'activate') { var datemsg = ''; if (($docstart.$formname.startdate_month.value == '') && ($docstart.$formname.startdate_day.value == '') && ($docstart.$formname.startdate_year.value == '')) { datemsg = "\\n$lt{'acwi'},\\n$lt{'asyo'}.\\n"; } if (($docstart.$formname.enddate_month.value == '') && ($docstart.$formname.enddate_day.value == '') && ($docstart.$formname.enddate_year.value == '')) { datemsg += "\\n$lt{'accw'},\\n$lt{'asyd'}.\\n"; } if (datemsg != '') { message += "\\n"+datemsg; } } if (choice == 'chgsec') { var rolefilter = $docstart.$formname.showrole.options[$docstart.$formname.showrole.selectedIndex].value; var retained = $docstart.$formname.retainsec.value; var secshow = $docstart.$formname.newsecs.value; if (secshow == '') { if (rolefilter == 'st' || retained == 0 || retained == "") { message += "\\n\\n$lt{'sewi'},\\n$lt{'ayes'},\\n$lt{'oryo'}.\\n"; } else { message += "\\n\\n$lt{'arol'}\\n$lt{'ayes'},\\n$lt{'oryo'}.\\n"; } } else { if (rolefilter == 'st' || retained == 0 || retained == "") { message += "\\n\\n$lt{'swbs'} "+secshow+".\\n"; } else { message += "\\n\\n$lt{'rwba'} "+secshow+".\\n"; } } } if (confirm(message)) { $docstart.$formname.phase.value = 'bulkchange'; $docstart.$formname.submit(); window.close(); } POPUP } $output .= ' } } } '; return $output; } sub print_username_link { my ($mode,$in) = @_; my $output; if ($mode eq 'autoenroll') { $output = $in->{'username'}; } else { $output = '{'username'}','$in->{'domain'}'".')" />'. $in->{'username'}.''; } return $output; } sub role_type_names { my %lt = &Apache::lonlocal::texthash ( 'domain' => 'Domain Roles', 'author' => 'Co-Author Roles', 'course' => 'Course Roles', ); return %lt; } sub select_actions { my ($context,$setting,$statusmode,$formname) = @_; my %lt = &Apache::lonlocal::texthash( revoke => "Revoke user roles", delete => "Delete user roles", reenable => "Re-enable expired user roles", activate => "Make future user roles active now", chgdates => "Change starting/ending dates", chgsec => "Change section associated with user roles", ); my ($output,$options,%choices); # FIXME Disable actions for now for roletype=course in domain context if ($context eq 'domain' && $setting eq 'course') { return; } if ($context eq 'course') { if ($env{'form.showrole'} ne 'Any') { if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'}, $env{'request.course.id'})) { if ($env{'request.course.sec'} eq '') { return; } else { if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},$env{'request.course.id'}.'/'.$env{'request.course.sec'})) { return; } } } } } if ($statusmode eq 'Any') { $options .= ' '; $choices{'dates'} = 1; } else { if ($statusmode eq 'Future') { $options .= ' '; $choices{'dates'} = 1; } elsif ($statusmode eq 'Expired') { $options .= ' '; $choices{'dates'} = 1; } if ($statusmode eq 'Active' || $statusmode eq 'Future') { $options .= ' '; $choices{'dates'} = 1; } } if ($context eq 'domain') { $options .= ' '; } if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course')) { if (($statusmode ne 'Expired') && ($env{'request.course.sec'} eq '')) { $options .= ' '; $choices{'sections'} = 1; } } if ($options) { $output = ''; if ($choices{'dates'}) { $output .= ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n". ''."\n"; if ($context eq 'course') { $output .= ''."\n"; } } if ($choices{'sections'}) { $output .= ''."\n". ''."\n"; } } return $output; } sub date_section_javascript { my ($context,$setting) = @_; my $title = 'Date_And_Section_Selector'; my %nopopup = &Apache::lonlocal::texthash ( revoke => "Check the boxes for any users for whom roles are to be revoked, and click 'Proceed'", delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'", none => "Choose an action to take for selected users", ); my $output = ' ENDTWO return $output; } sub date_section_selector { my ($context,$permission) = @_; my $callingform = $env{'form.callingform'}; my $formname = 'dateselect'; my $groupslist = &get_groupslist(); my $sec_js = &setsections_javascript($formname,$groupslist); my $output = <<"END"; ENDJS my %lt = &Apache::lonlocal::texthash ( chac => 'Access dates to apply for selected users', chse => 'Changes in section affiliation to apply to selected users', fors => 'For student roles changing the section, will result in a section switch as students may only be in one section of a course at a time.', forn => 'For a role in a course that is not a student role, a user may have roles in more than one section of a course at a time.', reta => "Retain each user's current section affiliations?", dnap => '(Does not apply to student roles).', ); my ($date_items,$headertext); if ($env{'form.bulkaction'} eq 'chgsec') { $headertext = $lt{'chse'}; } else { $headertext = $lt{'chac'}; my $starttime; if (($env{'form.bulkaction'} eq 'activate') || ($env{'form.bulkaction'} eq 'reenable')) { $starttime = time; } $date_items = &date_setting_table($starttime,undef,$context, $env{'form.bulkaction'},$formname, $permission); } $output .= ''.$headertext.'
'. ''; 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 = ''.&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(&mt('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 .= '
| '.&mt('Existing sections')."\n".
' '.$sections_select.' | '.
&mt('New section').' '."\n". ''."\n". ''."\n". ' |
END
my ($indexhash,$keylist) = &make_keylist_array();
my $studentcount = 0;
if (ref($classlist) eq 'HASH') {
foreach my $student (keys(%{$classlist})) {
my $sdata = $classlist->{$student};
my $status = $sdata->[$indexhash->{'status'}];
my $section = $sdata->[$indexhash->{'section'}];
if ($status ne 'Active') {
delete($classlist->{$student});
next;
}
if ($env{'request.course.sec'} ne '') {
if ($section ne $env{'request.course.sec'}) {
delete($classlist->{$student});
next;
}
}
$studentcount ++;
}
}
if (!$studentcount) {
$r->print(&mt('There are no students to drop.'));
return;
}
my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
$classlist,$keylist,$cdom,$cnum);
my %lt=&Apache::lonlocal::texthash('usrn' => "username",
'dom' => "domain",
'sn' => "student name",
'sec' => "section",
'start' => "start date",
'end' => "end date",
'groups' => "active groups",
);
if ($nosort) {
$r->print(&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row());
$r->print(<$lt{'usrn'}
$lt{'dom'}
ID
$lt{'sn'}
$lt{'sec'}
$lt{'start'}
$lt{'end'}
$lt{'groups'}
END
$r->print(&Apache::loncommon::end_data_table_header_row());
} else {
$r->print(&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row());
$r->print(<
$lt{'usrn'}
$lt{'dom'}
ID
$lt{'sn'}
$lt{'sec'}
$lt{'start'}
$lt{'end'}
$lt{'groups'}
END
$r->print(&Apache::loncommon::end_data_table_header_row());
}
#
# Sort the students
my $index = $indexhash->{$sortby};
my $second = $indexhash->{'username'};
my $third = $indexhash->{'domain'};
my @Sorted_Students = sort {
lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
||
lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
||
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
} (keys(%{$classlist}));
foreach my $student (@Sorted_Students) {
my $error;
my $sdata = $classlist->{$student};
my $username = $sdata->[$indexhash->{'username'}];
my $domain = $sdata->[$indexhash->{'domain'}];
my $section = $sdata->[$indexhash->{'section'}];
my $name = $sdata->[$indexhash->{'fullname'}];
my $id = $sdata->[$indexhash->{'id'}];
my $start = $sdata->[$indexhash->{'start'}];
my $end = $sdata->[$indexhash->{'end'}];
my $groups = $classgroups->{$student};
my $active_groups;
if (ref($groups->{active}) eq 'HASH') {
$active_groups = join(', ',keys(%{$groups->{'active'}}));
}
if (! defined($start) || $start == 0) {
$start = &mt('none');
} else {
$start = &Apache::lonlocal::locallocaltime($start);
}
if (! defined($end) || $end == 0) {
$end = &mt('none');
} else {
$end = &Apache::lonlocal::locallocaltime($end);
}
my $studentkey = $student.':'.$section;
my $startitem = '';
#
$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");
$username
$domain
$id
$name
$section
$start $startitem
$end
$active_groups
END
$r->print(&Apache::loncommon::end_data_table_row());
}
$r->print(&Apache::loncommon::end_data_table().'
');
%lt=&Apache::lonlocal::texthash(
'dp' => "Drop Students",
'ca' => "check all",
'ua' => "uncheck all",
);
$r->print(<<"END");
END return; } # # Print out the initial form to get the file containing a list of users # sub print_first_users_upload_form { my ($r,$context) = @_; my $str; $str = ''; $str .= ''; $str .= ''; $str .= "
".&mt('Upload a file containing information about users')."
\n"; $str .= &Apache::loncommon::upfile_select_html(); $str .= '';
$str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",
&mt("How do I create a users list from a spreadsheet")).
"
\n";
$str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
&mt("How do I create a CSV file from a spreadsheet"));
$str .= "
\n"; $str .= '
\n"; $str .= ''."\n"; $str .= &Apache::loncommon::end_page(); $r->print($str); return; } # ================================================= Drop/Add from uploaded file sub upfile_drop_add { my ($r,$context,$permission) = @_; &Apache::loncommon::load_tmp_file($r); my @userdata=&Apache::loncommon::upfile_record_sep(); if($env{'form.noFirstLine'}){shift(@userdata);} my @keyfields = split(/\,/,$env{'form.keyfields'}); my %fields=(); for (my $i=0; $i<=$env{'form.nfields'}; $i++) { if ($env{'form.upfile_associate'} eq 'reverse') { if ($env{'form.f'.$i} ne 'none') { $fields{$keyfields[$i]}=$env{'form.f'.$i}; } } else { $fields{$env{'form.f'.$i}}=$keyfields[$i]; } } if ($env{'form.fullup'} ne 'yes') { $r->print(''. ''. &mt('There are no students with current/future access to the course.'). ''."\n"); } elsif (ref($classlist) eq 'HASH') { # Remove the students we just added from the list of students. foreach my $line (@userdata) { my %entries=&Apache::loncommon::record_sep($line); unless (($entries{$fields{'username'}} eq '') || (!defined($entries{$fields{'username'}}))) { delete($classlist->{$entries{$fields{'username'}}. ':'.$domain}); } } # Print out list of dropped students. &show_drop_list($r,$classlist,'nosort',$permission); } } } # end of unless if ($env{'form.fullup'} ne 'yes') { $r->print(''); } } sub print_namespacing_alerts { my ($domain,$alerts,$curr_rules) = @_; my $output; if (ref($alerts) eq 'HASH') { if (keys(%{$alerts}) > 0) { if (ref($alerts->{'username'}) eq 'HASH') { foreach my $dom (sort(keys(%{$alerts->{'username'}}))) { my $count; if (ref($alerts->{'username'}{$dom}) eq 'HASH') { $count = keys(%{$alerts->{'username'}{$dom}}); } my $domdesc = &Apache::lonnet::domain($domain,'description'); if (ref($curr_rules->{$dom}) eq 'HASH') { $output .= &Apache::loncommon::instrule_disallow_msg( 'username',$domdesc,$count,'upload'); } $output .= &Apache::loncommon::user_rule_formats($dom, $domdesc,$curr_rules->{$dom}{'username'}, 'username'); } } if (ref($alerts->{'id'}) eq 'HASH') { foreach my $dom (sort(keys(%{$alerts->{'id'}}))) { my $count; if (ref($alerts->{'id'}{$dom}) eq 'HASH') { $count = keys(%{$alerts->{'id'}{$dom}}); } my $domdesc = &Apache::lonnet::domain($domain,'description'); if (ref($curr_rules->{$dom}) eq 'HASH') { $output .= &Apache::loncommon::instrule_disallow_msg( 'id',$domdesc,$count,'upload'); } $output .= &Apache::loncommon::user_rule_formats($dom, $domdesc,$curr_rules->{$dom}{'id'},'id'); } } } } } sub user_change_result { my ($r,$userresult,$authresult,$roleresult,$idresult,$counts,$flushc, $username,$userdomain,$userchg) = @_; my $okresult = 0; if ($userresult ne 'ok') { if ($userresult =~ /^error:(.+)$/) { my $error = $1; $r->print('
'. &mt('[_1]: Unable to add/modify: [_2]',''.$username.':'.$userdomain.'',$error)); } } else { $counts->{'user'} ++; $okresult = 1; } if ($authresult ne 'ok') { if ($authresult =~ /^error:(.+)$/) { my $error = $1; $r->print('
'. &mt('[_1]: Unable to modify authentication: [_2]',''.$username.':'.$userdomain.'',$error)); } } else { $counts->{'auth'} ++; $okresult = 1; } if ($roleresult ne 'ok') { if ($roleresult =~ /^error:(.+)$/) { my $error = $1; $r->print('
'. &mt('[_1]: Unable to add role: [_2]',''.$username.':'.$userdomain.'',$error)); } } else { $counts->{'role'} ++; $okresult = 1; } if ($okresult) { $flushc++; $userchg->{$username.':'.$userdomain}=1; $r->print('. '); if ($flushc>15) { $r->rflush; $flushc=0; } } if ($idresult) { $r->print($idresult); } return $flushc; } # ========================================================= Menu Phase Two Drop sub print_drop_menu { my ($r,$context,$permission) = @_; $r->print('
'.&mt("Drop Students").'
'."\n". ''. &Apache::loncommon::end_page()); return; } # ================================================================== Phase four sub update_user_list { my ($r,$context,$setting,$choice) = @_; my $now = time; my $count=0; my @changelist; if ($choice eq 'drop') { @changelist = &Apache::loncommon::get_env_multiple('form.droplist'); } else { @changelist = &Apache::loncommon::get_env_multiple('form.actionlist'); } my %result_text = ( ok => { 'revoke' => 'Revoked', 'delete' => 'Deleted', 'reenable' => 'Re-enabled', 'activate' => 'Activated', 'chgdates' => 'Changed Access Dates for', 'chgsec' => 'Changed section for', 'drop' => 'Dropped', }, error => {'revoke' => 'revoking', 'delete' => 'deleting', 'reenable' => 're-enabling', 'activate' => 'activating', 'chgdates' => 'changing access dates for', 'chgsec' => 'changing section for', 'drop' => 'dropping', }, ); my ($startdate,$enddate); if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') { ($startdate,$enddate) = &get_dates_from_form(); } foreach my $item (@changelist) { my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,@sections, $scopestem); 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); $cid = $env{'request.course.id'}; $scopestem = '/'.$cid; $scopestem =~s/\_/\//g; if ($sec eq '') { $scope = $scopestem; } else { $scope = $scopestem.'/'.$sec; } } elsif ($context eq 'author') { ($uname,$udom,$role) = split(/\:/,$item,-1); $scope = '/'.$env{'user.domain'}.'/'.$env{'user.name'}; } elsif ($context eq 'domain') { if ($setting eq 'domain') { ($role,$uname,$udom) = split(/\:/,$item,-1); $scope = '/'.$env{'request.role.domain'}.'/'; } elsif ($setting eq 'author') { ($uname,$udom,$role,$scope) = split(/\:/,$item); } elsif ($setting eq 'course') { ($uname,$udom,$role,$cid,$sec,$type,$locktype) = split(/\:/,$item); $scope = '/'.$cid; $scope =~s/\_/\//g; if ($sec ne '') { $scope .= '/'.$sec; } } } my $plrole = &Apache::lonnet::plaintext($role); my $start = $env{'form.'.$item.'_start'}; my $end = $env{'form.'.$item.'_end'}; if ($choice eq 'drop') { # 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,'',$context); } elsif ($choice eq 'revoke') { # revoke or delete user role $end = $now; if ($role eq 'st') { $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context); } else { $result = &Apache::lonnet::revokerole($udom,$uname,$scope,$role, '','',$context); } } elsif ($choice eq 'delete') { if ($role eq 'st') { &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$now,$start,$type,$locktype,$cid,'',$context); } $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now, $start,1,'',$context); } else { #reenable, activate, change access dates or change section if ($choice ne 'chgsec') { $start = $startdate; $end = $enddate; } if ($choice eq 'reenable') { if ($role eq 'st') { $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context); } else { $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, $now,'','',$context); } } elsif ($choice eq 'activate') { if ($role eq 'st') { $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context); } else { $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, $now,'','',$context); } } elsif ($choice eq 'chgdates') { if ($role eq 'st') { $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context); } else { $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, $start,'','',$context); } } elsif ($choice eq 'chgsec') { my (@newsecs,$revresult,$nochg,@retained); if ($role ne 'cc') { @newsecs = split(/,/,$env{'form.newsecs'}); } # remove existing section if not to be retained. if (!$env{'form.retainsec'}) { if ($sec eq '') { if (@newsecs == 0) { $result = &mt('No change in section assignment (none)'); $nochg = 1; } else { $revresult = &Apache::lonnet::revokerole($udom,$uname, $scope,$role, '','',$context); } } else { if (@newsecs > 0) { if (grep(/^\Q$sec\E$/,@newsecs)) { push(@retained,$sec); } else { $revresult = &Apache::lonnet::revokerole($udom,$uname, $scope,$role, '','',$context); } } else { $revresult = &Apache::lonnet::revokerole($udom,$uname, $scope,$role, '','',$context); } } } else { if ($sec eq '') { $nochg = 1; } else { push(@retained,$sec); } } # add new sections if (@newsecs == 0) { if (!$nochg) { if ($role eq 'st') { $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid,'',$context); } else { my $newscope = $scopestem; $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start,'','',$context); } } } else { foreach my $newsec (@newsecs) { if (!grep(/^\Q$newsec\E$/,@retained)) { if ($role eq 'st') { $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid,'',$context); } else { my $newscope = $scopestem; if ($newsec ne '') { $newscope .= '/'.$newsec; } $result = &Apache::lonnet::assignrole($udom,$uname, $newscope,$role,$end,$start); } } } } } } 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:') { $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]", $plrole,$extent,$uname.':'.$udom).''); $count++; } else { $r->print( &mt("Error $result_text{'error'}{$choice} [_1] in [_2] for [_3]: [_4].", $plrole,$extent,$uname.':'.$udom,$result).'
'); } } $r->print(''."\n"); } sub classlist_drop { my ($scope,$uname,$udom,$now) = @_; my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)}); if (&Apache::lonnet::is_course($cdom,$cnum)) { if (!&active_student_roles($cnum,$cdom,$uname,$udom)) { my %user; my $result = &update_classlist($cdom,$cnum,$udom,$uname,\%user,$now); return &mt('Drop from classlist: [_1]', ''.$result.'').'
'; } } } sub active_student_roles { my ($cnum,$cdom,$uname,$udom) = @_; my %roles = &Apache::lonnet::get_my_roles($uname,$udom,'userroles', ['future','active'],['st']); return exists($roles{"$cnum:$cdom:st"}); } sub section_check_js { my $groupslist= &get_groupslist(); return <<"END"; function validate(caller) { var groups = new Array($groupslist); var secname = caller.value; if ((secname == 'all') || (secname == 'none')) { alert("'"+secname+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name."); return 'error'; } if (secname != '') { for (var k=0; k