Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonuserutils.pm between versions 1.67 and 1.142

version 1.67, 2008/09/12 04:44:13	version 1.142, 2012/10/02 18:08:12
Line 86 sub modifystudent {	Line 86 sub modifystudent {
sub modifyuserrole {	sub modifyuserrole {
my ($context,$setting,$changeauth,$cid,$udom,$uname,$uid,$umode,$upass,	my ($context,$setting,$changeauth,$cid,$udom,$uname,$uid,$umode,$upass,
$first,$middle,$last,$gene,$sec,$forceid,$desiredhome,$email,$role,	$first,$middle,$last,$gene,$sec,$forceid,$desiredhome,$email,$role,
$end,$start,$checkid) = @_;	$end,$start,$checkid,$inststatus) = @_;
my ($scope,$userresult,$authresult,$roleresult,$idresult);	my ($scope,$userresult,$authresult,$roleresult,$idresult);
if ($setting eq 'course' \|\| $context eq 'course') {	if ($setting eq 'course' \|\| $context eq 'course') {
$scope = '/'.$cid;	$scope = '/'.$cid;
$scope =~ s/\_/\//g;	$scope =~ s/\_/\//g;
if ($role ne 'cc' && $sec ne '') {	if (($role ne 'cc') && ($role ne 'co') && ($sec ne '')) {
$scope .='/'.$sec;	$scope .='/'.$sec;
}	}
} elsif ($context eq 'domain') {	} elsif ($context eq 'domain') {
Line 124 sub modifyuserrole {	Line 124 sub modifyuserrole {
$userresult =	$userresult =
&Apache::lonnet::modifyuser($udom,$uname,$uid,$umode,$upass,$first,	&Apache::lonnet::modifyuser($udom,$uname,$uid,$umode,$upass,$first,
$middle,$last,$gene,$forceid,$desiredhome,	$middle,$last,$gene,$forceid,$desiredhome,
$email,$role,$start,$end);	$email,$inststatus);
if ($userresult eq 'ok') {	if ($userresult eq 'ok') {
if ($role ne '') {	if ($role ne '') {
$role =~ s/_/\//g;	$role =~ s/_/\//g;
Line 235 sub domain_roles_select {	Line 235 sub domain_roles_select {
# domain context	# domain context
#	#
# Role types	# Role types
my @roletypes = ('domain','author','course');	my @roletypes = ('domain','author','course','community');
my %lt = &role_type_names();	my %lt = &role_type_names();
#	#
# build up the menu information to be passed to	# build up the menu information to be passed to
Line 247 sub domain_roles_select {	Line 247 sub domain_roles_select {
foreach my $roletype (@roletypes) {	foreach my $roletype (@roletypes) {
# set up the text for this domain	# set up the text for this domain
$select_menus{$roletype}->{'text'}= $lt{$roletype};	$select_menus{$roletype}->{'text'}= $lt{$roletype};
	my $crstype;
	if ($roletype eq 'community') {
	$crstype = 'Community';
	}
# we want a choice of 'default' as the default in the second menu	# we want a choice of 'default' as the default in the second menu
if ($env{'form.roletype'} ne '') {	if ($env{'form.roletype'} ne '') {
$select_menus{$roletype}->{'default'} = $env{'form.showrole'};	$select_menus{$roletype}->{'default'} = $env{'form.showrole'};
Line 261 sub domain_roles_select {	Line 265 sub domain_roles_select {
@roles = &construction_space_roles();	@roles = &construction_space_roles();
} else {	} else {
my $custom = 1;	my $custom = 1;
@roles = &course_roles('domain',undef,$custom);	@roles = &course_roles('domain',undef,$custom,$roletype);
}	}
my $order = ['Any',@roles];	my $order = ['Any',@roles];
$select_menus{$roletype}->{'order'} = $order;	$select_menus{$roletype}->{'order'} = $order;
Line 271 sub domain_roles_select {	Line 275 sub domain_roles_select {
&mt('Custom role');	&mt('Custom role');
} else {	} else {
$select_menus{$roletype}->{'select2'}->{$role} =	$select_menus{$roletype}->{'select2'}->{$role} =
&Apache::lonnet::plaintext($role);	&Apache::lonnet::plaintext($role,$crstype);
}	}
}	}
$select_menus{$roletype}->{'select2'}->{'Any'} = &mt('Any');	$select_menus{$roletype}->{'select2'}->{'Any'} = &mt('Any');
}	}
my $result = &Apache::loncommon::linked_select_forms	my $result = &Apache::loncommon::linked_select_forms
('studentform',(' 'x3).&mt('Role: '),$env{'form.roletype'},	('studentform',(' 'x3).&mt('Role: '),$env{'form.roletype'},
'roletype','showrole',\%select_menus,['domain','author','course']);	'roletype','showrole',\%select_menus,
	['domain','author','course','community']);
return $result;	return $result;
}	}

Line 290 sub hidden_input {	Line 295 sub hidden_input {
}	}

sub print_upload_manager_header {	sub print_upload_manager_header {
my ($r,$datatoken,$distotal,$krbdefdom,$context,$permission)=@_;	my ($r,$datatoken,$distotal,$krbdefdom,$context,$permission,$crstype,
	$can_assign)=@_;
my $javascript;	my $javascript;
#	#
if (! exists($env{'form.upfile_associate'})) {	if (! exists($env{'form.upfile_associate'})) {
Line 304 sub print_upload_manager_header {	Line 310 sub print_upload_manager_header {
}	}
}	}
if ($env{'form.upfile_associate'} eq 'reverse') {	if ($env{'form.upfile_associate'} eq 'reverse') {
$javascript=&upload_manager_javascript_reverse_associate();	$javascript=&upload_manager_javascript_reverse_associate($can_assign);
} else {	} else {
$javascript=&upload_manager_javascript_forward_associate();	$javascript=&upload_manager_javascript_forward_associate($can_assign);
}	}
#	#
# Deal with restored settings	# Deal with restored settings
Line 327 sub print_upload_manager_header {	Line 333 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,
$groupslist);	$groupslist,$crstype);
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('<p>'
"<br />\n");	.&mt('Total number of records found in file: [_1]'
	,'<b>'.$distotal.'</b>')
	."</p>\n");
$r->print('<div class="LC_left_float"><h3>'.	$r->print('<div class="LC_left_float"><h3>'.
&mt('Identify fields in uploaded list')."</h3>\n");	&mt('Identify fields in uploaded list')."</h3>\n");
$r->print(&mt('Enter as many fields as you can.<br /> The system will inform you and bring you back to this page, <br /> if the data selected are insufficient to add users.')."<br />\n");	$r->print(&mt('Enter as many fields as you can.<br /> The system will inform you and bring you back to this page, <br /> if the data selected are insufficient to add users.')."<br />\n");
Line 341 sub print_upload_manager_header {	Line 349 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 /><label><input type="checkbox" name="noFirstLine"'.$checked.' />'.
	&mt('Ignore First Line').'</label><br />');
$r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.	$r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.
'name="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.'/>'.
&mt('Ignore First Line').'</label>');
$r->print("<br /><br />\n".	$r->print("<br /><br />\n".
'<script type="text/javascript" language="Javascript">'."\n".	'<script type="text/javascript" language="Javascript">'."\n".
$javascript."\n".$javascript_validations.'</script>');	'// <![CDATA['."\n".
	$javascript."\n".$javascript_validations."\n".
	'// ]]>'."\n".
	'</script>');
}	}

###############################################################	###############################################################
###############################################################	###############################################################
sub javascript_validations {	sub javascript_validations {
my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain,	my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain,
$context,$groupslist)=@_;	$context,$groupslist,$crstype)=@_;
my %param = (	my %param = (
kerb_def_dom => $krbdefdom,	kerb_def_dom => $krbdefdom,
curr_authtype => $curr_authtype,	curr_authtype => $curr_authtype,
Line 376 sub javascript_validations {	Line 387 sub javascript_validations {
if (($context eq 'course') \|\| ($context eq 'domain')) {	if (($context eq 'course') \|\| ($context eq 'domain')) {
if ($context eq 'course') {	if ($context eq 'course') {
if ($env{'request.course.sec'} eq '') {	if ($env{'request.course.sec'} eq '') {
$setsection_call = 'setSections(document.'.$param{'formname'}.');';	$setsection_call = 'setSections(document.'.$param{'formname'}.",'$crstype'".');';
$setsections_js =	$setsections_js =
&setsections_javascript($param{'formname'},$groupslist,	&setsections_javascript($param{'formname'},$groupslist,
$mode);	$mode,'',$crstype);
} else {	} else {
$setsection_call = "'ok'";	$setsection_call = "'ok'";
}	}
Line 401 sub javascript_validations {	Line 412 sub javascript_validations {
krb => 'You need to specify the Kerberos domain.',	krb => 'You need to specify the Kerberos domain.',
ipass => 'You need to specify the initial password.',	ipass => 'You need to specify the initial password.',
name => 'The optional name field was not specified.',	name => 'The optional name field was not specified.',
snum => 'The optional ID number field was not specified.',	snum => 'The optional student/employee ID field was not specified.',
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 e-mail 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.',	domain => 'The optional domain field was not specified.',
continue => 'Continue adding users?',	continue => 'Continue adding users?',
);	);
	if (($mode eq 'upload') && ($context eq 'domain')) {
	$alert{'inststatus'} = &mt('The optional affiliation field was not specified');
	}
my $function_name = <<"END";	my $function_name = <<"END";
$setsections_js	$setsections_js

function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain) {	function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus) {
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 519 END	Line 533 END
if (message!='') {	if (message!='') {
message+='\\n';	message+='\\n';
}	}
	message+='$alert{'section'}';
}	}
if (foundemail==0) {	if (foundemail==0) {
if (message!='') {	if (message!='') {
Line 538 END	Line 553 END
}	}
message+='$alert{'domain'}';	message+='$alert{'domain'}';
}	}
	END
	if (($mode eq 'upload') && ($context eq 'domain')) {
	$optional_checks .= (<<END);

	if (foundinststatus==0) {
	if (message!='') {
	message+='\\n';
	}
	message+='$alert{'inststatus'}';
	}
	END
	}
	$optional_checks .= (<<END);

if (message!='') {	if (message!='') {
message+= '\\n$alert{'continue'}';	message+= '\\n$alert{'continue'}';
if (confirm(message)) {	if (confirm(message)) {
Line 558 END	Line 587 END
###############################################################	###############################################################
###############################################################	###############################################################
sub upload_manager_javascript_forward_associate {	sub upload_manager_javascript_forward_associate {
	my ($can_assign) = @_;
	my ($auth_update,$numbuttons,$argreset);
	if (ref($can_assign) eq 'HASH') {
	if ($can_assign->{'krb4'} \|\| $can_assign->{'krb5'}) {
	$argreset .= " vf.krbarg.value='';\n";
	$numbuttons ++ ;
	}
	if ($can_assign->{'int'}) {
	$argreset .= " vf.intarg.value='';\n";
	$numbuttons ++;
	}
	if ($can_assign->{'loc'}) {
	$argreset .= " vf.locarg.value='';\n";
	$numbuttons ++;
	}
	if (!$can_assign->{'int'}) {
	my $warning = &mt('You may not specify an initial password for each user, as this is only available when new users use LON-CAPA internal authentication.\n').
	&mt('Your current role does not have rights to create users with that authentication type.');
	$auth_update = <<"END";
	// Currently the initial password field is only supported for internal auth
	// (see bug 6368).
	if (nw==9) {
	eval('vf.f'+tf+'.selectedIndex=0;')
	alert('$warning');
	}
	END
	} elsif ($numbuttons > 1) {
	$auth_update = <<"END";
	// If we set the password, make the password form below correspond to
	// the new value.
	if (nw==9) {
	changed_radio('int',document.studentform);
	set_auth_radio_buttons('int',document.studentform);
	$argreset
	}

	END
	}
	}

return(<<ENDPICK);	return(<<ENDPICK);
function verify(vf,sec_caller) {	function verify(vf,sec_caller) {
var founduname=0;	var founduname=0;
Line 568 function verify(vf,sec_caller) {	Line 637 function verify(vf,sec_caller) {
var foundemail=0;	var foundemail=0;
var foundrole=0;	var foundrole=0;
var founddomain=0;	var founddomain=0;
	var foundinststatus=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 579 function verify(vf,sec_caller) {	Line 649 function verify(vf,sec_caller) {
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; }	if (tw==12) { founddomain=1; }
	if (tw==13) { foundinststatus=1; }
}	}
verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain);	verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus);
}	}

//	//
Line 602 function verify(vf,sec_caller) {	Line 673 function verify(vf,sec_caller) {
// 10 = email address	// 10 = email address
// 11 = role	// 11 = role
// 12 = domain	// 12 = domain
	// 13 = inststatus

function flip(vf,tf) {	function flip(vf,tf) {
var nw=eval('vf.f'+tf+'.selectedIndex');	var nw=eval('vf.f'+tf+'.selectedIndex');
Line 631 function flip(vf,tf) {	Line 703 function flip(vf,tf) {
}	}
}	}
}	}
// If we set the password, make the password form below correspond to	$auth_update
// the new value.
if (nw==9) {
changed_radio('int',document.studentform);
set_auth_radio_buttons('int',document.studentform);
vf.intarg.value='';
vf.krbarg.value='';
vf.locarg.value='';
}
}	}

function clearpwd(vf) {	function clearpwd(vf) {
Line 657 ENDPICK	Line 721 ENDPICK
###############################################################	###############################################################
###############################################################	###############################################################
sub upload_manager_javascript_reverse_associate {	sub upload_manager_javascript_reverse_associate {
	my ($can_assign) = @_;
	my ($auth_update,$numbuttons,$argreset);
	if (ref($can_assign) eq 'HASH') {
	if ($can_assign->{'krb4'} \|\| $can_assign->{'krb5'}) {
	$argreset .= " vf.krbarg.value='';\n";
	$numbuttons ++ ;
	}
	if ($can_assign->{'int'}) {
	$argreset .= " vf.intarg.value='';\n";
	$numbuttons ++;
	}
	if ($can_assign->{'loc'}) {
	$argreset .= " vf.locarg.value='';\n";
	$numbuttons ++;
	}
	if (!$can_assign->{'int'}) {
	my $warning = &mt('You may not specify an initial password, as this is only available when new users use LON-CAPA internal authentication.\n').
	&mt('Your current role does not have rights to create users with that authentication type.');
	$auth_update = <<"END";
	// Currently the initial password field is only supported for internal auth
	// (see bug 6368).
	if (tf==8 && nw!=0) {
	eval('vf.f'+tf+'.selectedIndex=0;')
	alert('$warning');
	}
	END
	} elsif ($numbuttons > 1) {
	$auth_update = <<"END";
	// initial password specified, pick internal authentication
	if (tf==8 && nw!=0) {
	changed_radio('int',document.studentform);
	set_auth_radio_buttons('int',document.studentform);
	$argreset
	}

	END
	}
	}

return(<<ENDPICK);	return(<<ENDPICK);
function verify(vf,sec_caller) {	function verify(vf,sec_caller) {
var founduname=0;	var founduname=0;
Line 664 function verify(vf,sec_caller) {	Line 767 function verify(vf,sec_caller) {
var foundname=0;	var foundname=0;
var foundid=0;	var foundid=0;
var foundsec=0;	var foundsec=0;
	var foundemail=0;
var foundrole=0;	var foundrole=0;
var founddomain=0;	var founddomain=0;
	var foundinststatus=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 674 function verify(vf,sec_caller) {	Line 779 function verify(vf,sec_caller) {
if (i==6 && tw!=0) { foundid=1; }	if (i==6 && tw!=0) { foundid=1; }
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) { foundemail=1; }
if (i==10 && tw!=0) { founddomain=1; }	if (i==10 && tw!=0) { foundrole=1; }
	if (i==11 && tw!=0) { founddomain=1; }
	if (i==12 && tw!=0) { foundinstatus=1; }
}	}
verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundrole,founddomain);	verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus);
}	}

function flip(vf,tf) {	function flip(vf,tf) {
Line 694 function flip(vf,tf) {	Line 801 function flip(vf,tf) {
if ((tf>=2) && (tf<=5) && (nw!=0)) {	if ((tf>=2) && (tf<=5) && (nw!=0)) {
eval('vf.f1.selectedIndex=0;')	eval('vf.f1.selectedIndex=0;')
}	}
// intial password specified, pick internal authentication	$auth_update
if (tf==8 && nw!=0) {
changed_radio('int',document.studentform);
set_auth_radio_buttons('int',document.studentform);
vf.krbarg.value='';
vf.intarg.value='';
vf.locarg.value='';
}
}	}

function clearpwd(vf) {	function clearpwd(vf) {
Line 716 ENDPICK	Line 816 ENDPICK
###############################################################	###############################################################
###############################################################	###############################################################
sub print_upload_manager_footer {	sub print_upload_manager_footer {
my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context,$permission) = @_;	my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context,$permission,$crstype) = @_;
my $form = 'document.studentform';	my $form = 'document.studentform';
my $formname = 'studentform';	my $formname = 'studentform';
my ($krbdef,$krbdefdom) =	my ($krbdef,$krbdefdom) =
Line 734 sub print_upload_manager_footer {	Line 834 sub print_upload_manager_footer {
my $intform = &Apache::loncommon::authform_internal(%param);	my $intform = &Apache::loncommon::authform_internal(%param);
my $locform = &Apache::loncommon::authform_local(%param);	my $locform = &Apache::loncommon::authform_local(%param);
my $date_table = &date_setting_table(undef,undef,$context,undef,	my $date_table = &date_setting_table(undef,undef,$context,undef,
$formname,$permission);	$formname,$permission,$crstype);

my $Str = "\n".'<div class="LC_left_float">';	my $Str = "\n".'<div class="LC_left_float">';
$Str .= &hidden_input('nfields',$i);	$Str .= &hidden_input('nfields',$i);
$Str .= &hidden_input('keyfields',$keyfields);	$Str .= &hidden_input('keyfields',$keyfields);
$Str .= "<h3>".&mt('Login Type')."</h3>\n";
	$Str .= '<h3>'.&mt('Options').'</h3>'
	.&Apache::lonhtmlcommon::start_pick_box();

	$Str .= &Apache::lonhtmlcommon::row_title(&mt('Login Type'));
if ($context eq 'domain') {	if ($context eq 'domain') {
$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>';	$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 class="LC_info">'."\n".
&mt('Note: this will not take effect if the user already exists').	&mt('This will not take effect if the user already exists.').
&Apache::loncommon::help_open_topic('Auth_Options').	&Apache::loncommon::help_open_topic('Auth_Options').
"</p>\n";	"</p>\n";
}	}
$Str .= &set_login($defdom,$krbform,$intform,$locform);	$Str .= &set_login($defdom,$krbform,$intform,$locform);

my ($home_server_pick,$numlib) =	my ($home_server_pick,$numlib) =
&Apache::loncommon::home_server_form_item($defdom,'lcserver',	&Apache::loncommon::home_server_form_item($defdom,'lcserver',
'default','hide');	'default','hide');
if ($numlib > 1) {	if ($numlib > 1) {
$Str .= '<h3>'.&mt('LON-CAPA Home Server for New Users')."</h3>\n".	$Str .= &Apache::lonhtmlcommon::row_closure()
&mt('LON-CAPA domain: [_1] with home server: [_2]',$defdom,	.&Apache::lonhtmlcommon::row_title(
$home_server_pick).'<br />';	&mt('LON-CAPA Home Server for New Users'))
} else {	.&mt('LON-CAPA domain: [_1] with home server:','"'.$defdom.'"')
$Str .= $home_server_pick;	.$home_server_pick
}	.&Apache::lonhtmlcommon::row_closure();
$Str .= '<h3>'.&mt('Default domain').'</h3>'."\n".	} else {
&Apache::loncommon::select_dom_form($defdom,'defaultdomain',undef,1);	$Str .= $home_server_pick.
$Str .= '<h3>'.&mt('Starting and Ending Dates').	&Apache::lonhtmlcommon::row_closure();
"</h3>\n";	}
$Str .= "<p>\n".$date_table."</p>\n";
	$Str .= &Apache::lonhtmlcommon::row_title(&mt('Default domain'))
	.&Apache::loncommon::select_dom_form($defdom,'defaultdomain',undef,1)
	.&Apache::lonhtmlcommon::row_closure();

	$Str .= &Apache::lonhtmlcommon::row_title(&mt('Starting and Ending Dates'))
	."<p>\n".$date_table."</p>\n"
	.&Apache::lonhtmlcommon::row_closure();

if ($context eq 'domain') {	if ($context eq 'domain') {
$Str .= '<h3>'.&mt('Settings for assigning roles:').'</h3>'."\n".	$Str .= &Apache::lonhtmlcommon::row_title(
&mt('Pick the action to take on roles for these users:').'<br /><span class="LC_nobreak"><label><input type="radio" name="roleaction" value="norole" checked="checked" /> '.&mt('No role changes').'</label>   <label><input type="radio" name="roleaction" value="domain" /> '.&mt('Add a domain role').'</label>   <label><input type="radio" name="roleaction" value="course" /> '.&mt('Add a course role').'</label></span>';	&mt('Settings for assigning roles'))
}	.&mt('Pick the action to take on roles for these users:').'<br />'
if ($context eq 'author') {	.'<span class="LC_nobreak"><label>'
$Str .= '<h3>'.&mt('Default role')."</h3>\n".	.'<input type="radio" name="roleaction" value="norole" checked="checked" />'
&mt('Choose the role to assign to users without a value specified in the uploaded file');	.' '.&mt('No role changes').'</label>'
	.'   <label>'
	.'<input type="radio" name="roleaction" value="domain" />'
	.' '.&mt('Add a domain role').'</label>'
	.'   <label>'
	.'<input type="radio" name="roleaction" value="course" />'
	.' '.&mt('Add a course/community role').'</label>'
	.'</span>';
	} elsif ($context eq 'author') {
	$Str .= &Apache::lonhtmlcommon::row_title(
	&mt('Default role'))
	.&mt('Choose the role to assign to users without a value specified in the uploaded file.')
} elsif ($context eq 'course') {	} elsif ($context eq 'course') {
$Str .= '<h3>'.&mt('Default role and section')."</h3>\n".	$Str .= &Apache::lonhtmlcommon::row_title(
&mt('Choose the role and/or section(s) to assign to users without values specified in the uploaded file');	&mt('Default role and section'))
} else {	.&mt('Choose the role and/or section(s) to assign to users without values specified in the uploaded file.');
$Str .= '<br /><br /><b>'.&mt('Default role and/or section(s)')."</b><br />\n".	} else {
&mt('Role and/or section(s) for users without values specified in the uploaded file.');	$Str .= &Apache::lonhtmlcommon::row_title(
	&mt('Default role and/or section(s)'))
	.&mt('Role and/or section(s) for users without values specified in the uploaded file.');
}	}
$Str .= '<br />';
if (($context eq 'domain') \|\| ($context eq 'author')) {	if (($context eq 'domain') \|\| ($context eq 'author')) {
	$Str .= '<br />';
my ($options,$cb_script,$coursepick) = &default_role_selector($context,1);	my ($options,$cb_script,$coursepick) = &default_role_selector($context,1);
if ($context eq 'domain') {	if ($context eq 'domain') {
$Str .= '<span class="LC_role_level">'.&mt('Domain Level').'</span><br />'.$options.'<br /><br /><span class="LC_role_level">'.&mt('Course Level').'</span><br />'.$cb_script.$coursepick;	$Str .= '<p>'
	.'<b>'.&mt('Domain Level').'</b><br />'
	.$options
	.'</p><p>'
	.'<b>'.&mt('Course Level').'</b>'
	.'</p>'
	.$cb_script.$coursepick
	.&Apache::lonhtmlcommon::row_closure();
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
$Str .= $options;	$Str .= $options
	.&Apache::lonhtmlcommon::row_closure(1); # last row in pick_box
}	}
} else {	} else {
my ($cnum,$cdom) = &get_course_identity();	my ($cnum,$cdom) = &get_course_identity();
my $rowtitle = &mt('section');	my $rowtitle = &mt('section');
my $secbox = &section_picker($cdom,$cnum,'Any',$rowtitle,	my $secbox = &section_picker($cdom,$cnum,'Any',$rowtitle,
$permission,$context,'upload');	$permission,$context,'upload',$crstype);
$Str .= $secbox."<h3>".&mt('Full Update')."</h3>\n".	$Str .= $secbox
'<p><label><input type="checkbox" name="fullup" value="yes">'.	.&Apache::lonhtmlcommon::row_closure();
' '.&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";	my %lt;
	if ($crstype eq 'Community') {
	%lt = &Apache::lonlocal::texthash (
	disp => 'Display members with current/future access who are not in the uploaded file',
	stus => 'Members selected from this list can be dropped.'
	);
	} else {
	%lt = &Apache::lonlocal::texthash (
	disp => 'Display students with current/future access who are not in the uploaded file',
	stus => 'Students selected from this list can be dropped.'
	);
	}
	$Str .= &Apache::lonhtmlcommon::row_title(&mt('Full Update'))
	.'<label><input type="checkbox" name="fullup" value="yes" />'
	.' '.$lt{'disp'}
	.'</label><br />'
	.$lt{'stus'}
	.&Apache::lonhtmlcommon::row_closure();
}	}
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"'.
'onClick="javascript:verify(this.form,this.form.csec)" '.	$Str .= &Apache::lonhtmlcommon::end_pick_box();
'value="'.&mt('Update Users').'" />'."<br />\n";
if ($context eq 'course') {
$Str .= &mt('Note: for large courses, this operation may be time consuming');
}
$Str .= '</div>';	$Str .= '</div>';

	# Footer
	$Str .= '<div class="LC_clear_float_footer">'
	.'<hr />';
	if ($context eq 'course') {
	$Str .= '<p class="LC_info">'
	.&mt('Note: This operation may be time consuming when adding several users.')
	.'</p>';
	}
	$Str .= '<p><input type="button"'
	.' onclick="javascript:verify(this.form,this.form.csec)"'
	.' value="'.&mt('Update Users').'" />'
	.'</p>'."\n"
	.'</div>';
$r->print($Str);	$r->print($Str);
return;	return;
}	}
Line 811 sub print_upload_manager_footer {	Line 982 sub print_upload_manager_footer {
sub forceid_change {	sub forceid_change {
my ($context) = @_;	my ($context) = @_;
my $output =	my $output =
"<h3>".&mt('Student/Employee ID')."</h3>\n".	&Apache::lonhtmlcommon::row_title(&mt('Student/Employee ID'))
"<p>\n".'<label><input type="checkbox" name="forceid" value="yes">'.	.'<label><input type="checkbox" name="forceid" value="yes" />'
&mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs').	.&mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs')
'</label><br />'."\n".	.'</label><br />'."\n"
&mt('(only do if you know what you are doing.)')."\n";	.&mt('(only do if you know what you are doing.)')."\n";
if ($context eq 'domain') {	if ($context eq 'domain') {
$output .= '<br /><label><input type="checkbox" name="recurseid"'.	$output .= '<br /><label><input type="checkbox" name="recurseid"'.
' value="yes">'.	' value="yes" />'.
&mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />').	&mt('Update student/employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />').
'</label>'."\n";	'</label>'."\n";
}	}
$output .= '</p>';	$output .= &Apache::lonhtmlcommon::row_closure(1); # last row in pick_box
return $output;	return $output;
}	}

###############################################################	###############################################################
###############################################################	###############################################################
sub print_upload_manager_form {	sub print_upload_manager_form {
my ($r,$context,$permission) = @_;	my ($r,$context,$permission,$crstype) = @_;
my $firstLine;	my $firstLine;
my $datatoken;	my $datatoken;
if (!$env{'form.datatoken'}) {	if (!$env{'form.datatoken'}) {
Line 860 sub print_upload_manager_form {	Line 1031 sub print_upload_manager_form {
'email_choice' => 'scalar',	'email_choice' => 'scalar',
'role_choice' => 'scalar',	'role_choice' => 'scalar',
'domain_choice' => 'scalar',	'domain_choice' => 'scalar',
	'inststatus_choice' => 'scalar',
};	};
my $defdom = $env{'request.role.domain'};	my $defdom = $env{'request.role.domain'};
if ($context eq 'course') {	if ($context eq 'course') {
Line 874 sub print_upload_manager_form {	Line 1046 sub print_upload_manager_form {
my ($krbdef,$krbdefdom) =	my ($krbdef,$krbdefdom) =
&Apache::loncommon::get_kerberos_defaults($defdom);	&Apache::loncommon::get_kerberos_defaults($defdom);
#	#
	my ($authnum,%can_assign) = &Apache::loncommon::get_assignable_auth($defdom);
&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom,$context,	&print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom,$context,
$permission);	$permission,$crstype,\%can_assign);
my $i;	my $i;
my $keyfields;	my $keyfields;
if ($total>=0) {	if ($total>=0) {
Line 891 sub print_upload_manager_form {	Line 1064 sub print_upload_manager_form {
['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'}]);	['domain',&mt('Domain'), $env{'form.domain_choice'}],
	['inststatus',&mt('Affiliation'), $env{'form.inststatus_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 910 sub print_upload_manager_form {	Line 1084 sub print_upload_manager_form {
}	}
$r->print('</div>');	$r->print('</div>');
&print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear,	&print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear,
$context,$permission);	$context,$permission,$crstype);
}	}

sub setup_date_selectors {	sub setup_date_selectors {
Line 984 sub get_dates_from_form {	Line 1158 sub get_dates_from_form {
}	}

sub date_setting_table {	sub date_setting_table {
my ($starttime,$endtime,$mode,$bulkaction,$formname,$permission) = @_;	my ($starttime,$endtime,$mode,$bulkaction,$formname,$permission,$crstype) = @_;
my $nolink;	my $nolink;
if ($bulkaction) {	if ($bulkaction) {
$nolink = 1;	$nolink = 1;
Line 1001 sub date_setting_table {	Line 1175 sub date_setting_table {
($env{'form.action'} eq 'upload')) {	($env{'form.action'} eq 'upload')) {
if ($env{'request.course.sec'} eq '') {	if ($env{'request.course.sec'} eq '') {
$dateDefault = '<span class="LC_nobreak">'.	$dateDefault = '<span class="LC_nobreak">'.
'<label><input type="checkbox" name="makedatesdefault" value="1" /> '.	'<label><input type="checkbox" name="makedatesdefault" value="1" /> ';
&mt('make these dates the default access dates for future student enrollment').	if ($crstype eq 'Community') {
'</label></span>';	$dateDefault .= &mt("make these dates the default access dates for future community enrollment");
	} else {
	$dateDefault .= &mt("make these dates the default access dates for future course enrollment");
	}
	$dateDefault .= '</label></span>';
}	}
}	}
}	}
my $perpetual = '<span class="LC_nobreak"><label><input type="checkbox" name="no_end_date"';	my $perpetual = '<span class="LC_nobreak"><label><input type="checkbox" name="no_end_date"';
if (defined($endtime) && $endtime == 0) {	if (defined($endtime) && $endtime == 0) {
$perpetual .= ' checked';	$perpetual .= ' checked="checked"';
}	}
$perpetual.= ' /> '.&mt('no ending date').'</label></span>';	$perpetual.= ' /> '.&mt('no ending date').'</label></span>';
if ($mode eq 'create_enrolldates') {	if ($mode eq 'create_enrolldates') {
Line 1032 sub date_setting_table {	Line 1210 sub date_setting_table {
}	}

sub make_dates_default {	sub make_dates_default {
my ($startdate,$enddate,$context) = @_;	my ($startdate,$enddate,$context,$crstype) = @_;
my $result = '';	my $result = '';
if ($context eq 'course') {	if ($context eq 'course') {
my ($cnum,$cdom) = &get_course_identity();	my ($cnum,$cdom) = &get_course_identity();
Line 1040 sub make_dates_default {	Line 1218 sub make_dates_default {
{'default_enrollment_start_date'=>$startdate,	{'default_enrollment_start_date'=>$startdate,
'default_enrollment_end_date' =>$enddate},$cdom,$cnum);	'default_enrollment_end_date' =>$enddate},$cdom,$cnum);
if ($put_result eq 'ok') {	if ($put_result eq 'ok') {
$result .= &mt('Set default start and end access dates for course.').	if ($crstype eq 'Community') {
'<br />'."\n";	$result .= &mt('Set default start and end access dates for community.');
	} else {
	$result .= &mt('Set default start and end access dates for course.');
	}
	$result .= '<br />'."\n";
#	#
# Refresh the course environment	# Refresh the course environment
&Apache::lonnet::coursedescription($env{'request.course.id'},	&Apache::lonnet::coursedescription($env{'request.course.id'},
{'freshen_cache' => 1});	{'freshen_cache' => 1});
} else {	} else {
$result .= &mt('Unable to set default access dates for course.').":".$put_result.	if ($crstype eq 'Community') {
'<br />';	$result .= &mt('Unable to set default access dates for community');
	} else {
	$result .= &mt('Unable to set default access dates for course');
	}
	$result .= ':'.$put_result.'<br />';
}	}
}	}
return $result;	return $result;
}	}

sub default_role_selector {	sub default_role_selector {
my ($context,$checkpriv) = @_;	my ($context,$checkpriv,$crstype) = @_;
my %customroles;	my %customroles;
my ($options,$coursepick,$cb_jscript);	my ($options,$coursepick,$cb_jscript);
if ($context ne 'author') {	if ($context ne 'author') {
%customroles = &my_custom_roles();	%customroles = &my_custom_roles($crstype);
}	}

my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
Line 1071 sub default_role_selector {	Line 1257 sub default_role_selector {
$options = '<select name="defaultrole">'."\n".	$options = '<select name="defaultrole">'."\n".
' <option value="">'.&mt('Please select').'</option>'."\n";	' <option value="">'.&mt('Please select').'</option>'."\n";
if ($context eq 'course') {	if ($context eq 'course') {
$options .= &default_course_roles($context,$checkpriv,%customroles);	$options .= &default_course_roles($context,$checkpriv,$crstype,%customroles);
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
my @roles = &construction_space_roles($checkpriv);	my @roles = &construction_space_roles($checkpriv);
foreach my $role (@roles) {	foreach my $role (@roles) {
Line 1085 sub default_role_selector {	Line 1271 sub default_role_selector {
$options .= ' <option value="'.$role.'">'.$plrole.'</option>';	$options .= ' <option value="'.$role.'">'.$plrole.'</option>';
}	}
my $courseform = &Apache::loncommon::selectcourse_link	my $courseform = &Apache::loncommon::selectcourse_link
('studentform','dccourse','dcdomain','coursedesc',"$env{'request.role.domain'}",undef,'Course');	('studentform','dccourse','dcdomain','coursedesc',"$env{'request.role.domain'}",undef,'Course/Community');
$cb_jscript =	$cb_jscript =
&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'currsec','studentform');	&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'currsec','studentform','courserole','Course/Community');
$coursepick = &Apache::loncommon::start_data_table().	$coursepick = &Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
'<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th>'.	'<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th>'.
'<th>'.$lt{'grs'}.'</th>'.	'<th>'.$lt{'grs'}.'</th>'.
&Apache::loncommon::end_data_table_header_row().	&Apache::loncommon::end_data_table_header_row().
&Apache::loncommon::start_data_table_row()."\n".	&Apache::loncommon::start_data_table_row()."\n".
'<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'studentform','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".	'<td><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'studentform','dccourse','dcdomain','coursedesc','','','','crstype'".')" /></td>'."\n".
'<td><select name="courserole">'."\n".	'<td><select name="courserole">'."\n".
&default_course_roles($context,$checkpriv,%customroles)."\n".	&default_course_roles($context,$checkpriv,'Course',%customroles)."\n".
'</select></td><td>'.	'</select></td><td>'.
'<table class="LC_createuser">'.	'<table class="LC_createuser">'.
'<tr class="LC_section_row"><td valign"top">'.	'<tr class="LC_section_row"><td valign"top">'.
Line 1112 sub default_role_selector {	Line 1298 sub default_role_selector {
$env{'request.role.domain'}.'" />'.	$env{'request.role.domain'}.'" />'.
'<input type="hidden" name="dccourse" value="" />'.	'<input type="hidden" name="dccourse" value="" />'.
'<input type="hidden" name="dcdomain" value="" />'.	'<input type="hidden" name="dcdomain" value="" />'.
	'<input type="hidden" name="crstype" value="" />'.
'</td></tr></table></td>'.	'</td></tr></table></td>'.
&Apache::loncommon::end_data_table_row().	&Apache::loncommon::end_data_table_row().
&Apache::loncommon::end_data_table()."\n";	&Apache::loncommon::end_data_table()."\n";
Line 1121 sub default_role_selector {	Line 1308 sub default_role_selector {
}	}

sub default_course_roles {	sub default_course_roles {
my ($context,$checkpriv,%customroles) = @_;	my ($context,$checkpriv,$crstype,%customroles) = @_;
my $output;	my $output;
my $custom = 1;	my $custom = 1;
my @roles = &course_roles($context,$checkpriv,$custom);	my @roles = &course_roles($context,$checkpriv,$custom,lc($crstype));
foreach my $role (@roles) {	foreach my $role (@roles) {
if ($role ne 'cr') {	if ($role ne 'cr') {
my $plrole=&Apache::lonnet::plaintext($role);	my $plrole=&Apache::lonnet::plaintext($role,$crstype);
$output .= ' <option value="'.$role.'">'.$plrole.'</option>';	$output .= ' <option value="'.$role.'">'.$plrole.'</option>';
}	}
}	}
Line 1176 sub domain_roles {	Line 1363 sub domain_roles {
}	}

sub course_roles {	sub course_roles {
my ($context,$checkpriv,$custom) = @_;	my ($context,$checkpriv,$custom,$roletype) = @_;
my @allroles = &roles_by_context('course',$custom);	my $crstype;
	if ($roletype eq 'community') {
	$crstype = 'Community' ;
	} else {
	$crstype = 'Course';
	}
	my @allroles = &roles_by_context('course',$custom,$crstype);
my @roles;	my @roles;
if ($context eq 'domain') {	if ($context eq 'domain') {
@roles = @allroles;	@roles = @allroles;
Line 1188 sub course_roles {	Line 1381 sub course_roles {
if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
push(@roles,$role);	push(@roles,$role);
} else {	} else {
if ($role ne 'cc' && $env{'request.course.sec'} ne '') {	if ((($role ne 'cc') && ($role ne 'co')) && ($env{'request.course.sec'} ne '')) {
if (&Apache::lonnet::allowed('c'.$role,	if (&Apache::lonnet::allowed('c'.$role,
$env{'request.course.id'}.'/'.	$env{'request.course.id'}.'/'.
$env{'request.course.sec'})) {	$env{'request.course.sec'})) {
Line 1206 sub course_roles {	Line 1399 sub course_roles {
}	}

sub curr_role_permissions {	sub curr_role_permissions {
my ($context,$setting,$checkpriv) = @_;	my ($context,$setting,$checkpriv,$type) = @_;
my $custom = 1;	my $custom = 1;
my @roles;	my @roles;
if ($context eq 'author') {	if ($context eq 'author') {
@roles = &construction_space_roles($checkpriv);	@roles = &construction_space_roles($checkpriv);
} elsif ($context eq 'domain') {	} elsif ($context eq 'domain') {
if ($setting eq 'course') {	if ($setting eq 'course') {
@roles = &course_roles($context,$checkpriv,$custom);	@roles = &course_roles($context,$checkpriv,$custom,$type);
} else {	} else {
@roles = &domain_roles($checkpriv);	@roles = &domain_roles($checkpriv);
}	}
} elsif ($context eq 'course') {	} elsif ($context eq 'course') {
@roles = &course_roles($context,$checkpriv,$custom);	@roles = &course_roles($context,$checkpriv,$custom,$type);
}	}
return @roles;	return @roles;
}	}
Line 1226 sub curr_role_permissions {	Line 1419 sub curr_role_permissions {
# ======================================================= Existing Custom Roles	# ======================================================= Existing Custom Roles

sub my_custom_roles {	sub my_custom_roles {
	my ($crstype) = @_;
my %returnhash=();	my %returnhash=();
	my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
my %rolehash=&Apache::lonnet::dump('roles');	my %rolehash=&Apache::lonnet::dump('roles');
foreach my $key (keys %rolehash) {	foreach my $key (keys(%rolehash)) {
if ($key=~/^rolesdef\_(\w+)$/) {	if ($key=~/^rolesdef\_(\w+)$/) {
	if ($crstype eq 'Community') {
	next if ($rolehash{$key} =~ /bre\&S/);
	}
$returnhash{$1}=$1;	$returnhash{$1}=$1;
}	}
}	}
Line 1246 sub print_userlist {	Line 1444 sub print_userlist {
if ($env{'form.Status'} !~ /^(Any\|Expired\|Active\|Future)$/) {	if ($env{'form.Status'} !~ /^(Any\|Expired\|Active\|Future)$/) {
$env{'form.Status'} = 'Active';	$env{'form.Status'} = 'Active';
}	}
	my $onchange = "javascript:updateCols('Status');";
my $status_select = &Apache::lonhtmlcommon::StatusOptions	my $status_select = &Apache::lonhtmlcommon::StatusOptions
($env{'form.Status'});	($env{'form.Status'},undef,undef,$onchange);

if ($env{'form.showrole'} eq '') {	if ($env{'form.showrole'} eq '') {
if ($context eq 'course') {	if ($context eq 'course') {
Line 1280 sub print_userlist {	Line 1479 sub print_userlist {
$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n".	$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n".
'<input type="hidden" name="action" value="'.	'<input type="hidden" name="action" value="'.
$env{'form.action'}.'" />');	$env{'form.action'}.'" />');
$r->print("<p>\n");	$r->print('<div>'."\n");
if ($env{'form.action'} ne 'modifystudent') {	if ($env{'form.action'} ne 'modifystudent') {
my %lt=&Apache::lonlocal::texthash('csv' => "CSV",	my %lt=&Apache::lonlocal::texthash('csv' => "CSV",
'excel' => "Excel",	'excel' => "Excel",
'html' => 'HTML');	'html' => 'HTML');
my $output_selector = '<select size="1" name="output" >';	my $output_selector = '<select size="1" name="output" onchange="javascript:updateCols('."'output'".');" >';
foreach my $outputformat ('html','csv','excel') {	foreach my $outputformat ('html','csv','excel') {
my $option = '<option value="'.$outputformat.'" ';	my $option = '<option value="'.$outputformat.'"';
if ($outputformat eq $env{'form.output'}) {	if ($outputformat eq $env{'form.output'}) {
$option .= 'selected ';	$option .= ' selected="selected"';
}	}
$option .='>'.$lt{$outputformat}.'</option>';	$option .='>'.$lt{$outputformat}.'</option>';
$output_selector .= "\n".$option;	$output_selector .= "\n".$option;
}	}
$output_selector .= '</select>';	$output_selector .= '</select>';
$r->print('<label>'.&mt('Output Format: [_1]',$output_selector).'</label>'.(' 'x3));	$r->print('<span class="LC_nobreak">'
}	.&mt('Output Format: [_1]',$output_selector)
$r->print('<label>'.&mt('User Status: [_1]',$status_select).'</label>'.(' 'x3)."\n");	.'</span>'.(' 'x3));
	}
	$r->print('<span class="LC_nobreak">'
	.&mt('User Status: [_1]',$status_select)
	.'</span>'.(' 'x3)."\n");
my $roleselected = '';	my $roleselected = '';
if ($env{'form.showrole'} eq 'Any') {	if ($env{'form.showrole'} eq 'Any') {
$roleselected = ' selected="selected" ';	$roleselected = ' selected="selected"';
}	}
my ($cnum,$cdom);	my ($cnum,$cdom);
$r->print(&role_filter($context));	$r->print(&role_filter($context));
Line 1308 sub print_userlist {	Line 1511 sub print_userlist {
($cnum,$cdom) = &get_course_identity();	($cnum,$cdom) = &get_course_identity();
$r->print(&section_group_filter($cnum,$cdom));	$r->print(&section_group_filter($cnum,$cdom));
}	}
if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {	$r->print('</div><div class="LC_left_float">'.
$r->print(' '.&list_submit_button(&mt('Update Display')).	&column_checkboxes($context,$mode,$formname).
"\n</p>\n");	'</div><br clear="all" />');
	if ($env{'form.phase'} eq '') {
	$r->print(&list_submit_button(&mt('Display List of Users'))."\n".
	'<input type="hidden" name="phase" value="" /></form>');
	return;
	}
	if (!(($context eq 'domain') &&
	(($env{'form.roletype'} eq 'course') \|\| ($env{'form.roletype'} eq 'community')))) {
	$r->print(&list_submit_button(&mt('Update Display'))."\n");
	}

	my @cols = &infocolumns($context,$mode);
	if (!@cols) {
	$r->print('<hr /><span class="LC_warning">'.
	&mt('No user information selected for display.').'</span>'.
	'<input type="hidden" name="phase" value="display" /></form>'."\n");
	return;
}	}
my ($indexhash,$keylist) = &make_keylist_array();	my ($indexhash,$keylist) = &make_keylist_array();
my (%userlist,%userinfo);	my (%userlist,%userinfo,$clearcoursepick);
if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {	if (($context eq 'domain') &&
	($env{'form.roletype'} eq 'course') \|\|
	($env{'form.roletype'} eq 'community')) {
	my ($crstype,$numcodes,$title,$warning);
	if ($env{'form.roletype'} eq 'course') {
	$crstype = 'Course';
	$numcodes = $totcodes;
	$title = &mt('Select Courses');
	$warning = &mt('Warning: data retrieval for multiple courses can take considerable time, as this operation is not currently optimized.');
	} elsif ($env{'form.roletype'} eq 'community') {
	$crstype = 'Community';
	$numcodes = 0;
	$title = &mt('Select Communities');
	$warning = &mt('Warning: data retrieval for multiple communities can take considerable time, as this operation is not currently optimized.');
	}
	my @standardnames = &Apache::loncommon::get_standard_codeitems();
my $courseform =	my $courseform =
&Apache::lonhtmlcommon::course_selection($formname,$totcodes,	&Apache::lonhtmlcommon::course_selection($formname,$numcodes,
$codetitles,$idlist,$idlist_titles);	$codetitles,$idlist,$idlist_titles,$crstype,
	\@standardnames);
$r->print('<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".	$r->print('<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".
&Apache::lonhtmlcommon::start_pick_box()."\n".	&Apache::lonhtmlcommon::start_pick_box()."\n".
&Apache::lonhtmlcommon::row_title(&mt('Select Course(s)'),	&Apache::lonhtmlcommon::row_title($title,'LC_oddrow_value')."\n".
'LC_oddrow_value')."\n".
$courseform."\n".	$courseform."\n".
&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><input type="hidden" name="origroletype" value="'.$env{'form.roletype'}.'" />'.
"\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");	&list_submit_button(&mt('Update Display')).
if ($env{'form.coursepick'}) {	"\n".'</p><span class="LC_warning">'.$warning.'</span>'."\n");
	$clearcoursepick = 0;
	if (($env{'form.origroletype'} ne '') &&
	($env{'form.origroletype'} ne $env{'form.roletype'})) {
	$clearcoursepick = 1;
	}
	if (($env{'form.coursepick'}) && (!$clearcoursepick)) {
$r->print('<hr />'.&mt('Searching').' ...<br /> <br />');	$r->print('<hr />'.&mt('Searching').' ...<br /> <br />');
}	}
} else {	} else {
$r->print('<hr />'.&mt('Searching').' ...<br /> <br />');	$r->print('<hr /><div id="searching">'.&mt('Searching').' ...</div>');
}	}
$r->rflush();	$r->rflush();
if ($context eq 'course') {	if ($context eq 'course') {
Line 1400 sub print_userlist {	Line 1640 sub print_userlist {
}	}
}	}
}	}
} elsif ($env{'form.roletype'} eq 'course') {	} elsif (($env{'form.roletype'} eq 'course') \|\|
if ($env{'form.coursepick'}) {	($env{'form.roletype'} eq 'community')) {
	if (($env{'form.coursepick'}) && (!$clearcoursepick)) {
my %courses = &process_coursepick();	my %courses = &process_coursepick();
my %allusers;	my %allusers;
my $hidepriv = 1;	my $hidepriv = 1;
Line 1412 sub print_userlist {	Line 1653 sub print_userlist {
my (@roles,@sections,%access,%users,%userdata,	my (@roles,@sections,%access,%users,%userdata,
%statushash);	%statushash);
if ($env{'form.showrole'} eq 'Any') {	if ($env{'form.showrole'} eq 'Any') {
@roles = &course_roles($context,undef,$custom);	@roles = &course_roles($context,undef,$custom,
	$env{'form.roletype'});
} else {	} else {
@roles = ($env{'form.showrole'});	@roles = ($env{'form.showrole'});
}	}
Line 1449 sub print_userlist {	Line 1691 sub print_userlist {
}	}
}	}
if (keys(%userlist) == 0) {	if (keys(%userlist) == 0) {
	my $msg = '';
if ($context eq 'author') {	if ($context eq 'author') {
$r->print(&mt('There are no co-authors to display.')."\n");	$msg = &mt('There are no co-authors to display.');
} elsif ($context eq 'domain') {	} elsif ($context eq 'domain') {
if ($env{'form.roletype'} eq 'domain') {	if ($env{'form.roletype'} eq 'domain') {
$r->print(&mt('There are no users with domain roles to display.')."\n");	$msg = &mt('There are no users with domain roles to display.');
} elsif ($env{'form.roletype'} eq 'author') {	} elsif ($env{'form.roletype'} eq 'author') {
$r->print(&mt('There are no authors or co-authors to display.')."\n");	$msg = &mt('There are no authors or co-authors to display.');
} elsif ($env{'form.roletype'} eq 'course') {	} elsif ($env{'form.roletype'} eq 'course') {
$r->print(&mt('There are no course users to display')."\n");	$msg = &mt('There are no course users to display');
	} elsif ($env{'form.roletype'} eq 'community') {
	$msg = &mt('There are no community users to display');
}	}
} elsif ($context eq 'course') {	} elsif ($context eq 'course') {
$r->print(&mt('There are no course users to display.')."\n");	$r->print(&mt('There are no course users to display.')."\n");
}	}
	$r->print('<p class="LC_info"'.$msg.'</p>'."\n") if $msg;
} else {	} else {
# Print out the available choices	# Print out the available choices
my $usercount;	my $usercount;
Line 1473 sub print_userlist {	Line 1719 sub print_userlist {
$permission,$env{'form.Status'},\%userlist,$keylist);	$permission,$env{'form.Status'},\%userlist,$keylist);
}	}
if (!$usercount) {	if (!$usercount) {
$r->print('<br />'.&mt('There are no users matching the search criteria.'));	$r->print('<br /><span class="LC_info">'
	.&mt('There are no users matching the search criteria.')
	.'</span>'
	);
}	}
}	}
$r->print('<input type="hidden" name="phase" value="'.	$r->print('<input type="hidden" name="phase" value="'.
$env{'form.phase'}.'" /></form>');	$env{'form.phase'}.'" /></form>');
	return;
}	}

sub role_filter {	sub role_filter {
Line 1485 sub role_filter {	Line 1735 sub role_filter {
my $output;	my $output;
my $roleselected = '';	my $roleselected = '';
if ($env{'form.showrole'} eq 'Any') {	if ($env{'form.showrole'} eq 'Any') {
$roleselected = ' selected="selected" ';	$roleselected = ' selected="selected"';
}	}
my ($role_select);	my ($role_select);
if ($context eq 'domain') {	if ($context eq 'domain') {
$role_select = &domain_roles_select();	$role_select = &domain_roles_select();
$output = '<label>'.&mt('Role Type: [_1]',$role_select).'</label>';	$output = '<span class="LC_nobreak">'
	.&mt('Role Type: [_1]',$role_select)
	.'</span>';
} else {	} else {
$role_select = '<select name="showrole">'."\n".	$role_select = '<select name="showrole" onchange="javascript:updateCols('."'showrole'".');">'."\n".
'<option value="Any" '.$roleselected.'>'.	'<option value="Any" '.$roleselected.'>'.
&mt('Any role').'</option>';	&mt('Any role').'</option>';
my @poss_roles = &curr_role_permissions($context);	my ($roletype,$crstype);
	if ($context eq 'course') {
	$crstype = &Apache::loncommon::course_type();
	if ($crstype eq 'Community') {
	$roletype = 'community';
	} else {
	$roletype = 'course';
	}
	}
	my @poss_roles = &curr_role_permissions($context,'','',$roletype);
foreach my $role (@poss_roles) {	foreach my $role (@poss_roles) {
$roleselected = '';	$roleselected = '';
if ($role eq $env{'form.showrole'}) {	if ($role eq $env{'form.showrole'}) {
$roleselected = ' selected="selected" ';	$roleselected = ' selected="selected"';
}	}
my $plrole;	my $plrole;
if ($role eq 'cr') {	if ($role eq 'cr') {
$plrole = &mt('Custom role');	$plrole = &mt('Custom role');
} else {	} else {
$plrole=&Apache::lonnet::plaintext($role);	$plrole=&Apache::lonnet::plaintext($role,$crstype);
}	}
$role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';	$role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
}	}
$role_select .= '</select>';	$role_select .= '</select>';
$output = '<label>'.&mt('Role: [_1]',$role_select).'</label>';	$output = '<span class="LC_nobreak">'
	.&mt('Role: [_1]',$role_select)
	.'</span>';
}	}
return $output;	return $output;
}	}
Line 1539 sub section_group_filter {	Line 1802 sub section_group_filter {
$env{'form.'.$name{$item}} = 'all';	$env{'form.'.$name{$item}} = 'all';
}	}
if ($item eq 'sec') {	if ($item eq 'sec') {
if ($env{'form.showrole'} eq 'cc') {	if (($env{'form.showrole'} eq 'cc') \|\| ($env{'form.showrole'} eq 'co')) {
$env{'form.'.$name{$item}} = 'none';	$env{'form.'.$name{$item}} = 'none';
}	}
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);	my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
Line 1550 sub section_group_filter {	Line 1813 sub section_group_filter {
}	}
if (@options > 0) {	if (@options > 0) {
my $currsel;	my $currsel;
$markup = '<select name="'.$name{$item}.'" />'."\n";	$markup = '<select name="'.$name{$item}.'">'."\n";
foreach my $option ('all','none',@options) {	foreach my $option ('all','none',@options) {
$currsel = '';	$currsel = '';
if ($env{'form.'.$name{$item}} eq $option) {	if ($env{'form.'.$name{$item}} eq $option) {
$currsel = ' selected="selected" ';	$currsel = ' selected="selected"';
}	}
$markup .= ' <option value="'.$option.'"'.$currsel.'>';	$markup .= ' <option value="'.$option.'"'.$currsel.'>';
if (($option eq 'all') \|\| ($option eq 'none')) {	if (($option eq 'all') \|\| ($option eq 'none')) {
Line 1565 sub section_group_filter {	Line 1828 sub section_group_filter {
$markup .= '</option>'."\n";	$markup .= '</option>'."\n";
}	}
$markup .= '</select>'."\n";	$markup .= '</select>'."\n";
$output .= (' 'x3).'<label>'.$title{$item}.': '.$markup.'</label>';	$output .= (' 'x3).'<span class="LC_nobreak">'
	.'<label>'.$title{$item}.': '.$markup.'</label>'
	.'</span> ';
}	}
}	}
return $output;	return $output;
}	}

	sub infocolumns {
	my ($context,$mode) = @_;
	my @cols;
	if (($mode eq 'pickauthor') \|\| ($mode eq 'autoenroll')) {
	@cols = &get_cols_array($context,$mode);
	} else {
	my @posscols = &get_cols_array($context,$mode);
	if ($env{'form.phase'} ne '') {
	my @checkedcols = &Apache::loncommon::get_env_multiple('form.showcol');
	foreach my $col (@checkedcols) {
	if (grep(/^$col$/,@posscols)) {
	push(@cols,$col);
	}
	}
	} else {
	@cols = @posscols;
	}
	}
	return @cols;
	}

	sub get_cols_array {
	my ($context,$mode) = @_;
	my @cols;
	if ($mode eq 'pickauthor') {
	@cols = ('username','fullname','status','email');
	} else {
	@cols = ('username','domain','id','fullname');
	if ($context eq 'course') {
	push(@cols,'section');
	}
	push(@cols,('start','end','role'));
	if ($context eq 'domain') {
	push (@cols,'extent');
	}
	unless (($mode eq 'autoenroll') && ($env{'form.Status'} ne 'Any')) {
	push(@cols,'status');
	}
	if ($context eq 'course') {
	push(@cols,'groups');
	}
	push(@cols,'email');
	if (($context eq 'course') && ($mode ne 'autoenroll')) {
	push(@cols,'lastlogin','clicker');
	}
	if (($context eq 'course') && ($mode ne 'autoenroll') &&
	($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'})) {
	push(@cols,'photos');
	}
	}
	return @cols;
	}

	sub column_checkboxes {
	my ($context,$mode,$formname) = @_;
	my @cols = &get_cols_array($context,$mode);
	my @showncols = &Apache::loncommon::get_env_multiple('form.showcol');
	my (%disabledchk,%unchecked);
	if ($env{'form.phase'} eq '') {
	$disabledchk{'status'} = 1;
	if ($context eq 'course') {
	$disabledchk{'role'} = 1;
	$unchecked{'photo'} = 1;
	}
	$unchecked{'clicker'} = 1;
	$unchecked{'start'} = 1;
	$unchecked{'end'} = 1;
	} else {
	if ($env{'form.Status'} ne 'Any') {
	$disabledchk{'status'} = 1;
	}
	if ($env{'form.showrole'} ne 'Any') {
	$disabledchk{'role'} = 1;
	}
	}
	my $numposs = scalar(@cols);
	my $numinrow = 8;
	my %lt = &get_column_names($context);
	my $output = '<fieldset><legend>'.&mt('Information to show').'</legend>'."\n".'<span class="LC_nobreak">'.
	'<input type="button" onclick="javascript:checkAll(document.'.$formname.'.showcol);" value="'.&mt('check all').'" />'.
	(' 'x3).
	'<input type="button" onclick="javascript:uncheckAll(document.'.$formname.'.showcol);" value="'.&mt('uncheck all').'" />'.
	'</span><table>';

	for (my $i=0; $i<$numposs; $i++) {
	my $rem = $i%($numinrow);
	if ($rem == 0) {
	if ($i > 0) {
	$output .= '</tr>';
	}
	$output .= '<tr>';
	}
	my $checked;
	if ($env{'form.phase'} eq '') {
	$checked = ' checked="checked"';
	if ($unchecked{$cols[$i]}) {
	$checked = '';
	}
	if ($disabledchk{$cols[$i]}) {
	$checked = ' disabled="disabled"';
	}
	} elsif (grep(/^\Q$cols[$i]\E$/,@showncols)) {
	$checked = ' checked="checked"';
	} elsif ($disabledchk{$cols[$i]}) {
	$checked = ' disabled="disabled"';
	}
	if ($i == $numposs-1) {
	my $colsleft = $numinrow-$rem;
	if ($colsleft > 1) {
	$output .= '<td colspan="'.$colsleft.'">';
	} else {
	$output .= '<td>';
	}
	} else {
	$output .= '<td>';
	}
	$output .= '<label><input id="showcol'.$cols[$i].'" type="checkbox" name="showcol" value="'.$cols[$i].'"'.$checked.' />'.
	$lt{$cols[$i]}.'</label></td>';

	}
	$output .= '</tr></table></fieldset>';
	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()" />';
}	}

	sub get_column_names {
	my ($context) = @_;
	my %lt = &Apache::lonlocal::texthash(
	'username' => "username",
	'domain' => "domain",
	'id' => 'ID',
	'fullname' => "name",
	'section' => "section",
	'groups' => "active groups",
	'start' => "start date",
	'end' => "end date",
	'status' => "status",
	'role' => "role",
	'type' => "enroll type/action",
	'email' => "e-mail address",
	'photo' => "photo",
	'lastlogin' => "last login",
	'extent' => "extent",
	'ca' => "check all",
	'ua' => "uncheck all",
	'clicker' => "clicker-ID",
	);
	if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
	$lt{'extent'} = &mt('Course(s): description, section(s), status');
	} elsif ($context eq 'domain' && $env{'form.roletype'} eq 'community') {
	$lt{'extent'} = &mt('Communities: description, section(s), status');
	} elsif ($context eq 'author') {
	$lt{'extent'} = &mt('Author');
	}
	return %lt;
	}

sub gather_userinfo {	sub gather_userinfo {
my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;	my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;
my $viewablesec;	my $viewablesec;
Line 1618 sub gather_userinfo {	Line 2039 sub gather_userinfo {
$indexhash,$uniqid,$userlist);	$indexhash,$uniqid,$userlist);
}	}
}	}
} elsif ($env{'form.roletype'} eq 'course') {	} elsif (($env{'form.roletype'} eq 'course') \|\|
	($env{'form.roletype'} eq 'community')) {
($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =	($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
split(/:/,$item);	split(/:/,$item);
if (ref($rolehash->{$item}) eq 'HASH') {	if (ref($rolehash->{$item}) eq 'HASH') {
Line 1668 sub gather_userinfo {	Line 2090 sub gather_userinfo {
sub build_user_record {	sub build_user_record {
my ($context,$userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;	my ($context,$userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;
next if ($userdata->{'start'} eq '-1' && $userdata->{'end'} eq '-1');	next if ($userdata->{'start'} eq '-1' && $userdata->{'end'} eq '-1');
if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {	if (!(($context eq 'domain') && (($env{'form.roletype'} eq 'course')
	&& ($env{'form.roletype'} eq 'community')))) {
&process_date_info($userdata);	&process_date_info($userdata);
}	}
my $username = $userdata->{'username'};	my $username = $userdata->{'username'};
Line 1737 function setCourseCat(formname) {	Line 2160 function setCourseCat(formname) {
if (formname.Year.options[formname.Year.selectedIndex].value == -1) {	if (formname.Year.options[formname.Year.selectedIndex].value == -1) {
return;	return;
}	}
courseSet('Year');	courseSet('$codetitles[0]');
for (var j=0; j<formname.Semester.length; j++) {	for (var j=0; j<formname.Semester.length; j++) {
if (formname.Semester.options[j].value == "$env{'form.Semester'}") {	if (formname.Semester.options[j].value == "$env{'form.Semester'}") {
formname.Semester.options[j].selected = true;	formname.Semester.options[j].selected = true;
Line 1746 function setCourseCat(formname) {	Line 2169 function setCourseCat(formname) {
if (formname.Semester.options[formname.Semester.selectedIndex].value == -1) {	if (formname.Semester.options[formname.Semester.selectedIndex].value == -1) {
return;	return;
}	}
courseSet('Semester');	courseSet('$codetitles[1]');
for (var j=0; j<formname.Department.length; j++) {	for (var j=0; j<formname.Department.length; j++) {
if (formname.Department.options[j].value == "$env{'form.Department'}") { formname.Department.options[j].selected = true;	if (formname.Department.options[j].value == "$env{'form.Department'}") { formname.Department.options[j].selected = true;
}	}
Line 1754 function setCourseCat(formname) {	Line 2177 function setCourseCat(formname) {
if (formname.Department.options[formname.Department.selectedIndex].value == -1) {	if (formname.Department.options[formname.Department.selectedIndex].value == -1) {
return;	return;
}	}
courseSet('Department');	courseSet('$codetitles[2]');
for (var j=0; j<formname.Number.length; j++) {	for (var j=0; j<formname.Number.length; j++) {
if (formname.Number.options[j].value == "$env{'form.Number'}") {	if (formname.Number.options[j].value == "$env{'form.Number'}") {
formname.Number.options[j].selected = true;	formname.Number.options[j].selected = true;
Line 1783 sub process_coursepick {	Line 2206 sub process_coursepick {
my $coursefilter = $env{'form.coursepick'};	my $coursefilter = $env{'form.coursepick'};
my $cdom = $env{'request.role.domain'};	my $cdom = $env{'request.role.domain'};
my %courses;	my %courses;
	my $crssrch = 'Course';
	if ($env{'form.roletype'} eq 'community') {
	$crssrch = 'Community';
	}
if ($coursefilter eq 'all') {	if ($coursefilter eq 'all') {
%courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.',	%courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.',
undef,undef,'Course');	undef,undef,$crssrch);
} elsif ($coursefilter eq 'category') {	} elsif ($coursefilter eq 'category') {
my $instcode = &instcode_from_coursefilter();	my $instcode = &instcode_from_coursefilter();
%courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.',	%courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.',
undef,undef,'Course');	undef,undef,$crssrch);
} elsif ($coursefilter eq 'specific') {	} elsif ($coursefilter eq 'specific') {
if ($env{'form.coursetotal'} > 1) {	if ($env{'form.coursetotal'} > 1) {
my @course_ids = split(/&&/,$env{'form.courselist'});	my @course_ids = split(/&&/,$env{'form.courselist'});
Line 1933 sub show_users_list {	Line 2360 sub show_users_list {
$sortby = 'username';	$sortby = 'username';
}	}
my $setting = $env{'form.roletype'};	my $setting = $env{'form.roletype'};
my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);	my ($cid,$cdom,$cnum,$classgroups,$crstype);
if ($context eq 'course') {	if ($context eq 'course') {
$cid = $env{'request.course.id'};	$cid = $env{'request.course.id'};
	$crstype = &Apache::loncommon::course_type();
($cnum,$cdom) = &get_course_identity($cid);	($cnum,$cdom) = &get_course_identity($cid);
($classgroups) = &Apache::loncoursedata::get_group_memberships(	($classgroups) = &Apache::loncoursedata::get_group_memberships(
$userlist,$keylist,$cdom,$cnum);	$userlist,$keylist,$cdom,$cnum);
if ($mode eq 'autoenroll') {	if ($mode eq 'autoenroll') {
$env{'form.showrole'} = 'st';	$env{'form.showrole'} = 'st';
} else {	} else {
if (! exists($env{'form.displayphotos'})) {
$env{'form.displayphotos'} = 'off';
}
$displayphotos = $env{'form.displayphotos'};
if (! exists($env{'form.displayclickers'})) {
$env{'form.displayclickers'} = 'off';
}
$displayclickers = $env{'form.displayclickers'};
if ($env{'course.'.$cid.'.internal.showphoto'}) {	if ($env{'course.'.$cid.'.internal.showphoto'}) {
$r->print('	$r->print('
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function photowindow(photolink) {	function photowindow(photolink) {
var title = "Photo_Viewer";	var title = "Photo_Viewer";
var options = "scrollbars=1,resizable=1,menubar=0";	var options = "scrollbars=1,resizable=1,menubar=0";
Line 1960 function photowindow(photolink) {	Line 2381 function photowindow(photolink) {
stdeditbrowser = open(photolink,title,options,"1");	stdeditbrowser = open(photolink,title,options,"1");
stdeditbrowser.focus();	stdeditbrowser.focus();
}	}
	// ]]>
</script>	</script>
');	');
}	}
$r->print(<<END);	}
<input type="hidden" name="displayphotos" value="$displayphotos" />	} elsif ($context eq 'domain') {
<input type="hidden" name="displayclickers" value="$displayclickers" />	if ($setting eq 'community') {
END	$crstype = 'Community';
	} elsif ($setting eq 'course') {
	$crstype = 'Course';
}	}
}	}
if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {	if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode);	my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode);
my $verify_action_js = &bulkaction_javascript($formname);	my $verify_action_js = &bulkaction_javascript($formname);
$r->print(<<END);	$r->print(<<END);

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

$verify_action_js	$verify_action_js

Line 2013 function username_display_launch(usernam	Line 2436 function username_display_launch(usernam
document.location.href = '/adm/'+domain+'/'+username+'/aboutme';	document.location.href = '/adm/'+domain+'/'+username+'/aboutme';
}	}
}	}
	if (target == 'track') {
	if (document.$formname.userwin.checked == true) {
	var url = '/adm/trackstudent?selected_student='+username+':'+domain+'&only_body=1';
	var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
	var trackwin = window.open(url,'',options,1);
	trackwin.focus();
	return;
	} else {
	document.location.href = '/adm/trackstudent?selected_student='+username+':'+domain;
	}
	}
}	}
	// ]]>
</script>	</script>
$date_sec_selector	$date_sec_selector
<input type="hidden" name="state" value="$env{'form.state'}" />	<input type="hidden" name="state" value="$env{'form.state'}" />
Line 2022 END	Line 2457 END
$r->print(<<END);	$r->print(<<END);
<input type="hidden" name="sortby" value="$sortby" />	<input type="hidden" name="sortby" value="$sortby" />
END	END
	my @cols = &infocolumns($context,$mode);
my %lt=&Apache::lonlocal::texthash(	my %coltxt = &get_column_names($context);
'username' => "username",	my %acttxt = &Apache::lonlocal::texthash(
'domain' => "domain",
'id' => 'ID',
'fullname' => "name",
'section' => "section",
'groups' => "active groups",
'start' => "start date",
'end' => "end date",
'status' => "status",
'role' => "role",
'type' => "enroll type/action",
'email' => "email address",
'photo' => "photo",
'extent' => "extent",
'pr' => "Proceed",	'pr' => "Proceed",
'ca' => "check all",
'ua' => "uncheck all",
'ac' => "Action to take for selected users",	'ac' => "Action to take for selected users",
'link' => "Behavior of clickable username link for each user",	'link' => "Behavior of clickable username link for each user",
'aboutme' => "Display a user's personal page",	'aboutme' => "Display a user's personal information page",
'owin' => "Open in a new window",	'owin' => "Open in a new window",
'modify' => "Modify a user's information",	'modify' => "Modify a user's information",
'clicker' => "Clicker-ID",	'track' => "View a user's recent activity",
);	);
if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {	my %lt = (%coltxt,%acttxt);
$lt{'extent'} = &mt('Course(s): description, section(s), status');
} elsif ($context eq 'author') {
$lt{'extent'} = &mt('Author');
}
my @cols;
if ($mode eq 'pickauthor') {
@cols = ('username','fullname','status','email');
} else {
@cols = ('username','domain','id','fullname');
if ($context eq 'course') {
push(@cols,'section');
}
if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) {
push(@cols,('start','end'));
}
if ($env{'form.showrole'} eq 'Any' \|\| $env{'form.showrole'} eq 'cr') {
push(@cols,'role');
}
if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' \|\|
$env{'form.roletype'} eq 'course')) {
push (@cols,'extent');
}
if (($statusmode eq 'Any') &&
(!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {
push(@cols,'status');
}
if ($context eq 'course') {
push(@cols,'groups');
}
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') {
$rolefilter = &mt('custom');	$rolefilter = &mt('custom');
} elsif ($env{'form.showrole'} ne 'Any') {	} elsif ($env{'form.showrole'} ne 'Any') {
$rolefilter = &Apache::lonnet::plaintext($env{'form.showrole'});	$rolefilter = &Apache::lonnet::plaintext($env{'form.showrole'},$crstype);
}	}
my $results_description;	my $results_description;
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,$crstype);
$r->print('<b>'.$results_description.'</b><br /><br />');	$r->print('<b>'.$results_description.'</b><br clear="all" />');
}	}
my ($output,$actionselect,%canchange,%canchangesec);	my ($output,$actionselect,%canchange,%canchangesec);
if ($mode eq 'html' \|\| $mode eq 'view' \|\| $mode eq 'autoenroll' \|\| $mode eq 'pickauthor') {	if ($mode eq 'html' \|\| $mode eq 'view' \|\| $mode eq 'autoenroll' \|\| $mode eq 'pickauthor') {
if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {	if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
if ($permission->{'cusr'}) {	if ($permission->{'cusr'}) {
$actionselect = &select_actions($context,$setting,$statusmode,$formname);	unless (($context eq 'domain') &&
	(($setting eq 'course') \|\| ($setting eq 'community'))) {
	$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 2108 END	Line 2500 END
END	END
if ($actionselect) {	if ($actionselect) {
$output .= <<"END";	$output .= <<"END";
<div class="LC_left_float"><fieldset><legend><b>$lt{'ac'}</b></legend>	<div class="LC_left_float"><fieldset><legend>$lt{'ac'}</legend>
$actionselect	$actionselect
<br/><br /><input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.$formname.actionlist)" />	<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>	<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>
Line 2117 END	Line 2509 END
if ($env{'form.showrole'} eq 'Any') {	if ($env{'form.showrole'} eq 'Any') {
my $custom = 1;	my $custom = 1;
if ($context eq 'domain') {	if ($context eq 'domain') {
@allroles = &roles_by_context($setting,$custom);	@allroles = &roles_by_context($setting,$custom,$crstype);
} else {	} else {
@allroles = &roles_by_context($context,$custom);	@allroles = &roles_by_context($context,$custom,$crstype);
}	}
} else {	} else {
@allroles = ($env{'form.showrole'});	@allroles = ($env{'form.showrole'});
Line 2149 END	Line 2541 END
if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {	if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
$canchangesec{$role} = $env{'request.course.sec'};	$canchangesec{$role} = $env{'request.course.sec'};
}	}
	} elsif ((($role eq 'co') && ($crstype eq 'Community')) \|\|
	(($role eq 'cc') && ($crstype eq 'Course'))) {
	if (&is_courseowner($env{'request.course.id'},
	$env{'course.'.$env{'request.course.id'}.'.internal.courseowner'})) {
	$canchange{$role} = 1;
	}
}	}
}	}
}	}
}	}
$output .= '<div class="LC_left_float"><fieldset><legend><b>'.$lt{'link'}.'</b></legend>'.	$output .= '<div class="LC_left_float"><fieldset><legend>'.$lt{'link'}.'</legend>'.
'<table><tr>';	'<table><tr>';
my @linkdests = ('aboutme');	my @linkdests = ('aboutme');
if ($permission->{'cusr'}) {	if ($permission->{'cusr'}) {
unshift (@linkdests,'modify');	unshift (@linkdests,'modify');
}	}
	if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) \|\|
	&Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'.
	$env{'request.course.sec'})) {
	push(@linkdests,'track');
	}

$output .= '<td>';	$output .= '<td>';
my $usernamelink = $env{'form.usernamelink'};	my $usernamelink = $env{'form.usernamelink'};
if ($usernamelink eq '') {	if ($usernamelink eq '') {
Line 2167 END	Line 2571 END
foreach my $item (@linkdests) {	foreach my $item (@linkdests) {
my $checkedstr = '';	my $checkedstr = '';
if ($item eq $usernamelink) {	if ($item eq $usernamelink) {
$checkedstr = ' checked="checked" ';	$checkedstr = ' checked="checked"';
}	}
$output .= '<span class="LC_nobreak"><label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'> '.$lt{$item}.'</label></span><br />';	$output .= '<span class="LC_nobreak"><label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.' /> '.$lt{$item}.'</label></span><br />';
}	}
my $checkwin;	my $checkwin;
if ($env{'form.userwin'}) {	if ($env{'form.userwin'}) {
$checkwin = 'checked = "checked"';	$checkwin = ' checked="checked"';
}	}
$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 .= '</td><td valign="top" style="border-left: 1px solid;"><span class="LC_nobreak"><input type="checkbox" name="userwin" value="1"'.$checkwin.' />'.$lt{'owin'}.'</span></td></tr></table></fieldset></div>';
}	}
$output .= "\n".'<div class="LC_clear_float_footer"> </div>'."\n".	$output .= "\n".'<br clear="all" />'."\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') {
Line 2185 END	Line 2589 END
<th><a href=\"javascript:document.$formname.sortby.value='type';document.$formname.submit();\">$lt{'type'}</a></th>	<th><a href=\"javascript:document.$formname.sortby.value='type';document.$formname.submit();\">$lt{'type'}</a></th>
";	";
} else {	} else {
if ($mode eq 'pickauthor') {	$output .= "\n".'<th> </th>'."\n";
$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";
}	}
Line 2198 END	Line 2598 END
$output .= "<th><a href=\"javascript:document.$formname.sortby.value='$item';document.$formname.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 ($env{'form.showrole'} eq 'st' \|\| $env{'form.showrole'} eq 'Any') {
# Clicker display on or off?
my %clicker_options = (
'on' => 'Show',
'off' => 'Hide',
);
my $clickerchg = 'on';
if ($displayclickers eq 'on') {
$clickerchg = 'off';
}
$output .= ' <th>'."\n".' '
.&mt('[_1]'.$clicker_options{$clickerchg}.'[_2] clicker id'
,'<a href="javascript:document.'.$formname.'.displayclickers.value='
."'".$clickerchg."'".';document.'.$formname.'.submit();">'
,'</a>')
."\n".' </th>'."\n";

# Photo display on or off?
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
my %photo_options = &Apache::lonlocal::texthash(
'on' => 'Show',
'off' => 'Hide',
);
my $photochg = 'on';
if ($displayphotos eq 'on') {
$photochg = 'off';
}
$output .= ' <th>'."\n".' '.
'<a href="javascript:document.'.$formname.'.displayphotos.value='.
"'".$photochg."'".';document.'.$formname.'.submit();">'.
$photo_options{$photochg}.'</a> '.$lt{'photo'}."\n".
' </th>'."\n";
}
}
}
$output .= &Apache::loncommon::end_data_table_header_row();	$output .= &Apache::loncommon::end_data_table_header_row();
# Done with the HTML header line	# Done with the HTML header line
} elsif ($mode eq 'csv') {	} elsif ($mode eq 'csv') {
Line 2244 END	Line 2608 END
time.'_'.rand(1000000000).'.csv';	time.'_'.rand(1000000000).'.csv';
unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) {	unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) {
$r->log_error("Couldn't open $CSVfilename for output $!");	$r->log_error("Couldn't open $CSVfilename for output $!");
$r->print(&mt('Problems occurred in writing the csv file. '	$r->print(
.'This error has been logged. '	'<p class="LC_error">'
.'Please alert your LON-CAPA administrator.'));	.&mt('Problems occurred in writing the CSV file.')
	.' '.&mt('This error has been logged.')
	.' '.&mt('Please alert your LON-CAPA administrator.')
	.'</p>'
	);
$CSVfile = undef;	$CSVfile = undef;
}	}
#	#
push @cols,'clicker';
# Write headers and data to file	# Write headers and data to file
print $CSVfile '"'.$results_description.'"'."\n";	print $CSVfile '"'.$results_description.'"'."\n";
print $CSVfile '"'.join('","',map {	print $CSVfile '"'.join('","',map {
&Apache::loncommon::csv_translate($lt{$_})	&Apache::loncommon::csv_translate($lt{$_})
} (@cols))."\"\n";	} (@cols))."\"\n";
} elsif ($mode eq 'excel') {	} elsif ($mode eq 'excel') {
push @cols,'clicker';
# Create the excel spreadsheet	# Create the excel spreadsheet
($excel_workbook,$excel_filename,$format) =	($excel_workbook,$excel_filename,$format) =
&Apache::loncommon::create_workbook($r);	&Apache::loncommon::create_workbook($r);
Line 2288 END	Line 2654 END
$grpfilter = 'all';	$grpfilter = 'all';
}	}
}	}
	my %ltstatus = &Apache::lonlocal::texthash(
	Active => 'Active',
	Future => 'Future',
	Expired => 'Expired',
	);
	# If this is for a single course get last course "log-in".
	my %crslogins;
	if ($context eq 'course') {
	%crslogins=&Apache::lonnet::dump('nohist_crslastlogin',$cdom,$cnum);
	}
# 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})) {
Line 2315 END	Line 2691 END
}	}
} elsif ($env{'form.roletype'} eq 'author') {	} elsif ($env{'form.roletype'} eq 'author') {
($uname,$udom,$role) = split(/:/,$user,-1);	($uname,$udom,$role) = split(/:/,$user,-1);
} elsif ($env{'form.roletype'} eq 'course') {	} elsif (($env{'form.roletype'} eq 'course') \|\|
	($env{'form.roletype'} eq 'community')) {
($uname,$udom,$role) = split(/:/,$user);	($uname,$udom,$role) = split(/:/,$user);
}	}
} else {	} else {
Line 2370 END	Line 2747 END
}	}
}	}
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {	if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
if (($displayphotos eq 'on') && ($role eq 'st')) {	if ((grep/^photo$/,@cols) && ($role eq 'st')) {
$userlist->{$user}->[$index{'photo'}] =	$userlist->{$user}->[$index{'photo'}] =
&Apache::lonnet::retrievestudentphoto($udom,$uname,'jpg');	&Apache::lonnet::retrievestudentphoto($udom,$uname,'jpg');
$userlist->{$user}->[$index{'thumbnail'}] =	$userlist->{$user}->[$index{'thumbnail'}] =
Line 2422 END	Line 2799 END
if ($clickers!~/\w/) { $clickers='-'; }	if ($clickers!~/\w/) { $clickers='-'; }
$in{'clicker'} = $clickers;	$in{'clicker'} = $clickers;
my $role = $in{'role'};	my $role = $in{'role'};
$in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}]);	$in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}],$crstype);
if (! defined($in{'start'}) \|\| $in{'start'} == 0) {	unless ($mode eq 'excel') {
$in{'start'} = &mt('none');	if (! defined($in{'start'}) \|\| $in{'start'} == 0) {
} else {	$in{'start'} = &mt('none');
$in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});	} else {
	$in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});
	}
	if (! defined($in{'end'}) \|\| $in{'end'} == 0) {
	$in{'end'} = &mt('none');
	} else {
	$in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
	}
}	}
if (! defined($in{'end'}) \|\| $in{'end'} == 0) {	if ($context eq 'course') {
$in{'end'} = &mt('none');	my $lastlogin = $crslogins{$in{'username'}.':'.$in{'domain'}.':'.$in{'section'}.':'.$role};
} else {	if ($lastlogin ne '') {
$in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});	$in{'lastlogin'} = &Apache::lonlocal::locallocaltime($lastlogin);
	}
}	}
if ($mode eq 'view' \|\| $mode eq 'html' \|\| $mode eq 'autoenroll' \|\| $mode eq 'pickauthor') {	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());
Line 2442 END	Line 2827 END
$cellentry = '<b>'.&mt('auto').'</b> <label><input type="checkbox" name="chgauto" value="'.$in{'username'}.':'.$in{'domain'}.'" /> Change</label>';	$cellentry = '<b>'.&mt('auto').'</b> <label><input type="checkbox" name="chgauto" value="'.$in{'username'}.':'.$in{'domain'}.'" /> Change</label>';
$autocount ++;	$autocount ++;
} else {	} else {
$cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><nobr><label><input type="checkbox" name="chgmanual" value="'.$in{'username'}.':'.$in{'domain'}.'" /> Change</label></nobr></td></tr><tr><td><nobr>';	$cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><span class="LC_nobreak"><label><input type="checkbox" name="chgmanual" value="'.$in{'username'}.':'.$in{'domain'}.'" /> Change</label></span></td></tr><tr><td><span class="LC_nobreak">';
$manualcount ++;	$manualcount ++;
if ($in{'lockedtype'}) {	if ($in{'lockedtype'}) {
$cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Unlock').'</label>';	$cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Unlock').'</label>';
Line 2451 END	Line 2836 END
$cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Lock').'</label>';	$cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Lock').'</label>';
$lockcount ++;	$lockcount ++;
}	}
$cellentry .= '</nobr></td></tr></table>';	$cellentry .= '</span></td></tr></table>';
}	}
$r->print("<td>$cellentry</td>\n");	$r->print("<td>$cellentry</td>\n");
} else {	} else {
Line 2477 END	Line 2862 END
if ($showcheckbox) {	if ($showcheckbox) {
$checkval = $user;	$checkval = $user;
if ($context eq 'course') {	if ($context eq 'course') {
if ($role eq 'st') {	if (($role eq 'co' \|\| $role eq 'cc') &&
$checkval .= ':st';	($user =~ /^\Q$env{'user.name'}:$env{'user.domain'}:$role\E/)) {
}	$showcheckbox = 0;
$checkval .= ':'.$in{'section'};	} else {
if ($role eq 'st') {	if ($role eq 'st') {
$checkval .= ':'.$in{'type'}.':'.	$checkval .= ':st';
$in{'lockedtype'};	}
}	$checkval .= ':'.$in{'section'};
	if ($role eq 'st') {
	$checkval .= ':'.$in{'type'}.':'.
	$in{'lockedtype'};
	}
	}
	}
	if ($showcheckbox) {
	$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="'.$checkval.'"></td>');
} else {	} else {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
Line 2500 END	Line 2894 END
$r->print('<td>'.&print_username_link($mode,\%in).'</td>');	$r->print('<td>'.&print_username_link($mode,\%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 {	} elsif ($item eq 'status') {
$r->print('<td>'.$in{$item}.'</td>'."\n");	my $showitem = $in{$item};
}	if (defined($ltstatus{$in{$item}})) {
}	$showitem = $ltstatus{$in{$item}};
if (($context eq 'course') && ($mode ne 'autoenroll')) {	}
if ($env{'form.showrole'} eq 'st' \|\| $env{'form.showrole'} eq 'Any') {	$r->print('<td>'.$showitem.'</td>'."\n");
if ($displayclickers eq 'on') {	} elsif ($item eq 'photo') {
my $clickers =	if (($context eq 'course') && ($mode ne 'autoenroll') &&
	($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'})) {
	if ($role eq 'st') {
	$r->print('<td align="right"><a href="javascript:photowindow('."'".$in{'photo'}."'".')"><img src="'.$in{'thumbnail'}.'" border="1" alt="" /></a></td>');
	} else {
	$r->print('<td> </td>');
	}
	}
	} elsif ($item eq 'clicker') {
	if (($context eq 'course') && ($mode ne 'autoenroll')) {
	if ($env{'form.showrole'} eq 'st' \|\| $env{'form.showrole'} eq 'Any') {
	my $clickers =
(&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];	(&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];
if ($clickers!~/\w/) { $clickers='-'; }	if ($clickers!~/\w/) { $clickers='-'; }
$r->print('<td>'.$clickers.'</td>');	$r->print('<td>'.$clickers.'</td>');
} else {
$r->print(' <td> </td> ');
}
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
if ($displayphotos eq 'on' && $role eq 'st' && $in{'photo'} ne '') {
$r->print(' <td align="right"><a href="javascript:photowindow('."'".$in{'photo'}."'".')"><img src="'.$in{'thumbnail'}.'" border="1"></a></td>');
} else {	} else {
$r->print(' <td> </td> ');	$r->print('<td> </td>'."\n");
}	}
}	}
	} else {
	$r->print('<td>'.$in{$item}.'</td>'."\n");
}	}
}	}
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
} elsif ($mode eq 'csv') {	} elsif ($mode eq 'csv') {
next if (! defined($CSVfile));	next if (! defined($CSVfile));
# no need to bother with $linkto	# no need to bother with $linkto
if (! defined($in{'start'}) \|\| $in{'start'} == 0) {
$in{'start'} = &mt('none');
} else {
$in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});
}
if (! defined($in{'end'}) \|\| $in{'end'} == 0) {
$in{'end'} = &mt('none');
} else {
$in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
}
my @line = ();	my @line = ();
foreach my $item (@cols) {	foreach my $item (@cols) {
push @line,&Apache::loncommon::csv_translate($in{$item});	push @line,&Apache::loncommon::csv_translate($in{$item});
Line 2546 END	Line 2937 END
my $col = 0;	my $col = 0;
foreach my $item (@cols) {	foreach my $item (@cols) {
if ($item eq 'start' \|\| $item eq 'end') {	if ($item eq 'start' \|\| $item eq 'end') {
if (defined($item) && $item != 0) {	if ((defined($in{$item})) && ($in{$item} != 0)) {
$excel_sheet->write($row,$col++,	$excel_sheet->write($row,$col++,
&Apache::lonstathelpers::calc_serial($in{item}),	&Apache::lonstathelpers::calc_serial($in{$item}),
$format->{'date'});	$format->{'date'});
} else {	} else {
$excel_sheet->write($row,$col++,'none');	$excel_sheet->write($row,$col++,'none');
Line 2564 END	Line 2955 END
$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();
$r->print('<p><a href="'.$excel_filename.'">'.	$r->print(&mt('[_1]Your Excel spreadsheet[_2] is ready for download.', '<p><a href="'.$excel_filename.'">','</a>')."</p>\n");
&mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");
} elsif ($mode eq 'csv') {	} elsif ($mode eq 'csv') {
close($CSVfile);	close($CSVfile);
$r->print('<p><a href="'.$CSVfilename.'">'.	$r->print(&mt('[_1]Your CSV file[_2] is ready for download.', '<p><a href="'.$CSVfilename.'">','</a>')."</p>\n");
&mt('Your CSV file').'</a> '.&mt('is ready for download').'.</p>'."\n");
$r->rflush();	$r->rflush();
}	}
if ($mode eq 'autoenroll') {	if ($mode eq 'autoenroll') {
Line 2705 sub print_username_link {	Line 3094 sub print_username_link {
$output = $in->{'username'};	$output = $in->{'username'};
} else {	} else {
$output = '<a href="javascript:username_display_launch('.	$output = '<a href="javascript:username_display_launch('.
"'$in->{'username'}','$in->{'domain'}'".')" />'.	"'$in->{'username'}','$in->{'domain'}'".')">'.
$in->{'username'}.'</a>';	$in->{'username'}.'</a>';
}	}
return $output;	return $output;
Line 2716 sub role_type_names {	Line 3105 sub role_type_names {
'domain' => 'Domain Roles',	'domain' => 'Domain Roles',
'author' => 'Co-Author Roles',	'author' => 'Co-Author Roles',
'course' => 'Course Roles',	'course' => 'Course Roles',
	'community' => 'Community Roles',
);	);
return %lt;	return %lt;
}	}
Line 2737 sub select_actions {	Line 3127 sub select_actions {
}	}
if ($context eq 'course') {	if ($context eq 'course') {
if ($env{'form.showrole'} ne 'Any') {	if ($env{'form.showrole'} ne 'Any') {
if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},	my $showactions;
$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('c'.$env{'form.showrole'},
if ($env{'request.course.sec'} eq '') {	$env{'request.course.id'})) {
return;	$showactions = 1;
} else {	} elsif ($env{'request.course.sec'} ne '') {
if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {	if (&Apache::lonnet::allowed('c'.$env{'form.showrole'},$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
return;	$showactions = 1;
}	}
}	}
	unless ($showactions) {
	unless (&is_courseowner($env{'request.course.id'},
	$env{'course.'.$env{'request.course.id'}.'.internal.courseowner'})) {
	return;
	}
}	}
}	}
}	}
Line 2805 sub select_actions {	Line 3200 sub select_actions {
}	}
}	}
if ($choices{'sections'}) {	if ($choices{'sections'}) {
$output .= '<input type="hidden" name="retainsec" value= "" />'."\n".	$output .= '<input type="hidden" name="retainsec" value="" />'."\n".
'<input type="hidden" name="newsecs" value= "" />'."\n";	'<input type="hidden" name="newsecs" value="" />'."\n";
}	}
}	}
return $output;	return $output;
Line 2820 sub date_section_javascript {	Line 3215 sub date_section_javascript {
delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'",	delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'",
none => "Choose an action to take for selected users",	none => "Choose an action to take for selected users",
);	);
my $output = '	my $output = <<"ENDONE";
<script type="text/javascript">'."\n";	<script type="text/javascript">
$output .= <<"ENDONE";	// <![CDATA[
function opendatebrowser(callingform,formname,calledby) {	function opendatebrowser(callingform,formname,calledby) {
var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;	var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;
var url = '/adm/createuser?';	var url = '/adm/createuser?';
Line 2845 ENDONE	Line 3240 ENDONE
stdeditbrowser = open(url,title,options,'1');	stdeditbrowser = open(url,title,options,'1');
stdeditbrowser.focus();	stdeditbrowser.focus();
}	}
	// ]]>
</script>	</script>
ENDTWO	ENDTWO
return $output;	return $output;
}	}

sub date_section_selector {	sub date_section_selector {
my ($context,$permission) = @_;	my ($context,$permission,$crstype) = @_;
my $callingform = $env{'form.callingform'};	my $callingform = $env{'form.callingform'};
my $formname = 'dateselect';	my $formname = 'dateselect';
my $groupslist = &get_groupslist();	my $groupslist = &get_groupslist();
my $sec_js = &setsections_javascript($formname,$groupslist);	my $sec_js = &setsections_javascript($formname,$groupslist);
my $output = <<"END";	my $output = <<"END";
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[

$sec_js	$sec_js

Line 2875 END	Line 3272 END
} else {	} else {
opener.document.$callingform.retainsec.value = formname.retainsec.value;	opener.document.$callingform.retainsec.value = formname.retainsec.value;
}	}
setSections(formname);	setSections(formname,'$crstype');
if (seccheck == 'ok') {	if (seccheck == 'ok') {
opener.document.$callingform.newsecs.value = formname.sections.value;	opener.document.$callingform.newsecs.value = formname.sections.value;
}	}
Line 2926 END	Line 3323 END

$verify_action_js	$verify_action_js

	// ]]>
</script>	</script>
ENDJS	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',
fors => 'For student roles changing the section, will result in a section switch as students may only be in one section of a course at a time.',	fors => 'For student roles, changing the section will result in a section switch as students may only be in one section of a course at a time.',
forn => 'For a role in a course that is not a student role, a user may have roles in more than one section of a course at a time.',	forn => 'For a course role that is not "student", users may have roles in more than one section at a time.',
reta => "Retain each user's current section affiliations?",	reta => "Retain each user's current section affiliations?",
dnap => '(Does not apply to student roles).',	dnap => '(Does not apply to student roles).',
);	);
my ($date_items,$headertext);	my ($date_items,$headertext);
if ($env{'form.bulkaction'} eq 'chgsec') {	if ($env{'form.bulkaction'} eq 'chgsec') {
Line 2948 ENDJS	Line 3346 ENDJS
}	}
$date_items = &date_setting_table($starttime,undef,$context,	$date_items = &date_setting_table($starttime,undef,$context,
$env{'form.bulkaction'},$formname,	$env{'form.bulkaction'},$formname,
$permission);	$permission,$crstype);
}	}
$output .= '<h3>'.$headertext.'</h3>'.	$output .= '<h3>'.$headertext.'</h3>'.
'<form name="'.$formname.'" method="post">'."\n".	'<form name="'.$formname.'" method="post" action="">'."\n".
$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();
	if ($crstype eq 'Community') {
	$lt{'fors'} = &mt('For member roles, changing the section will result in a section switch, as members may only be in one section of a community at a time.');
	$lt{'forn'} = &mt('For a community role that is not "member", users may have roles in more than one section at a time.');
	$lt{'dnap'} = &mt('(Does not apply to member roles).');
	}
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>';
Line 2980 ENDJS	Line 3383 ENDJS
$info = '<input type="hidden" name="retainsec" value="0" />';	$info = '<input type="hidden" name="retainsec" value="0" />';
}	}
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,'',$crstype);
$output .= $info.$secbox;	$output .= $info.$secbox;
}	}
$output .= '<p>'.	$output .= '<p>'.
'<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;
}	}

sub section_picker {	sub section_picker {
my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode) = @_;	my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode,$crstype) = @_;
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);	my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
my $sections_select .= &course_sections(\%sections_count,$role);	my $sections_select .= &course_sections(\%sections_count,$role);
my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n";	my $secbox = '<div>'.&Apache::lonhtmlcommon::start_pick_box()."\n";
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,$crstype);
$secbox .= &Apache::lonhtmlcommon::row_title(&mt('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";
}	}
Line 3006 sub section_picker {	Line 3409 sub section_picker {
'<td align="center">'.&mt('Existing sections')."\n".	'<td align="center">'.&mt('Existing sections')."\n".
'<br />'.$sections_select.'</td><td align="center">'.	'<br />'.$sections_select.'</td><td align="center">'.
&mt('New section').'<br />'."\n".	&mt('New section').'<br />'."\n".
'<input type="text" name="newsec" size="15" />'."\n".	'<input type="text" name="newsec" size="15" value="" />'."\n".
'<input type="hidden" name="sections" value="" />'."\n".	'<input type="hidden" name="sections" value="" />'."\n".
'</td></tr></table>'."\n";	'</td></tr></table>'."\n";
} else {	} else {
Line 3015 sub section_picker {	Line 3418 sub section_picker {
$env{'request.course.sec'};	$env{'request.course.sec'};
}	}
$secbox .= &Apache::lonhtmlcommon::row_closure(1)."\n".	$secbox .= &Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::end_pick_box().'</p>';	&Apache::lonhtmlcommon::end_pick_box().'</div>';
return $secbox;	return $secbox;
}	}

sub results_header_row {	sub results_header_row {
my ($rolefilter,$statusmode,$context,$permission,$mode) = @_;	my ($rolefilter,$statusmode,$context,$permission,$mode,$crstype) = @_;
my ($description,$showfilter);	my ($description,$showfilter);
if ($rolefilter ne 'Any') {	if ($rolefilter ne 'Any') {
$showfilter = $rolefilter;	$showfilter = $rolefilter;
}	}
if ($context eq 'course') {	if ($context eq 'course') {
if ($mode eq 'csv' \|\| $mode eq 'excel') {	if ($mode eq 'csv' \|\| $mode eq 'excel') {
$description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': ';	if ($crstype eq 'Community') {
	$description = &mt('Community - [_1]:',$env{'course.'.$env{'request.course.id'}.'.description'}).' ';
	} else {
	$description = &mt('Course - [_1]:',$env{'course.'.$env{'request.course.id'}.'.description'}).' ';
	}
}	}
if ($statusmode eq 'Expired') {	if ($statusmode eq 'Expired') {
$description .= &mt('Users in course with expired [_1] roles',$showfilter);	if ($crstype eq 'Community') {
	$description .= &mt('Users in community with expired [_1] roles',$showfilter);
	} else {
	$description .= &mt('Users in course with expired [_1] roles',$showfilter);
	}
} elsif ($statusmode eq 'Future') {	} elsif ($statusmode eq 'Future') {
$description .= &mt('Users in course with future [_1] roles',$showfilter);	if ($crstype eq 'Community') {
	$description .= &mt('Users in community with future [_1] roles',$showfilter);
	} else {
	$description .= &mt('Users in course with future [_1] roles',$showfilter);
	}
} elsif ($statusmode eq 'Active') {	} elsif ($statusmode eq 'Active') {
$description .= &mt('Users in course with active [_1] roles',$showfilter);	if ($crstype eq 'Community') {
	$description .= &mt('Users in community with active [_1] roles',$showfilter);
	} else {
	$description .= &mt('Users in course with active [_1] roles',$showfilter);
	}
} else {	} else {
if ($rolefilter eq 'Any') {	if ($rolefilter eq 'Any') {
$description .= &mt('All users in course');	if ($crstype eq 'Community') {
	$description .= &mt('All users in community');
	} else {
	$description .= &mt('All users in course');
	}
} else {	} else {
$description .= &mt('All users in course with [_1] roles',$rolefilter);	if ($crstype eq 'Community') {
	$description .= &mt('All users in community with [_1] roles',$rolefilter);
	} else {
	$description .= &mt('All users in course with [_1] roles',$rolefilter);
	}
}	}
}	}
my $constraint;	my $constraint;
Line 3047 sub results_header_row {	Line 3474 sub results_header_row {
if ($viewablesec ne '') {	if ($viewablesec ne '') {
if ($env{'form.showrole'} eq 'st') {	if ($env{'form.showrole'} eq 'st') {
$constraint = &mt('only users in section "[_1]"',$viewablesec);	$constraint = &mt('only users in section "[_1]"',$viewablesec);
} elsif ($env{'form.showrole'} ne 'cc') {	} elsif (($env{'form.showrole'} ne 'cc') && ($env{'form.showrole'} ne 'co')) {
$constraint = &mt('only users affiliated with no section or section "[_1]"',$viewablesec);	$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'} ne 'all') && ($env{'form.grpfilter'} ne '')) {
Line 3086 sub results_header_row {	Line 3513 sub results_header_row {
}	}
} 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 [_1]'
&Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})).':  ';	,'<span class="LC_cusr_emph">'
	.&Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})
	.'</span>')
	.':  ';
if ($statusmode eq 'Expired') {	if ($statusmode eq 'Expired') {
$description .= &mt('Co-authors with expired [_1] roles',$showfilter);	$description .= &mt('Co-authors with expired [_1] roles',$showfilter);
} elsif ($statusmode eq 'Future') {	} elsif ($statusmode eq 'Future') {
Line 3103 sub results_header_row {	Line 3533 sub results_header_row {
}	}
} elsif ($context eq 'domain') {	} elsif ($context eq 'domain') {
my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');	my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');
$description = &mt('Domain - ').$domdesc.': ';	$description = &mt('Domain - [_1]:',$domdesc).' ';
if ($env{'form.roletype'} eq 'domain') {	if ($env{'form.roletype'} eq 'domain') {
if ($statusmode eq 'Expired') {	if ($statusmode eq 'Expired') {
$description .= &mt('Users in domain with expired [_1] roles',$showfilter);	$description .= &mt('Users in domain with expired [_1] roles',$showfilter);
Line 3129 sub results_header_row {	Line 3559 sub results_header_row {
if ($rolefilter eq 'Any') {	if ($rolefilter eq 'Any') {
$description .= &mt('All users with co-author roles in domain',$showfilter);	$description .= &mt('All users with co-author roles in domain',$showfilter);
} else {	} else {
$description .= &mt('All co-authors in domain with [_1] roles',$rolefilter);	$description .= &mt('All co-authors in domain with [_1] roles',$rolefilter);
}	}
}	}
} elsif ($env{'form.roletype'} eq 'course') {	} elsif (($env{'form.roletype'} eq 'course') \|\|
	($env{'form.roletype'} eq 'community')) {
my $coursefilter = $env{'form.coursepick'};	my $coursefilter = $env{'form.coursepick'};
if ($coursefilter eq 'category') {	if ($env{'form.roletype'} eq 'course') {
my $instcode = &instcode_from_coursefilter();	if ($coursefilter eq 'category') {
if ($instcode eq '.') {	my $instcode = &instcode_from_coursefilter();
	if ($instcode eq '.') {
	$description .= &mt('All courses in domain').' - ';
	} else {
	$description .= &mt('Courses in domain with institutional code: [_1]',$instcode).' - ';
	}
	} elsif ($coursefilter eq 'selected') {
	$description .= &mt('Selected courses in domain').' - ';
	} elsif ($coursefilter eq 'all') {
$description .= &mt('All courses in domain').' - ';	$description .= &mt('All courses in domain').' - ';
} else {
$description .= &mt('Courses in domain with institutional code: [_1]',$instcode).' - ';
}	}
} elsif ($coursefilter eq 'selected') {	} elsif ($env{'form.roletype'} eq 'community') {
$description .= &mt('Selected courses in domain').' - ';	if ($coursefilter eq 'selected') {
} elsif ($coursefilter eq 'all') {	$description .= &mt('Selected communities in domain').' - ';
$description .= &mt('All courses in domain').' - ';	} elsif ($coursefilter eq 'all') {
	$description .= &mt('All communities in domain').' - ';
	}
}	}
if ($statusmode eq 'Expired') {	if ($statusmode eq 'Expired') {
$description .= &mt('users with expired [_1] roles',$showfilter);	$description .= &mt('users with expired [_1] roles',$showfilter);
Line 3181 sub viewable_section {	Line 3620 sub viewable_section {
#################################################	#################################################
#################################################	#################################################
sub show_drop_list {	sub show_drop_list {
my ($r,$classlist,$nosort,$permission) = @_;	my ($r,$classlist,$nosort,$permission,$crstype) = @_;
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'})) {
Line 3199 sub show_drop_list {	Line 3638 sub show_drop_list {
<input type="hidden" name="action" value="$action" />	<input type="hidden" name="action" value="$action" />
<input type="hidden" name="state" value="done" />	<input type="hidden" name="state" value="done" />
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
	// <![CDATA[
$check_uncheck_js	$check_uncheck_js
	// ]]>
</script>	</script>
<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 ($indexhash,$keylist) = &make_keylist_array();
my $studentcount = 0;	my $studentcount = 0;
Line 3225 END	Line 3666 END
}	}
}	}
if (!$studentcount) {	if (!$studentcount) {
$r->print(&mt('There are no students to drop.'));	if ($crstype eq 'Community') {
	$r->print(&mt('There are no members to drop.'));
	} else {
	$r->print(&mt('There are no students to drop.'));
	}
return;	return;
}	}
my ($classgroups) = &Apache::loncoursedata::get_group_memberships(	my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
Line 3233 END	Line 3678 END
my %lt=&Apache::lonlocal::texthash('usrn' => "username",	my %lt=&Apache::lonlocal::texthash('usrn' => "username",
'dom' => "domain",	'dom' => "domain",
'sn' => "student name",	'sn' => "student name",
	'mn' => "member name",
'sec' => "section",	'sec' => "section",
'start' => "start date",	'start' => "start date",
'end' => "end date",	'end' => "end date",
'groups' => "active groups",	'groups' => "active groups",
);	);
	my $nametitle = $lt{'sn'};
	if ($crstype eq 'Community') {
	$nametitle = $lt{'mn'};
	}
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 3246 END	Line 3696 END
<th>$lt{'usrn'}</th>	<th>$lt{'usrn'}</th>
<th>$lt{'dom'}</th>	<th>$lt{'dom'}</th>
<th>ID</th>	<th>ID</th>
<th>$lt{'sn'}</th>	<th>$nametitle</th>
<th>$lt{'sec'}</th>	<th>$lt{'sec'}</th>
<th>$lt{'start'}</th>	<th>$lt{'start'}</th>
<th>$lt{'end'}</th>	<th>$lt{'end'}</th>
Line 3265 END	Line 3715 END
</th><th>	</th><th>
<a href="/adm/createuser?action=$action&sortby=id">ID</a>	<a href="/adm/createuser?action=$action&sortby=id">ID</a>
</th><th>	</th><th>
<a href="/adm/createuser?action=$action&sortby=fullname">$lt{'sn'}</a>	<a href="/adm/createuser?action=$action&sortby=fullname">$nametitle</a>
</th><th>	</th><th>
<a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a>	<a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a>
</th><th>	</th><th>
Line 3320 END	Line 3770 END
#	#
$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="$studentkey"></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>
Line 3335 END	Line 3785 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' => "Drop Students",	'dp' => "Drop Students",
	'dm' => "Drop Members",
'ca' => "check all",	'ca' => "check all",
'ua' => "uncheck all",	'ua' => "uncheck all",
);	);
	my $btn = $lt{'dp'};
	if ($crstype eq 'Community') {
	$btn = $lt{'dm'};
	}
$r->print(<<"END");	$r->print(<<"END");
</p><p>	</p>
<input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.droplist)">	<p>
<input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.droplist)">	<input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.droplist)" />
<p><input type=submit value="$lt{'dp'}"></p>	<input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.droplist)" />
	</p>
	<p>
	<input type="submit" value="$btn" />
	</p>
END	END
return;	return;
}	}
Line 3353 END	Line 3812 END
sub print_first_users_upload_form {	sub print_first_users_upload_form {
my ($r,$context) = @_;	my ($r,$context) = @_;
my $str;	my $str;
$str = '<input type="hidden" name="phase" value="two">';	$str = '<input type="hidden" name="phase" value="two" />';
$str .= '<input type="hidden" name="action" value="upload" />';	$str .= '<input type="hidden" name="action" value="upload" />';
$str .= '<input type="hidden" name="state" value="got_file" />';	$str .= '<input type="hidden" name="state" value="got_file" />';
$str .= "<h3>".&mt('Upload a file containing information about users')."</h3>\n";
$str .= &Apache::loncommon::upfile_select_html();	$str .= '<h2>'.&mt('Upload a file containing information about users').'</h2>'."\n";
$str .= "<p>\n";
$str .= '<input type="submit" name="fileupload" value="'.	# Excel and CSV Help
&mt('Upload file of users').'">'."\n";	$str .= '<div class="LC_left_float">'
$str .= '<label><input type="checkbox" name="noFirstLine" /> '.	.&Apache::loncommon::help_open_topic("Course_Create_Class_List",
&mt('Ignore First Line')."</label></p>\n";	&mt("How do I create a users list from a spreadsheet"))
$str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",	.'</div><div class="LC_left_float">'."\n"
&mt("How do I create a users list from a spreadsheet")).	.&Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
"<br />\n";	&mt("How do I create a CSV file from a spreadsheet"))
$str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",	.'</div><br clear="all" />'."\n";
&mt("How do I create a CSV file from a spreadsheet")).	$str .= &Apache::lonhtmlcommon::start_pick_box()
"<br />\n";	.&Apache::lonhtmlcommon::row_title(&mt('File'));
$str .= &Apache::loncommon::end_page();	if (&Apache::lonlocal::current_language() ne 'en') {
	if ($context eq 'course') {
	$str .= '<p class="LC_info">'."\n"
	.&mt('Please upload an UTF8 encoded file to ensure a correct character encoding in your classlist.')."\n"
	.'</p>'."\n";
	}
	}
	$str .= &Apache::loncommon::upfile_select_html()
	.&Apache::lonhtmlcommon::row_closure()
	.&Apache::lonhtmlcommon::row_title(
	'<label for="noFirstLine">'
	.&mt('Ignore First Line')
	.'</label>')
	.'<input type="checkbox" name="noFirstLine" id="noFirstLine" />'
	.&Apache::lonhtmlcommon::row_closure(1)
	.&Apache::lonhtmlcommon::end_pick_box();

	$str .= '<p>'
	.'<input type="submit" name="fileupload" value="'.&mt('Next').'" />'
	.'</p>';

$r->print($str);	$r->print($str);
return;	return;
}	}
Line 3413 sub upfile_drop_add {	Line 3892 sub upfile_drop_add {
'ipwd_choice' => 'scalar',	'ipwd_choice' => 'scalar',
'email_choice' => 'scalar',	'email_choice' => 'scalar',
'role_choice' => 'scalar',	'role_choice' => 'scalar',
'domain_choice' => 'scalar'});	'domain_choice' => 'scalar',
	'inststatus_choice' => 'scalar'});
#	#
	my ($cid,$crstype,$setting);
	if ($context eq 'domain') {
	$setting = $env{'form.roleaction'};
	}
	if ($env{'request.course.id'} ne '') {
	$cid = $env{'request.course.id'};
	$crstype = &Apache::loncommon::course_type();
	} elsif ($setting eq 'course') {
	if (&Apache::lonnet::is_course($env{'form.dcdomain'},$env{'form.dccourse'})) {
	$cid = $env{'form.dcdomain'}.'_'.$env{'form.dccourse'};
	$crstype = &Apache::loncommon::course_type($cid);
	}
	}
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,$context));	$r->print(&make_dates_default($startdate,$enddate,$context,$crstype));
}	}
# Determine domain and desired host (home server)	# Determine domain and desired host (home server)
my $defdom=$env{'request.role.domain'};	my $defdom=$env{'request.role.domain'};
Line 3469 sub upfile_drop_add {	Line 3962 sub upfile_drop_add {
$amode = ''; # This causes the loop below to be skipped	$amode = ''; # This causes the loop below to be skipped
}	}
}	}
my ($cid,$defaultsec,$defaultrole,$setting);	my ($defaultsec,$defaultrole);
if ($context eq 'domain') {	if ($context eq 'domain') {
$setting = $env{'form.roleaction'};
if ($setting eq 'domain') {	if ($setting eq 'domain') {
$defaultrole = $env{'form.defaultrole'};	$defaultrole = $env{'form.defaultrole'};
} elsif ($setting eq 'course') {	} elsif ($setting eq 'course') {
Line 3484 sub upfile_drop_add {	Line 3976 sub upfile_drop_add {
$defaultrole = $env{'form.defaultrole'};	$defaultrole = $env{'form.defaultrole'};
$defaultsec = $env{'form.sections'};	$defaultsec = $env{'form.sections'};
}	}
if ($env{'request.course.id'} ne '') {
$cid = $env{'request.course.id'};
} elsif ($setting eq 'course') {
if (&Apache::lonnet::is_course($env{'form.dcdomain'},$env{'form.dccourse'})) {
$cid = $env{'form.dcdomain'}.'_'.$env{'form.dccourse'};
}
}
# Check to see if user information can be changed	# Check to see if user information can be changed
my @userinfo = ('firstname','middlename','lastname','generation',	my @userinfo = ('firstname','middlename','lastname','generation',
'permanentemail','id');	'permanentemail','id');
my %canmodify;	my %canmodify;
if (&Apache::lonnet::allowed('mau',$domain)) {	if (&Apache::lonnet::allowed('mau',$domain)) {
	push(@userinfo,'inststatus');
foreach my $field (@userinfo) {	foreach my $field (@userinfo) {
$canmodify{$field} = 1;	$canmodify{$field} = 1;
}	}
}	}
my (%userlist,%modifiable_fields,@poss_roles);	my (%userlist,%modifiable_fields,@poss_roles);
my $secidx = &Apache::loncoursedata::CL_SECTION();	my $secidx = &Apache::loncoursedata::CL_SECTION();
my @courseroles = &roles_by_context('course',1);	my @courseroles = &roles_by_context('course',1,$crstype);
if (!&Apache::lonnet::allowed('mau',$domain)) {	if (!&Apache::lonnet::allowed('mau',$domain)) {
if ($context eq 'course' \|\| $context eq 'author') {	if ($context eq 'course' \|\| $context eq 'author') {
@poss_roles = &curr_role_permissions($context);	@poss_roles = &curr_role_permissions($context,'','',$crstype);
my @statuses = ('active','future');	my @statuses = ('active','future');
my ($indexhash,$keylist) = &make_keylist_array();	my ($indexhash,$keylist) = &make_keylist_array();
my %info;	my %info;
Line 3544 sub upfile_drop_add {	Line 4030 sub upfile_drop_add {
} else {	} else {
$r->print('<h3>'.&mt('Adding/Modifying Users')."</h3>\n<p>\n");	$r->print('<h3>'.&mt('Adding/Modifying Users')."</h3>\n<p>\n");
}	}
	$r->rflush;

my %counts = (	my %counts = (
user => 0,	user => 0,
auth => 0,	auth => 0,
Line 3588 sub upfile_drop_add {	Line 4076 sub upfile_drop_add {
$r->print($groupwarn.'<br />');	$r->print($groupwarn.'<br />');
}	}
}	}
my (%curr_rules,%got_rules,%alerts);	my (%curr_rules,%got_rules,%alerts,%cancreate);
my %customroles = &my_custom_roles();	my %customroles = &my_custom_roles($crstype);
my @permitted_roles = &roles_on_upload($context,$setting,%customroles);	my @permitted_roles =
	&roles_on_upload($context,$setting,$crstype,%customroles);
	my %longtypes = &Apache::lonlocal::texthash(
	official => 'Institutional',
	unofficial => 'Non-institutional',
	);
	my $newuserdom = $env{'request.role.domain'};
	map { $cancreate{$_} = &can_create_user($newuserdom,$context,$_); } keys(%longtypes);
# Get new users list	# Get new users list
foreach my $line (@userdata) {	foreach my $line (@userdata) {
my @secs;	my @secs;
my %entries=&Apache::loncommon::record_sep($line);	my %entries=&Apache::loncommon::record_sep($line);
# Determine user name	# Determine user name
	$entries{$fields{'username'}} =~ s/^\s+\|\s+$//g;
unless (($entries{$fields{'username'}} eq '') \|\|	unless (($entries{$fields{'username'}} eq '') \|\|
(!defined($entries{$fields{'username'}}))) {	(!defined($entries{$fields{'username'}}))) {
my ($fname, $mname, $lname,$gen) = ('','','','');	my ($fname, $mname, $lname,$gen) = ('','','','');
Line 3616 sub upfile_drop_add {	Line 4112 sub upfile_drop_add {
$gen=$entries{$fields{'gen'}};	$gen=$entries{$fields{'gen'}};
}	}
}	}

if ($entries{$fields{'username'}}	if ($entries{$fields{'username'}}
ne &LONCAPA::clean_username($entries{$fields{'username'}})) {	ne &LONCAPA::clean_username($entries{$fields{'username'}})) {
	my $nowhitespace;
	if ($entries{$fields{'username'}} =~ /\s/) {
	$nowhitespace = ' - '.&mt('usernames may not contain spaces.');
	}
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',	&mt('[_1]: Unacceptable username for user [_2] [_3] [_4] [_5]',
$entries{$fields{'username'}},$fname,$mname,$lname,$gen).	'<b>'.$entries{$fields{'username'}}.'</b>',$fname,$mname,$lname,$gen).
'</b>');	$nowhitespace);
next;	next;
} else {	} else {
if ($entries{$fields{'dom'}}	$entries{$fields{'domain'}} =~ s/^\s+\|\s+$//g;
	if ($entries{$fields{'domain'}}
ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {	ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
$r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.	$r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.
'</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen).'</b>');	'</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen));
next;	next;
}	}
my $username = $entries{$fields{'username'}};	my $username = $entries{$fields{'username'}};
Line 3640 sub upfile_drop_add {	Line 4142 sub upfile_drop_add {
$entries{$fields{'sec'}} =~ s/\W//g;	$entries{$fields{'sec'}} =~ s/\W//g;
my $item = $entries{$fields{'sec'}};	my $item = $entries{$fields{'sec'}};
if ($item eq "none" \|\| $item eq 'all') {	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));	$r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a reserved word.','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$item));
next;	next;
} elsif (exists($curr_groups{$item})) {	} 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.'));	$r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a course group.','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$item).' '.&mt('Section names and group names must be distinct.'));
next;	next;
} else {	} else {
push(@secs,$item);	push(@secs,$item);
Line 3655 sub upfile_drop_add {	Line 4157 sub upfile_drop_add {
if (ref($userlist{$username.':'.$userdomain}) eq 'ARRAY') {	if (ref($userlist{$username.':'.$userdomain}) eq 'ARRAY') {
my $currsec = $userlist{$username.':'.$userdomain}[$secidx];	my $currsec = $userlist{$username.':'.$userdomain}[$secidx];
if ($currsec ne $env{'request.course.sec'}) {	if ($currsec ne $env{'request.course.sec'}) {
$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 />');	$r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]".','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$secs[0]).'<br />');
if ($currsec eq '') {	if ($currsec eq '') {
$r->print(&mt('This user already has an active/future student role in the course, unaffiliated to any section.'));	$r->print(&mt('This user already has an active/future student role in the course, unaffiliated to any section.'));

Line 3682 sub upfile_drop_add {	Line 4184 sub upfile_drop_add {
# determine email address	# determine email address
my $email='';	my $email='';
if (defined($fields{'email'})) {	if (defined($fields{'email'})) {
	$entries{$fields{'email'}} =~ s/^\s+\|\s+$//g;
if (defined($entries{$fields{'email'}})) {	if (defined($entries{$fields{'email'}})) {
$email=$entries{$fields{'email'}};	$email=$entries{$fields{'email'}};
unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; } }	unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; }
	}
	}
	# determine affiliation
	my $inststatus='';
	if (defined($fields{'inststatus'})) {
	if (defined($entries{$fields{'inststatus'}})) {
	$inststatus=$entries{$fields{'inststatus'}};
	}
}	}
# determine user password	# determine user password
my $password = $genpwd;	my $password = $genpwd;
Line 3705 sub upfile_drop_add {	Line 4216 sub upfile_drop_add {
}	}
if ($role eq '') {	if ($role eq '') {
my $rolestr = join(', ',@permitted_roles);	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('[_1]: You do not have permission to add the requested role [_2] for the user.'
	,'<b>'.$entries{$fields{'username'}}.'</b>'
	,$entries{$fields{'role'}})
	.'<br />'
	.&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n"
	);
next;	next;
}	}
}	}
Line 3715 sub upfile_drop_add {	Line 4231 sub upfile_drop_add {
$role = $defaultrole;	$role = $defaultrole;
}	}
# Clean up whitespace	# Clean up whitespace
foreach (\$id,\$fname,\$mname,\$lname,\$gen) {	foreach (\$id,\$fname,\$mname,\$lname,\$gen,\$inststatus) {
$$_ =~ s/(\s+$\|^\s+)//g;	$$_ =~ s/(\s+$\|^\s+)//g;
}	}
# check against rules	# check against rules
Line 3724 sub upfile_drop_add {	Line 4240 sub upfile_drop_add {
my (%rulematch,%inst_results,%idinst_results);	my (%rulematch,%inst_results,%idinst_results);
my $uhome=&Apache::lonnet::homeserver($username,$userdomain);	my $uhome=&Apache::lonnet::homeserver($username,$userdomain);
if ($uhome eq 'no_host') {	if ($uhome eq 'no_host') {
next if ($userdomain ne $domain);	if ($userdomain ne $newuserdom) {
	if ($context eq 'course') {
	$r->print('<br />'.
	&mt('[_1]: The domain specified ([_2]) is different to that of the course.',
	'<b>'.$username.'</b>',$userdomain).'<br />');
	} elsif ($context eq 'author') {
	$r->print(&mt('[_1]: The domain specified ([_2]) is different to that of the author.',
	'<b>'.$username.'</b>',$userdomain).'<br />');
	} else {
	$r->print(&mt('[_1]: The domain specified ([_2]) is different to that of your current role.',
	'<b>'.$username.'</b>',$userdomain).'<br />');
	}
	$r->print(&mt('The user does not already exist, and you may not create a new user in a different domain.'));
	next;
	}
$checkid = 1;	$checkid = 1;
$newuser = 1;	$newuser = 1;
	my $user = $username.':'.$newuserdom;
my $checkhash;	my $checkhash;
my $checks = { 'username' => 1 };	my $checks = { 'username' => 1 };
$checkhash->{$username.':'.$domain} = { 'newuser' => 1, };	$checkhash->{$username.':'.$newuserdom} = { 'newuser' => 1, };
&Apache::loncommon::user_rule_check($checkhash,$checks,	&Apache::loncommon::user_rule_check($checkhash,$checks,
\%alerts,\%rulematch,\%inst_results,\%curr_rules,	\%alerts,\%rulematch,\%inst_results,\%curr_rules,
\%got_rules);	\%got_rules);
if (ref($alerts{'username'}) eq 'HASH') {	if (ref($alerts{'username'}) eq 'HASH') {
if (ref($alerts{'username'}{$domain}) eq 'HASH') {	if (ref($alerts{'username'}{$newuserdom}) eq 'HASH') {
next if ($alerts{'username'}{$domain}{$username});	if ($alerts{'username'}{$newuserdom}{$username}) {
	$r->print('<br />'.
	&mt('[_1]: matches the username format at your institution, but is not known to your directory service.','<b>'.$username.'</b>').'<br />'.
	&mt('Consequently, the user was not created.'));
	next;
	}
}	}
}	}
	my $usertype = 'unofficial';
	if (ref($rulematch{$user}) eq 'HASH') {
	if ($rulematch{$user}{'username'}) {
	$usertype = 'official';
	}
	}
	unless ($cancreate{$usertype}) {
	my $showtype = $longtypes{$usertype};
	$r->print('<br />'.
	&mt('[_1]: The user does not exist, and you are not permitted to create users of type: [_2].','<b>'.$username.'</b>',$showtype));
	next;
	}
} else {	} else {
if ($context eq 'course' \|\| $context eq 'author') {	if ($context eq 'course' \|\| $context eq 'author') {
if ($userdomain eq $domain ) {	if ($userdomain eq $domain ) {
Line 3762 sub upfile_drop_add {	Line 4310 sub upfile_drop_add {
}	}
}	}
my @newinfo = (\$fname,\$mname,\$lname,\$gen,\$email,\$id);	my @newinfo = (\$fname,\$mname,\$lname,\$gen,\$email,\$id);
for (my $i=0; $i<@userinfo; $i++) {	for (my $i=0; $i<@newinfo; $i++) {
if (${$newinfo[$i]} ne '') {	if (${$newinfo[$i]} ne '') {
if (!$canmodify{$userinfo[$i]}) {	if (!$canmodify{$userinfo[$i]}) {
${$newinfo[$i]} = '';	${$newinfo[$i]} = '';
Line 3788 sub upfile_drop_add {	Line 4336 sub upfile_drop_add {
\%got_rules);	\%got_rules);
if (ref($alerts{'id'}) eq 'HASH') {	if (ref($alerts{'id'}) eq 'HASH') {
if (ref($alerts{'id'}{$userdomain}) eq 'HASH') {	if (ref($alerts{'id'}{$userdomain}) eq 'HASH') {
next if ($alerts{'id'}{$userdomain}{$id});	if ($alerts{'id'}{$userdomain}{$id}) {
	$r->print(&mt('[_1]: has a student/employee ID matching the format at your institution, but the ID is found by your directory service.',
	'<b>'.$username.'</b>').'<br />'.
	&mt('Consequently, the user was not created.'));
	next;
	}
}	}
}	}
}	}
Line 3811 sub upfile_drop_add {	Line 4364 sub upfile_drop_add {
$fname,$mname,$lname,$gen,$sec,$enddate,	$fname,$mname,$lname,$gen,$sec,$enddate,
$startdate,$env{'form.forceid'},	$startdate,$env{'form.forceid'},
$desiredhost,$email,'manual','',$cid,	$desiredhost,$email,'manual','',$cid,
'',$context);	'',$context,$inststatus);
$userresult = $roleresult;	$userresult = $roleresult;
} else {	} else {
if ($role ne '') {	if ($role ne '') {
Line 3820 sub upfile_drop_add {	Line 4373 sub upfile_drop_add {
$role = 'cr_'.$env{'user.domain'}.'_'.	$role = 'cr_'.$env{'user.domain'}.'_'.
$env{'user.name'}.'_'.$role;	$env{'user.name'}.'_'.$role;
}	}
if ($role ne 'cc') {	if (($role ne 'cc') && ($role ne 'co')) {
if (@secs > 1) {	if (@secs > 1) {
$multiple = 1;	$multiple = 1;
foreach my $sec (@secs) {	foreach my $sec (@secs) {
Line 3831 sub upfile_drop_add {	Line 4384 sub upfile_drop_add {
$mname,$lname,$gen,$sec,	$mname,$lname,$gen,$sec,
$env{'form.forceid'},$desiredhost,	$env{'form.forceid'},$desiredhost,
$email,$role,$enddate,	$email,$role,$enddate,
$startdate,$checkid);	$startdate,$checkid,$inststatus);
}	}
} elsif (@secs > 0) {	} elsif (@secs > 0) {
$singlesec = $secs[0];	$singlesec = $secs[0];
Line 3846 sub upfile_drop_add {	Line 4399 sub upfile_drop_add {
$id,$amode,$password,$fname,	$id,$amode,$password,$fname,
$mname,$lname,$gen,$singlesec,	$mname,$lname,$gen,$singlesec,
$env{'form.forceid'},$desiredhost,	$env{'form.forceid'},$desiredhost,
$email,$role,$enddate,$startdate,$checkid);	$email,$role,$enddate,$startdate,
	$checkid,$inststatus);
}	}
}	}
if ($multiple) {	if ($multiple) {
Line 3866 sub upfile_drop_add {	Line 4420 sub upfile_drop_add {
} else {	} else {
if ($context eq 'course') {	if ($context eq 'course') {
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: Unable to enroll. No password specified.',$username)	&mt('[_1]: Unable to enroll. No password specified.','<b>'.$username.'</b>')
);	);
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: Unable to add co-author. No password specified.',$username)	&mt('[_1]: Unable to add co-author. No password specified.','<b>'.$username.'</b>')
);	);
} else {	} else {
$r->print('<br />'.	$r->print('<br />'.
&mt('<b>[_1]</b>: Unable to add user. No password specified.',$username)	&mt('[_1]: Unable to add user. No password specified.','<b>'.$username.'</b>')
);	);
}	}
}	}
Line 3882 sub upfile_drop_add {	Line 4436 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();	$r->register_cleanup(\&Apache::lonnet::flushcourselogs);
$r->print("</p>\n<p>\n".&mt('Processed [quant,_1,user].',$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) {
Line 3977 sub user_change_result {	Line 4531 sub user_change_result {
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.':'.$userdomain,$error));	&mt('[_1]: Unable to add/modify: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
}	}
} else {	} else {
$counts->{'user'} ++;	$counts->{'user'} ++;
Line 3987 sub user_change_result {	Line 4541 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.':'.$userdomain,$error));	&mt('[_1]: Unable to modify authentication: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
}	}
} else {	} else {
$counts->{'auth'} ++;	$counts->{'auth'} ++;
Line 3997 sub user_change_result {	Line 4551 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.':'.$userdomain,$error));	&mt('[_1]: Unable to add role: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
}	}
} else {	} else {
$counts->{'role'} ++;	$counts->{'role'} ++;
Line 4020 sub user_change_result {	Line 4574 sub user_change_result {

# ========================================================= Menu Phase Two Drop	# ========================================================= Menu Phase Two Drop
sub print_drop_menu {	sub print_drop_menu {
my ($r,$context,$permission) = @_;	my ($r,$context,$permission,$crstype) = @_;
$r->print('<h3>'.&mt("Drop Students").'</h3>'."\n".	my $heading;
	if ($crstype eq 'Community') {
	$heading = &mt("Drop Members");
	} else {
	$heading = &mt("Drop Students");
	}
	$r->print('<h3>'.$heading.'</h3>'."\n".
'<form name="studentform" method="post">'."\n");	'<form name="studentform" method="post">'."\n");
my $classlist = &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.')."\n");	if ($crstype eq 'Community') {
	$r->print(&mt('There are no members currently enrolled.')."\n");
	} else {
	$r->print(&mt('There are no students currently enrolled.')."\n");
	}
} else {	} else {
&show_drop_list($r,$classlist,'nosort',$permission);	&show_drop_list($r,$classlist,'nosort',$permission,$crstype);
}	}
$r->print('</form>'. &Apache::loncommon::end_page());	$r->print('</form>'. &Apache::loncommon::end_page());
return;	return;
Line 4036 sub print_drop_menu {	Line 4600 sub print_drop_menu {
# ================================================================== Phase four	# ================================================================== Phase four

sub update_user_list {	sub update_user_list {
my ($r,$context,$setting,$choice) = @_;	my ($r,$context,$setting,$choice,$crstype) = @_;
my $now = time;	my $now = time;
my $count=0;	my $count=0;
	if ($context eq 'course') {
	$crstype = &Apache::loncommon::course_type();
	}
my @changelist;	my @changelist;
if ($choice eq 'drop') {	if ($choice eq 'drop') {
@changelist = &Apache::loncommon::get_env_multiple('form.droplist');	@changelist = &Apache::loncommon::get_env_multiple('form.droplist');
Line 4050 sub update_user_list {	Line 4617 sub update_user_list {
'reenable' => 'Re-enabled',	'reenable' => 'Re-enabled',
'activate' => 'Activated',	'activate' => 'Activated',
'chgdates' => 'Changed Access Dates for',	'chgdates' => 'Changed Access Dates for',
'chgsec' => 'Changed section for',	'chgsec' => 'Changed section(s) for',
'drop' => 'Dropped',	'drop' => 'Dropped',
},	},
error => {'revoke' => 'revoking',	error => {'revoke' => 'revoking',
Line 4067 sub update_user_list {	Line 4634 sub update_user_list {
($startdate,$enddate) = &get_dates_from_form();	($startdate,$enddate) = &get_dates_from_form();
}	}
foreach my $item (@changelist) {	foreach my $item (@changelist) {
my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,@sections,	my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,
$scopestem);	@sections,$scopestem,$singlesec,$showsecs,$warn_singlesec,
	$nothingtodo,$keepnosection);
if ($choice eq 'drop') {	if ($choice eq 'drop') {
($uname,$udom,$sec) = split(/:/,$item,-1);	($uname,$udom,$sec) = split(/:/,$item,-1);
$role = 'st';	$role = 'st';
Line 4109 sub update_user_list {	Line 4677 sub update_user_list {
}	}
}	}
}	}
my $plrole = &Apache::lonnet::plaintext($role);	my $plrole = &Apache::lonnet::plaintext($role,$crstype);
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 4166 sub update_user_list {	Line 4734 sub update_user_list {
}	}
} elsif ($choice eq 'chgsec') {	} elsif ($choice eq 'chgsec') {
my (@newsecs,$revresult,$nochg,@retained);	my (@newsecs,$revresult,$nochg,@retained);
if ($role ne 'cc') {	if (($role ne 'cc') && ($role ne 'co')) {
@newsecs = split(/,/,$env{'form.newsecs'});	my @secs = sort(split(/,/,$env{'form.newsecs'}));
	if (@secs) {
	my %curr_groups = &Apache::longroup::coursegroups();
	foreach my $sec (@secs) {
	next if (($sec =~ /\W/) \|\| ($sec eq 'none') \|\|
	(exists($curr_groups{$sec})));
	push(@newsecs,$sec);
	}
	}
}	}
# remove existing section if not to be retained.	# remove existing section if not to be retained.
if (!$env{'form.retainsec'}) {	if (!$env{'form.retainsec'} \|\| ($role eq 'st')) {
if ($sec eq '') {	if ($sec eq '') {
if (@newsecs == 0) {	if (@newsecs == 0) {
$result = &mt('No change in section assignment (none)');	$result = 'ok';
$nochg = 1;	$nochg = 1;
	$nothingtodo = 1;
} else {	} else {
$revresult =	$revresult =
&Apache::lonnet::revokerole($udom,$uname,	&Apache::lonnet::revokerole($udom,$uname,
Line 4201 sub update_user_list {	Line 4778 sub update_user_list {
} else {	} else {
if ($sec eq '') {	if ($sec eq '') {
$nochg = 1;	$nochg = 1;
} else {	$keepnosection = 1;
	} else {
push(@retained,$sec);	push(@retained,$sec);
}	}
}	}
# add new sections	# add new sections
	my (@diffs,@shownew);
	if (@retained) {
	@diffs = &Apache::loncommon::compare_arrays(\@retained,\@newsecs);
	} else {
	@diffs = @newsecs;
	}
if (@newsecs == 0) {	if (@newsecs == 0) {
if (!$nochg) {	if ($nochg) {
	$result = 'ok';
	$nothingtodo = 1;
	} else {
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,'',$context);
Line 4216 sub update_user_list {	Line 4803 sub update_user_list {
$result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start,'','',$context);	$result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start,'','',$context);
}	}
}	}
	$showsecs = &mt('No section');
	} elsif (@diffs == 0) {
	$result = 'ok';
	$nothingtodo = 1;
} 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,'',$context);	$result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid,'',$context);
	if (@newsecs > 1) {
	my $showsingle;
	if ($newsec eq '') {
	$showsingle = &mt('No section');
	} else {
	$showsingle = $newsec;
	}
	if ($crstype eq 'Community') {
	$warn_singlesec = &mt('Although more than one section was indicated, a role was only added for the first section - [_1], as each community member may only be in one section at a time.','<i>'.$showsingle.'</i>');
	} else {
	$warn_singlesec = &mt('Although more than one section was indicated, a role was only added for the first section - [_1], as each student may only be in one section of a course at a time.','<i>'.$showsingle.'</i>');
	}
	$showsecs = $showsingle;
	last;
	} else {
	if ($newsec eq '') {
	$showsecs = &mt('No section');
	} else {
	$showsecs = $newsec;
	}
	}
} else {	} else {
my $newscope = $scopestem;	my $newscope = $scopestem;
if ($newsec ne '') {	if ($newsec ne '') {
$newscope .= '/'.$newsec;	$newscope .= '/'.$newsec;
	push(@shownew,$newsec);
}	}
$result = &Apache::lonnet::assignrole($udom,$uname,	$result = &Apache::lonnet::assignrole($udom,$uname,
$newscope,$role,$end,$start);	$newscope,$role,$end,$start);

}	}
}	}
}	}
}	}
	unless ($role eq 'st') {
	unless ($showsecs) {
	my @tolist = sort(@shownew,@retained);
	if ($keepnosection) {
	push(@tolist,&mt('No section'));
	}
	$showsecs = join(', ',@tolist);
	}
	}
}	}
}	}
my $extent = $scope;	my $extent = $scope;
Line 4242 sub update_user_list {	Line 4865 sub update_user_list {
}	}
}	}
if ($result eq 'ok' \|\| $result eq 'ok:') {	if ($result eq 'ok' \|\| $result eq 'ok:') {
$r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]",	my $dates;
$plrole,$extent,$uname.':'.$udom).'<br />');	if (($choice eq 'chgsec') \|\| ($choice eq 'chgdates')) {
$count++;	$dates = &dates_feedback($start,$end,$now);
	}
	if ($choice eq 'chgsec') {
	if ($nothingtodo) {
	$r->print(&mt("Section assignment for role of '[_1]' in [_2] for '[_3]' unchanged.",$plrole,$extent,'<i>'.
	&Apache::loncommon::plainname($uname,$udom).
	'</i>').' ');
	if ($sec eq '') {
	$r->print(&mt('[_1]No section[_2] - [_3]','<b>','</b>',$dates));
	} else {
	$r->print(&mt('Section(s): [_1] - [_2]',
	'<b>'.$showsecs.'</b>',$dates));
	}
	$r->print('<br />');
	} else {
	$r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for '[_3]' to [_4] - [_5]",$plrole,$extent,
	'<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>',
	'<b>'.$showsecs.'</b>',$dates).'<br />');
	$count ++;
	}
	if ($warn_singlesec) {
	$r->print('<div class="LC_warning">'.$warn_singlesec.'</div>');
	}
	} elsif ($choice eq 'chgdates') {
	$r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for '[_3]' - [_4]",$plrole,$extent,
	'<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>',
	$dates).'<br />');
	$count ++;
	} else {
	$r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for '[_3]'.",$plrole,$extent,
	'<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>').
	'<br />');
	$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,
	'<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>',
	$result).'<br />');
}	}
}	}
$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n");	$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n");
Line 4264 sub update_user_list {	Line 4922 sub update_user_list {
}	}
}	}
}	}
$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>');	$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} for [quant,_1,user role,user roles,no user roles].",$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>');
}	}
# Flush the course logs so reverse user roles immediately updated	# Flush the course logs so reverse user roles immediately updated
&Apache::lonnet::flushcourselogs();	$r->register_cleanup(\&Apache::lonnet::flushcourselogs);
}	}
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,$context));	$r->print(&make_dates_default($startdate,$enddate,$context,$crstype));
}	}
}	}
my $linktext = &mt('Display User Lists');	my $linktext = &mt('Display User Lists');
Line 4284 sub update_user_list {	Line 4942 sub update_user_list {
$r->print('<a href="javascript:document.studentform.submit()">'.$linktext.'</a></form>'."\n");	$r->print('<a href="javascript:document.studentform.submit()">'.$linktext.'</a></form>'."\n");
}	}

	sub dates_feedback {
	my ($start,$end,$now) = @_;
	my $dates;
	if ($start < $now) {
	if ($end == 0) {
	$dates .= &mt('role(s) active now; no end date');
	} elsif ($end > $now) {
	$dates = &mt('role(s) active now; ends [_1].',&Apache::lonlocal::locallocaltime($end));
	} else {
	$dates = &mt('role(s) expired: [_1].',&Apache::lonlocal::locallocaltime($end));
	}
	} else {
	if ($end == 0 \|\| $end > $now) {
	$dates = &mt('future role(s); starts: [_1].',&Apache::lonlocal::locallocaltime($start));
	} else {
	$dates = &mt('role(s) expired: [_1].',&Apache::lonlocal::locallocaltime($end));
	}
	}
	return $dates;
	}

sub classlist_drop {	sub classlist_drop {
my ($scope,$uname,$udom,$now) = @_;	my ($scope,$uname,$udom,$now) = @_;
my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});	my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});
Line 4361 sub course_sections {	Line 5040 sub course_sections {
my $output = '';	my $output = '';
my @sections = (sort {$a <=> $b} keys %{$sections_count});	my @sections = (sort {$a <=> $b} keys %{$sections_count});
my $numsec = scalar(@sections);	my $numsec = scalar(@sections);
my $is_selected = ' selected="selected" ';	my $is_selected = ' selected="selected"';
if ($numsec <= 1) {	if ($numsec <= 1) {
$output = '<select name="currsec_'.$role.'" >'."\n".	$output = '<select name="currsec_'.$role.'" >'."\n".
' <option value="">'.&mt('Select').'</option>'."\n";	' <option value="">'.&mt('Select').'</option>'."\n";
Line 4421 sub get_groupslist {	Line 5100 sub get_groupslist {
}	}

sub setsections_javascript {	sub setsections_javascript {
my ($formname,$groupslist,$mode,$checkauth) = @_;	my ($formname,$groupslist,$mode,$checkauth,$crstype) = @_;
my ($checkincluded,$finish,$rolecode,$setsection_js);	my ($checkincluded,$finish,$rolecode,$setsection_js);
if ($mode eq 'upload') {	if ($mode eq 'upload') {
$checkincluded = 'formname.name == "'.$formname.'"';	$checkincluded = 'formname.name == "'.$formname.'"';
Line 4460 sub setsections_javascript {	Line 5139 sub setsections_javascript {
}	}
my %alerts = &Apache::lonlocal::texthash(	my %alerts = &Apache::lonlocal::texthash(
secd => 'Section designations do not apply to Course Coordinator roles.',	secd => 'Section designations do not apply to Course Coordinator roles.',
	sedn => 'Section designations do not apply to Coordinator roles.',
accr => 'A course coordinator role will be added with access to all sections.',	accr => 'A course coordinator role will be added with access to all sections.',
	acor => 'A coordinator role will be added with access to all sections',
inea => 'In each course, each user may only have one student role at a time.',	inea => 'In each course, each user may only have one student role at a time.',
	inco => 'In each community, each user may only have one member role at a time.',
youh => 'You had selected ',	youh => 'You had selected ',
secs => 'sections.',	secs => 'sections.',
plmo => 'Please modify your selections so they include no more than one section.',	plmo => 'Please modify your selections so they include no more than one section.',
Line 4469 sub setsections_javascript {	Line 5151 sub setsections_javascript {
plch => 'Please choose a different section name.',	plch => 'Please choose a different section name.',
mnot => 'may not be used as a section name, as it is the name of a course group.',	mnot => 'may not be used as a section name, as it is the name of a course group.',
secn => 'Section names and group names must be distinct. Please choose a different section name.',	secn => 'Section names and group names must be distinct. Please choose a different section name.',
	nonw => 'Section names may only contain letters or numbers.',
);	);
$setsection_js .= <<"ENDSECCODE";	$setsection_js .= <<"ENDSECCODE";

function setSections(formname) {	function setSections(formname,crstype) {
var re1 = /^currsec_/;	var re1 = /^currsec_/;
	var re2 =/\\W/;
	var trimleading = /^\\s+/;
	var trimtrailing = /\\s+\$/;
var groups = new Array($groupslist);	var groups = new Array($groupslist);
for (var i=0;i<formname.elements.length;i++) {	for (var i=0;i<formname.elements.length;i++) {
var str = formname.elements[i].name;	var str = formname.elements[i].name;
var checkcurr = str.match(re1);	var checkcurr = str.match(re1);
if (checkcurr != null) {	if (checkcurr != null) {
	var num = i;
if ($checkincluded) {	if ($checkincluded) {
$rolecode	$rolecode
if (role == 'cc') {	if (role == 'cc' \|\| role == 'co') {
alert("$alerts{'secd'}\\n$alerts{'accr'}");	if (role == 'cc') {
}	alert("$alerts{'secd'}\\n$alerts{'accr'}");
else {	} else {
	alert("$alerts{'sedn'}\\n$alerts{'acor'}");
	}
	} else {
var sections = '';	var sections = '';
var numsec = 0;	var numsec = 0;
var sections;	var fromexisting = new Array();
for (var j=0; j<formname.elements[i].length; j++) {	for (var j=0; j<formname.elements[num].length; j++) {
if (formname.elements[i].options[j].selected == true ) {	if (formname.elements[num].options[j].selected == true ) {
if (formname.elements[i].options[j].value != "") {	var addsec = formname.elements[num].options[j].value;
	if ((addsec != "") && (addsec != null)) {
	fromexisting.push(addsec);
if (numsec == 0) {	if (numsec == 0) {
if (formname.elements[i].options[j].value != "") {	sections = addsec;
sections = formname.elements[i].options[j].value;	} else {
numsec ++;	sections = sections + "," + addsec;
}
}
else {
sections = sections + "," + formname.elements[i].options[j].value
numsec ++;
}	}
	numsec ++;
}	}
}	}
}	}
if (numsec > 0) {	var newsecs = formname.elements[num+1].value;
if (formname.elements[i+1].value != "" && formname.elements[i+1].value != null) {	var validsecs = new Array();
sections = sections + "," + formname.elements[i+1].value;	var validsecstr = '';
}	var badsecs = new Array();
}
else {
sections = formname.elements[i+1].value;
}
var newsecs = formname.elements[i+1].value;
var numsplit;
if (newsecs != null && newsecs != "") {	if (newsecs != null && newsecs != "") {
numsplit = newsecs.split(/,/g);	var numsplit;
numsec = numsec + numsplit.length;	if (newsecs.indexOf(',') == -1) {
	numsplit = new Array(newsecs);
	} else {
	numsplit = newsecs.split(/,/g);
	}
	for (var m=0; m<numsplit.length; m++) {
	var newsec = numsplit[m];
	newsec = newsec.replace(trimleading,'');
	newsec = newsec.replace(trimtrailing,'');
	if (re2.test(newsec) == true) {
	badsecs.push(newsec);
	} else {
	if (newsec != '') {
	var isnew = 1;
	if (fromexisting != null) {
	for (var n=0; n<fromexisting.length; n++) {
	if (newsec == fromexisting[n]) {
	isnew = 0;
	}
	}
	}
	if (isnew == 1) {
	validsecs.push(newsec);
	}
	}
	}
	}
	if (badsecs.length > 0) {
	alert("$alerts{'nonw'}\\n$alerts{'plch'}");
	return;
	}
	numsec = numsec + validsecs.length;
}	}

if ((role == 'st') && (numsec > 1)) {	if ((role == 'st') && (numsec > 1)) {
alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}")	if (crstype == 'Community') {
	alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
	} else {
	alert("$alerts{'inco'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
	}
return;	return;
}	} else {
else {	if (validsecs != null) {
if (numsplit != null) {	for (var j=0; j<validsecs.length; j++) {
for (var j=0; j<numsplit.length; j++) {	if (validsecstr == '' \|\| validsecstr == null) {
if ((numsplit[j] == 'all') \|\|	validsecstr = validsecs[j];
(numsplit[j] == 'none')) {	} else {
alert("'"+numsplit[j]+"' $alerts{'mayn'}\\n$alerts{'plch'}");	validsecstr += ','+validsecs[j];
	}
	if ((validsecs[j] == 'all') \|\|
	(validsecs[j] == 'none')) {
	alert("'"+validsecs[j]+"' $alerts{'mayn'}\\n$alerts{'plch'}");
return;	return;
}	}
for (var k=0; k<groups.length; k++) {	for (var k=0; k<groups.length; k++) {
if (numsplit[j] == groups[k]) {	if (validsecs[j] == groups[k]) {
alert("'"+numsplit[j]+"' $alerts{'mnot'}\\n$alerts{'secn'}");	alert("'"+validsecs[j]+"' $alerts{'mnot'}\\n$alerts{'secn'}");
return;	return;
}	}
}	}
}	}
}	}
formname.elements[i+2].value = sections;
}	}
	if ((validsecstr != '') && (validsecstr != null)) {
	if ((sections == '') \|\| (sections == null)) {
	sections = validsecstr;
	} else {
	sections = sections + "," + validsecstr;
	}
	}
	formname.elements[num+2].value = sections;
}	}
}	}
}	}
Line 4560 sub can_create_user {	Line 5287 sub can_create_user {
}	}
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' \|\| $context eq 'requestcrs') {
my $creation = $domconf{'usercreation'}{'cancreate'}{$context};	my $creation = $domconf{'usercreation'}{'cancreate'}{$context};
if ($creation eq 'none') {	if ($creation eq 'none') {
$cancreate = 0;	$cancreate = 0;
Line 4637 sub can_modify_userinfo {	Line 5364 sub can_modify_userinfo {
}	}

sub check_usertype {	sub check_usertype {
my ($dom,$uname,$rules) = @_;	my ($dom,$uname,$rules,$curr_rules,$got_rules) = @_;
my $usertype;	my $usertype;
if (ref($rules) eq 'HASH') {	if ((ref($got_rules) eq 'HASH') && (ref($curr_rules) eq 'HASH')) {
my @user_rules = keys(%{$rules});	if (!$got_rules->{$dom}) {
if (@user_rules > 0) {	my %domconfig = &Apache::lonnet::get_dom('configuration',
my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules);	['usercreation'],$dom);
if (keys(%rule_check) > 0) {	if (ref($domconfig{'usercreation'}) eq 'HASH') {
$usertype = 'unofficial';	foreach my $item ('username','id') {
foreach my $item (keys(%rule_check)) {	if (ref($domconfig{'usercreation'}{$item.'_rule'}) eq 'ARRAY') {
if ($rule_check{$item}) {	$curr_rules->{$dom}{$item} =
$usertype = 'official';	$domconfig{'usercreation'}{$item.'_rule'};
last;	}
	}
	}
	$got_rules->{$dom} = 1;
	}
	if (ref($rules) eq 'HASH') {
	my @user_rules;
	if (ref($curr_rules->{$dom}{'username'}) eq 'ARRAY') {
	foreach my $rule (keys(%{$rules})) {
	if (grep(/^\Q$rule\E/,@{$curr_rules->{$dom}{'username'}})) {
	push(@user_rules,$rule);
	}
	}
	}
	if (@user_rules > 0) {
	my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules);
	if (keys(%rule_check) > 0) {
	$usertype = 'unofficial';
	foreach my $item (keys(%rule_check)) {
	if ($rule_check{$item}) {
	$usertype = 'official';
	last;
	}
}	}
}	}
}	}
Line 4658 sub check_usertype {	Line 5407 sub check_usertype {
}	}

sub roles_by_context {	sub roles_by_context {
my ($context,$custom) = @_;	my ($context,$custom,$crstype) = @_;
my @allroles;	my @allroles;
if ($context eq 'course') {	if ($context eq 'course') {
@allroles = ('st','ad','ta','ep','in','cc');	@allroles = ('st');
	if ($env{'request.role'} =~ m{^dc\./}) {
	push(@allroles,'ad');
	}
	push(@allroles,('ta','ep','in'));
	if ($crstype eq 'Community') {
	push(@allroles,'co');
	} else {
	push(@allroles,'cc');
	}
if ($custom) {	if ($custom) {
push(@allroles,'cr');	push(@allroles,'cr');
}	}
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
@allroles = ('ca','aa');	@allroles = ('ca','aa');
} elsif ($context eq 'domain') {	} elsif ($context eq 'domain') {
@allroles = ('li','dg','sc','au','dc');	@allroles = ('li','ad','dg','sc','au','dc');
}	}
return @allroles;	return @allroles;
}	}

sub get_permission {	sub get_permission {
my ($context,$roles) = @_;	my ($context,$crstype) = @_;
my %permission;	my %permission;
if ($context eq 'course') {	if ($context eq 'course') {
my $custom = 1;	my $custom = 1;
my @allroles = &roles_by_context($context,$custom);	my @allroles = &roles_by_context($context,$custom,$crstype);
foreach my $role (@allroles) {	foreach my $role (@allroles) {
if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
$permission{'cusr'} = 1;	$permission{'cusr'} = 1;
Line 4747 sub authorpriv {	Line 5505 sub authorpriv {
}	}

sub roles_on_upload {	sub roles_on_upload {
my ($context,$setting,%customroles) = @_;	my ($context,$setting,$crstype,%customroles) = @_;
my (@possible_roles,@permitted_roles);	my (@possible_roles,@permitted_roles);
@possible_roles = &curr_role_permissions($context,$setting,1);	@possible_roles = &curr_role_permissions($context,$setting,1,$crstype);
foreach my $role (@possible_roles) {	foreach my $role (@possible_roles) {
if ($role eq 'cr') {	if ($role eq 'cr') {
push(@permitted_roles,keys(%customroles));	push(@permitted_roles,keys(%customroles));
Line 4785 sub dc_setcourse_js {	Line 5543 sub dc_setcourse_js {
my ($formname,$mode,$context) = @_;	my ($formname,$mode,$context) = @_;
my ($dc_setcourse_code,$authen_check);	my ($dc_setcourse_code,$authen_check);
my $cctext = &Apache::lonnet::plaintext('cc');	my $cctext = &Apache::lonnet::plaintext('cc');
	my $cotext = &Apache::lonnet::plaintext('co');
my %alerts = &sectioncheck_alerts();	my %alerts = &sectioncheck_alerts();
my $role = 'role';	my $role = 'role';
if ($mode eq 'upload') {	if ($mode eq 'upload') {
Line 4831 function setCourse() {	Line 5590 function setCourse() {
numsections = numsections + newsecs.length;	numsections = numsections + newsecs.length;
}	}
if ((userrole == 'st') && (numsections > 1)) {	if ((userrole == 'st') && (numsections > 1)) {
alert("$alerts{'inea'}. $alerts{'youh'} "+numsections+" $alerts{'sect'}.\\n$alerts{'plsm'}.")	if (document.$formname.crstype.value == 'Community') {
	alert("$alerts{'inco'}. $alerts{'youh'} "+numsections+" $alerts{'sect'}.\\n$alerts{'plsm'}.")
	} else {
	alert("$alerts{'inea'}. $alerts{'youh'} "+numsections+" $alerts{'sect'}.\\n$alerts{'plsm'}.")
	}
return;	return;
}	}
for (var j=0; j<newsecs.length; j++) {	for (var j=0; j<newsecs.length; j++) {
Line 4843 function setCourse() {	Line 5606 function setCourse() {
var groups = document.$formname.groups.value.split(/,/g);	var groups = document.$formname.groups.value.split(/,/g);
for (var k=0; k<groups.length; k++) {	for (var k=0; k<groups.length; k++) {
if (newsecs[j] == groups[k]) {	if (newsecs[j] == groups[k]) {
alert("'"+newsecs[j]+"' $alerts{'mayt'}.\\n$alerts{'secn'}. $alerts{'plsc'}.");	if (document.$formname.crstype.value == 'Community') {
	alert("'"+newsecs[j]+"' $alerts{'mayc'}.\\n$alerts{'secn'}. $alerts{'plsc'}.");
	} else {
	alert("'"+newsecs[j]+"' $alerts{'mayt'}.\\n$alerts{'secn'}. $alerts{'plsc'}.");
	}
return;	return;
}	}
}	}
Line 4853 function setCourse() {	Line 5620 function setCourse() {
alert("$alerts{'secd'} $cctext $alerts{'role'}.\\n$alerts{'accr'}.");	alert("$alerts{'secd'} $cctext $alerts{'role'}.\\n$alerts{'accr'}.");
section = "";	section = "";
}	}
	if ((userrole == 'co') && (numsections > 0)) {
	alert("$alerts{'secd'} $cotext $alerts{'role'}.\\n$alerts{'accr'}.");
	section = "";
	}
SCRIPTTOP	SCRIPTTOP
if ($mode ne 'upload') {	if ($mode ne 'upload') {
$dc_setcourse_code .= (<<"ENDSCRIPT");	$dc_setcourse_code .= (<<"ENDSCRIPT");
var coursename = "_$env{'request.role.domain'}"+"_"+course+"_"+userrole	var coursename = "_$env{'request.role.domain'}"+"_"+course+"_"+userrole
var numcourse = getIndex(document.$formname.dccourse);	var numcourse = getIndex(document.$formname.dccourse);
if (numcourse == "-1") {	if (numcourse == "-1") {
alert("$alerts{'thwa'}");	if (document.$formname.type == 'Community') {
	alert("$alerts{'thwc'}");
	} else {
	alert("$alerts{'thwa'}");
	}
return;	return;
}	}
else {	else {
Line 4968 ENDSCRIPT	Line 5743 ENDSCRIPT

sub sectioncheck_alerts {	sub sectioncheck_alerts {
my %alerts = &Apache::lonlocal::texthash(	my %alerts = &Apache::lonlocal::texthash(
curd => 'You must select a course in the current domain',	curd => 'You must select a course or community in the current domain',
inea => 'In each course, each user may only have one student role at a time',	inea => 'In each course, each user may only have one student role at a time',
	inco => 'In each community, each user may only have one member role at a time',
youh => 'You had selected',	youh => 'You had selected',
sect => 'sections',	sect => 'sections',
plsm => 'Please modify your selections so they include no more than one section',	plsm => 'Please modify your selections so they include no more than one section',
mayn => 'may not be used as the name for a section, as it is a reserved word',	mayn => 'may not be used as the name for a section, as it is a reserved word',
plsc => 'Please choose a different section name',	plsc => 'Please choose a different section name',
mayt => 'may not be used as the name for a section, as it is the name of a course group',	mayt => 'may not be used as the name for a section, as it is the name of a course group',
	mayc => 'may not be used as the name for a section, as it is the name of a community group',
secn => 'Section names and group names must be distinct',	secn => 'Section names and group names must be distinct',
secd => 'Section designations do not apply to ',	secd => 'Section designations do not apply to ',
role => 'roles',	role => 'roles',
accr => 'role will be added with access to all sections',	accr => 'role will be added with access to all sections',
thwa => 'There was a problem with your course selection'	thwa => 'There was a problem with your course selection',
	thwc => 'There was a problem with your community selection',
);	);
return %alerts;	return %alerts;
}	}
Line 4995 sub authcheck_alerts {	Line 5773 sub authcheck_alerts {
return %alerts;	return %alerts;
}	}

	sub is_courseowner {
	my ($thiscourse,$courseowner) = @_;
	if ($courseowner eq '') {
	if ($env{'request.course.id'} eq $thiscourse) {
	$courseowner = $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'};
	}
	}
	if ($courseowner ne '') {
	if ($courseowner eq $env{'user.name'}.':'.$env{'user.domain'}) {
	return 1;
	}
	}
	return;
	}

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.67
changed lines
	Added in v.1.142