Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonuserutils.pm between versions 1.25 and 1.60

version 1.25, 2007/12/22 04:23:05	version 1.60, 2008/07/12 23:56:13
Line 42 use LONCAPA qw(:DEFAULT :match);	Line 42 use LONCAPA qw(:DEFAULT :match);
###############################################################	###############################################################
# Drop student from all sections of a course, except optional $csec	# Drop student from all sections of a course, except optional $csec
sub modifystudent {	sub modifystudent {
my ($udom,$unam,$courseid,$csec,$desiredhost)=@_;	my ($udom,$unam,$courseid,$csec,$desiredhost,$context)=@_;
# 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
Line 69 sub modifystudent {	Line 69 sub modifystudent {
# dom name id mode pass f m l g	# dom name id mode pass f m l g
($udom,$unam,'', '', '',undef,undef,undef,undef,	($udom,$unam,'', '', '',undef,undef,undef,undef,
$section,time,undef,undef,$desiredhost,'','manual',	$section,time,undef,undef,$desiredhost,'','manual',
'',$courseid);	'',$courseid,'',$context);
$result .= $reply.':';	$result .= $reply.':';
}	}
}	}
}	}
}	}
if ($result eq '') {	if ($result eq '') {
$result = 'Unable to find section for this student';	$result = &mt('Unable to find section for this student');
} else {	} else {
$result =~ s/(ok:)+/ok/g;	$result =~ s/(ok:)+/ok/g;
}	}
Line 129 sub modifyuserrole {	Line 129 sub modifyuserrole {
if ($role ne '') {	if ($role ne '') {
$role =~ s/_/\//g;	$role =~ s/_/\//g;
$roleresult = &Apache::lonnet::assignrole($udom,$uname,$scope,	$roleresult = &Apache::lonnet::assignrole($udom,$uname,$scope,
$role,$end,$start);	$role,$end,$start,'',
	'',$context);
}	}
}	}
return ($userresult,$authresult,$roleresult,$idresult);	return ($userresult,$authresult,$roleresult,$idresult);
Line 304 sub print_upload_manager_header {	Line 305 sub print_upload_manager_header {
my $javascript_validations =	my $javascript_validations =
&javascript_validations('upload',$krbdefdom,$password_choice,undef,	&javascript_validations('upload',$krbdefdom,$password_choice,undef,
$env{'request.role.domain'},$context,	$env{'request.role.domain'},$context,
$permission,$groupslist);	$groupslist);
my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':'');	my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':'');
$r->print(&mt('Total number of records found in file: <b>[_1]</b>.',$distotal).	$r->print(&mt('Total number of records found in file: <b>[_1]</b>.',$distotal).
"<br />\n");	"<br />\n");
Line 318 sub print_upload_manager_header {	Line 319 sub print_upload_manager_header {
&hidden_input('fileupload',$env{'form.fileupload'}).	&hidden_input('fileupload',$env{'form.fileupload'}).
&hidden_input('upfiletype',$env{'form.upfiletype'}).	&hidden_input('upfiletype',$env{'form.upfiletype'}).
&hidden_input('upfile_associate',$env{'form.upfile_associate'}));	&hidden_input('upfile_associate',$env{'form.upfile_associate'}));
$r->print('<br /><input type="button" value="Reverse Association" '.	$r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.
'name="'.&mt('Reverse Association').'" '.	'name="Reverse Association" '.
'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');	'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
$r->print('<label><input type="checkbox" name="noFirstLine"'.$checked.'/>'.	$r->print('<label><input type="checkbox" name="noFirstLine"'.$checked.'/>'.
&mt('Ignore First Line').'</label>');	&mt('Ignore First Line').'</label>');
Line 332 sub print_upload_manager_header {	Line 333 sub print_upload_manager_header {
###############################################################	###############################################################
sub javascript_validations {	sub javascript_validations {
my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain,	my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain,
$context,$permission,$groupslist)=@_;	$context,$groupslist)=@_;

my %param = (	my %param = (
kerb_def_dom => $krbdefdom,	kerb_def_dom => $krbdefdom,
curr_authtype => $curr_authtype,	curr_authtype => $curr_authtype,
);	);
if ($mode eq 'createuser') {	if ($mode eq 'upload') {
$param{'formname'} = 'cu';
} elsif ($mode eq 'upload') {
$param{'formname'} = 'studentform';	$param{'formname'} = 'studentform';
} elsif ($mode eq 'singlestudent') {
$param{'formname'} = 'cu';
} elsif ($mode eq 'createcourse') {	} elsif ($mode eq 'createcourse') {
$param{'formname'} = 'ccrs';	$param{'formname'} = 'ccrs';
} elsif ($mode eq 'modifycourse') {	} elsif ($mode eq 'modifycourse') {
Line 367 sub javascript_validations {	Line 363 sub javascript_validations {
}	}
} elsif ($context eq 'domain') {	} elsif ($context eq 'domain') {
$setsection_call = 'setCourse()';	$setsection_call = 'setCourse()';
$setsections_js = &dc_setcourse_js($param{'formname'},$mode);	$setsections_js = &dc_setcourse_js($param{'formname'},$mode,$context);
}	}
$finish = " var checkSec = $setsection_call\n".	$finish = " var checkSec = $setsection_call\n".
" if (checkSec == 'ok') {\n".	" if (checkSec == 'ok') {\n".
Line 387 sub javascript_validations {	Line 383 sub javascript_validations {
section => 'The optional section field was not specified.',	section => 'The optional section field was not specified.',
email => 'The optional email address field was not specified.',	email => 'The optional email address field was not specified.',
role => 'The optional role field was not specified.',	role => 'The optional role field was not specified.',
	domain => 'The optional domain field was not specified.',
continue => 'Continue adding users?',	continue => 'Continue adding users?',
);	);
	my $function_name = <<"END";
my $function_name =(<<END);
$setsections_js	$setsections_js

function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {	function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain) {
END	END
my ($authnum,%can_assign) = &Apache::loncommon::get_assignable_auth($domain);	my ($authnum,%can_assign) = &Apache::loncommon::get_assignable_auth($domain);
my $auth_checks;	my $auth_checks;
Line 456 END	Line 452 END
foundatype=1;	foundatype=1;
if (current.argfield == null \|\| current.argfield == '') {	if (current.argfield == null \|\| current.argfield == '') {
var alertmsg = '';	var alertmsg = '';
switch (current.value) {	switch (current.radiovalue) {
case 'krb':	case 'krb':
alertmsg = '$alert{'krb'}';	alertmsg = '$alert{'krb'}';
break;	break;
Line 508 END	Line 504 END
}	}
message+='$alert{'email'}';	message+='$alert{'email'}';
}	}
	if (foundrole==0) {
	if (message!='') {
	message+='\\n';
	}
	message+='$alert{'role'}';
	}
	if (founddomain==0) {
	if (message!='') {
	message+='\\n';
	}
	message+='$alert{'domain'}';
	}
if (message!='') {	if (message!='') {
message+= '\\n$alert{'continue'}';	message+= '\\n$alert{'continue'}';
if (confirm(message)) {	if (confirm(message)) {
Line 521 END	Line 529 END
}	}
END	END
}	}
my $result = $function_name;	my $result = $function_name.$auth_checks.$optional_checks."\n".
if ( ($mode eq 'upload') \|\| ($mode eq 'createcourse') \|\| ($mode eq 'modifycourse') ) {	$section_checks.$authheader;
$result .= $auth_checks;
}
$result .= $optional_checks."\n".$section_checks;
if ( ($mode eq 'upload') \|\| ($mode eq 'createcourse') \|\| ($mode eq 'modifycourse') ) {
$result .= $authheader;
}
return $result;	return $result;
}	}
###############################################################	###############################################################
Line 543 function verify(vf,sec_caller) {	Line 545 function verify(vf,sec_caller) {
var foundsec=0;	var foundsec=0;
var foundemail=0;	var foundemail=0;
var foundrole=0;	var foundrole=0;
	var founddomain=0;
var tw;	var tw;
for (i=0;i<=vf.nfields.value;i++) {	for (i=0;i<=vf.nfields.value;i++) {
tw=eval('vf.f'+i+'.selectedIndex');	tw=eval('vf.f'+i+'.selectedIndex');
Line 553 function verify(vf,sec_caller) {	Line 556 function verify(vf,sec_caller) {
if (tw==9) { foundpwd=1; }	if (tw==9) { foundpwd=1; }
if (tw==10) { foundemail=1; }	if (tw==10) { foundemail=1; }
if (tw==11) { foundrole=1; }	if (tw==11) { foundrole=1; }
	if (tw==12) { founddomain=1; }
}	}
verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole);	verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddom);
}	}

//	//
Line 575 function verify(vf,sec_caller) {	Line 579 function verify(vf,sec_caller) {
// 9 = ipwd (password)	// 9 = ipwd (password)
// 10 = email address	// 10 = email address
// 11 = role	// 11 = role
	// 12 = domain

function flip(vf,tf) {	function flip(vf,tf) {
var nw=eval('vf.f'+tf+'.selectedIndex');	var nw=eval('vf.f'+tf+'.selectedIndex');
Line 638 function verify(vf,sec_caller) {	Line 643 function verify(vf,sec_caller) {
var foundid=0;	var foundid=0;
var foundsec=0;	var foundsec=0;
var foundrole=0;	var foundrole=0;
	var founddomain=0;
var tw;	var tw;
for (i=0;i<=vf.nfields.value;i++) {	for (i=0;i<=vf.nfields.value;i++) {
tw=eval('vf.f'+i+'.selectedIndex');	tw=eval('vf.f'+i+'.selectedIndex');
Line 647 function verify(vf,sec_caller) {	Line 653 function verify(vf,sec_caller) {
if (i==7 && tw!=0) { foundsec=1; }	if (i==7 && tw!=0) { foundsec=1; }
if (i==8 && tw!=0) { foundpwd=1; }	if (i==8 && tw!=0) { foundpwd=1; }
if (i==9 && tw!=0) { foundrole=1; }	if (i==9 && tw!=0) { foundrole=1; }
	if (i==10 && tw!=0) { founddomain=1; }
}	}
verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundrole);	verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundrole,founddomain);
}	}

function flip(vf,tf) {	function flip(vf,tf) {
Line 711 sub print_upload_manager_footer {	Line 718 sub print_upload_manager_footer {
$Str .= &hidden_input('keyfields',$keyfields);	$Str .= &hidden_input('keyfields',$keyfields);
$Str .= "<h3>".&mt('Login Type')."</h3>\n";	$Str .= "<h3>".&mt('Login Type')."</h3>\n";
if ($context eq 'domain') {	if ($context eq 'domain') {
$Str .= '<p>'.&mt('Change authentication for existing users to these settings?').' <span class="LC_nobreak"><label><input type="radio" name="changeauth" value="No" checked="checked" />'.&mt('No').'</label>  <label><input type="radio" name="changeauth" value="Yes" />'.&mt('Yes').'</label></span></p>';	$Str .= '<p>'.&mt('Change authentication for existing users in domain "[_1]" to these settings?',$defdom).' <span class="LC_nobreak"><label><input type="radio" name="changeauth" value="No" checked="checked" />'.&mt('No').'</label>  <label><input type="radio" name="changeauth" value="Yes" />'.&mt('Yes').'</label></span></p>';
} else {	} else {
$Str .= "<p>\n".	$Str .= "<p>\n".
&mt('Note: this will not take effect if the user already exists').	&mt('Note: this will not take effect if the user already exists').
Line 729 sub print_upload_manager_footer {	Line 736 sub print_upload_manager_footer {
} else {	} else {
$Str .= $home_server_pick;	$Str .= $home_server_pick;
}	}
	$Str .= '<h3>'.&mt('Default domain').'</h3>'."\n".
	&Apache::loncommon::select_dom_form($defdom,'defaultdomain',undef,1);
$Str .= '<h3>'.&mt('Starting and Ending Dates').	$Str .= '<h3>'.&mt('Starting and Ending Dates').
"</h3>\n";	"</h3>\n";
$Str .= "<p>\n".$date_table."</p>\n";	$Str .= "<p>\n".$date_table."</p>\n";
Line 761 sub print_upload_manager_footer {	Line 770 sub print_upload_manager_footer {
$permission,$context,'upload');	$permission,$context,'upload');
$Str .= $secbox."<h3>".&mt('Full Update')."</h3>\n".	$Str .= $secbox."<h3>".&mt('Full Update')."</h3>\n".
'<p><label><input type="checkbox" name="fullup" value="yes">'.	'<p><label><input type="checkbox" name="fullup" value="yes">'.
' '.&mt('Display students with current/future access, who are not in the uploaded file.').'<br />'.&mt('Students selected from this list can be dropped.');	' '.&mt('Display students with current/future access who are not in the uploaded file.').'</label><br />'.&mt('Students selected from this list can be dropped.').'</p>'."\n";
"</label></p>\n";
}	}
if ($context eq 'course' \|\| $context eq 'domain') {	if ($context eq 'course' \|\| $context eq 'domain') {
$Str .= &forceid_change($context);	$Str .= &forceid_change($context);
}	}
$Str .= '</div><div class="LC_clear_float_footer"><br /><input type="button"'.	$Str .= '</div><div class="LC_clear_float_footer"><br /><input type="button"'.
'onClick="javascript:verify(this.form,this.form.csec)" '.	'onClick="javascript:verify(this.form,this.form.csec)" '.
'value="Update Users" />'."<br />\n";	'value="'.&mt('Update Users').'" />'."<br />\n";
if ($context eq 'course') {	if ($context eq 'course') {
$Str .= &mt('Note: for large courses, this operation may be time '.	$Str .= &mt('Note: for large courses, this operation may be time '.
'consuming');	'consuming');
Line 830 sub print_upload_manager_form {	Line 838 sub print_upload_manager_form {
'ipwd_choice' => 'scalar',	'ipwd_choice' => 'scalar',
'email_choice' => 'scalar',	'email_choice' => 'scalar',
'role_choice' => 'scalar',	'role_choice' => 'scalar',
	'domain_choice' => 'scalar',
};	};
my $defdom = $env{'request.role.domain'};	my $defdom = $env{'request.role.domain'};
if ($context eq 'course') {	if ($context eq 'course') {
Line 860 sub print_upload_manager_form {	Line 869 sub print_upload_manager_form {
['sec', &mt('Section'), $env{'form.sec_choice'}],	['sec', &mt('Section'), $env{'form.sec_choice'}],
['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],	['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],
['email',&mt('E-mail Address'), $env{'form.email_choice'}],	['email',&mt('E-mail Address'), $env{'form.email_choice'}],
['role',&mt('Role'), $env{'form.role_choice'}]);	['role',&mt('Role'), $env{'form.role_choice'}],
	['domain',&mt('Domain'), $env{'form.domain_choice'}]);
if ($env{'form.upfile_associate'} eq 'reverse') {	if ($env{'form.upfile_associate'} eq 'reverse') {
&Apache::loncommon::csv_print_samples($r,\@records);	&Apache::loncommon::csv_print_samples($r,\@records);
$i=&Apache::loncommon::csv_print_select_table($r,\@records,	$i=&Apache::loncommon::csv_print_select_table($r,\@records,
Line 937 sub setup_date_selectors {	Line 947 sub setup_date_selectors {


sub get_dates_from_form {	sub get_dates_from_form {
my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate');	my ($startname,$endname) = @_;
my $enddate = &Apache::lonhtmlcommon::get_date_from_form('enddate');	if ($startname eq '') {
	$startname = 'startdate';
	}
	if ($endname eq '') {
	$endname = 'enddate';
	}
	my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname);
	my $enddate = &Apache::lonhtmlcommon::get_date_from_form($endname);
if ($env{'form.no_end_date'}) {	if ($env{'form.no_end_date'}) {
$enddate = 0;	$enddate = 0;
}	}
Line 1264 sub print_userlist {	Line 1281 sub print_userlist {
if ($env{'form.showrole'} eq 'Any') {	if ($env{'form.showrole'} eq 'Any') {
$roleselected = ' selected="selected" ';	$roleselected = ' selected="selected" ';
}	}
my $role_select;	my ($cnum,$cdom);
if ($context eq 'domain') {	$r->print(&role_filter($context));
$role_select = &domain_roles_select();	if ($context eq 'course') {
$r->print('<label>'.&mt('Role Type: [_1]',$role_select).'</label>');	($cnum,$cdom) = &get_course_identity();
} else {	$r->print(&section_group_filter($cnum,$cdom));
$role_select = '<select name="showrole">'."\n".
'<option value="Any" '.$roleselected.'>'.
&mt('Any role').'</option>';
my @poss_roles = &curr_role_permissions($context);
foreach my $role (@poss_roles) {
$roleselected = '';
if ($role eq $env{'form.showrole'}) {
$roleselected = ' selected="selected" ';
}
my $plrole;
if ($role eq 'cr') {
$plrole = &mt('Custom role');
} else {
$plrole=&Apache::lonnet::plaintext($role);
}
$role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
}
$role_select .= '</select>';
$r->print('<label>'.&mt('Role: [_1]',$role_select).'</label>');
}	}
if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {	if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {
$r->print(' '.&list_submit_button(&mt('Update Display')).	$r->print(' '.&list_submit_button(&mt('Update Display')).
Line 1307 sub print_userlist {	Line 1305 sub print_userlist {
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::end_pick_box().'</p>'.	&Apache::lonhtmlcommon::end_pick_box().'</p>'.
'<p>'.&list_submit_button(&mt('Update Display')).	'<p>'.&list_submit_button(&mt('Update Display')).
"\n</p>\n");	"\n".'</p><span class="LC_warning">'.&mt('Warning: data retrieval for multiple courses can take considerable time, as this operation is not currently optimized.').'</span>'."\n");
if ($env{'form.coursepick'}) {	if ($env{'form.coursepick'}) {
$r->print('<hr />'.&mt('Searching').' ...<br /> <br />');	$r->print('<hr />'.&mt('Searching').' ...<br /> <br />');
}	}
Line 1316 sub print_userlist {	Line 1314 sub print_userlist {
}	}
$r->rflush();	$r->rflush();
if ($context eq 'course') {	if ($context eq 'course') {
my $classlist = &Apache::loncoursedata::get_classlist();	if (($env{'form.showrole'} eq 'st') \|\| ($env{'form.showrole'} eq 'Any')) {
my $secidx = &Apache::loncoursedata::CL_SECTION();	my $classlist = &Apache::loncoursedata::get_classlist();
my $viewablesec = &viewable_section($permission);	%userlist = %{$classlist};
foreach my $student (keys(%{$classlist})) {	}
my $section = $classlist->{$student}[$secidx];	if ($env{'form.showrole'} ne 'st') {
if ($viewablesec ne '') {	my $showroles;
if ($section ne $viewablesec) {	if ($env{'form.showrole'} ne 'Any') {
next;	$showroles = [$env{'form.showrole'}];
} else {
$userlist{$student} = $classlist->{$student};
}
} else {	} else {
$userlist{$student} = $classlist->{$student};	$showroles = undef;
}	}
	my $withsec = 1;
	my $hidepriv = 1;
	my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
	\@statuses,$showroles,undef,$withsec,$hidepriv);
	&gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
	\%advrolehash,$permission);
}	}
my $cid = $env{'request.course.id'};
my ($cnum,$cdom) = &get_course_identity($cid);
my $showroles;
if ($env{'form.showrole'} ne 'Any') {
$showroles = [$env{'form.showrole'}];
} else {
$showroles = undef;
}
my $withsec = 1;
my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
\@statuses,$showroles,undef,$withsec);
&gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
\%advrolehash,$permission);
} else {	} else {
my (%cstr_roles,%dom_roles);	my (%cstr_roles,%dom_roles);
if ($context eq 'author') {	if ($context eq 'author') {
Line 1392 sub print_userlist {	Line 1380 sub print_userlist {
} elsif ($env{'form.roletype'} eq 'course') {	} elsif ($env{'form.roletype'} eq 'course') {
if ($env{'form.coursepick'}) {	if ($env{'form.coursepick'}) {
my %courses = &process_coursepick();	my %courses = &process_coursepick();
my %allusers;	my %allusers;
	my $hidepriv = 1;
foreach my $cid (keys(%courses)) {	foreach my $cid (keys(%courses)) {
my ($cnum,$cdom,$cdesc) = &get_course_identity($cid);	my ($cnum,$cdom,$cdesc) = &get_course_identity($cid);
next if ($cnum eq '' \|\| $cdom eq '');	next if ($cnum eq '' \|\| $cdom eq '');
Line 1410 sub print_userlist {	Line 1399 sub print_userlist {
foreach my $type (@statuses) {	foreach my $type (@statuses) {
$access{$type} = $type;	$access{$type} = $type;
}	}
&Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash);	&Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash,$hidepriv);
foreach my $user (keys(%userdata)) {	foreach my $user (keys(%userdata)) {
next if (ref($userinfo{$user}) eq 'HASH');	next if (ref($userinfo{$user}) eq 'HASH');
foreach my $item ('fullname','id') {	foreach my $item ('fullname','id') {
Line 1468 sub print_userlist {	Line 1457 sub print_userlist {
$env{'form.phase'}.'" /></form>');	$env{'form.phase'}.'" /></form>');
}	}

	sub role_filter {
	my ($context) = @_;
	my $output;
	my $roleselected = '';
	if ($env{'form.showrole'} eq 'Any') {
	$roleselected = ' selected="selected" ';
	}
	my ($role_select);
	if ($context eq 'domain') {
	$role_select = &domain_roles_select();
	$output = '<label>'.&mt('Role Type: [_1]',$role_select).'</label>';
	} else {
	$role_select = '<select name="showrole">'."\n".
	'<option value="Any" '.$roleselected.'>'.
	&mt('Any role').'</option>';
	my @poss_roles = &curr_role_permissions($context);
	foreach my $role (@poss_roles) {
	$roleselected = '';
	if ($role eq $env{'form.showrole'}) {
	$roleselected = ' selected="selected" ';
	}
	my $plrole;
	if ($role eq 'cr') {
	$plrole = &mt('Custom role');
	} else {
	$plrole=&Apache::lonnet::plaintext($role);
	}
	$role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
	}
	$role_select .= '</select>';
	$output = '<label>'.&mt('Role: [_1]',$role_select).'</label>';
	}
	return $output;
	}

	sub section_group_filter {
	my ($cnum,$cdom) = @_;
	my @filters;
	if ($env{'request.course.sec'} eq '') {
	@filters = ('sec');
	}
	push(@filters,'grp');
	my %name = (
	sec => 'secfilter',
	grp => 'grpfilter',
	);
	my %title = &Apache::lonlocal::texthash (
	sec => 'Section(s)',
	grp => 'Group(s)',
	all => 'all',
	none => 'none',
	);
	my $output;
	foreach my $item (@filters) {
	my ($markup,@options);
	if ($env{'form.'.$name{$item}} eq '') {
	$env{'form.'.$name{$item}} = 'all';
	}
	if ($item eq 'sec') {
	if ($env{'form.showrole'} eq 'cc') {
	$env{'form.'.$name{$item}} = 'none';
	}
	my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
	@options = sort(keys(%sections_count));
	} elsif ($item eq 'grp') {
	my %curr_groups = &Apache::longroup::coursegroups();
	@options = sort(keys(%curr_groups));
	}
	if (@options > 0) {
	my $currsel;
	$markup = '<select name="'.$name{$item}.'" />'."\n";
	foreach my $option ('all','none',@options) {
	$currsel = '';
	if ($env{'form.'.$name{$item}} eq $option) {
	$currsel = ' selected="selected" ';
	}
	$markup .= ' <option value="'.$option.'"'.$currsel.'>';
	if (($option eq 'all') \|\| ($option eq 'none')) {
	$markup .= $title{$option};
	} else {
	$markup .= $option;
	}
	$markup .= '</option>'."\n";
	}
	$markup .= '</select>'."\n";
	$output .= (' 'x3).'<label>'.$title{$item}.': '.$markup.'</label>';
	}
	}
	return $output;
	}

sub list_submit_button {	sub list_submit_button {
my ($text) = @_;	my ($text) = @_;
return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />';	return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />';
Line 1475 sub list_submit_button {	Line 1555 sub list_submit_button {

sub gather_userinfo {	sub gather_userinfo {
my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;	my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;
	my $viewablesec;
	if ($context eq 'course') {
	$viewablesec = &viewable_section($permission);
	}
foreach my $item (keys(%{$rolehash})) {	foreach my $item (keys(%{$rolehash})) {
my %userdata;	my %userdata;
if ($context eq 'author') {	if ($context eq 'author') {
Line 1484 sub gather_userinfo {	Line 1568 sub gather_userinfo {
&build_user_record($context,\%userdata,$userinfo,$indexhash,	&build_user_record($context,\%userdata,$userinfo,$indexhash,
$item,$userlist);	$item,$userlist);
} elsif ($context eq 'course') {	} elsif ($context eq 'course') {
my $viewablesec = &viewable_section($permission);
($userdata{'username'},$userdata{'domain'},$userdata{'role'},	($userdata{'username'},$userdata{'domain'},$userdata{'role'},
$userdata{'section'}) = split(/:/,$item,-1);	$userdata{'section'}) = split(/:/,$item,-1);
($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});	($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});
Line 1752 sub make_keylist_array {	Line 1835 sub make_keylist_array {
$index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();	$index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();
$index->{'role'} = &Apache::loncoursedata::CL_ROLE();	$index->{'role'} = &Apache::loncoursedata::CL_ROLE();
$index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();	$index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();
	$index->{'photo'} = &Apache::loncoursedata::CL_PHOTO();
	$index->{'thumbnail'} = &Apache::loncoursedata::CL_THUMBNAIL();
foreach my $key (keys(%{$index})) {	foreach my $key (keys(%{$index})) {
$keylist->[$index->{$key}] = $key;	$keylist->[$index->{$key}] = $key;
}	}
Line 1800 sub process_date_info {	Line 1885 sub process_date_info {
}	}

sub show_users_list {	sub show_users_list {
my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist)=@_;	my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist,$formname)=@_;
	if ($formname eq '') {
	$formname = 'studentform';
	}
#	#
# Variables for excel output	# Variables for excel output
my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);	my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);
Line 1815 sub show_users_list {	Line 1903 sub show_users_list {
} else {	} else {
push(@sortable,'extent');	push(@sortable,'extent');
}	}
	if ($mode eq 'pickauthor') {
	@sortable = ('username','fullname','email','status');
	}
if (!grep(/^\Q$sortby\E$/,@sortable)) {	if (!grep(/^\Q$sortby\E$/,@sortable)) {
$sortby = 'username';	$sortby = 'username';
}	}
Line 1855 function photowindow(photolink) {	Line 1946 function photowindow(photolink) {
END	END
}	}
}	}
if ($mode ne 'autoenroll') {	if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();	my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
my $alert = &mt("You must select at least one user by checking a user's 'Select' checkbox");	my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode);
my $singconfirm = &mt(' for a single user?');	my $verify_action_js = &bulkaction_javascript($formname);
my $multconfirm = &mt(' for multiple users?');
my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode);
$r->print(<<END);	$r->print(<<END);

<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
$check_uncheck_js	$check_uncheck_js

function verify_action (field) {	$verify_action_js
var numchecked = 0;
var singconf = '$singconfirm';
var multconf = '$multconfirm';
if (field.length > 0) {
for (i = 0; i < field.length; i++) {
if (field[i].checked == true) {
numchecked ++;
}
}
} else {
if (field.checked == true) {
numchecked ++;
}
}
if (numchecked == 0) {
alert("$alert");
}
else {
var message = document.studentform.bulkaction[document.studentform.bulkaction.selectedIndex].text;
if (numchecked == 1) {
message += singconf;
}
else {
message += multconf;
}
if (confirm(message)) {
document.studentform.phase.value = 'bulkchange';
document.studentform.submit();
}
}
}

function username_display_launch(username,domain) {	function username_display_launch(username,domain) {
var target;	var target;
for (var i=0; i<document.studentform.usernamelink.length; i++) {	for (var i=0; i<document.$formname.usernamelink.length; i++) {
if (document.studentform.usernamelink[i].checked) {	if (document.$formname.usernamelink[i].checked) {
target = document.studentform.usernamelink[i].value;	target = document.$formname.usernamelink[i].value;
}	}
}	}
if (target == 'modify') {	if (target == 'modify') {
document.studentform.srchterm.value=username;	if (document.$formname.userwin.checked == true) {
document.studentform.srchdomain.value=domain;	var url = '/adm/createuser?srchterm='+username+'&srchdomain='+domain+'&phase=get_user_info&action=singleuser&srchin=dom&srchby=uname&srchtype=exact&popup=1';
document.studentform.phase.value='get_user_info';	var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
document.studentform.action.value = 'singleuser';	modifywin = window.open(url,'',options,1);
document.studentform.submit();	modifywin.focus();
	return;
	} else {
	document.$formname.srchterm.value=username;
	document.$formname.srchdomain.value=domain;
	document.$formname.phase.value='get_user_info';
	document.$formname.action.value = 'singleuser';
	document.$formname.submit();
	}
}	}
else {	if (target == 'aboutme') {
document.location.href = '/adm/'+domain+'/'+username+'/aboutme';	if (document.$formname.userwin.checked == true) {
	var url = '/adm/'+domain+'/'+username+'/aboutme?popup=1';
	var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
	aboutmewin = window.open(url,'',options,1);
	aboutmewin.focus();
	return;
	} else {
	document.location.href = '/adm/'+domain+'/'+username+'/aboutme';
	}
}	}
}	}
</script>	</script>
Line 1939 END	Line 2013 END
'role' => "role",	'role' => "role",
'type' => "enroll type/action",	'type' => "enroll type/action",
'email' => "email address",	'email' => "email address",
'clicker' => "clicker id",
'photo' => "photo",	'photo' => "photo",
'extent' => "extent",	'extent' => "extent",
'pr' => "Proceed",	'pr' => "Proceed",
'ca' => "check all",	'ca' => "check all",
'ua' => "uncheck all",	'ua' => "uncheck all",
'ac' => "Action to take for selected users",	'ac' => "Action to take for selected users",
'link' => "Behavior of username links",	'link' => "Behavior of clickable username link for each user",
'aboutme' => "Display a user's personal page",	'aboutme' => "Display a user's personal page",
	'owin' => "Open in a new window",
'modify' => "Modify a user's information",	'modify' => "Modify a user's information",
);	);
if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {	if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
Line 1955 END	Line 2029 END
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
$lt{'extent'} = &mt('Author');	$lt{'extent'} = &mt('Author');
}	}
my @cols = ('username','domain','id','fullname');	my @cols;
if ($context eq 'course') {	if ($mode eq 'pickauthor') {
push(@cols,'section');	@cols = ('username','fullname','status','email');
}	} else {
if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) {	@cols = ('username','domain','id','fullname');
push(@cols,('start','end'));	if ($context eq 'course') {
}	push(@cols,'section');
if ($env{'form.showrole'} eq 'Any' \|\| $env{'form.showrole'} eq 'cr') {	}
push(@cols,'role');	if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) {
}	push(@cols,('start','end'));
if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' \|\|	}
$env{'form.roletype'} eq 'course')) {	if ($env{'form.showrole'} eq 'Any' \|\| $env{'form.showrole'} eq 'cr') {
push (@cols,'extent');	push(@cols,'role');
}	}
if (($statusmode eq 'Any') &&	if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' \|\|
(!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {	$env{'form.roletype'} eq 'course')) {
push(@cols,'status');	push (@cols,'extent');
}	}
if ($context eq 'course') {	if (($statusmode eq 'Any') &&
push(@cols,'groups');	(!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {
	push(@cols,'status');
	}
	if ($context eq 'course') {
	push(@cols,'groups');
	}
	push(@cols,'email');
}	}
push(@cols,'email');

my $rolefilter = $env{'form.showrole'};	my $rolefilter = $env{'form.showrole'};
if ($env{'form.showrole'} eq 'cr') {	if ($env{'form.showrole'} eq 'cr') {
Line 1988 END	Line 2067 END
if ($mode ne 'autoenroll') {	if ($mode ne 'autoenroll') {
$results_description = &results_header_row($rolefilter,$statusmode,	$results_description = &results_header_row($rolefilter,$statusmode,
$context,$permission,$mode);	$context,$permission,$mode);
$r->print('<b>'.$results_description.'</b><br />');	$r->print('<b>'.$results_description.'</b><br /><br />');
}	}
my ($output,$actionselect);	my ($output,$actionselect,%canchange,%canchangesec);
if ($mode eq 'html' \|\| $mode eq 'view' \|\| $mode eq 'autoenroll') {	if ($mode eq 'html' \|\| $mode eq 'view' \|\| $mode eq 'autoenroll' \|\| $mode eq 'pickauthor') {
if ($mode ne 'autoenroll') {	if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
if ($permission->{'cusr'}) {	if ($permission->{'cusr'}) {
$actionselect = &select_actions($context,$setting,$statusmode);	$actionselect = &select_actions($context,$setting,$statusmode,$formname);
}	}
$r->print(<<END);	$r->print(<<END);
<input type="hidden" name="srchby" value="uname" />	<input type="hidden" name="srchby" value="uname" />
Line 2003 END	Line 2082 END
<input type="hidden" name="srchterm" value="" />	<input type="hidden" name="srchterm" value="" />
<input type="hidden" name="srchdomain" value="" />	<input type="hidden" name="srchdomain" value="" />
END	END
$output = '<p>';	if ($actionselect) {
	$output .= <<"END";
	<div class="LC_left_float"><fieldset><legend><b>$lt{'ac'}</b></legend>
	$actionselect
	<br/><br /><input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.$formname.actionlist)" />
	<input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.$formname.actionlist)" /><br /><input type="button" value="$lt{'pr'}" onclick="javascript:verify_action('actionlist')" /></fieldset></div>
	END
	my @allroles;
	if ($env{'form.showrole'} eq 'Any') {
	my $custom = 1;
	if ($context eq 'domain') {
	@allroles = &roles_by_context($setting,$custom);
	} else {
	@allroles = &roles_by_context($context,$custom);
	}
	} else {
	@allroles = ($env{'form.showrole'});
	}
	foreach my $role (@allroles) {
	if ($context eq 'domain') {
	if ($setting eq 'domain') {
	if (&Apache::lonnet::allowed('c'.$role,
	$env{'request.role.domain'})) {
	$canchange{$role} = 1;
	}
	} elsif ($setting eq 'author') {
	if (&Apache::lonnet::allowed('c'.$role,
	$env{'request.role.domain'})) {
	$canchange{$role} = 1;
	}
	}
	} elsif ($context eq 'author') {
	if (&Apache::lonnet::allowed('c'.$role,
	$env{'user.domain'}.'/'.$env{'user.name'})) {
	$canchange{$role} = 1;
	}
	} elsif ($context eq 'course') {
	if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
	$canchange{$role} = 1;
	} elsif ($env{'request.course.sec'} ne '') {
	if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
	$canchangesec{$role} = $env{'request.course.sec'};
	}
	}
	}
	}
	}
	$output .= '<div class="LC_left_float"><fieldset><legend><b>'.$lt{'link'}.'</b></legend>'.
	'<table><tr>';
my @linkdests = ('aboutme');	my @linkdests = ('aboutme');
if ($permission->{'cusr'}) {	if ($permission->{'cusr'}) {
push (@linkdests,'modify');	unshift (@linkdests,'modify');
$output .= '<span class="LC_nobreak">'.$lt{'link'}.': ';	}
my $usernamelink = $env{'form.usernamelink'};	$output .= '<td>';
if ($usernamelink eq '') {	my $usernamelink = $env{'form.usernamelink'};
$usernamelink = 'aboutme';	if ($usernamelink eq '') {
}	$usernamelink = 'aboutme';
foreach my $item (@linkdests) {	}
my $checkedstr = '';	foreach my $item (@linkdests) {
if ($item eq $usernamelink) {	my $checkedstr = '';
$checkedstr = ' checked="checked" ';	if ($item eq $usernamelink) {
}	$checkedstr = ' checked="checked" ';
$output .= '<label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'> '.$lt{$item}.'</label>  ';
}	}
$output .= '</span><br />';	$output .= '<span class="LC_nobreak"><label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'> '.$lt{$item}.'</label></span><br />';
} else {
$output .= &mt("Click on a username to view the user's personal page.").'<br />';
}	}
if ($actionselect) {	my $checkwin;
$output .= <<"END";	if ($env{'form.userwin'}) {
$lt{'ac'}: $actionselect <input type="button" value="$lt{'pr'}" onclick="javascript:verify_action(document.studentform.actionlist)" /></p>	$checkwin = 'checked = "checked"';
<p><input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.actionlist)" />
<input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.actionlist)" />
END
}	}
	$output .= '</td><td valign="top"><span class="LC_nobreak"><input type="checkbox" name="userwin" value="1" '.$checkwin.'/>'.$lt{'owin'}.'</span></td></tr></table></fieldset></div>';
}	}
$output .= "\n<p>\n".	$output .= "\n".'<div class="LC_clear_float_footer"> </div>'."\n".
&Apache::loncommon::start_data_table().	&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row();	&Apache::loncommon::start_data_table_header_row();
if ($mode eq 'autoenroll') {	if ($mode eq 'autoenroll') {
$output .= "	$output .= "
<th><a href=\"javascript:document.studentform.sortby.value='type';document.studentform.submit();\">$lt{'type'}</a></th>	<th><a href=\"javascript:document.$formname.sortby.value='type';document.$formname.submit();\">$lt{'type'}</a></th>
";	";
} else {	} else {
$output .= "\n".'<th>'.&mt('Count').'</th>'."\n";	if ($mode eq 'pickauthor') {
	$output .= "\n".'<th> </th>'."\n";
	} else {
	$output .= "\n".'<th>'.&mt('Count').'</th>'."\n";
	}
if ($actionselect) {	if ($actionselect) {
$output .= '<th>'.&mt('Select').'</th>'."\n";	$output .= '<th>'.&mt('Select').'</th>'."\n";
}	}
}	}
foreach my $item (@cols) {	foreach my $item (@cols) {
$output .= "<th><a href=\"javascript:document.studentform.sortby.value='$item';document.studentform.submit();\">$lt{$item}</a></th>\n";	$output .= "<th><a href=\"javascript:document.$formname.sortby.value='$item';document.$formname.submit();\">$lt{$item}</a></th>\n";
}	}
my %role_types = &role_type_names();	my %role_types = &role_type_names();
if ($context eq 'course' && $mode ne 'autoenroll') {	if ($context eq 'course' && $mode ne 'autoenroll') {
if ($env{'form.showrole'} eq 'st' \|\| $env{'form.showrole'} eq 'Any') {	if ($env{'form.showrole'} eq 'st' \|\| $env{'form.showrole'} eq 'Any') {
# Clicker display on or off?	# Clicker display on or off?
my %clicker_options = &Apache::lonlocal::texthash(	my %clicker_options = (
'on' => 'Show',	'on' => 'Show',
'off' => 'Hide',	'off' => 'Hide',
);	);
my $clickerchg = 'on';	my $clickerchg = 'on';
if ($displayclickers eq 'on') {	if ($displayclickers eq 'on') {
$clickerchg = 'off';	$clickerchg = 'off';
}	}
$output .= ' <th>'."\n".' '.	$output .= ' <th>'."\n".' '
'<a href="javascript:document.studentform.displayclickers.value='.	.&mt('[_1]'.$clicker_options{$clickerchg}.'[_2] clicker id'
"'".$clickerchg."'".';document.studentform.submit();">'.	,'<a href="javascript:document.'.$formname.'.displayclickers.value='
$clicker_options{$clickerchg}.'</a> '.$lt{'clicker'}."\n".	."'".$clickerchg."'".';document.'.$formname.'.submit();">'
' </th>'."\n";	,'</a>')
	."\n".' </th>'."\n";

# Photo display on or off?	# Photo display on or off?
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {	if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
Line 2076 END	Line 2203 END
$photochg = 'off';	$photochg = 'off';
}	}
$output .= ' <th>'."\n".' '.	$output .= ' <th>'."\n".' '.
'<a href="javascript:document.studentform.displayphotos.value='.	'<a href="javascript:document.'.$formname.'.displayphotos.value='.
"'".$photochg."'".';document.studentform.submit();">'.	"'".$photochg."'".';document.'.$formname.'.submit();">'.
$photo_options{$photochg}.'</a> '.$lt{'photo'}."\n".	$photo_options{$photochg}.'</a> '.$lt{'photo'}."\n".
' </th>'."\n";	' </th>'."\n";
}	}
Line 2117 END	Line 2244 END
}	}

# Done with header lines in all formats	# Done with header lines in all formats

my %index;	my %index;
my $i;	my $i;
foreach my $idx (@$keylist) {	foreach my $idx (@$keylist) {
$index{$idx} = $i++;	$index{$idx} = $i++;
}	}
my $usercount = 0;	my $usercount = 0;
	my ($secfilter,$grpfilter);
	if ($context eq 'course') {
	$secfilter = $env{'form.secfilter'};
	$grpfilter = $env{'form.grpfilter'};
	if ($secfilter eq '') {
	$secfilter = 'all';
	}
	if ($grpfilter eq '') {
	$grpfilter = 'all';
	}
	}
# Get groups, role, permanent e-mail so we can sort on them if	# Get groups, role, permanent e-mail so we can sort on them if
# necessary.	# necessary.
foreach my $user (keys(%{$userlist})) {	foreach my $user (keys(%{$userlist})) {
	if ($user eq '' ) {
	delete($userlist->{$user});
	next;
	}
if ($context eq 'domain' && $user eq $env{'request.role.domain'}.'-domainconfig:'.$env{'request.role.domain'}) {	if ($context eq 'domain' && $user eq $env{'request.role.domain'}.'-domainconfig:'.$env{'request.role.domain'}) {
delete($userlist->{$user});	delete($userlist->{$user});
next;	next;
Line 2161 END	Line 2302 END
delete($userlist->{$user});	delete($userlist->{$user});
next;	next;
}	}
if (ref($classgroups) eq 'HASH') {	if ($context eq 'course') {
$groups = $classgroups->{$user};	my @ac_groups;
}	if (ref($classgroups) eq 'HASH') {
if (ref($groups->{active}) eq 'HASH') {	$groups = $classgroups->{$user};
$userlist->{$user}->[$index{'groups'}] = join(', ',keys(%{$groups->{'active'}}));	}
	if (ref($groups->{'active'}) eq 'HASH') {
	@ac_groups = keys(%{$groups->{'active'}});
	$userlist->{$user}->[$index{'groups'}] = join(', ',@ac_groups);
	}
	if ($mode ne 'autoenroll') {
	my $section = $userlist->{$user}->[$index{'section'}];
	if (($env{'request.course.sec'} ne '') &&
	($section ne $env{'request.course.sec'})) {
	if ($role eq 'st') {
	delete($userlist->{$user});
	next;
	}
	}
	if ($secfilter eq 'none') {
	if ($section ne '') {
	delete($userlist->{$user});
	next;
	}
	} elsif ($secfilter ne 'all') {
	if ($section ne $secfilter) {
	delete($userlist->{$user});
	next;
	}
	}
	if ($grpfilter eq 'none') {
	if (@ac_groups > 0) {
	delete($userlist->{$user});
	next;
	}
	} elsif ($grpfilter ne 'all') {
	if (!grep(/^\Q$grpfilter\E$/,@ac_groups)) {
	delete($userlist->{$user});
	next;
	}
	}
	if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
	if (($displayphotos eq 'on') && ($role eq 'st')) {
	$userlist->{$user}->[$index{'photo'}] =
	&Apache::lonnet::retrievestudentphoto($udom,$uname,'jpg');
	$userlist->{$user}->[$index{'thumbnail'}] =
	&Apache::lonnet::retrievestudentphoto($udom,$uname,
	'gif','thumbnail');
	}
	}
	}
}	}
my %emails = &Apache::loncommon::getemails($uname,$udom);	my %emails = &Apache::loncommon::getemails($uname,$udom);
if ($emails{'permanentemail'} =~ /\S/) {	if ($emails{'permanentemail'} =~ /\S/) {
Line 2217 END	Line 2403 END
} else {	} else {
$in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});	$in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
}	}
if ($mode eq 'view' \|\| $mode eq 'html' \|\| $mode eq 'autoenroll') {	if ($mode eq 'view' \|\| $mode eq 'html' \|\| $mode eq 'autoenroll' \|\| $mode eq 'pickauthor') {
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
my $checkval;	my $checkval;
if ($mode eq 'autoenroll') {	if ($mode eq 'autoenroll') {
Line 2239 END	Line 2425 END
}	}
$r->print("<td>$cellentry</td>\n");	$r->print("<td>$cellentry</td>\n");
} else {	} else {
$r->print("<td>$rowcount</td>\n");	if ($mode ne 'pickauthor') {
$checkval;	$r->print("<td>$rowcount</td>\n");
	}
if ($actionselect) {	if ($actionselect) {
$checkval = $user;	my $showcheckbox;
if ($context eq 'course') {	if ($role =~ /^cr\//) {
if ($role eq 'st') {	$showcheckbox = $canchange{'cr'};
$checkval .= ':st';	} else {
	$showcheckbox = $canchange{$role};
	}
	if (!$showcheckbox) {
	if ($context eq 'course') {
	if ($canchangesec{$role} ne '') {
	if ($canchangesec{$role} eq $in{'section'}) {
	$showcheckbox = 1;
	}
	}
}	}
$checkval .= ':'.$in{'section'};	}
if ($role eq 'st') {	if ($showcheckbox) {
$checkval .= ':'.$in{'type'}.':'.$in{'lockedtype'};	$checkval = $user;
	if ($context eq 'course') {
	if ($role eq 'st') {
	$checkval .= ':st';
	}
	$checkval .= ':'.$in{'section'};
	if ($role eq 'st') {
	$checkval .= ':'.$in{'type'}.':'.
	$in{'lockedtype'};
	}
}	}
	$r->print('<td><input type="checkbox" name="'.
	'actionlist" value="'.$checkval.'"></td>');
	} else {
	$r->print('<td> </td>');
}	}
$r->print('<td><input type="checkbox" name="actionlist" value="'.	} elsif ($mode eq 'pickauthor') {
$checkval.'"></td>');	$r->print('<td><input type="button" name="chooseauthor" onclick="javascript:gochoose('."'$in{'username'}'".');" value="'.&mt('Select').'" /></td>');
}	}
}	}
foreach my $item (@cols) {	foreach my $item (@cols) {
if ($item eq 'username') {	if ($item eq 'username') {
$r->print('<td>'.&print_username_link($mode,$permission,	$r->print('<td>'.&print_username_link($mode,\%in).'</td>');
\%in).'</td>');
} elsif (($item eq 'start' \|\| $item eq 'end') && ($actionselect)) {	} elsif (($item eq 'start' \|\| $item eq 'end') && ($actionselect)) {
$r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");	$r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");
} else {	} else {
Line 2277 END	Line 2485 END
$r->print(' <td> </td> ');	$r->print(' <td> </td> ');
}	}
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {	if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
if ($displayphotos eq 'on' && $sdata->[$index{'role'}] eq 'st') {	if ($displayphotos eq 'on' && $role eq 'st' && $in{'photo'} ne '') {
my $imgurl =	$r->print(' <td align="right"><a href="javascript:photowindow('."'".$in{'photo'}."'".')"><img src="'.$in{'thumbnail'}.'" border="1"></a></td>');
&Apache::lonnet::retrievestudentphoto($in{'domain'},$in{'username'},
'gif','thumbnail');
$r->print(' <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($in{'domain'},$in{'username'},'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');
} else {	} else {
$r->print(' <td> </td> ');	$r->print(' <td> </td> ');
}	}
Line 2325 END	Line 2530 END
$row++;	$row++;
}	}
}	}
if ($mode eq 'view' \|\| $mode eq 'html' \|\| $mode eq 'autoenroll') {	if ($mode eq 'view' \|\| $mode eq 'html' \|\| $mode eq 'autoenroll' \|\| $mode eq 'pickauthor') {
$r->print(&Apache::loncommon::end_data_table().'<br />');	$r->print(&Apache::loncommon::end_data_table().'<br />');
} elsif ($mode eq 'excel') {	} elsif ($mode eq 'excel') {
$excel_workbook->close();	$excel_workbook->close();
Line 2345 END	Line 2550 END
}	}
}	}

	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 {	sub print_username_link {
my ($mode,$permission,$in) = @_;	my ($mode,$in) = @_;
my $output;	my $output;
if ($mode eq 'autoenroll') {	if ($mode eq 'autoenroll') {
$output = $in->{'username'};	$output = $in->{'username'};
} elsif (!$permission->{'cusr'}) {
$output = &Apache::loncommon::aboutmewrapper($in->{'username'},
$in->{'username'},
$in->{'domain'});
} else {	} else {
$output = '<a href="javascript:username_display_launch('.	$output = '<a href="javascript:username_display_launch('.
"'$in->{'username'}','$in->{'domain'}'".')" />'.	"'$in->{'username'}','$in->{'domain'}'".')" />'.
Line 2372 sub role_type_names {	Line 2692 sub role_type_names {
}	}

sub select_actions {	sub select_actions {
my ($context,$setting,$statusmode) = @_;	my ($context,$setting,$statusmode,$formname) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
revoke => "Revoke user roles",	revoke => "Revoke user roles",
delete => "Delete user roles",	delete => "Delete user roles",
Line 2386 sub select_actions {	Line 2706 sub select_actions {
if ($context eq 'domain' && $setting eq 'course') {	if ($context eq 'domain' && $setting eq 'course') {
return;	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') {	if ($statusmode eq 'Any') {
$options .= '	$options .= '
<option value="chgdates">'.$lt{'chgdates'}.'</option>';	<option value="chgdates">'.$lt{'chgdates'}.'</option>';
Line 2412 sub select_actions {	Line 2746 sub select_actions {
<option value="delete">'.$lt{'delete'}.'</option>';	<option value="delete">'.$lt{'delete'}.'</option>';
}	}
if (($context eq 'course') \|\| ($context eq 'domain' && $setting eq 'course')) {	if (($context eq 'course') \|\| ($context eq 'domain' && $setting eq 'course')) {
if ($statusmode ne 'Expired') {	if (($statusmode ne 'Expired') && ($env{'request.course.sec'} eq '')) {
$options .= '	$options .= '
<option value="chgsec">'.$lt{'chgsec'}.'</option>';	<option value="chgsec">'.$lt{'chgsec'}.'</option>';
$choices{'sections'} = 1;	$choices{'sections'} = 1;
}	}
}	}
if ($options) {	if ($options) {
$output = '<select name="bulkaction" onchange="javascript:opendatebrowser(this.form,'."'studentform'".')" />'."\n".	$output = '<select name="bulkaction">'."\n".
'<option value="" selected="selected">'.	'<option value="" selected="selected">'.
&mt('Please select').'</option>'."\n".$options."\n".'</select>';	&mt('Please select').'</option>'."\n".$options."\n".'</select>';
if ($choices{'dates'}) {	if ($choices{'dates'}) {
Line 2435 sub select_actions {	Line 2769 sub select_actions {
'<input type="hidden" name="enddate_year" value="" />'."\n".	'<input type="hidden" name="enddate_year" value="" />'."\n".
'<input type="hidden" name="enddate_hour" value="" />'."\n".	'<input type="hidden" name="enddate_hour" value="" />'."\n".
'<input type="hidden" name="enddate_minute" value="" />'."\n".	'<input type="hidden" name="enddate_minute" value="" />'."\n".
'<input type="hidden" name="enddate_second" value="" />'."\n";	'<input type="hidden" name="enddate_second" value="" />'."\n".
	'<input type="hidden" name="no_end_date" value="" />'."\n";
if ($context eq 'course') {	if ($context eq 'course') {
$output .= '<input type="hidden" name="makedatesdefault" value="" />'."\n";	$output .= '<input type="hidden" name="makedatesdefault" value="" />'."\n";
}	}
Line 2450 sub select_actions {	Line 2785 sub select_actions {

sub date_section_javascript {	sub date_section_javascript {
my ($context,$setting) = @_;	my ($context,$setting) = @_;
my $title;	my $title = 'Date_And_Section_Selector';
if (($context eq 'course') \|\| ($context eq 'domain' && $setting eq 'course')) {	my %nopopup = &Apache::lonlocal::texthash (
$title = &mt('Date and Section selector');	revoke => "Check the boxes for any users for whom roles are to be revoked, and click 'Proceed'",
} else {	delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'",
$title = &mt('Date selector');	none => "Choose an action to take for selected users",
}	);
my $output = '	my $output = '
<script type="text/javascript">	<script type="text/javascript">'."\n";
var stdeditbrowser;'."\n";
$output .= <<"ENDONE";	$output .= <<"ENDONE";
function opendatebrowser(callingform,formname) {	function opendatebrowser(callingform,formname,calledby) {
var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;	var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;
if (bulkaction == 'revoke' \|\| bulkaction == 'delete' \|\| bulkaction == '') {
return;
}
var url = '/adm/createuser?';	var url = '/adm/createuser?';
var type = '';	var type = '';
var showrole = callingform.showrole.options[callingform.showrole.selectedIndex].value;	var showrole = callingform.showrole.options[callingform.showrole.selectedIndex].value;
Line 2506 function saveselections(formname) {	Line 2837 function saveselections(formname) {
END	END
if ($env{'form.bulkaction'} eq 'chgsec') {	if ($env{'form.bulkaction'} eq 'chgsec') {
$output .= <<"END";	$output .= <<"END";
opener.document.$callingform.retainsec.value = formname.retainsec.value;	if (formname.retainsec.length > 1) {
	for (var i=0; i<formname.retainsec.length; i++) {
	if (formname.retainsec[i].checked == true) {
	opener.document.$callingform.retainsec.value = formname.retainsec[i].value;
	}
	}
	} else {
	opener.document.$callingform.retainsec.value = formname.retainsec.value;
	}
setSections(formname);	setSections(formname);
if (seccheck == 'ok') {	if (seccheck == 'ok') {
opener.document.$callingform.newsecs.value = formname.sections.value;	opener.document.$callingform.newsecs.value = formname.sections.value;
window.close();
}	}
return;
END	END
} else {	} else {
if ($context eq 'course') {	if ($context eq 'course') {
if (($env{'form.bulkaction'} eq 'reenable') \|\|	if (($env{'form.bulkaction'} eq 'reenable') \|\|
($env{'form.bulkaction'} eq 'activate') \|\|	($env{'form.bulkaction'} eq 'activate') \|\|
($env{'form.bulkaction'} eq 'chgdates')) {	($env{'form.bulkaction'} eq 'chgdates')) {
$output .= <<"END";	if ($env{'request.course.sec'} eq '') {
	$output .= <<"END";

if (formname.makedatesdefault.checked == true) {	if (formname.makedatesdefault.checked == true) {
opener.document.$callingform.makedatesdefault.value = 1;	opener.document.$callingform.makedatesdefault.value = 1;
Line 2529 END	Line 2867 END
}	}

END	END
	}
}	}
}	}
$output .= <<"END";	$output .= <<"END";
Line 2544 END	Line 2883 END
opener.document.$callingform.enddate_hour.value = formname.enddate_hour.options[formname.enddate_hour.selectedIndex].value;	opener.document.$callingform.enddate_hour.value = formname.enddate_hour.options[formname.enddate_hour.selectedIndex].value;
opener.document.$callingform.enddate_minute.value = formname.enddate_minute.value;	opener.document.$callingform.enddate_minute.value = formname.enddate_minute.value;
opener.document.$callingform.enddate_second.value = formname.enddate_second.value;	opener.document.$callingform.enddate_second.value = formname.enddate_second.value;
window.close();	if (formname.no_end_date.checked) {
	opener.document.$callingform.no_end_date.value = '1';
	} else {
	opener.document.$callingform.no_end_date.value = '0';
	}
END	END
}	}
$output .= '	my $verify_action_js = &bulkaction_javascript($callingform,'popup');
	$output .= <<"ENDJS";
	verify_action('actionlist');
}	}

	$verify_action_js

</script>	</script>
';	ENDJS
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
chac => 'Access dates to apply for selected users',	chac => 'Access dates to apply for selected users',
chse => 'Changes in section affiliation to apply to selected users',	chse => 'Changes in section affiliation to apply to selected users',
Line 2578 END	Line 2926 END
$date_items;	$date_items;
if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') {	if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') {
my ($cnum,$cdom) = &get_course_identity();	my ($cnum,$cdom) = &get_course_identity();
my %sections_count =
&Apache::loncommon::get_sections($cdom,$cnum);
my $info;	my $info;
if ($env{'form.showrole'} eq 'st') {	if ($env{'form.showrole'} eq 'st') {
$output .= '<p>'.$lt{'fors'}.'</p>';	$output .= '<p>'.$lt{'fors'}.'</p>';
} elsif ($env{'form.shorole'} eq 'Any') {	} elsif ($env{'form.showrole'} eq 'Any') {
$output .= '<p>'.$lt{'fors'}.'</p>'.	$output .= '<p>'.$lt{'fors'}.'</p>'.
'<p>'.$lt{'forn'}.' ';	'<p>'.$lt{'forn'}.' ';
$info = $lt{'reta'};	$info = $lt{'reta'};
Line 2604 END	Line 2950 END
} else {	} else {
$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 $rowtitle = &mt('New section to assign');	my $rowtitle = &mt('New section to assign');
my $secbox = &section_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,$permission,$context);	my $secbox = &section_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,$permission,$context);
$output .= $info.$secbox;	$output .= $info.$secbox;
}	}
$output .= '<p>'.	$output .= '<p>'.
&mt('Use "Save" to update the main window with your selections.').'<br /><br />'.	'<input type="button" name="dateselection" value="'.&mt('Make changes').'" onclick="javascript:saveselections(this.form)" /></p>'."\n".
'<input type="button" name="dateselection" value="'.&mt('Save').'" onclick="javascript:saveselections(this.form)" /></p>'."\n".
'</form>';	'</form>';
return $output;	return $output;
}	}
Line 2624 sub section_picker {	Line 2968 sub section_picker {
if ($mode eq 'upload') {	if ($mode eq 'upload') {
my ($options,$cb_script,$coursepick) =	my ($options,$cb_script,$coursepick) =
&default_role_selector($context,1);	&default_role_selector($context,1);
$secbox .= &Apache::lonhtmlcommon::row_title('role','LC_oddrow_value').	$secbox .= &Apache::lonhtmlcommon::row_title(&mt('role'),'LC_oddrow_value').
$options. &Apache::lonhtmlcommon::row_closure(1)."\n";	$options. &Apache::lonhtmlcommon::row_closure(1)."\n";
}	}
$secbox .= &Apache::lonhtmlcommon::row_title($rowtitle,'LC_oddrow_value')."\n";	$secbox .= &Apache::lonhtmlcommon::row_title($rowtitle,'LC_oddrow_value')."\n";
Line 2669 sub results_header_row {	Line 3013 sub results_header_row {
$description .= &mt('All users in course with [_1] roles',$rolefilter);	$description .= &mt('All users in course with [_1] roles',$rolefilter);
}	}
}	}
if (exists($permission->{'view_section'})) {	my $constraint;
	my $viewablesec = &viewable_section($permission);
	if ($viewablesec ne '') {
if ($env{'form.showrole'} eq 'st') {	if ($env{'form.showrole'} eq 'st') {
$description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'});	$constraint = &mt('only users in section "[_1]"',$viewablesec);
} elsif ($env{'form.showrole'} eq 'any') {	} elsif ($env{'form.showrole'} ne 'cc') {
$description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'});	$constraint = &mt('only users affiliated with no section or section "[_1]"',$viewablesec);
	}
	if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) {
	if ($env{'form.grpfilter'} eq 'none') {
	$constraint .= &mt(' and not in any group');
	} else {
	$constraint .= &mt(' and members of group: "[_1]"',$env{'form.grpfilter'});
	}
	}
	} else {
	if (($env{'form.secfilter'} ne 'all') && ($env{'form.secfilter'} ne '')) {
	if ($env{'form.secfilter'} eq 'none') {
	$constraint = &mt('only users affiliated with no section');
	} else {
	$constraint = &mt('only users affiliated with section "[_1]"',$env{'form.secfilter'});
	}
	}
	if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) {
	if ($env{'form.grpfilter'} eq 'none') {
	if ($constraint eq '') {
	$constraint = &mt('only users not in any group');
	} else {
	$constraint .= &mt(' and also not in any group');
	}
	} else {
	if ($constraint eq '') {
	$constraint = &mt('only members of group: "[_1]"',$env{'form.grpfilter'});
	} else {
	$constraint .= &mt(' and also members of group: "[_1]"'.$env{'form.grpfilter'});
	}
	}
}	}
}	}
	if ($constraint ne '') {
	$description .= ' ('.$constraint.')';
	}
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
$description =	$description =
&mt('Author space for <span class="LC_cusr_emph">[_1]</span>',	&mt('Author space for <span class="LC_cusr_emph">[_1]</span>',
Line 2773 sub viewable_section {	Line 3152 sub viewable_section {
#################################################	#################################################
#################################################	#################################################
sub show_drop_list {	sub show_drop_list {
my ($r,$classlist,$keylist,$nosort,$permission)=@_;	my ($r,$classlist,$nosort,$permission) = @_;
my $cid=$env{'request.course.id'};	my $cid = $env{'request.course.id'};
my ($cnum,$cdom) = &get_course_identity($cid);	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'},
Line 2784 sub show_drop_list {	Line 3163 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 ($classgroups) = &Apache::loncoursedata::get_group_memberships(
$classlist,$keylist,$cdom,$cnum);
#
my $action = "drop";	my $action = "drop";
my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();	my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
$r->print(<<END);	$r->print(<<END);
Line 2799 $check_uncheck_js	Line 3175 $check_uncheck_js
<p>	<p>
<input type="hidden" name="phase" value="four">	<input type="hidden" name="phase" value="four">
END	END
	my ($indexhash,$keylist) = &make_keylist_array();
my %lt=&Apache::lonlocal::texthash('usrn' => "username",	my $studentcount = 0;
'dom' => "domain",	if (ref($classlist) eq 'HASH') {
'sn' => "student name",	foreach my $student (keys(%{$classlist})) {
'sec' => "section",	my $sdata = $classlist->{$student};
'start' => "start date",	my $status = $sdata->[$indexhash->{'status'}];
'end' => "end date",	my $section = $sdata->[$indexhash->{'section'}];
'groups' => "active groups",	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) {	if ($nosort) {
$r->print(&Apache::loncommon::start_data_table().	$r->print(&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row());	&Apache::loncommon::start_data_table_header_row());
Line 2850 END	Line 3251 END
}	}
#	#
# Sort the students	# Sort the students
my %index;	my $index = $indexhash->{$sortby};
my $i;	my $second = $indexhash->{'username'};
foreach (@$keylist) {	my $third = $indexhash->{'domain'};
$index{$_} = $i++;
}
$index{'groups'} = scalar(@$keylist);
my $index = $index{$sortby};
my $second = $index{'username'};
my $third = $index{'domain'};
my @Sorted_Students = sort {	my @Sorted_Students = sort {
lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])	lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index])
\|\|	\|\|
lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])	lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
\|\|	\|\|
lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])	lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
} (keys(%$classlist));	} (keys(%{$classlist}));
foreach my $student (@Sorted_Students) {	foreach my $student (@Sorted_Students) {
my $error;	my $error;
my $sdata = $classlist->{$student};	my $sdata = $classlist->{$student};
my $username = $sdata->[$index{'username'}];	my $username = $sdata->[$indexhash->{'username'}];
my $domain = $sdata->[$index{'domain'}];	my $domain = $sdata->[$indexhash->{'domain'}];
my $section = $sdata->[$index{'section'}];	my $section = $sdata->[$indexhash->{'section'}];
my $name = $sdata->[$index{'fullname'}];	my $name = $sdata->[$indexhash->{'fullname'}];
my $id = $sdata->[$index{'id'}];	my $id = $sdata->[$indexhash->{'id'}];
my $start = $sdata->[$index{'start'}];	my $start = $sdata->[$indexhash->{'start'}];
my $end = $sdata->[$index{'end'}];	my $end = $sdata->[$indexhash->{'end'}];
my $groups = $classgroups->{$student};	my $groups = $classgroups->{$student};
my $active_groups;	my $active_groups;
if (ref($groups->{active}) eq 'HASH') {	if (ref($groups->{active}) eq 'HASH') {
Line 2891 END	Line 3286 END
} else {	} else {
$end = &Apache::lonlocal::locallocaltime($end);	$end = &Apache::lonlocal::locallocaltime($end);
}	}
my $status = $sdata->[$index{'status'}];
next if ($status ne 'Active');
if ($env{'request.course.sec'} ne '') {
if ($section ne $env{'request.course.sec'}) {
next;
}
}
my $studentkey = $student.':'.$section;	my $studentkey = $student.':'.$section;
my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$index{'start'}].'" />';	my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$indexhash->{'start'}].'" />';
#	#
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");	$r->print(<<"END");
<td><input type="checkbox" name="droplist" value="$student"></td>	<td><input type="checkbox" name="droplist" value="$studentkey"></td>
<td>$username</td>	<td>$username</td>
<td>$domain</td>	<td>$domain</td>
<td>$id</td>	<td>$id</td>
<td>$name</td>	<td>$name</td>
<td>$section</td>	<td>$section</td>
<td>$start</td>	<td>$start $startitem</td>
<td>$end</td>	<td>$end</td>
<td>$active_groups</td>	<td>$active_groups</td>
END	END
Line 2917 END	Line 3305 END
}	}
$r->print(&Apache::loncommon::end_data_table().'<br />');	$r->print(&Apache::loncommon::end_data_table().'<br />');
%lt=&Apache::lonlocal::texthash(	%lt=&Apache::lonlocal::texthash(
'dp' => "Expire Users' Roles",	'dp' => "Drop Students",
'ca' => "check all",	'ca' => "check all",
'ua' => "uncheck all",	'ua' => "uncheck all",
);	);
Line 2974 sub upfile_drop_add {	Line 3362 sub upfile_drop_add {
$fields{$env{'form.f'.$i}}=$keyfields[$i];	$fields{$env{'form.f'.$i}}=$keyfields[$i];
}	}
}	}
	if ($env{'form.fullup'} ne 'yes') {
	$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n".
	'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />');
	}
#	#
# Store the field choices away	# Store the field choices away
foreach my $field (qw/username names	foreach my $field (qw/username names
fname mname lname gen id sec ipwd email role/) {	fname mname lname gen id sec ipwd email role domain/) {
$env{'form.'.$field.'_choice'}=$fields{$field};	$env{'form.'.$field.'_choice'}=$fields{$field};
}	}
&Apache::loncommon::store_course_settings('enrollment_upload',	&Apache::loncommon::store_course_settings('enrollment_upload',
Line 2991 sub upfile_drop_add {	Line 3383 sub upfile_drop_add {
'sec_choice' => 'scalar',	'sec_choice' => 'scalar',
'ipwd_choice' => 'scalar',	'ipwd_choice' => 'scalar',
'email_choice' => 'scalar',	'email_choice' => 'scalar',
'role_choice' => 'scalar' });	'role_choice' => 'scalar',
	'domain_choice' => 'scalar'});
#	#
my ($startdate,$enddate) = &get_dates_from_form();	my ($startdate,$enddate) = &get_dates_from_form();
if ($env{'form.makedatesdefault'}) {	if ($env{'form.makedatesdefault'}) {
$r->print(&make_dates_default($startdate,$enddate));	$r->print(&make_dates_default($startdate,$enddate,$context));
}	}
# Determine domain and desired host (home server)	# Determine domain and desired host (home server)
my $domain=$env{'request.role.domain'};	my $defdom=$env{'request.role.domain'};
	my $domain;
	if ($env{'form.defaultdomain'} ne '') {
	$domain = $env{'form.defaultdomain'};
	} else {
	$domain = $defdom;
	}
my $desiredhost = $env{'form.lcserver'};	my $desiredhost = $env{'form.lcserver'};
if (lc($desiredhost) eq 'default') {	if (lc($desiredhost) eq 'default') {
$desiredhost = undef;	$desiredhost = undef;
} else {	} else {
my %home_servers = &Apache::lonnet::get_servers($domain,'library');	my %home_servers = &Apache::lonnet::get_servers($defdom,'library');
if (! exists($home_servers{$desiredhost})) {	if (! exists($home_servers{$desiredhost})) {
$r->print('<span class="LC_error">'.&mt('Error').	$r->print('<span class="LC_error">'.&mt('Error').
&mt('Invalid home server specified').'</span>');	&mt('Invalid home server specified').'</span>');
Line 3048 sub upfile_drop_add {	Line 3447 sub upfile_drop_add {
$defaultrole = $env{'form.defaultrole'};	$defaultrole = $env{'form.defaultrole'};
} elsif ($setting eq 'course') {	} elsif ($setting eq 'course') {
$defaultrole = $env{'form.courserole'};	$defaultrole = $env{'form.courserole'};
	$defaultsec = $env{'form.sections'};
}	}
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
$defaultrole = $env{'form.defaultrole'};	$defaultrole = $env{'form.defaultrole'};
}	} elsif ($context eq 'course') {
if ($context eq 'domain' && $setting eq 'course') {	$defaultrole = $env{'form.defaultrole'};
if ($env{'form.newsec'} ne '') {	$defaultsec = $env{'form.sections'};
$defaultsec = $env{'form.newsec'};
} elsif ($env{'form.defaultsec'} ne '') {
$defaultsec = $env{'form.defaultsec'}
}
}	}
if ($env{'request.course.id'} ne '') {	if ($env{'request.course.id'} ne '') {
$cid = $env{'request.course.id'};	$cid = $env{'request.course.id'};
} elsif ($env{'form.defaultdomain'} ne '' && $env{'form.defaultcourse'} ne '') {	} elsif ($setting eq 'course') {
$cid = $env{'form.defaultdomain'}.'_'.	if (&Apache::lonnet::is_course($env{'form.dcdomain'},$env{'form.dccourse'})) {
$env{'form.defaultcourse'};	$cid = $env{'form.dcdomain'}.'_'.$env{'form.dccourse'};
	}
	}
	# Check to see if user information can be changed
	my @userinfo = ('firstname','middlename','lastname','generation',
	'permanentemail','id');
	my %canmodify;
	if (&Apache::lonnet::allowed('mau',$domain)) {
	foreach my $field (@userinfo) {
	$canmodify{$field} = 1;
	}
	}
	my (%userlist,%modifiable_fields,@poss_roles);
	my $secidx = &Apache::loncoursedata::CL_SECTION();
	my @courseroles = &roles_by_context('course',1);
	if (!&Apache::lonnet::allowed('mau',$domain)) {
	if ($context eq 'course' \|\| $context eq 'author') {
	@poss_roles = &curr_role_permissions($context);
	my @statuses = ('active','future');
	my ($indexhash,$keylist) = &make_keylist_array();
	my %info;
	foreach my $role (@poss_roles) {
	%{$modifiable_fields{$role}} = &can_modify_userinfo($context,$domain,
	\@userinfo,[$role]);
	}
	if ($context eq 'course') {
	my ($cnum,$cdom) = &get_course_identity();
	my $roster = &Apache::loncoursedata::get_classlist();
	%userlist = %{$roster};
	my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
	\@statuses,\@poss_roles);
	&gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
	\%advrolehash,$permission);
	} elsif ($context eq 'author') {
	my %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef,
	\@statuses,\@poss_roles);
	&gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
	\%cstr_roles,$permission);

	}
	}
}	}
if ( $domain eq &LONCAPA::clean_domain($domain)	if ( $domain eq &LONCAPA::clean_domain($domain)
&& ($amode ne '')) {	&& ($amode ne '')) {
Line 3084 sub upfile_drop_add {	Line 3520 sub upfile_drop_add {
);	);
my $flushc=0;	my $flushc=0;
my %student=();	my %student=();
my %curr_groups;	my (%curr_groups,@sections,@cleansec,$defaultwarn,$groupwarn);
my %userchg;	my %userchg;
if ($context eq 'course') {	if ($context eq 'course' \|\| $setting eq 'course') {
# Get information about course groups	if ($context eq 'course') {
%curr_groups = &Apache::longroup::coursegroups();	# Get information about course groups
	%curr_groups = &Apache::longroup::coursegroups();
	} elsif ($setting eq 'course') {
	if ($cid) {
	%curr_groups =
	&Apache::longroup::coursegroups($env{'form.dcdomain'},
	$env{'form.dccourse'});
	}
	}
	# determine section number
	if ($defaultsec =~ /,/) {
	push(@sections,split(/,/,$defaultsec));
	} else {
	push(@sections,$defaultsec);
	}
	# remove non alphanumeric values from section
	foreach my $item (@sections) {
	$item =~ s/\W//g;
	if ($item eq "none" \|\| $item eq 'all') {
	$defaultwarn = &mt('Default section name [_1] could not be used as it is a reserved word.',$item);
	} elsif ($item ne '' && exists($curr_groups{$item})) {
	$groupwarn = &mt('Default section name "[_1]" is the name of a course group. Section names and group names must be distinct.',$item);
	} elsif ($item ne '') {
	push(@cleansec,$item);
	}
	}
	if ($defaultwarn) {
	$r->print($defaultwarn.'<br />');
	}
	if ($groupwarn) {
	$r->print($groupwarn.'<br />');
	}
}	}
my (%curr_rules,%got_rules,%alerts);	my (%curr_rules,%got_rules,%alerts);
	my %customroles = &my_custom_roles();
	my @permitted_roles = &roles_on_upload($context,$setting,%customroles);
# Get new users list	# Get new users list
foreach (@userdata) {	foreach my $line (@userdata) {
my %entries=&Apache::loncommon::record_sep($_);	my @secs;
	my %entries=&Apache::loncommon::record_sep($line);
# Determine user name	# Determine user name
unless (($entries{$fields{'username'}} eq '') \|\|	unless (($entries{$fields{'username'}} eq '') \|\|
(!defined($entries{$fields{'username'}}))) {	(!defined($entries{$fields{'username'}}))) {
Line 3121 sub upfile_drop_add {	Line 3591 sub upfile_drop_add {
&mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',	&mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',
$entries{$fields{'username'}},$fname,$mname,$lname,$gen).	$entries{$fields{'username'}},$fname,$mname,$lname,$gen).
'</b>');	'</b>');
	next;
} else {	} else {
	my $baddom = 0;
	if ($entries{$fields{'dom'}}
	ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
	$baddom = 1;
	} else {
	if (&Apache::lonnet::domain($entries{$fields{'domain'}}) eq '') {
	$baddom = 1;
	}
	}
	if ($baddom) {
	$r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.
	'</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen).'</b>');
	next;
	}
my $username = $entries{$fields{'username'}};	my $username = $entries{$fields{'username'}};
my $sec;	my $userdomain = $entries{$fields{'domain'}};
if ($context eq 'course' \|\| $setting eq 'course') {	if ($userdomain eq '') {
# determine section number	$userdomain = $domain;
if (defined($fields{'sec'})) {	}
if (defined($entries{$fields{'sec'}})) {	if (defined($fields{'sec'})) {
$sec=$entries{$fields{'sec'}};	if (defined($entries{$fields{'sec'}})) {
	$entries{$fields{'sec'}} =~ s/\W//g;
	my $item = $entries{$fields{'sec'}};
	if ($item eq "none" \|\| $item eq 'all') {
	$r->print('<br />'.&mt('<b>[_1]</b>: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a reserved word.',$username,$fname,$mname,$lname,$gen,$item));
	next;
	} elsif (exists($curr_groups{$item})) {
	$r->print('<br />'.&mt('<b>[_1]</b>: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a course group.',$username,$fname,$mname,$lname,$gen,$item).' '.&mt('Section names and group names must be distinct.'));
	next;
	} else {
	push(@secs,$item);
}	}
} else {
$sec = $defaultsec;
}	}
# remove non alphanumeric values from section	}
$sec =~ s/\W//g;	if ($env{'request.course.sec'} ne '') {
if ($sec eq "none" \|\| $sec eq 'all') {	@secs = ($env{'request.course.sec'});
$r->print('<br />'.	if (ref($userlist{$username.':'.$userdomain}) eq 'ARRAY') {
&mt('<b>[_1]</b>: Unable to enroll: section name "[_2]" for user [_3] [_4] [_5] [_6] is a reserved word.',	my $currsec = $userlist{$username.':'.$userdomain}[$secidx];
$username,$sec,$fname,$mname,$lname,$gen));	if ($currsec ne $env{'request.course.sec'}) {
next;	$r->print('<br />'.&mt('<b>[_1]</b>: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]".',$username,$fname,$mname,$lname,$gen,$secs[0]).'<br />');
} elsif (($sec ne '') && (exists($curr_groups{$sec}))) {	if ($currsec eq '') {
$r->print('<br />'.	$r->print(&mt('This user already has an active/future student role in the course, unaffiliated to any section.'));
&mt('<b>[_1]</b>: 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));	} else {
next;	$r->print(&mt('This user already has an active/future role in section "[_1]" of the course.',$currsec));
	}
	$r->print('<br />'.&mt('Although your current role has privileges to add students to section "[_1]", you do not have privileges to modify existing enrollments in other sections.',$secs[0]).'<br />');
	next;
	}
	}
	} elsif ($context eq 'course' \|\| $setting eq 'course') {
	if (@secs == 0) {
	@secs = @cleansec;
}	}
}	}
# determine id number	# determine id number
Line 3173 sub upfile_drop_add {	Line 3674 sub upfile_drop_add {
my $role = '';	my $role = '';
if (defined($fields{'role'})) {	if (defined($fields{'role'})) {
if ($entries{$fields{'role'}}) {	if ($entries{$fields{'role'}}) {
my @poss_roles =	$entries{$fields{'role'}} =~ s/(\s+$\|^\s+)//g;
&curr_role_permissions($context,$setting);	if ($entries{$fields{'role'}} ne '') {
if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) {	if (grep(/^\Q$entries{$fields{'role'}}\E$/,@permitted_roles)) {
$role=$entries{$fields{'role'}};	$role = $entries{$fields{'role'}};
} else {	}
my $rolestr = join(', ',@poss_roles);	}
	if ($role eq '') {
	my $rolestr = join(', ',@permitted_roles);
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: You do not have permission to add the requested role [_2] for the user.',$entries{$fields{'username'}},$entries{$fields{'role'}}).'<br />'.&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n");	&mt('<b>[_1]</b>: You do not have permission to add the requested role [_2] for the user.',$entries{$fields{'username'}},$entries{$fields{'role'}}).'<br />'.&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n");
next;	next;
Line 3189 sub upfile_drop_add {	Line 3692 sub upfile_drop_add {
$role = $defaultrole;	$role = $defaultrole;
}	}
# Clean up whitespace	# Clean up whitespace
foreach (\$domain,\$username,\$id,\$fname,\$mname,	foreach (\$id,\$fname,\$mname,\$lname,\$gen) {
\$lname,\$gen,\$sec,\$role) {
$$_ =~ s/(\s+$\|^\s+)//g;	$$_ =~ s/(\s+$\|^\s+)//g;
}	}
# check against rules	# check against rules
my $checkid = 0;	my $checkid = 0;
my $newuser = 0;	my $newuser = 0;
my (%rulematch,%inst_results,%idinst_results);	my (%rulematch,%inst_results,%idinst_results);
my $uhome=&Apache::lonnet::homeserver($username,$domain);	my $uhome=&Apache::lonnet::homeserver($username,$userdomain);
if ($uhome eq 'no_host') {	if ($uhome eq 'no_host') {
	next if ($userdomain ne $domain);
$checkid = 1;	$checkid = 1;
$newuser = 1;	$newuser = 1;
my $checkhash;	my $checkhash;
Line 3213 sub upfile_drop_add {	Line 3716 sub upfile_drop_add {
}	}
}	}
} else {	} else {
# FIXME check if user info can be updated.	if ($context eq 'course' \|\| $context eq 'author') {
	if ($userdomain eq $domain ) {
	if ($role eq '') {
	my @checkroles;
	foreach my $role (@poss_roles) {
	my $endkey;
	if ($role ne 'st') {
	$endkey = ':'.$role;
	}
	if (exists($userlist{$username.':'.$userdomain.$endkey})) {
	if (!grep(/^\Q$role\E$/,@checkroles)) {
	push(@checkroles,$role);
	}
	}
	}
	if (@checkroles > 0) {
	%canmodify = &can_modify_userinfo($context,$domain,\@userinfo,\@checkroles);
	}
	} elsif (ref($modifiable_fields{$role}) eq 'HASH') {
	%canmodify = %{$modifiable_fields{$role}};
	}
	}
	my @newinfo = (\$fname,\$mname,\$lname,\$gen,\$email,\$id);
	for (my $i=0; $i<@userinfo; $i++) {
	if (${$newinfo[$i]} ne '') {
	if (!$canmodify{$userinfo[$i]}) {
	${$newinfo[$i]} = '';
	}
	}
	}
	}
}	}
if ($id ne '') {	if ($id ne '') {
if (!$newuser) {	if (!$newuser) {
my %idhash = &Apache::lonnet::idrget($domain,($username));	my %idhash = &Apache::lonnet::idrget($userdomain,($username));
if ($idhash{$username} ne $id) {	if ($idhash{$username} ne $id) {
$checkid = 1;	$checkid = 1;
}	}
Line 3225 sub upfile_drop_add {	Line 3758 sub upfile_drop_add {
if ($checkid) {	if ($checkid) {
my $checkhash;	my $checkhash;
my $checks = { 'id' => 1 };	my $checks = { 'id' => 1 };
$checkhash->{$username.':'.$domain} = { 'newuser' => $newuser,	$checkhash->{$username.':'.$userdomain} = { 'newuser' => $newuser,
'id' => $id };	'id' => $id };
&Apache::loncommon::user_rule_check($checkhash,$checks,	&Apache::loncommon::user_rule_check($checkhash,$checks,
\%alerts,\%rulematch,\%idinst_results,\%curr_rules,	\%alerts,\%rulematch,\%idinst_results,\%curr_rules,
\%got_rules);	\%got_rules);
if (ref($alerts{'id'}) eq 'HASH') {	if (ref($alerts{'id'}) eq 'HASH') {
if (ref($alerts{'id'}{$domain}) eq 'HASH') {	if (ref($alerts{'id'}{$userdomain}) eq 'HASH') {
next if ($alerts{'id'}{$domain}{$id});	next if ($alerts{'id'}{$userdomain}{$id});
}	}
}	}
}	}
}	}
if ($password \|\| $env{'form.login'} eq 'loc') {	if ($password \|\| $env{'form.login'} eq 'loc') {
my ($userresult,$authresult,$roleresult);	my $multiple = 0;
	my ($userresult,$authresult,$roleresult,$idresult);
	my (%userres,%authres,%roleres,%idres);
	my $singlesec = '';
if ($role eq 'st') {	if ($role eq 'st') {
&modifystudent($domain,$username,$cid,$sec,	my $sec;
$desiredhost);	if (@secs > 0) {
$roleresult =	$sec = $secs[0];
	}
	&modifystudent($userdomain,$username,$cid,$sec,
	$desiredhost,$context);
	$roleresult =
&Apache::lonnet::modifystudent	&Apache::lonnet::modifystudent
($domain,$username,$id,$amode,$password,	($userdomain,$username,$id,$amode,$password,
$fname,$mname,$lname,$gen,$sec,$enddate,	$fname,$mname,$lname,$gen,$sec,$enddate,
$startdate,$env{'form.forceid'},	$startdate,$env{'form.forceid'},
$desiredhost,$email);	$desiredhost,$email,'manual','',$cid,
	'',$context);
	$userresult = $roleresult;
	} else {
	if ($role ne '') {
	if ($context eq 'course' \|\| $setting eq 'course') {
	if ($customroles{$role}) {
	$role = 'cr_'.$env{'user.domain'}.'_'.
	$env{'user.name'}.'_'.$role;
	}
	if ($role ne 'cc') {
	if (@secs > 1) {
	$multiple = 1;
	foreach my $sec (@secs) {
	($userres{$sec},$authres{$sec},$roleres{$sec},$idres{$sec}) =
	&modifyuserrole($context,$setting,
	$changeauth,$cid,$userdomain,$username,
	$id,$amode,$password,$fname,
	$mname,$lname,$gen,$sec,
	$env{'form.forceid'},$desiredhost,
	$email,$role,$enddate,
	$startdate,$checkid);
	}
	} elsif (@secs > 0) {
	$singlesec = $secs[0];
	}
	}
	}
	}
	if (!$multiple) {
	($userresult,$authresult,$roleresult,$idresult) =
	&modifyuserrole($context,$setting,
	$changeauth,$cid,$userdomain,$username,
	$id,$amode,$password,$fname,
	$mname,$lname,$gen,$singlesec,
	$env{'form.forceid'},$desiredhost,
	$email,$role,$enddate,$startdate,$checkid);
	}
	}
	if ($multiple) {
	foreach my $sec (sort(keys(%userres))) {
	$flushc =
	&user_change_result($r,$userres{$sec},$authres{$sec},
	$roleres{$sec},$idres{$sec},\%counts,$flushc,
	$username,$userdomain,\%userchg);

	}
} else {	} else {
($userresult,$authresult,$roleresult) =	$flushc =
&modifyuserrole($context,$setting,	&user_change_result($r,$userresult,$authresult,
$changeauth,$cid,$domain,$username,	$roleresult,$idresult,\%counts,$flushc,
$id,$amode,$password,$fname,	$username,$userdomain,\%userchg);
$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 {	} else {
if ($context eq 'course') {	if ($context eq 'course') {
$r->print('<br />'.	$r->print('<br />'.
Line 3281 sub upfile_drop_add {	Line 3860 sub upfile_drop_add {
} # end of foreach (@userdata)	} # end of foreach (@userdata)
# Flush the course logs so reverse user roles immediately updated	# Flush the course logs so reverse user roles immediately updated
&Apache::lonnet::flushcourselogs();	&Apache::lonnet::flushcourselogs();
$r->print("</p>\n<p>\n".&mt('Processed [_1] user(s).',$counts{'user'}).	$r->print("</p>\n<p>\n".&mt('Processed [quant,_1,user].',$counts{'user'}).
"</p>\n");	"</p>\n");
if ($counts{'role'} > 0) {	if ($counts{'role'} > 0) {
$r->print("<p>\n".	$r->print("<p>\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'})."</p>\n");	&mt('Roles added for [quant,_1,user].',$counts{'role'}).' '.&mt('If a user is currently logged-in to LON-CAPA, any new roles which are active will be available when the user next logs in.')."</p>\n");
	} else {
	$r->print('<p>'.&mt('No roles added').'</p>');
}	}
if ($counts{'auth'} > 0) {	if ($counts{'auth'} > 0) {
$r->print("<p>\n".	$r->print("<p>\n".
Line 3293 sub upfile_drop_add {	Line 3874 sub upfile_drop_add {
$counts{'auth'})."</p>\n");	$counts{'auth'})."</p>\n");
}	}
$r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules));	$r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules));
$r->print('<form name="uploadresult" action="/adm/createuser">');
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','prevphase','currstate']));
$r->print('</form>');
#####################################	#####################################
# Drop students #	# Display list of students to drop #
#####################################	#####################################
if ($env{'form.fullup'} eq 'yes') {	if ($env{'form.fullup'} eq 'yes') {
$r->print('<h3>'.&mt('Dropping Students')."</h3>\n");	$r->print('<h3>'.&mt('Students to Drop')."</h3>\n");
# Get current classlist	# Get current classlist
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();	my $classlist = &Apache::loncoursedata::get_classlist();
if (! defined($classlist)) {	if (! defined($classlist)) {
$r->print(&mt('There are no students currently enrolled.').	$r->print('<form name="studentform" method="post" action="/adm/createuser" />'.
"\n");	'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
	&mt('There are no students with current/future access to the course.').
	'</form>'."\n");
} else {	} else {
# Remove the students we just added from the list of students.	# Remove the students we just added from the list of students.
foreach (@userdata) {	foreach my $line (@userdata) {
my %entries=&Apache::loncommon::record_sep($_);	my %entries=&Apache::loncommon::record_sep($line);
unless (($entries{$fields{'username'}} eq '') \|\|	unless (($entries{$fields{'username'}} eq '') \|\|
(!defined($entries{$fields{'username'}}))) {	(!defined($entries{$fields{'username'}}))) {
delete($classlist->{$entries{$fields{'username'}}.	delete($classlist->{$entries{$fields{'username'}}.
Line 3317 sub upfile_drop_add {	Line 3897 sub upfile_drop_add {
}	}
}	}
# Print out list of dropped students.	# Print out list of dropped students.
&show_drop_list($r,$classlist,$keylist,'nosort');	&show_drop_list($r,$classlist,'nosort',$permission);
}	}
}	}
} # end of unless	} # end of unless
	if ($env{'form.fullup'} ne 'yes') {
	$r->print('</form>');
	}
}	}

sub print_namespacing_alerts {	sub print_namespacing_alerts {
Line 3364 sub print_namespacing_alerts {	Line 3947 sub print_namespacing_alerts {
}	}

sub user_change_result {	sub user_change_result {
my ($r,$userresult,$authresult,$roleresult,$counts,$flushc,$username,	my ($r,$userresult,$authresult,$roleresult,$idresult,$counts,$flushc,
$userchg) = @_;	$username,$userdomain,$userchg) = @_;
my $okresult = 0;	my $okresult = 0;
if ($userresult ne 'ok') {	if ($userresult ne 'ok') {
if ($userresult =~ /^error:(.+)$/) {	if ($userresult =~ /^error:(.+)$/) {
my $error = $1;	my $error = $1;
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: Unable to add/modify: [_2]',$username,$error));	&mt('<b>[_1]</b>: Unable to add/modify: [_2]',$username.':'.$userdomain,$error));
}	}
} else {	} else {
$counts->{'user'} ++;	$counts->{'user'} ++;
Line 3381 sub user_change_result {	Line 3964 sub user_change_result {
if ($authresult =~ /^error:(.+)$/) {	if ($authresult =~ /^error:(.+)$/) {
my $error = $1;	my $error = $1;
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: Unable to modify authentication: [_2]',$username,$error));	&mt('<b>[_1]</b>: Unable to modify authentication: [_2]',$username.':'.$userdomain,$error));
}	}
} else {	} else {
$counts->{'auth'} ++;	$counts->{'auth'} ++;
Line 3391 sub user_change_result {	Line 3974 sub user_change_result {
if ($roleresult =~ /^error:(.+)$/) {	if ($roleresult =~ /^error:(.+)$/) {
my $error = $1;	my $error = $1;
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: Unable to add role: [_2]',$username,$error));	&mt('<b>[_1]</b>: Unable to add role: [_2]',$username.':'.$userdomain,$error));
}	}
} else {	} else {
$counts->{'role'} ++;	$counts->{'role'} ++;
Line 3399 sub user_change_result {	Line 3982 sub user_change_result {
}	}
if ($okresult) {	if ($okresult) {
$flushc++;	$flushc++;
$userchg->{$username}=1;	$userchg->{$username.':'.$userdomain}=1;
$r->print('. ');	$r->print('. ');
if ($flushc>15) {	if ($flushc>15) {
$r->rflush;	$r->rflush;
$flushc=0;	$flushc=0;
}	}
}	}
	if ($idresult) {
	$r->print($idresult);
	}
return $flushc;	return $flushc;
}	}

Line 3414 sub print_drop_menu {	Line 4000 sub print_drop_menu {
my ($r,$context,$permission) = @_;	my ($r,$context,$permission) = @_;
$r->print('<h3>'.&mt("Drop Students").'</h3>'."\n".	$r->print('<h3>'.&mt("Drop Students").'</h3>'."\n".
'<form name="studentform" method="post">'."\n");	'<form name="studentform" method="post">'."\n");
my $cid=$env{'request.course.id'};	my $classlist = &Apache::loncoursedata::get_classlist();
my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
if (! defined($classlist)) {	if (! defined($classlist)) {
$r->print(&mt('There are no students currently enrolled.')."\n");	$r->print(&mt('There are no students currently enrolled.')."\n");
return;	} else {
	&show_drop_list($r,$classlist,'nosort',$permission);
}	}
# Print out the available choices
&show_drop_list($r,$classlist,$keylist,$permission);
$r->print('</form>'. &Apache::loncommon::end_page());	$r->print('</form>'. &Apache::loncommon::end_page());
return;	return;
}	}
Line 3433 sub update_user_list {	Line 4017 sub update_user_list {
my $now = time;	my $now = time;
my $count=0;	my $count=0;
my @changelist;	my @changelist;
if ($choice ne '') {	if ($choice eq 'drop') {
@changelist = &Apache::loncommon::get_env_multiple('form.actionlist');
} else {
@changelist = &Apache::loncommon::get_env_multiple('form.droplist');	@changelist = &Apache::loncommon::get_env_multiple('form.droplist');
	} else {
	@changelist = &Apache::loncommon::get_env_multiple('form.actionlist');
}	}
my %result_text = ( ok => { 'revoke' => 'Revoked',	my %result_text = ( ok => { 'revoke' => 'Revoked',
'delete' => 'Deleted',	'delete' => 'Deleted',
Line 3503 sub update_user_list {	Line 4087 sub update_user_list {
}	}
}	}
my $plrole = &Apache::lonnet::plaintext($role);	my $plrole = &Apache::lonnet::plaintext($role);
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'};
if ($choice eq 'drop') {	if ($choice eq 'drop') {
Line 3511 sub update_user_list {	Line 4094 sub update_user_list {
$end = $now;	$end = $now;
$type = 'manual';	$type = 'manual';
$result =	$result =
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);	&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
} elsif ($choice eq 'revoke') {	} elsif ($choice eq 'revoke') {
# revoke or delete user role	# revoke or delete user role
$end = $now;	$end = $now;
if ($role eq 'st') {	if ($role eq 'st') {
$result =	$result =
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);	&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
} else {	} else {
$result =	$result =
&Apache::lonnet::revokerole($udom,$uname,$scope,$role);	&Apache::lonnet::revokerole($udom,$uname,$scope,$role,
	'','',$context);
}	}
} elsif ($choice eq 'delete') {	} elsif ($choice eq 'delete') {
$start = -1;
$end = -1;
if ($role eq 'st') {	if ($role eq 'st') {
# FIXME - how does role deletion affect classlist?	&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$now,$start,$type,$locktype,$cid,'',$context);
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);	}
} else {	$result =
$result =	&Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now,
&Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now,	$start,1,'',$context);
0,1);
}
} else {	} else {
#reenable, activate, change access dates or change section	#reenable, activate, change access dates or change section
if ($choice ne 'chgsec') {	if ($choice ne 'chgsec') {
Line 3541 sub update_user_list {	Line 4121 sub update_user_list {
}	}
if ($choice eq 'reenable') {	if ($choice eq 'reenable') {
if ($role eq 'st') {	if ($role eq 'st') {
$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);	$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
} else {	} else {
$result =	$result =
&Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,	&Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
$now);	$now,'','',$context);
}	}
} elsif ($choice eq 'activate') {	} elsif ($choice eq 'activate') {
if ($role eq 'st') {	if ($role eq 'st') {
$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);	$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
} else {	} else {
$result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,	$result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
$now);	$now,'','',$context);
}	}
} elsif ($choice eq 'chgdates') {	} elsif ($choice eq 'chgdates') {
if ($role eq 'st') {	if ($role eq 'st') {
$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);	$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
} else {	} else {
$result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,	$result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
$start);	$start,'','',$context);
}	}
} elsif ($choice eq 'chgsec') {	} elsif ($choice eq 'chgsec') {
my (@newsecs,$revresult,$nochg,@retained);	my (@newsecs,$revresult,$nochg,@retained);
Line 3572 sub update_user_list {	Line 4152 sub update_user_list {
if (@newsecs == 0) {	if (@newsecs == 0) {
$result = &mt('No change in section assignment (none)');	$result = &mt('No change in section assignment (none)');
$nochg = 1;	$nochg = 1;
}	} else {
} else {
if (!grep(/^\Q$sec\E$/,@newsecs)) {
$revresult =	$revresult =
&Apache::lonnet::revokerole($udom,$uname,$scope,$role);	&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 {	} else {
push(@retained,$sec);	$revresult =
	&Apache::lonnet::revokerole($udom,$uname,
	$scope,$role,
	'','',$context);
}	}
}	}
} else {	} else {
push(@retained,$sec);	if ($sec eq '') {
	$nochg = 1;
	} else {
	push(@retained,$sec);
	}
}	}
# add new sections	# add new sections
if (@newsecs == 0) {	if (@newsecs == 0) {
if (!$nochg) {	if (!$nochg) {
if ($sec ne '') {	if ($role eq 'st') {
if ($role eq 'st') {	$result =
$result =	&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid,'',$context);
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid);	} else {
} else {	my $newscope = $scopestem;
my $newscope = $scopestem;	$result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start,'','',$context);
$result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start);
}
}	}
}	}
} else {	} else {
foreach my $newsec (@newsecs) {	foreach my $newsec (@newsecs) {
if (!grep(/^\Q$newsec\E$/,@retained)) {	if (!grep(/^\Q$newsec\E$/,@retained)) {
if ($role eq 'st') {	if ($role eq 'st') {
$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid);	$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid,'',$context);
} else {	} else {
my $newscope = $scopestem;	my $newscope = $scopestem;
if ($newsec ne '') {	if ($newsec ne '') {
Line 3628 sub update_user_list {	Line 4224 sub update_user_list {
$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,$extent,$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('<form name="studentform" method="post" action="/adm/createuser">'."\n");
	if ($choice eq 'drop') {
	$r->print('<input type="hidden" name="action" value="listusers" />'."\n".
	'<input type="hidden" name="Status" value="Active" />'."\n".
	'<input type="hidden" name="showrole" value="st" />'."\n");
	} else {
	foreach my $item ('action','sortby','roletype','showrole','Status','secfilter','grpfilter') {
	if ($env{'form.'.$item} ne '') {
	$r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.
	'" />'."\n");
	}
	}
	}
	$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>');
if ($count > 0) {	if ($count > 0) {
if ($choice eq 'revoke' \|\| $choice eq 'drop') {	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>'));
Line 3642 sub update_user_list {	Line 4251 sub update_user_list {
}	}
if ($env{'form.makedatesdefault'}) {	if ($env{'form.makedatesdefault'}) {
if ($choice eq 'chgdates' \|\| $choice eq 'reenable' \|\| $choice eq 'activate') {	if ($choice eq 'chgdates' \|\| $choice eq 'reenable' \|\| $choice eq 'activate') {
$r->print(&make_dates_default($startdate,$enddate));	$r->print(&make_dates_default($startdate,$enddate,$context));
}	}
}	}
	my $linktext = &mt('Display User Lists');
	if ($choice eq 'drop') {
	$linktext = &mt('Display current class roster');
	}
	$r->print('<a href="javascript:document.studentform.submit()">'.$linktext.'</a></form>'."\n");
}	}

sub classlist_drop {	sub classlist_drop {
my ($scope,$uname,$udom,$now,$action) = @_;	my ($scope,$uname,$udom,$now) = @_;
my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});	my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});
my $cid=$cdom.'_'.$cnum;	if (&Apache::lonnet::is_course($cdom,$cnum)) {
my $user = $uname.':'.$udom;	my $user = $uname.':'.$udom;
if ($action eq 'drop') {
if (!&active_student_roles($cnum,$cdom,$uname,$udom)) {	if (!&active_student_roles($cnum,$cdom,$uname,$udom)) {
my $result =	my $result =
&Apache::lonnet::cput('classlist',	&Apache::lonnet::cput('classlist',
{ $user => $now },	{ $user => $now },$cdom,$cnum);
$env{'course.'.$cid.'.domain'},
$env{'course.'.$cid.'.num'});
return &mt('Drop from classlist: [_1]',	return &mt('Drop from classlist: [_1]',
'<b>'.$result.'</b>').'<br />';	'<b>'.$result.'</b>').'<br />';
}	}
Line 3725 sub set_login {	Line 4336 sub set_login {
}	}

sub course_sections {	sub course_sections {
my ($sections_count,$role) = @_;	my ($sections_count,$role,$current_sec) = @_;
my $output = '';	my $output = '';
my @sections = (sort {$a <=> $b} keys %{$sections_count});	my @sections = (sort {$a <=> $b} keys %{$sections_count});
if (scalar(@sections) == 1) {	my $numsec = scalar(@sections);
	my $is_selected = ' selected="selected" ';
	if ($numsec <= 1) {
$output = '<select name="currsec_'.$role.'" >'."\n".	$output = '<select name="currsec_'.$role.'" >'."\n".
' <option value="">Select</option>'."\n".	' <option value="">'.&mt('Select').'</option>'."\n";
' <option value="">No section</option>'."\n".	if ($current_sec eq 'none') {
	$output .=
	' <option value=""'.$is_selected.'>'.&mt('No section').'</option>'."\n";
	} else {
	$output .=
	' <option value="">'.&mt('No section').'</option>'."\n";
	}
	if ($numsec == 1) {
	if ($current_sec eq $sections[0]) {
	$output .=
	' <option value="'.$sections[0].'"'.$is_selected.'>'.$sections[0].'</option>'."\n";
	} else {
	$output .=
' <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";	' <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";
	}
	}
} else {	} else {
$output = '<select name="currsec_'.$role.'" ';	$output = '<select name="currsec_'.$role.'" ';
my $multiple = 4;	my $multiple = 4;
if (scalar(@sections) < 4) { $multiple = scalar(@sections); }	if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
$output .= 'multiple="multiple" size="'.$multiple.'">'."\n";	if ($role eq 'st') {
	$output .= '>'."\n".
	' <option value="">'.&mt('Select').'</option>'."\n";
	if ($current_sec eq 'none') {
	$output .=
	' <option value=""'.$is_selected.'>'.&mt('No section')."</option>\n";
	} else {
	$output .=
	' <option value="">'.&mt('No section')."</option>\n";
	}
	} else {
	$output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
	}
foreach my $sec (@sections) {	foreach my $sec (@sections) {
$output .= '<option value="'.$sec.'">'.$sec."</option>\n";	if ($current_sec eq $sec) {
	$output .= '<option value="'.$sec.'"'.$is_selected.'>'.$sec."</option>\n";
	} else {
	$output .= '<option value="'.$sec.'">'.$sec."</option>\n";
	}
}	}
}	}
$output .= '</select>';	$output .= '</select>';
Line 3757 sub get_groupslist {	Line 4400 sub get_groupslist {
}	}

sub setsections_javascript {	sub setsections_javascript {
my ($form,$groupslist) = @_;	my ($formname,$groupslist,$mode,$checkauth) = @_;
my ($checkincluded,$finish,$roleplace,$setsection_js);	my ($checkincluded,$finish,$rolecode,$setsection_js);
if ($form eq 'cu') {	if ($mode eq 'upload') {
	$checkincluded = 'formname.name == "'.$formname.'"';
	$finish = "return 'ok';";
	$rolecode = "var role = formname.defaultrole.options[formname.defaultrole.selectedIndex].value;\n";
	} elsif ($formname eq 'cu') {
$checkincluded = 'formname.elements[i-1].checked == true';	$checkincluded = 'formname.elements[i-1].checked == true';
$finish = 'formname.submit()';	if ($checkauth) {
$roleplace = 3;	$finish = "var authcheck = auth_check();\n".
	" if (authcheck == 'ok') {\n".
	" formname.submit();\n".
	" }\n";
	} else {
	$finish = 'formname.submit()';
	}
	$rolecode = "var match = str.split('_');
	var role = match[3];\n";
	} elsif ($formname eq 'enrollstudent') {
	$checkincluded = 'formname.name == "'.$formname.'"';
	if ($checkauth) {
	$finish = "var authcheck = auth_check();\n".
	" if (authcheck == 'ok') {\n".
	" formname.submit();\n".
	" }\n";
	} else {
	$finish = 'formname.submit()';
	}
	$rolecode = "var match = str.split('_');
	var role = match[1];\n";
} else {	} else {
$checkincluded = 'formname.name == "'.$form.'"';	$checkincluded = 'formname.name == "'.$formname.'"';
$finish = "seccheck = 'ok';";	$finish = "seccheck = 'ok';";
$roleplace = 1;	$rolecode = "var match = str.split('_');
	var role = match[1];\n";
$setsection_js = "var seccheck = 'alert';";	$setsection_js = "var seccheck = 'alert';";
}	}
my %alerts = &Apache::lonlocal::texthash(	my %alerts = &Apache::lonlocal::texthash(
Line 3791 function setSections(formname) {	Line 4459 function setSections(formname) {
var checkcurr = str.match(re1);	var checkcurr = str.match(re1);
if (checkcurr != null) {	if (checkcurr != null) {
if ($checkincluded) {	if ($checkincluded) {
var match = str.split('_');	$rolecode
var role = match[$roleplace];
if (role == 'cc') {	if (role == 'cc') {
alert("$alerts{'secd'}\\n$alerts{'accr'}");	alert("$alerts{'secd'}\\n$alerts{'accr'}");
}	}
Line 3867 sub can_create_user {	Line 4534 sub can_create_user {
my ($dom,$context,$usertype) = @_;	my ($dom,$context,$usertype) = @_;
my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);	my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
my $cancreate = 1;	my $cancreate = 1;
	if (&Apache::lonnet::allowed('mau',$dom)) {
	return $cancreate;
	}
if (ref($domconf{'usercreation'}) eq 'HASH') {	if (ref($domconf{'usercreation'}) eq 'HASH') {
if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') {	if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') {
if ($context eq 'course' \|\| $context eq 'author') {	if ($context eq 'course' \|\| $context eq 'author') {
Line 3903 sub can_modify_userinfo {	Line 4573 sub can_modify_userinfo {
if (ref($userroles) eq 'ARRAY') {	if (ref($userroles) eq 'ARRAY') {
foreach my $role (@{$userroles}) {	foreach my $role (@{$userroles}) {
my $testrole;	my $testrole;
if ($role =~ /^cr\//) {	if ($context eq 'selfcreate') {
$testrole = 'cr';
} else {
$testrole = $role;	$testrole = $role;
	} else {
	if ($role =~ /^cr\//) {
	$testrole = 'cr';
	} else {
	$testrole = $role;
	}
}	}
if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {	if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {
if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {	if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {
Line 4021 sub get_permission {	Line 4695 sub get_permission {
} else {	} else {
my @allroles = &roles_by_context($context);	my @allroles = &roles_by_context($context);
foreach my $role (@allroles) {	foreach my $role (@allroles) {
if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) { $permission{'cusr'} = 1;	if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) {
	$permission{'cusr'} = 1;
last;	last;
}	}
}	}
Line 4050 sub authorpriv {	Line 4725 sub authorpriv {
\|\| (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; } return 1;	\|\| (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; } return 1;
}	}

	sub roles_on_upload {
	my ($context,$setting,%customroles) = @_;
	my (@possible_roles,@permitted_roles);
	@possible_roles = &curr_role_permissions($context,$setting,1);
	foreach my $role (@possible_roles) {
	if ($role eq 'cr') {
	push(@permitted_roles,keys(%customroles));
	} else {
	push(@permitted_roles,$role);
	}
	}
	return @permitted_roles;
	}

sub get_course_identity {	sub get_course_identity {
my ($cid) = @_;	my ($cid) = @_;
my ($cnum,$cdom,$cdesc);	my ($cnum,$cdom,$cdesc);
Line 4072 sub get_course_identity {	Line 4761 sub get_course_identity {
}	}

sub dc_setcourse_js {	sub dc_setcourse_js {
my ($formname,$mode) = @_;	my ($formname,$mode,$context) = @_;
my $dc_setcourse_code;	my ($dc_setcourse_code,$authen_check);
my $cctext = &Apache::lonnet::plaintext('cc');	my $cctext = &Apache::lonnet::plaintext('cc');
my %alerts = &sectioncheck_alerts();	my %alerts = &sectioncheck_alerts();
my $role = 'role';	my $role = 'role';
if ($mode eq 'upload') {	if ($mode eq 'upload') {
$role = 'courserole';	$role = 'courserole';
	} else {
	$authen_check = &verify_authen($formname,$context);
}	}
$dc_setcourse_code = (<<"SCRIPTTOP");	$dc_setcourse_code = (<<"SCRIPTTOP");
	$authen_check

function setCourse() {	function setCourse() {
var course = document.$formname.dccourse.value;	var course = document.$formname.dccourse.value;
if (course != "") {	if (course != "") {
Line 4165 SCRIPTTOP	Line 4858 SCRIPTTOP
}	}
}	}
}	}
document.$formname.submit();	var authcheck = auth_check();
	if (authcheck == 'ok') {
	document.$formname.submit();
	}
}	}

ENDSCRIPT	ENDSCRIPT
} else {	} else {
$dc_setcourse_code .= "	$dc_setcourse_code .= "
Line 4188 ENDSCRIPT	Line 4883 ENDSCRIPT
return -1;	return -1;
}	}
ENDSCRIPT	ENDSCRIPT
	return $dc_setcourse_code;
	}

	sub verify_authen {
	my ($formname,$context) = @_;
	my %alerts = &authcheck_alerts();
	my $finish = "return 'ok';";
	if ($context eq 'author') {
	$finish = "document.$formname.submit();";
	}
	my $outcome = <<"ENDSCRIPT";

	function auth_check() {
	var logintype;
	if (document.$formname.login.length) {
	if (document.$formname.login.length > 0) {
	var loginpicked = 0;
	for (var i=0; i<document.$formname.login.length; i++) {
	if (document.$formname.login[i].checked == true) {
	loginpicked = 1;
	logintype = document.$formname.login[i].value;
	}
	}
	if (loginpicked == 0) {
	alert("$alerts{'authen'}");
	return;
	}
	}
	} else {
	logintype = document.$formname.login.value;
	}
	if (logintype == 'nochange') {
	return 'ok';
	}
	var argpicked = document.$formname.elements[logintype+'arg'].value;
	if ((argpicked == null) \|\| (argpicked == '') \|\| (typeof argpicked == 'undefined')) {
	var alertmsg = '';
	switch (logintype) {
	case 'krb':
	alertmsg = '$alerts{'krb'}';
	break;
	case 'int':
	alertmsg = '$alerts{'ipass'}';
	case 'fsys':
	alertmsg = '$alerts{'ipass'}';
	break;
	case 'loc':
	alertmsg = '';
	break;
	default:
	alertmsg = '';
	}
	if (alertmsg != '') {
	alert(alertmsg);
	return;
	}
	}
	$finish
	}
	ENDSCRIPT
}	}

sub sectioncheck_alerts {	sub sectioncheck_alerts {
Line 4209 sub sectioncheck_alerts {	Line 4964 sub sectioncheck_alerts {
return %alerts;	return %alerts;
}	}

	sub authcheck_alerts {
	my %alerts =
	&Apache::lonlocal::texthash(
	authen => 'You must choose an authentication type.',
	krb => 'You need to specify the Kerberos domain.',
	ipass => 'You need to specify the initial password.',
	);
	return %alerts;
	}

1;	1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.25
changed lines
	Added in v.1.60