'.&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); if ($mode eq 'html' || $mode eq 'view') { if ($permission->{'cusr'}) { $actionselect = &select_actions($context,$setting,$statusmode); } $r->print(<
';
my @linkdests = ('aboutme');
if ($permission->{'cusr'}) {
push (@linkdests,'modify');
$output .= ''.$lt{'link'}.': ';
my $usernamelink = $env{'form.usernamelink'};
if ($usernamelink eq '') {
$usernamelink = 'aboutme';
}
foreach my $item (@linkdests) {
my $checkedstr = '';
if ($item eq $usernamelink) {
$checkedstr = ' checked="checked" ';
}
$output .= ' ';
}
$output .= '
';
} else {
$output .= &mt("Click on a username to view the user's personal page.").'
';
}
if ($actionselect) {
$output .= <<"END";
$lt{'ac'}: $actionselect
END } } $output .= "\n
\n". &Apache::loncommon::start_data_table(). &Apache::loncommon::start_data_table_header_row(); if ($mode eq 'autoenroll') { $output .= "
'); } elsif ($mode eq 'excel') { $excel_workbook->close(); $r->print('
'. &mt('Your Excel spreadsheet').' '.&mt('is ready for download').'.
'."\n"); } elsif ($mode eq 'csv') { close($CSVfile); $r->print(''. &mt('Your CSV file').' is ready for download.'. "\n"); $r->rflush(); } if ($mode eq 'autoenroll') { return ($usercount,$autocount,$manualcount,$lockcount,$unlockcount); } else { return ($usercount); } } sub print_username_link { my ($permission,$in) = @_; my $output; if (!$permission->{'cusr'}) { $output = &Apache::loncommon::aboutmewrapper($in->{'username'}, $in->{'username'}, $in->{'domain'}); } 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) = @_; 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); 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') { $options .= ' '; $choices{'sections'} = 1; } } if ($options) { $output = ''."\n". ''."\n".$options."\n".''; if ($choices{'dates'}) { $output .= ''."\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; if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course')) { $title = &mt('Date and Section selector'); } else { $title = &mt('Date selector'); } my $output = ' ENDTWO return $output; } sub date_section_selector { my ($context) = @_; my $callingform = $env{'form.callingform'}; my $formname = 'dateselect'; my $groupslist = &get_groupslist(); my $sec_js = &setsections_javascript($formname,$groupslist); my $output = <<"END"; '; 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'}); } $output .= ''.$headertext.'
'. ''; return $output; } sub results_header_row { my ($rolefilter,$statusmode,$context) = @_; my ($description,$showfilter); if ($rolefilter ne 'Any') { $showfilter = $rolefilter; } if ($context eq 'course') { $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': '; if ($statusmode eq 'Expired') { $description .= &mt('Users in course with expired [_1] roles',$showfilter); } elsif ($statusmode eq 'Future') { $description .= &mt('Users in course with future [_1] roles',$showfilter); } elsif ($statusmode eq 'Active') { $description .= &mt('Users in course with active [_1] roles',$showfilter); } else { if ($rolefilter eq 'Any') { $description .= &mt('All users in course'); } else { $description .= &mt('All users in course with [_1] roles',$rolefilter); } } } elsif ($context eq 'author') { $description = &mt('Author space for [_1].').' '; if ($statusmode eq 'Expired') { $description .= &mt('Co-authors with expired [_1] roles',$showfilter); } elsif ($statusmode eq 'Future') { $description .= &mt('Co-authors with future [_1] roles',$showfilter); } elsif ($statusmode eq 'Active') { $description .= &mt('Co-authors with active [_1] roles',$showfilter); } else { if ($rolefilter eq 'Any') { $description .= &mt('All co-authors'); } else { $description .= &mt('All co-authors with [_1] roles',$rolefilter); } } } elsif ($context eq 'domain') { my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description'); $description = &mt('Domain - ').$domdesc.': '; if ($env{'form.roletype'} eq 'domain') { if ($statusmode eq 'Expired') { $description .= &mt('Users in domain with expired [_1] roles',$showfilter); } elsif ($statusmode eq 'Future') { $description .= &mt('Users in domain with future [_1] roles',$showfilter); } elsif ($statusmode eq 'Active') { $description .= &mt('Users in domain with active [_1] roles',$showfilter); } else { if ($rolefilter eq 'Any') { $description .= &mt('All users in domain'); } else { $description .= &mt('All users in domain with [_1] roles',$rolefilter); } } } elsif ($env{'form.roletype'} eq 'author') { if ($statusmode eq 'Expired') { $description .= &mt('Co-authors in domain with expired [_1] roles',$showfilter); } elsif ($statusmode eq 'Future') { $description .= &mt('Co-authors in domain with future [_1] roles',$showfilter); } elsif ($statusmode eq 'Active') { $description .= &mt('Co-authors in domain with active [_1] roles',$showfilter); } else { if ($rolefilter eq 'Any') { $description .= &mt('All users with co-author roles in domain',$showfilter); } else { $description .= &mt('All co-authors in domain with [_1] roles',$rolefilter); } } } elsif ($env{'form.roletype'} eq 'course') { my $coursefilter = $env{'form.coursepick'}; if ($coursefilter eq 'category') { my $instcode = &instcode_from_coursefilter(); if ($instcode eq '.') { $description .= &mt('All courses in domain').' - '; } else { $description .= &mt('Courses in domain with institutional code: [_1]',$instcode).' - '; } } elsif ($coursefilter eq 'selected') { $description .= &mt('Selected courses in domain').' - '; } elsif ($coursefilter eq 'all') { $description .= &mt('All courses in domain').' - '; } if ($statusmode eq 'Expired') { $description .= &mt('users with expired [_1] roles',$showfilter); } elsif ($statusmode eq 'Future') { $description .= &mt('users with future [_1] roles',$showfilter); } elsif ($statusmode eq 'Active') { $description .= &mt('users with active [_1] roles',$showfilter); } else { if ($rolefilter eq 'Any') { $description .= &mt('all users'); } else { $description .= &mt('users with [_1] roles',$rolefilter); } } } } return $description; } ################################################# ################################################# sub show_drop_list { my ($r,$classlist,$keylist,$nosort)=@_; my $cid=$env{'request.course.id'}; if (! exists($env{'form.sortby'})) { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['sortby']); } my $sortby = $env{'form.sortby'}; if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) { $sortby = 'username'; } my $cdom = $env{'course.'.$cid.'.domain'}; my $cnum = $env{'course.'.$cid,'.num'}; my ($classgroups) = &Apache::loncoursedata::get_group_memberships( $classlist,$keylist,$cdom,$cnum); # my $action = "drop"; $r->print(<
END
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());
$r->print(<
$lt{'usrn'}
$lt{'dom'}
ID
$lt{'sn'}
$lt{'sec'}
$lt{'start'}
$lt{'end'}
$lt{'groups'}
END
} else {
$r->print(&Apache::loncommon::start_data_table());
$r->print(<
$lt{'usrn'}
$lt{'dom'}
ID
$lt{'sn'}
$lt{'sec'}
$lt{'start'}
$lt{'end'}
$lt{'groups'}
END
}
#
# Sort the students
my %index;
my $i;
foreach (@$keylist) {
$index{$_} = $i++;
}
$index{'groups'} = scalar(@$keylist);
my $index = $index{$sortby};
my $second = $index{'username'};
my $third = $index{'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->[$index{'username'}];
my $domain = $sdata->[$index{'domain'}];
my $section = $sdata->[$index{'section'}];
my $name = $sdata->[$index{'fullname'}];
my $id = $sdata->[$index{'id'}];
my $start = $sdata->[$index{'start'}];
my $end = $sdata->[$index{'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 $status = $sdata->[$index{'status'}];
next if ($status ne 'Active');
#
$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");
$username
$domain
$id
$name
$section
$start
$end
$active_groups
END
$r->print(&Apache::loncommon::end_data_table_row());
}
$r->print(&Apache::loncommon::end_data_table().'
');
%lt=&Apache::lonlocal::texthash(
'dp' => "Expire Users' Roles",
'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 .= "\n"; $str .= ''."\n"; $str .= '
\n"; $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")). "
\n"; $str .= &Apache::loncommon::end_page(); $r->print($str); return; } # ================================================= Drop/Add from uploaded file sub upfile_drop_add { my ($r,$context) = @_; &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]; } } # # Store the field choices away foreach my $field (qw/username names fname mname lname gen id sec ipwd email role/) { $env{'form.'.$field.'_choice'}=$fields{$field}; } &Apache::loncommon::store_course_settings('enrollment_upload', { 'username_choice' => 'scalar', 'names_choice' => 'scalar', 'fname_choice' => 'scalar', 'mname_choice' => 'scalar', 'lname_choice' => 'scalar', 'gen_choice' => 'scalar', 'id_choice' => 'scalar', 'sec_choice' => 'scalar', 'ipwd_choice' => 'scalar', 'email_choice' => 'scalar', 'role_choice' => 'scalar' }); # my ($startdate,$enddate) = &get_dates_from_form(); if ($env{'form.makedatesdefault'}) { $r->print(&make_dates_default($startdate,$enddate)); } # Determine domain and desired host (home server) my $domain=$env{'request.role.domain'}; my $desiredhost = $env{'form.lcserver'}; if (lc($desiredhost) eq 'default') { $desiredhost = undef; } else { my %home_servers = &Apache::lonnet::get_servers($domain,'library'); if (! exists($home_servers{$desiredhost})) { $r->print(''.&mt('Error'). &mt('Invalid home server specified').''); $r->print(&Apache::loncommon::end_page()); return; } } # Determine authentication mechanism my $changeauth; if ($context eq 'domain') { $changeauth = $env{'form.changeauth'}; } my $amode = ''; my $genpwd = ''; if ($env{'form.login'} eq 'krb') { $amode='krb'; $amode.=$env{'form.krbver'}; $genpwd=$env{'form.krbarg'}; } elsif ($env{'form.login'} eq 'int') { $amode='internal'; if ((defined($env{'form.intarg'})) && ($env{'form.intarg'})) { $genpwd=$env{'form.intarg'}; } } elsif ($env{'form.login'} eq 'loc') { $amode='localauth'; if ((defined($env{'form.locarg'})) && ($env{'form.locarg'})) { $genpwd=$env{'form.locarg'}; } } if ($amode =~ /^krb/) { if (! defined($genpwd) || $genpwd eq '') { $r->print(''. &mt('Unable to enroll users').' '. &mt('No Kerberos domain was specified.').''); $amode = ''; # This causes the loop below to be skipped } } my ($cid,$defaultsec,$defaultrole,$setting); if ($context eq 'domain') { $setting = $env{'form.roleaction'}; if ($setting eq 'domain') { $defaultrole = $env{'form.defaultrole'}; } elsif ($setting eq 'course') { $defaultrole = $env{'form.courserole'}; } } elsif ($context eq 'author') { $defaultrole = $env{'form.defaultrole'}; } if ($context eq 'domain' && $setting eq 'course') { if ($env{'form.newsec'} ne '') { $defaultsec = $env{'form.newsec'}; } elsif ($env{'form.defaultsec'} ne '') { $defaultsec = $env{'form.defaultsec'} } } if ($env{'request.course.id'} ne '') { $cid = $env{'request.course.id'}; } elsif ($env{'form.defaultdomain'} ne '' && $env{'form.defaultcourse'} ne '') { $cid = $env{'form.defaultdomain'}.'_'. $env{'form.defaultcourse'}; } if ( $domain eq &LONCAPA::clean_domain($domain) && ($amode ne '')) { ####################################### ## Add/Modify Users ## ####################################### if ($context eq 'course') { $r->print('
'.&mt('Enrolling Users')."
\n\n"); } elsif ($context eq 'author') { $r->print('
'.&mt('Updating Co-authors')."
\n\n"); } else { $r->print('
'.&mt('Adding/Modifying Users')."
\n\n");
}
my %counts = (
user => 0,
auth => 0,
role => 0,
);
my $flushc=0;
my %student=();
my %curr_groups;
my %userchg;
if ($context eq 'course') {
# Get information about course groups
%curr_groups = &Apache::longroup::coursegroups();
}
my (%curr_rules,%got_rules,%alerts);
# Get new users list
foreach (@userdata) {
my %entries=&Apache::loncommon::record_sep($_);
# Determine user name
unless (($entries{$fields{'username'}} eq '') ||
(!defined($entries{$fields{'username'}}))) {
my ($fname, $mname, $lname,$gen) = ('','','','');
if (defined($fields{'names'})) {
($lname,$fname,$mname)=($entries{$fields{'names'}}=~
/([^\,]+)\,\s*(\w+)\s*(.*)$/);
} else {
if (defined($fields{'fname'})) {
$fname=$entries{$fields{'fname'}};
}
if (defined($fields{'mname'})) {
$mname=$entries{$fields{'mname'}};
}
if (defined($fields{'lname'})) {
$lname=$entries{$fields{'lname'}};
}
if (defined($fields{'gen'})) {
$gen=$entries{$fields{'gen'}};
}
}
if ($entries{$fields{'username'}}
ne &LONCAPA::clean_username($entries{$fields{'username'}})) {
$r->print('
'.
&mt('[_1]: Unacceptable username for user [_2] [_3] [_4] [_5]',
$entries{$fields{'username'}},$fname,$mname,$lname,$gen).
'');
} else {
my $username = $entries{$fields{'username'}};
my $sec;
if ($context eq 'course' || $setting eq 'course') {
# determine section number
if (defined($fields{'sec'})) {
if (defined($entries{$fields{'sec'}})) {
$sec=$entries{$fields{'sec'}};
}
} else {
$sec = $defaultsec;
}
# remove non alphanumeric values from section
$sec =~ s/\W//g;
if ($sec eq "none" || $sec eq 'all') {
$r->print('
'.
&mt('[_1]: Unable to enroll: section name "[_2]" for user [_3] [_4] [_5] [_6] is a reserved word.',
$username,$sec,$fname,$mname,$lname,$gen));
next;
} elsif (($sec ne '') && (exists($curr_groups{$sec}))) {
$r->print('
'.
&mt('[_1]: Unable to enroll: section name "[_2]" for user [_3] [_4] [_5] [_6] is a course group. Section names and group names must be distinct.',
$username,$sec,$fname,$mname,$lname,$gen));
next;
}
}
# determine id number
my $id='';
if (defined($fields{'id'})) {
if (defined($entries{$fields{'id'}})) {
$id=$entries{$fields{'id'}};
}
$id=~tr/A-Z/a-z/;
}
# determine email address
my $email='';
if (defined($fields{'email'})) {
if (defined($entries{$fields{'email'}})) {
$email=$entries{$fields{'email'}};
unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; } }
}
# determine user password
my $password = $genpwd;
if (defined($fields{'ipwd'})) {
if ($entries{$fields{'ipwd'}}) {
$password=$entries{$fields{'ipwd'}};
}
}
# determine user role
my $role = '';
if (defined($fields{'role'})) {
if ($entries{$fields{'role'}}) {
my @poss_roles =
&curr_role_permissions($context,$setting);
if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) {
$role=$entries{$fields{'role'}};
} else {
my $rolestr = join(', ',@poss_roles);
$r->print('
'.
&mt('[_1]: You do not have permission to add the requested role [_2] for the user.',$entries{$fields{'username'}},$entries{$fields{'role'}}).'
'.&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n");
next;
}
}
}
if ($role eq '') {
$role = $defaultrole;
}
# Clean up whitespace
foreach (\$domain,\$username,\$id,\$fname,\$mname,
\$lname,\$gen,\$sec,\$role) {
$$_ =~ s/(\s+$|^\s+)//g;
}
# check against rules
my $checkid = 0;
my $newuser = 0;
my (%rulematch,%inst_results,%idinst_results);
my $uhome=&Apache::lonnet::homeserver($username,$domain);
if ($uhome eq 'no_host') {
$checkid = 1;
$newuser = 1;
my $checkhash;
my $checks = { 'username' => 1 };
$checkhash->{$username.':'.$domain} = { 'newuser' => 1, };
&Apache::loncommon::user_rule_check($checkhash,$checks,
\%alerts,\%rulematch,\%inst_results,\%curr_rules,
\%got_rules);
if (ref($alerts{'username'}) eq 'HASH') {
if (ref($alerts{'username'}{$domain}) eq 'HASH') {
next if ($alerts{'username'}{$domain}{$username});
}
}
} else {
# FIXME check if user info can be updated.
}
if ($id ne '') {
if (!$newuser) {
my %idhash = &Apache::lonnet::idrget($domain,($username));
if ($idhash{$username} ne $id) {
$checkid = 1;
}
}
if ($checkid) {
my $checkhash;
my $checks = { 'id' => 1 };
$checkhash->{$username.':'.$domain} = { 'newuser' => $newuser,
'id' => $id };
&Apache::loncommon::user_rule_check($checkhash,$checks,
\%alerts,\%rulematch,\%idinst_results,\%curr_rules,
\%got_rules);
if (ref($alerts{'id'}) eq 'HASH') {
if (ref($alerts{'id'}{$domain}) eq 'HASH') {
next if ($alerts{'id'}{$domain}{$id});
}
}
}
}
if ($password || $env{'form.login'} eq 'loc') {
my ($userresult,$authresult,$roleresult);
if ($role eq 'st') {
&modifystudent($domain,$username,$cid,$sec,
$desiredhost);
$roleresult =
&Apache::lonnet::modifystudent
($domain,$username,$id,$amode,$password,
$fname,$mname,$lname,$gen,$sec,$enddate,
$startdate,$env{'form.forceid'},
$desiredhost,$email);
} else {
($userresult,$authresult,$roleresult) =
&modifyuserrole($context,$setting,
$changeauth,$cid,$domain,$username,
$id,$amode,$password,$fname,
$mname,$lname,$gen,$sec,
$env{'form.forceid'},$desiredhost,
$email,$role,$enddate,$startdate,$checkid);
}
$flushc =
&user_change_result($r,$userresult,$authresult,
$roleresult,\%counts,$flushc,
$username,%userchg);
} else {
if ($context eq 'course') {
$r->print('
'.
&mt('[_1]: Unable to enroll. No password specified.',$username)
);
} elsif ($context eq 'author') {
$r->print('
'.
&mt('[_1]: Unable to add co-author. No password specified.',$username)
);
} else {
$r->print('
'.
&mt('[_1]: Unable to add user. No password specified.',$username)
);
}
}
}
}
} # end of foreach (@userdata)
# Flush the course logs so reverse user roles immediately updated
&Apache::lonnet::flushcourselogs();
$r->print("
\n".&mt('Processed [_1] user(s).',$counts{'user'}). "
\n"); if ($counts{'role'} > 0) { $r->print("\n". &mt('Roles added for [_1] users. If user is active, the new role will be available when the user next logs in to LON-CAPA.',$counts{'role'})."
\n"); } if ($counts{'auth'} > 0) { $r->print("\n". &mt('Authentication changed for [_1] existing users.', $counts{'auth'})."
\n"); } $r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules)); $r->print(''); ##################################### # Drop students # ##################################### if ($env{'form.fullup'} eq 'yes') { $r->print(''.&mt('Dropping Students')."
\n"); # Get current classlist my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); if (! defined($classlist)) { $r->print(&mt('There are no students currently enrolled.'). "\n"); } else { # Remove the students we just added from the list of students. foreach (@userdata) { my %entries=&Apache::loncommon::record_sep($_); 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,$keylist,'nosort'); } } } # end of unless } 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,$counts,$flushc,$username, $userchg) = @_; my $okresult = 0; if ($userresult ne 'ok') { if ($userresult =~ /^error:(.+)$/) { my $error = $1; $r->print(''. &mt('[_1]: Unable to add/modify: [_2]',$username,$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,$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,$error)); } } else { $counts->{'role'} ++; $okresult = 1; } if ($okresult) { $flushc++; $userchg->{$username}=1; $r->print('. '); if ($flushc>15) { $r->rflush; $flushc=0; } } return $flushc; } # ========================================================= Menu Phase Two Drop sub print_expire_menu { my ($r,$context) = @_; $r->print("
".&mt("Expire Users' Roles")."
"); my $cid=$env{'request.course.id'}; my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); if (! defined($classlist)) { $r->print(&mt('There are no students currently enrolled.')."\n"); return; } # Print out the available choices &show_drop_list($r,$classlist,$keylist); return; } # ================================================================== Phase four sub update_user_list { my ($r,$context,$setting,$choice) = @_; my $now = time; my $count=0; my @changelist; if ($choice ne '') { @changelist = &Apache::loncommon::get_env_multiple('form.actionlist'); } else { @changelist = &Apache::loncommon::get_env_multiple('form.droplist'); } my %result_text = ( ok => { 'revoke' => 'Revoked', 'delete' => 'Deleted', 'reenable' => 'Re-enabled', 'activate' => 'Activated', }, error => {'revoke' => 'revoking', 'delete' => 'deleting', 'reenable' => 're-enabling', 'activate' => 'activating', }, ); 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 ($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 ($uid,$first,$middle,$last,$gene,$sec); my $start = $env{'form.'.$item.'_start'}; my $end = $env{'form.'.$item.'_end'}; # revoke or delete user role if ($choice eq 'revoke') { $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); } else { $result = &Apache::lonnet::revokerole($udom,$uname,$scope,$role); } } elsif ($choice eq 'delete') { $start = -1; $end = -1; if ($role eq 'st') { # FIXME - how does role deletion affect classlist? &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); } else { $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now, 0,1); } } 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); } else { $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, $now); } } 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); } else { $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, $now); } } 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); } else { $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, $start); } } 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 { if (!grep(/^\Q$sec\E$/,@newsecs)) { $revresult = &Apache::lonnet::revokerole($udom,$uname,$scope,$role); } else { push(@retained,$sec); } } } else { push(@retained,$sec); } # add new sections if (@newsecs == 0) { if (!$nochg) { if ($sec ne '') { if ($role eq 'st') { $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid); } else { my $newscope = $scopestem; $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start); } } } } 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); } else { my $newscope = $scopestem; if ($newsec ne '') { $newscope .= '/'.$newsec; } $result = &Apache::lonnet::assignrole($udom,$uname, $newscope,$role,$end,$start); } } } } } } if ($result eq 'ok' || $result eq 'ok:') { $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]", $plrole,$scope,$uname.':'.$udom).''); $count++; } else { $r->print( &mt("Error $result_text{'error'}{$choice} [_1] in [_2] for [_3]:[_4]", $plrole,$scope,$uname.':'.$udom,$result).'
'); } } $r->print('
'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,users].",$count).'
'); if ($count > 0) { if ($choice eq 'revoke') { $r->print(''.&mt('Re-enabling will re-activate data for the role.
')); } # Flush the course logs so reverse user roles immediately updated &Apache::lonnet::flushcourselogs(); } if ($env{'form.makedatesdefault'}) { if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') { $r->print(&make_dates_default($startdate,$enddate)); } } } sub classlist_drop { my ($scope,$uname,$udom,$now,$action) = @_; my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)}); my $cid=$cdom.'_'.$cnum; my $user = $uname.':'.$udom; if ($action eq 'drop') { if (!&active_student_roles($cnum,$cdom,$uname,$udom)) { my $result = &Apache::lonnet::cput('classlist', { $user => $now }, $env{'course.'.$cid.'.domain'}, $env{'course.'.$cid.'.num'}); 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