loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreateuser.pm between versions 1.249.2.5 and 1.295.2.25

version 1.249.2.5, 2008/07/18 02:15:32	version 1.295.2.25, 2010/01/19 22:42:32
Line 33 package Apache::loncreateuser;	Line 33 package Apache::loncreateuser;

=head1 NAME	=head1 NAME

Apache::loncreateuser - handler to create users and custom roles	Apache::loncreateuser.pm

=head1 SYNOPSIS	=head1 SYNOPSIS

Apache::loncreateuser provides an Apache handler for creating users,	Handler to create users and custom roles

	Provides an Apache handler for creating users,
editing their login parameters, roles, and removing roles, and	editing their login parameters, roles, and removing roles, and
also creating and assigning custom roles.	also creating and assigning custom roles.

Line 49 In LON-CAPA, roles are actually collecti	Line 51 In LON-CAPA, roles are actually collecti
Assistant", "Course Coordinator", and other such roles are really just	Assistant", "Course Coordinator", and other such roles are really just
collection of privileges that are useful in many circumstances.	collection of privileges that are useful in many circumstances.

Creating custom roles can be done by the Domain Coordinator through	Custom roles can be defined by a Domain Coordinator, Course Coordinator
the Create User functionality. That screen will show all privileges	or Community Coordinator via the Manage User functionality.
that can be assigned to users. For a complete list of privileges,	The custom role editor screen will show all privileges which can be
please see C</home/httpd/lonTabs/rolesplain.tab>.	assigned to users. For a complete list of privileges, please see
	C</home/httpd/lonTabs/rolesplain.tab>.

Custom role definitions are stored in the C<roles.db> file of the role	Custom role definitions are stored in the C<roles.db> file of the creator
author.	of the role.

=cut	=cut

Line 66 use Apache::loncommon;	Line 69 use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::longroup;	use Apache::longroup;
use Apache::lonuserutils;	use Apache::lonuserutils;
	use Apache::loncoursequeueadmin;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);

my $loginscript; # piece of javascript used in two separate instances	my $loginscript; # piece of javascript used in two separate instances
Line 107 sub initialize_authen_forms {	Line 111 sub initialize_authen_forms {

sub auth_abbrev {	sub auth_abbrev {
my %abv_auth = (	my %abv_auth = (
	krb5 => 'krb',
krb4 => 'krb',	krb4 => 'krb',
internal => 'int',	internal => 'int',
localuth => 'loc',	localuth => 'loc',
Line 120 sub auth_abbrev {	Line 125 sub auth_abbrev {
sub portfolio_quota {	sub portfolio_quota {
my ($ccuname,$ccdomain) = @_;	my ($ccuname,$ccdomain) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'disk' => "Disk space allocated to user's portfolio files",	'usrt' => "User Tools",
'cuqu' => "Current quota",	'disk' => "Disk space allocated to user's portfolio files",
'cust' => "Custom quota",	'cuqu' => "Current quota",
'defa' => "Default",	'cust' => "Custom quota",
'chqu' => "Change quota",	'defa' => "Default",
	'chqu' => "Change quota",
);	);
my ($currquota,$quotatype,$inststatus,$defquota) =	my ($currquota,$quotatype,$inststatus,$defquota) =
&Apache::loncommon::get_user_quota($ccuname,$ccdomain);	&Apache::loncommon::get_user_quota($ccuname,$ccdomain);
Line 139 sub portfolio_quota {	Line 145 sub portfolio_quota {
$custom_off = ' checked="checked" ';	$custom_off = ' checked="checked" ';
my $quota_javascript = <<"END_SCRIPT";	my $quota_javascript = <<"END_SCRIPT";
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function quota_changes(caller) {	function quota_changes(caller) {
if (caller == "custom") {	if (caller == "custom") {
if (document.cu.customquota[0].checked) {	if (document.cu.customquota[0].checked) {
Line 149 function quota_changes(caller) {	Line 156 function quota_changes(caller) {
document.cu.customquota[1].checked = true;	document.cu.customquota[1].checked = true;
}	}
}	}
	// ]]>
</script>	</script>
END_SCRIPT	END_SCRIPT
if ($quotatype eq 'custom') {	if ($quotatype eq 'custom') {
Line 173 END_SCRIPT	Line 181 END_SCRIPT
" affiliation ([_2]).",$defquota,$longinsttype);	" affiliation ([_2]).",$defquota,$longinsttype);
}	}
}	}
my $output = $quota_javascript.
'<h3>'.$lt{'disk'}.'</h3>'.	my $output = $quota_javascript."\n".
&Apache::loncommon::start_data_table().	'<h3>'.$lt{'usrt'}.'</h3>'."\n".
&Apache::loncommon::start_data_table_row().	&Apache::loncommon::start_data_table();
'<td>'.$lt{'cuqu'}.': '.$currquota.' Mb.  '.
$defaultinfo.'</td>'.	if (&Apache::lonnet::allowed('mut',$ccdomain)) {
&Apache::loncommon::end_data_table_row().	$output .= &build_tools_display($ccuname,$ccdomain,'tools');
&Apache::loncommon::start_data_table_row().	}
'<td><span class="LC_nobreak">'.$lt{'chqu'}.	if (&Apache::lonnet::allowed('mpq',$ccdomain)) {
': <label>'.	$output .= '<tr class="LC_info_row">'."\n".
'<input type="radio" name="customquota" value="0" '.	' <td>'.$lt{'disk'}.'</td>'."\n".
$custom_off.' onchange="javascript:quota_changes('."'custom'".')"	' </tr>'."\n".
/>'.$lt{'defa'}.' ('.$defquota.' Mb).</label> '.	&Apache::loncommon::start_data_table_row()."\n".
' <label><input type="radio" name="customquota" value="1" '.	' <td>'.$lt{'cuqu'}.': '.
$custom_on.' onchange="javascript:quota_changes('."'custom'".')" />'.	$currquota.' Mb.  '.
$lt{'cust'}.':</label> '.	$defaultinfo.'</td>'."\n".
'<input type="text" name="portfolioquota" size ="5" value="'.	&Apache::loncommon::end_data_table_row()."\n".
$showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.	&Apache::loncommon::start_data_table_row()."\n".
'/> Mb</span></td>'.	' <td><span class="LC_nobreak">'.$lt{'chqu'}.
&Apache::loncommon::end_data_table_row().	': <label>'.
&Apache::loncommon::end_data_table();	'<input type="radio" name="customquota" value="0" '.
	$custom_off.' onchange="javascript:quota_changes('."'custom'".')"'.
	' />'.$lt{'defa'}.' ('.$defquota.' Mb).</label> '.
	' <label><input type="radio" name="customquota" value="1" '.
	$custom_on.' onchange="javascript:quota_changes('."'custom'".')" />'.
	$lt{'cust'}.':</label> '.
	'<input type="text" name="portfolioquota" size ="5" value="'.
	$showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.
	'/> Mb</span></td>'."\n".
	&Apache::loncommon::end_data_table_row()."\n";
	}
	$output .= &Apache::loncommon::end_data_table();
	return $output;
	}

	sub build_tools_display {
	my ($ccuname,$ccdomain,$context) = @_;
	my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay,
	$colspan);
	my %lt = &Apache::lonlocal::texthash (
	'blog' => "Personal User Blog",
	'aboutme' => "Personal Information Page",
	'portfolio' => "Personal User Portfolio",
	'avai' => "Available",
	'cusa' => "availability",
	'chse' => "Change setting",
	'usde' => "Use default",
	'uscu' => "Use custom",
	'official' => 'Can request creation of official courses',
	'unofficial' => 'Can request creation of unofficial courses',
	);
	if ($context eq 'requestcourses') {
	%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
	'requestcourses.official','requestcourses.unofficial');
	@usertools = ('official','unofficial');
	@options =('norequest','approval','autolimit','validate');
	%validations = &Apache::lonnet::auto_courserequest_checks($ccdomain);
	%reqtitles = &courserequest_titles();
	%reqdisplay = &courserequest_display();
	$colspan = ' colspan="2"';
	} else {
	%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
	'tools.aboutme','tools.portfolio','tools.blog');
	@usertools = ('aboutme','blog','portfolio');
	}
	foreach my $item (@usertools) {
	my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off,
	$currdisp,$custdisp,$custradio);
	$cust_off = 'checked="checked" ';
	$tool_on = 'checked="checked" ';
	$curr_access =
	&Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef,
	$context);
	if ($userenv{$context.'.'.$item} ne '') {
	$cust_on = ' checked="checked" ';
	$cust_off = '';
	}
	if ($context eq 'requestcourses') {
	if ($userenv{$context.'.'.$item} eq '') {
	$custom_access = &mt('Currently from default setting.');
	} else {
	$custom_access = &mt('Currently from custom setting.');
	}
	} else {
	if ($userenv{$context.'.'.$item} eq '') {
	$custom_access =
	&mt('Availability determined currently from default setting.');
	if (!$curr_access) {
	$tool_off = 'checked="checked" ';
	$tool_on = '';
	}
	} else {
	$custom_access =
	&mt('Availability determined currently from custom setting.');
	if ($userenv{$context.'.'.$item} == 0) {
	$tool_off = 'checked="checked" ';
	$tool_on = '';
	}
	}
	}
	$output .= ' <tr class="LC_info_row">'."\n".
	' <td'.$colspan.'>'.$lt{$item}.'</td>'."\n".
	' </tr>'."\n".
	&Apache::loncommon::start_data_table_row()."\n";
	if ($context eq 'requestcourses') {
	my ($curroption,$currlimit);
	$curroption = $userenv{$context.'.'.$item};
	if (!$curroption) {
	$curroption = 'norequest';
	}
	if ($curroption =~ /^autolimit=(\d*)$/) {
	$currlimit = $1;
	if ($currlimit eq '') {
	$currdisp = &mt('Yes, automatic creation');
	} else {
	$currdisp = &mt('Yes, up to [quant,_1,request]/user',$currlimit);
	}
	} else {
	$currdisp = $reqdisplay{$curroption};
	}
	$custdisp = '<table>';
	foreach my $option (@options) {
	my $val = $option;
	if ($option eq 'norequest') {
	$val = 0;
	}
	if ($option eq 'validate') {
	my $canvalidate = 0;
	if (ref($validations{$item}) eq 'HASH') {
	if ($validations{$item}{'_custom_'}) {
	$canvalidate = 1;
	}
	}
	next if (!$canvalidate);
	}
	my $checked = '';
	if ($option eq $curroption) {
	$checked = ' checked="checked"';
	} elsif ($option eq 'autolimit') {
	if ($curroption =~ /^autolimit/) {
	$checked = ' checked="checked"';
	}
	}
	$custdisp .= '<tr><td><span class="LC_nobreak"><label>'.
	'<input type="radio" name="crsreq_'.$item.
	'" value="'.$val.'"'.$checked.' />'.
	$reqtitles{$option}.'</label> ';
	if ($option eq 'autolimit') {
	$custdisp .= '<input type="text" name="crsreq_'.
	$item.'_limit" size="1" '.
	'value="'.$currlimit.'" /></span><br />'.
	$reqtitles{'unlimited'};
	} else {
	$custdisp .= '</span>';
	}
	$custdisp .= '</td></tr>';
	}
	$custdisp .= '</table>';
	$custradio = '</span></td><td>'.&mt('Custom setting').'<br />'.$custdisp;
	} else {
	$currdisp = ($curr_access?&mt('Yes'):&mt('No'));
	$custdisp = '<span class="LC_nobreak"><label>'.
	'<input type="radio" name="'.$context.'_'.$item.'"'.
	' value="1"'. $tool_on.'/>'.&mt('On').'</label> <label>'.
	'<input type="radio" name="'.$context.'_'.$item.'" value="0" '.
	$tool_off.'/>'.&mt('Off').'</label></span>';
	$custradio = (' 'x2).'--'.$lt{'cusa'}.': '.$custdisp.
	'</span>';
	}
	$output .= ' <td'.$colspan.'>'.$custom_access.(' 'x4).
	$lt{'avai'}.': '.$currdisp.'</td>'."\n".
	&Apache::loncommon::end_data_table_row()."\n".
	&Apache::loncommon::start_data_table_row()."\n".
	' <td style="vertical-align:top;"><span class="LC_nobreak">'.
	$lt{'chse'}.': <label>'.
	'<input type="radio" name="custom'.$item.'" value="0" '.
	$cust_off.'/>'.$lt{'usde'}.'</label>'.(' ' x3).
	'<label><input type="radio" name="custom'.$item.'" value="1" '.
	$cust_on.'/>'.$lt{'uscu'}.'</label>'.$custradio.'</td>'.
	&Apache::loncommon::end_data_table_row()."\n";
	}
	return $output;
	}

	sub coursereq_externaluser {
	my ($ccuname,$ccdomain,$cdom) = @_;
	my (@usertools,@options,%validations,%userenv,$output);
	my %lt = &Apache::lonlocal::texthash (
	'official' => 'Can request creation of official courses',
	'unofficial' => 'Can request creation of unofficial courses',
	'community' => 'Can request creation of communities',
	);

	%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
	'reqcrsotherdom.official','reqcrsotherdom.unofficial',
	'reqcrsotherdom.community');
	@usertools = ('official','unofficial','community');
	@options = ('approval','validate','autolimit');
	%validations = &Apache::lonnet::auto_courserequest_checks($cdom);
	my $optregex = join('\|',@options);
	my %reqtitles = &courserequest_titles();
	foreach my $item (@usertools) {
	my ($curroption,$currlimit,$tooloff);
	if ($userenv{'reqcrsotherdom.'.$item} ne '') {
	my @curr = split(',',$userenv{'reqcrsotherdom.'.$item});
	foreach my $req (@curr) {
	if ($req =~ /^\Q$cdom\E\:($optregex)=?(\d*)$/) {
	$curroption = $1;
	$currlimit = $2;
	last;
	}
	}
	if (!$curroption) {
	$curroption = 'norequest';
	$tooloff = ' checked="checked"';
	}
	} else {
	$curroption = 'norequest';
	$tooloff = ' checked="checked"';
	}
	$output.= &Apache::loncommon::start_data_table_row()."\n".
	' <td><span class="LC_nobreak">'.$lt{$item}.': </span></td><td>'.
	'<table><tr><td valign="top">'."\n".
	'<label><input type="radio" name="reqcrsotherdom_'.$item.
	'" value=""'.$tooloff.' />'.$reqtitles{'norequest'}.
	'</label></td>';
	foreach my $option (@options) {
	if ($option eq 'validate') {
	my $canvalidate = 0;
	if (ref($validations{$item}) eq 'HASH') {
	if ($validations{$item}{'_external_'}) {
	$canvalidate = 1;
	}
	}
	next if (!$canvalidate);
	}
	my $checked = '';
	if ($option eq $curroption) {
	$checked = ' checked="checked"';
	}
	$output .= '<td valign="top"><span class="LC_nobreak"><label>'.
	'<input type="radio" name="reqcrsotherdom_'.$item.
	'" value="'.$option.'"'.$checked.' />'.
	$reqtitles{$option}.'</label>';
	if ($option eq 'autolimit') {
	$output .= ' <input type="text" name="reqcrsotherdom_'.
	$item.'_limit" size="1" '.
	'value="'.$currlimit.'" /></span>'.
	'<br />'.$reqtitles{'unlimited'};
	} else {
	$output .= '</span>';
	}
	$output .= '</td>';
	}
	$output .= '</td></tr></table></td>'."\n".
	&Apache::loncommon::end_data_table_row()."\n";
	}
return $output;	return $output;
}	}

	sub courserequest_titles {
	my %titles = &Apache::lonlocal::texthash (
	official => 'Official',
	unofficial => 'Unofficial',
	community => 'Communities',
	norequest => 'Not allowed',
	approval => 'Approval by Dom. Coord.',
	validate => 'With validation',
	autolimit => 'Numerical limit',
	unlimited => '(blank for unlimited)',
	);
	return %titles;
	}

	sub courserequest_display {
	my %titles = &Apache::lonlocal::texthash (
	approval => 'Yes, need approval',
	validate => 'Yes, with validation',
	norequest => 'No',
	);
	return %titles;
	}

# =================================================================== Phase one	# =================================================================== Phase one

sub print_username_entry_form {	sub print_username_entry_form {
my ($r,$context,$response,$srch,$forcenewuser) = @_;	my ($r,$context,$response,$srch,$forcenewuser,$crstype) = @_;
my $defdom=$env{'request.role.domain'};	my $defdom=$env{'request.role.domain'};
my $formtoset = 'crtuser';	my $formtoset = 'crtuser';
if (exists($env{'form.startrolename'})) {	if (exists($env{'form.startrolename'})) {
Line 214 sub print_username_entry_form {	Line 481 sub print_username_entry_form {

my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n".	my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n".
'<script type="text/javascript">'."\n".	'<script type="text/javascript">'."\n".
&Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset}).	'// <![CDATA['."\n".
	&Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset})."\n".
	'// ]]>'."\n".
'</script>'."\n";	'</script>'."\n";

	my %existingroles=&Apache::lonuserutils::my_custom_roles($crstype);
	if (($env{'form.action'} eq 'custom') && (keys(%existingroles) > 0)
	&& (&Apache::lonnet::allowed('mcr','/'))) {
	$jscript .= &customrole_javascript();
	}
my %loaditems = (	my %loaditems = (
'onload' => "javascript:setFormElements(document.$formtoset)",	'onload' => "javascript:setFormElements(document.$formtoset)",
);	);
my %breadcrumb_text = &singleuser_breadcrumb();	my %breadcrumb_text = &singleuser_breadcrumb($crstype);
my $start_page =	my $start_page =
&Apache::loncommon::start_page('User Management',	&Apache::loncommon::start_page('User Management',
$jscript,{'add_entries' => \%loaditems,});	$jscript,{'add_entries' => \%loaditems,});
Line 242 sub print_username_entry_form {	Line 516 sub print_username_entry_form {
}	}
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',	my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',
$helpitem);	$helpitem);
my %existingroles=&Apache::lonuserutils::my_custom_roles();
my $choice=&Apache::loncommon::select_form('make new role','rolename',
('make new role' => 'Generate new role ...',%existingroles));
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'srst' => 'Search for a user and enroll as a student',	'srst' => 'Search for a user and enroll as a student',
	'srme' => 'Search for a user and enroll as a member',

'srad' => 'Search for a user and modify/add user information or roles',	'srad' => 'Search for a user and modify/add user information or roles',
'usr' => "Username",	'usr' => "Username",
'dom' => "Domain",	'dom' => "Domain",
'ecrp' => "Edit Custom Role Privileges",	'ecrp' => "Define or Edit Custom Role",
'nr' => "Name of Role",	'nr' => "role name",
'cre' => "Custom Role Editor",	'cre' => "Next",
);	);
$r->print($start_page."\n".$crumbs);	$r->print($start_page."\n".$crumbs);
if ($env{'form.action'} eq 'custom') {	if ($env{'form.action'} eq 'custom') {
if (&Apache::lonnet::allowed('mcr','/')) {	if (&Apache::lonnet::allowed('mcr','/')) {
$r->print(<<ENDCUSTOM);	my $newroletext = &mt('Define new custom role:');
<form action="/adm/createuser" method="post" name="docustom">	$r->print('<form action="/adm/createuser" method="post" name="docustom">'.
<input type="hidden" name="action" value="$env{'form.action'}" />	'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
<input type="hidden" name="phase" value="selected_custom_edit" />	'<input type="hidden" name="phase" value="selected_custom_edit" />'.
<h3>$lt{'ecrp'}</h3>	'<h3>'.$lt{'ecrp'}.'</h3>'.
$lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />	&Apache::loncommon::start_data_table().
<input name="customeditor" type="submit" value="$lt{'cre'}" />	&Apache::loncommon::start_data_table_row().
</form>	'<td>');
ENDCUSTOM	if (keys(%existingroles) > 0) {
	$r->print('<br /><label><input type="radio" name="customroleaction" value="new" checked="checked" onclick="setCustomFields();" /><b>'.$newroletext.'</b></label>');
	} else {
	$r->print('<br /><input type="hidden" name="customroleaction" value="new" /><b>'.$newroletext.'</b>');
	}
	$r->print('</td><td align="center">'.$lt{'nr'}.'<br /><input type="text" size="15" name="newrolename" onfocus="setCustomAction('."'new'".');" /></td>'.
	&Apache::loncommon::end_data_table_row());
	if (keys(%existingroles) > 0) {
	$r->print(&Apache::loncommon::start_data_table_row().'<td><br />'.
	'<label><input type="radio" name="customroleaction" value="edit" onclick="setCustomFields();"/><b>'.
	&mt('View/Modify existing role:').'</b></label></td>'.
	'<td align="center"><br />'.
	'<select name="rolename" onchange="setCustomAction('."'edit'".');">'.
	'<option value="" selected="selected">'.
	&mt('Select'));
	foreach my $role (sort(keys(%existingroles))) {
	$r->print('<option value="'.$role.'">'.$role.'</option>');
	}
	$r->print('</select>'.
	'</td>'.
	&Apache::loncommon::end_data_table_row());
	}
	$r->print(&Apache::loncommon::end_data_table().'<p>'.
	'<input name="customeditor" type="submit" value="'.
	$lt{'cre'}.'" /></p>'.
	'</form>');
}	}
} else {	} else {
my $actiontext = $lt{'srad'};	my $actiontext = $lt{'srad'};
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$actiontext = $lt{'srst'};	if ($crstype eq 'Community') {
	$actiontext = $lt{'srme'};
	} else {
	$actiontext = $lt{'srst'};
	}
}	}
$r->print("	$r->print("<h3>$actiontext</h3>");
<h3>$actiontext</h3>");
if ($env{'form.origform'} ne 'crtusername') {	if ($env{'form.origform'} ne 'crtusername') {
$r->print("\n".$response);	$r->print("\n".$response);
}	}
$r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response));	$r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype));
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

	sub customrole_javascript {
	my $js = <<"END";
	<script type="text/javascript">
	// <![CDATA[

	function setCustomFields() {
	if (document.docustom.customroleaction.length > 0) {
	for (var i=0; i<document.docustom.customroleaction.length; i++) {
	if (document.docustom.customroleaction[i].checked) {
	if (document.docustom.customroleaction[i].value == 'new') {
	document.docustom.rolename.selectedIndex = 0;
	} else {
	document.docustom.newrolename.value = '';
	}
	}
	}
	}
	return;
	}

	function setCustomAction(caller) {
	if (document.docustom.customroleaction.length > 0) {
	for (var i=0; i<document.docustom.customroleaction.length; i++) {
	if (document.docustom.customroleaction[i].value == caller) {
	document.docustom.customroleaction[i].checked = true;
	}
	}
	}
	setCustomFields();
	return;
	}

	// ]]>
	</script>
	END
	return $js;
	}

sub entry_form {	sub entry_form {
my ($dom,$srch,$forcenewuser,$context,$responsemsg) = @_;	my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_;
my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);	my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
my ($usertype,$inexact);	my ($usertype,$inexact);
if (ref($srch) eq 'HASH') {	if (ref($srch) eq 'HASH') {
Line 323 ENDBLOCK	Line 662 ENDBLOCK
my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain');	my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain');
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'enro' => 'Enroll one student',	'enro' => 'Enroll one student',
	'enrm' => 'Enroll one member',
'admo' => 'Add/modify a single user',	'admo' => 'Add/modify a single user',
'crea' => 'create new user if required',	'crea' => 'create new user if required',
'uskn' => "username is known",	'uskn' => "username is known",
Line 335 ENDBLOCK	Line 675 ENDBLOCK
my $sellink=&Apache::loncommon::selectstudent_link('crtusername','srchterm','srchdomain');	my $sellink=&Apache::loncommon::selectstudent_link('crtusername','srchterm','srchdomain');
my ($title,$buttontext,$showresponse);	my ($title,$buttontext,$showresponse);
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$title = $lt{'enro'};	if ($crstype eq 'Community') {
	$title = $lt{'enrm'};
	} else {
	$title = $lt{'enro'};
	}
$buttontext = $lt{'enrl'};	$buttontext = $lt{'enrl'};
} else {	} else {
$title = $lt{'admo'};	$title = $lt{'admo'};
Line 381 sub user_modification_js {	Line 725 sub user_modification_js {

return <<END;	return <<END;
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
	// <![CDATA[

function pclose() {	function pclose() {
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",	parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
Line 398 sub user_modification_js {	Line 743 sub user_modification_js {
}	}

$nondc_setsection_code	$nondc_setsection_code
	// ]]>
</script>	</script>
END	END
}	}

# =================================================================== Phase two	# =================================================================== Phase two
sub print_user_selection_page {	sub print_user_selection_page {
my ($r,$response,$srch,$srch_results,$srcharray,$context) = @_;	my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements,$crstype) = @_;
my @fields = ('username','domain','lastname','firstname','permanentemail');	my @fields = ('username','domain','lastname','firstname','permanentemail');
my $sortby = $env{'form.sortby'};	my $sortby = $env{'form.sortby'};

Line 417 sub print_user_selection_page {	Line 762 sub print_user_selection_page {

my $jscript = (<<ENDSCRIPT);	my $jscript = (<<ENDSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function pickuser(uname,udom) {	function pickuser(uname,udom) {
document.usersrchform.seluname.value=uname;	document.usersrchform.seluname.value=uname;
document.usersrchform.seludom.value=udom;	document.usersrchform.seludom.value=udom;
Line 425 function pickuser(uname,udom) {	Line 771 function pickuser(uname,udom) {
}	}

$jsback	$jsback
	// ]]>
</script>	</script>
ENDSCRIPT	ENDSCRIPT

my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'usrch' => "User Search to add/modify roles",	'usrch' => "User Search to add/modify roles",
'stusrch' => "User Search to enroll student",	'stusrch' => "User Search to enroll student",
	'memsrch' => "User Search to enroll member",
'usel' => "Select a user to add/modify roles",	'usel' => "Select a user to add/modify roles",
'stusel' => "Select a user to enroll as a student",	'stusel' => "Select a user to enroll as a student",
	'memsel' => "Select a user to enroll as a member",
'username' => "username",	'username' => "username",
'domain' => "domain",	'domain' => "domain",
'lastname' => "last name",	'lastname' => "last name",
'firstname' => "first name",	'firstname' => "first name",
'permanentemail' => "permanent e-mail",	'permanentemail' => "permanent e-mail",
);	);
$r->print(&Apache::loncommon::start_page('User Management',$jscript));	if ($context eq 'requestcrs') {
	$r->print('<div>');
	} else {
	$r->print(&Apache::loncommon::start_page('User Management',$jscript));

my %breadcrumb_text = &singleuser_breadcrumb();	my %breadcrumb_text = &singleuser_breadcrumb($crstype);
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:backPage(document.usersrchform,'','')",	({href=>"javascript:backPage(document.usersrchform,'','')",
text=>$breadcrumb_text{'search'},	text=>$breadcrumb_text{'search'},
faq=>282,bug=>'Instructor Interface',},	faq=>282,bug=>'Instructor Interface',},
{href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",	{href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
text=>$breadcrumb_text{'userpicked'},	text=>$breadcrumb_text{'userpicked'},
faq=>282,bug=>'Instructor Interface',});	faq=>282,bug=>'Instructor Interface',});
if ($env{'form.action'} eq 'singleuser') {	if ($env{'form.action'} eq 'singleuser') {
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',	$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
'Course_Change_Privileges'));	'Course_Change_Privileges'));
$r->print("<b>$lt{'usrch'}</b><br />");	$r->print("<b>$lt{'usrch'}</b><br />");
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));	$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype));
$r->print('<h3>'.$lt{'usel'}.'</h3>');	$r->print('<h3>'.$lt{'usel'}.'</h3>');
} elsif ($env{'form.action'} eq 'singlestudent') {	} elsif ($env{'form.action'} eq 'singlestudent') {
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',	$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
'Course_Add_Student'));	'Course_Add_Student'));
$r->print($jscript."<b>$lt{'stusrch'}</b><br />");	$r->print($jscript."<b>");
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));	if ($crstype eq 'Community') {
$r->print('</form><h3>'.$lt{'stusel'}.'</h3>');	$r->print($lt{'memsrch'});
	} else {
	$r->print($lt{'stusrch'});
	}
	$r->print("</b><br />");
	$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype));
	$r->print('</form><h3>');
	if ($crstype eq 'Community') {
	$r->print($lt{'memsel'});
	} else {
	$r->print($lt{'stusel'});
	}
	$r->print('</h3>');
	}
}	}
$r->print('<form name="usersrchform" method="post">'.	$r->print('<form name="usersrchform" method="post">'.
&Apache::loncommon::start_data_table()."\n".	&Apache::loncommon::start_data_table()."\n".
Line 485 ENDSCRIPT	Line 850 ENDSCRIPT

foreach my $user (@sorted_users) {	foreach my $user (@sorted_users) {
my ($uname,$udom) = split(/:/,$user);	my ($uname,$udom) = split(/:/,$user);
	my $onclick;
	if ($context eq 'requestcrs') {
	$onclick =
	'onclick="javascript:gochoose('."'$uname','$udom',".
	"'$srch_results->{$user}->{firstname}',".
	"'$srch_results->{$user}->{lastname}',".
	"'$srch_results->{$user}->{permanentemail}'".');"';
	} else {
	$onclick =
	' onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".');"';
	}
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<td><input type="button" name="seluser" value="'.&mt('Select').'" onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".')" /></td>'.	'<td><input type="button" name="seluser" value="'.&mt('Select').'" '.
	$onclick.' /></td>'.
'<td><tt>'.$uname.'</tt></td>'.	'<td><tt>'.$uname.'</tt></td>'.
'<td><tt>'.$udom.'</tt></td>');	'<td><tt>'.$udom.'</tt></td>');
foreach my $field ('lastname','firstname','permanentemail') {	foreach my $field ('lastname','firstname','permanentemail') {
Line 506 ENDSCRIPT	Line 883 ENDSCRIPT
' <input type="hidden" name="currstate" value="select" />'."\n".	' <input type="hidden" name="currstate" value="select" />'."\n".
' <input type="hidden" name="phase" value="get_user_info" />'."\n".	' <input type="hidden" name="phase" value="get_user_info" />'."\n".
' <input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n");	' <input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n");
$r->print($response.'</form>'.&Apache::loncommon::end_page());	if ($context eq 'requestcrs') {
	$r->print($opener_elements.'</form></div>');
	} else {
	$r->print($response.'</form>'.&Apache::loncommon::end_page());
	}
}	}

sub print_user_query_page {	sub print_user_query_page {
Line 518 sub print_user_query_page {	Line 899 sub print_user_query_page {
}	}

sub print_user_modification_page {	sub print_user_modification_page {
my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission) = @_;	my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission,$crstype) = @_;
if (($ccuname eq '') \|\| ($ccdomain eq '')) {	if (($ccuname eq '') \|\| ($ccdomain eq '')) {
my $usermsg = &mt('No username and/or domain provided.');	my $usermsg = &mt('No username and/or domain provided.');
$env{'form.phase'} = '';	$env{'form.phase'} = '';
&print_username_entry_form($r,$context,$usermsg);	&print_username_entry_form($r,$context,$usermsg,'','',$crstype);
return;	return;
}	}
my ($form,$formname);	my ($form,$formname);
Line 546 sub print_user_modification_page {	Line 927 sub print_user_modification_page {
&Apache::lonuserutils::can_create_user($ccdomain,$context,	&Apache::lonuserutils::can_create_user($ccdomain,$context,
$usertype);	$usertype);
if (!$cancreate) {	if (!$cancreate) {
my $helplink = ' href="javascript:helpMenu('."'display'".')"';	my $helplink = 'javascript:helpMenu('."'display'".')';
my %usertypetext = (	my %usertypetext = (
official => 'institutional',	official => 'institutional',
unofficial => 'non-institutional',	unofficial => 'non-institutional',
Line 556 sub print_user_modification_page {	Line 937 sub print_user_modification_page {
$response = '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain).	$response = '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain).
'</span><br />';	'</span><br />';
}	}
$response .= '<span class="LC_warning">'.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.").' '.&mt('Contact the <a[_1]>helpdesk</a> for assistance.',$helplink).'</span><br /><br />';	$response .= '<p class="LC_warning">'
	.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")
	.' '
	.&mt('Please contact the [_1]helpdesk[_2] for assistance.'
	,'<a href="'.$helplink.'">','</a>')
	.'</p><br />';
$env{'form.phase'} = '';	$env{'form.phase'} = '';
&print_username_entry_form($r,$context,$response);	&print_username_entry_form($r,$context,$response,undef,undef,$crstype);
return;	return;
}	}
$newuser = 1;	$newuser = 1;
Line 582 sub print_user_modification_page {	Line 968 sub print_user_modification_page {
'username');	'username');
}	}
$env{'form.phase'} = '';	$env{'form.phase'} = '';
&print_username_entry_form($r,$context,$userchkmsg);	&print_username_entry_form($r,$context,$userchkmsg,undef,undef,$crstype);
return;	return;
}	}
}	}
Line 609 sub print_user_modification_page {	Line 995 sub print_user_modification_page {
}	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page('User Management',$js,$args);	&Apache::loncommon::start_page('User Management',$js,$args);
my %breadcrumb_text = &singleuser_breadcrumb();	my %breadcrumb_text = &singleuser_breadcrumb($crstype);
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:backPage($form)",	({href=>"javascript:backPage($form)",
text=>$breadcrumb_text{'search'},	text=>$breadcrumb_text{'search'},
Line 649 ENDFORMINFO	Line 1035 ENDFORMINFO
}	}
if ($newuser) {	if ($newuser) {
my $portfolioform;	my $portfolioform;
if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {	if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) \|\|
# Current user has quota modification privileges	(&Apache::lonnet::allowed('mut',$env{'request.role.domain'}))) {
	# Current user has quota or user tools modification privileges
$portfolioform = '<br />'.&portfolio_quota($ccuname,$ccdomain);	$portfolioform = '<br />'.&portfolio_quota($ccuname,$ccdomain);
}	}
&initialize_authen_forms($ccdomain,$formname);	&initialize_authen_forms($ccdomain,$formname);
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'cnu' => 'Create New User',	'cnu' => 'Create New User',
'ast' => 'as a student',	'ast' => 'as a student',
	'ame' => 'as a member',
'ind' => 'in domain',	'ind' => 'in domain',
'lg' => 'Login Data',	'lg' => 'Login Data',
'hs' => "Home Server",	'hs' => "Home Server",
Line 667 $crumbs	Line 1055 $crumbs
$response	$response
$forminfo	$forminfo
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
	// <![CDATA[
$loginscript	$loginscript
	// ]]>
</script>	</script>
<input type='hidden' name='makeuser' value='1' />	<input type='hidden' name='makeuser' value='1' />
<h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain	<h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain
ENDTITLE	ENDTITLE
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$r->print(' ('.$lt{'ast'}.')');	if ($crstype eq 'Community') {
	$r->print(' ('.$lt{'ame'}.')');
	} else {
	$r->print(' ('.$lt{'ast'}.')');
	}
}	}
$r->print('</h2>'."\n".'<div class="LC_left_float">');	$r->print('</h2>'."\n".'<div class="LC_left_float">');
my $personal_table =	my $personal_table =
Line 691 $lt{'hs'}: $home_server_pick	Line 1085 $lt{'hs'}: $home_server_pick
} else {	} else {
$r->print($home_server_pick);	$r->print($home_server_pick);
}	}
	if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
	$r->print('<br /><h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.
	&Apache::loncommon::start_data_table().
	&build_tools_display($ccuname,$ccdomain,
	'requestcourses').
	&Apache::loncommon::end_data_table());
	}
$r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.	$r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.
$lt{'lg'}.'</h3>');	$lt{'lg'}.'</h3>');
my ($fixedauth,$varauth,$authmsg);	my ($fixedauth,$varauth,$authmsg);
Line 705 $lt{'hs'}: $home_server_pick	Line 1106 $lt{'hs'}: $home_server_pick
$r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));	$r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));
} else {	} else {
my $authparm = $rules->{$matchedrule}{'authparm'};	my $authparm = $rules->{$matchedrule}{'authparm'};
	$authmsg = $rules->{$matchedrule}{'authmsg'};
if ($authtype =~ /^krb(4\|5)$/) {	if ($authtype =~ /^krb(4\|5)$/) {
my $ver = $1;	my $ver = $1;
if ($authparm ne '') {	if ($authparm ne '') {
Line 713 $lt{'hs'}: $home_server_pick	Line 1115 $lt{'hs'}: $home_server_pick
<input type="hidden" name="krbver" value="$ver" />	<input type="hidden" name="krbver" value="$ver" />
<input type="hidden" name="krbarg" value="$authparm" />	<input type="hidden" name="krbarg" value="$authparm" />
KERB	KERB
$authmsg = $rules->{$matchedrule}{'authmsg'};
}	}
} else {	} else {
$fixedauth =	$fixedauth =
Line 722 KERB	Line 1123 KERB
$fixedauth .=	$fixedauth .=
'<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n";	'<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n";
} else {	} else {
$varauth =	if ($authtype eq 'int') {
	$varauth = '<br />'.
	&mt('[_1] Internally authenticated (with initial password [_2])','','<input type="password" size="10" name="intarg" value="" />')."<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';
	} elsif ($authtype eq 'loc') {
	$varauth = '<br />'.
	&mt('[_1] Local Authentication with argument [_2]','','<input type="text" name="'.$authtype.'arg" value="" />')."\n";
	} else {
	$varauth =
'<input type="text" name="'.$authtype.'arg" value="" />'."\n";	'<input type="text" name="'.$authtype.'arg" value="" />'."\n";
	}
}	}
}	}
}	}
Line 751 ENDAUTH	Line 1160 ENDAUTH
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'cup' => "Modify existing user: ",	'cup' => "Modify existing user: ",
'ens' => "Enroll one student: ",	'ens' => "Enroll one student: ",
	'enm' => "Enroll one member: ",
'id' => "in domain",	'id' => "in domain",
);	);
$r->print(<<ENDCHANGEUSER);	$r->print(<<ENDCHANGEUSER);
Line 760 $forminfo	Line 1170 $forminfo
<h2>	<h2>
ENDCHANGEUSER	ENDCHANGEUSER
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$r->print($lt{'ens'});	if ($crstype eq 'Community') {
	$r->print($lt{'enm'});
	} else {
	$r->print($lt{'ens'});
	}
} else {	} else {
$r->print($lt{'cup'});	$r->print($lt{'cup'});
}	}
Line 773 ENDCHANGEUSER	Line 1187 ENDCHANGEUSER
if ($showforceid) {	if ($showforceid) {
$r->print(&Apache::lonuserutils::forceid_change($context));	$r->print(&Apache::lonuserutils::forceid_change($context));
}	}
	if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
	$r->print('<h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.
	&Apache::loncommon::start_data_table());
	if ($env{'request.role.domain'} eq $ccdomain) {
	$r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses'));
	} else {
	$r->print(&coursereq_externaluser($ccuname,$ccdomain,
	$env{'request.role.domain'}));
	}
	$r->print(&Apache::loncommon::end_data_table());
	}
$r->print('</div>');	$r->print('</div>');
my $user_auth_text = &user_authentication($ccuname,$ccdomain,$formname);	my $user_auth_text = &user_authentication($ccuname,$ccdomain,$formname);
my $user_quota_text;	my ($user_quota_text,$user_tools_text,$user_reqcrs_text);
if (&Apache::lonnet::allowed('mpq',$ccdomain)) {	if ((&Apache::lonnet::allowed('mpq',$ccdomain)) \|\|
	(&Apache::lonnet::allowed('mut',$ccdomain))) {
# Current user has quota modification privileges	# Current user has quota modification privileges
$user_quota_text = &portfolio_quota($ccuname,$ccdomain);	$user_quota_text = &portfolio_quota($ccuname,$ccdomain);
} elsif (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {	}
# Get the user's portfolio information	if (!&Apache::lonnet::allowed('mpq',$ccdomain)) {
my %portq = &Apache::lonnet::get('environment',['portfolioquota'],	if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
$ccdomain,$ccuname);	# Get the user's portfolio information
	my %portq = &Apache::lonnet::get('environment',['portfolioquota'],
my %lt=&Apache::lonlocal::texthash(	$ccdomain,$ccuname);
'dska' => "Disk space allocated to user's portfolio files",	my %lt=&Apache::lonlocal::texthash(
'youd' => "You do not have privileges to modify the portfolio quota for this user.",	'dska' => "Disk space allocated to user's portfolio files",
'ichr' => "If a change is required, contact a domain coordinator for the domain",	'youd' => "You do not have privileges to modify the portfolio quota for this user.",
);	'ichr' => "If a change is required, contact a domain coordinator for the domain",
$user_quota_text = <<ENDNOPORTPRIV;	);
	$user_quota_text = <<ENDNOPORTPRIV;
<h3>$lt{'dska'}</h3>	<h3>$lt{'dska'}</h3>
$lt{'youd'} $lt{'ichr'}: $ccdomain	$lt{'youd'} $lt{'ichr'}: $ccdomain
ENDNOPORTPRIV	ENDNOPORTPRIV
	}
	}
	if (!&Apache::lonnet::allowed('mut',$ccdomain)) {
	if (&Apache::lonnet::allowed('mut',$env{'request.role.domain'})) {
	my %lt=&Apache::lonlocal::texthash(
	'utav' => "User Tools Availability",
	'yodo' => "You do not have privileges to modify Portfolio, Blog or Personal Information Page settings for this user.",
	'ifch' => "If a change is required, contact a domain coordinator for the domain",
	);
	$user_tools_text = <<ENDNOTOOLSPRIV;
	<h3>$lt{'utav'}</h3>
	$lt{'yodo'} $lt{'ifch'}: $ccdomain
	ENDNOTOOLSPRIV
	}
}	}
if ($user_auth_text ne '') {	if ($user_auth_text ne '') {
$r->print('<div class="LC_left_float">'.$user_auth_text);	$r->print('<div class="LC_left_float">'.$user_auth_text);
if ($user_quota_text ne '') {	if ($user_quota_text ne '') {
$r->print($user_quota_text);	$r->print($user_quota_text);
}	}
	if ($user_tools_text ne '') {
	$r->print($user_tools_text);
	}
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$r->print(&date_sections_select($context,$newuser,$formname));	$r->print(&date_sections_select($context,$newuser,$formname));
}	}
} elsif ($user_quota_text ne '') {	} elsif ($user_quota_text ne '') {
$r->print('<div class="LC_left_float">'.$user_quota_text);	$r->print('<div class="LC_left_float">'.$user_quota_text);
	if ($user_tools_text ne '') {
	$r->print($user_tools_text);
	}
	if ($env{'form.action'} eq 'singlestudent') {
	$r->print(&date_sections_select($context,$newuser,$formname));
	}
	} elsif ($user_tools_text ne '') {
	$r->print('<div class="LC_left_float">'.$user_tools_text);
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$r->print(&date_sections_select($context,$newuser,$formname));	$r->print(&date_sections_select($context,$newuser,$formname));
}	}
Line 820 ENDNOPORTPRIV	Line 1272 ENDNOPORTPRIV
} ## End of new user/old user logic	} ## End of new user/old user logic

if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$r->print('<br /><input type="button" value="'.&mt('Enroll Student').'" onClick="setSections(this.form)" />'."\n");	my $btntxt;
	if ($crstype eq 'Community') {
	$btntxt = &mt('Enroll Member');
	} else {
	$btntxt = &mt('Enroll Student');
	}
	$r->print('<br /><input type="button" value="'.$btntxt.'" onclick="setSections(this.form)" />'."\n");
} else {	} else {
$r->print('<h3>'.&mt('Add Roles').'</h3>');	$r->print('<h3>'.&mt('Add Roles').'</h3>');
my $addrolesdisplay = 0;	my $addrolesdisplay = 0;
Line 833 ENDNOPORTPRIV	Line 1291 ENDNOPORTPRIV
$addrolesdisplay = $add_domainroles;	$addrolesdisplay = $add_domainroles;
}	}
$r->print(&course_level_dc($env{'request.role.domain'},'Course'));	$r->print(&course_level_dc($env{'request.role.domain'},'Course'));
$r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()" />'."\n");	$r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setCourse()" />'."\n");
} elsif ($context eq 'author') {	} elsif ($context eq 'author') {
if ($addrolesdisplay) {	if ($addrolesdisplay) {
$r->print('<br /><input type="button" value="'.&mt('Modify User').'"');	$r->print('<br /><input type="button" value="'.&mt('Save').'"');
if ($newuser) {	if ($newuser) {
$r->print(' onClick="auth_check()" \>'."\n");	$r->print(' onclick="auth_check()" \>'."\n");
} else {	} else {
$r->print('onClick="this.form.submit()" \>'."\n");	$r->print('onclick="this.form.submit()" \>'."\n");
}	}
} else {	} else {
$r->print('<br /><a href="javascript:backPage(document.cu)">'.	$r->print('<br /><a href="javascript:backPage(document.cu)">'.
Line 848 ENDNOPORTPRIV	Line 1306 ENDNOPORTPRIV
}	}
} else {	} else {
$r->print(&course_level_table(%inccourses));	$r->print(&course_level_table(%inccourses));
$r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setSections(this.form)" />'."\n");	$r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setSections(this.form)" />'."\n");
}	}
}	}
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));	$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));
Line 859 ENDNOPORTPRIV	Line 1317 ENDNOPORTPRIV
}	}

sub singleuser_breadcrumb {	sub singleuser_breadcrumb {
	my ($crstype) = @_;
my %breadcrumb_text;	my %breadcrumb_text;
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$breadcrumb_text{'search'} = 'Enroll a student';	if ($crstype eq 'Community') {
	$breadcrumb_text{'search'} = 'Enroll a member';
	} else {
	$breadcrumb_text{'search'} = 'Enroll a student';
	}
$breadcrumb_text{'userpicked'} = 'Select a user',	$breadcrumb_text{'userpicked'} = 'Select a user',
$breadcrumb_text{'modify'} = 'Set section/dates',	$breadcrumb_text{'modify'} = 'Set section/dates',
} else {	} else {
Line 916 sub validation_javascript {	Line 1379 sub validation_javascript {
$nondc_setsection_code,$groupslist);	$nondc_setsection_code,$groupslist);
my ($jsback,$elements) = &crumb_utilities();	my ($jsback,$elements) = &crumb_utilities();
$js .= "\n".	$js .= "\n".
'<script type="text/javascript">'."\n".$jsback."\n".'</script>';	'<script type="text/javascript">'."\n".
	'// <![CDATA['."\n".
	$jsback."\n".
	'// ]]>'."\n".
	'</script>'."\n";
return $js;	return $js;
}	}

Line 967 sub display_existing_roles {	Line 1434 sub display_existing_roles {
if (defined($coursedata{'description'})) {	if (defined($coursedata{'description'})) {
$carea=$coursedata{'description'}.	$carea=$coursedata{'description'}.
'<br />'.&mt('Domain').': '.$coursedom.(' 'x8).	'<br />'.&mt('Domain').': '.$coursedom.(' 'x8).
&Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$coursedir,$coursedom);
$sortkey.="\0".$coursedata{'description'};	$sortkey.="\0".$coursedata{'description'};
$class=$coursedata{'type'};	$class=$coursedata{'type'};
} else {	} else {
Line 1072 sub display_existing_roles {	Line 1539 sub display_existing_roles {
}	}
$row.= '</td><td>'.$plaintext.	$row.= '</td><td>'.$plaintext.
'</td><td>'.$area.	'</td><td>'.$area.
'</td><td>'.($role_start_time?localtime($role_start_time)	'</td><td>'.($role_start_time?&Apache::lonlocal::locallocaltime($role_start_time)
: ' ' ).	: ' ' ).
'</td><td>'.($role_end_time ?localtime($role_end_time)	'</td><td>'.($role_end_time ?&Apache::lonlocal::locallocaltime($role_end_time)
: ' ' )	: ' ' )
."</td>";	."</td>";
$sortrole{$sortkey}=$envkey;	$sortrole{$sortkey}=$envkey;
Line 1085 sub display_existing_roles {	Line 1552 sub display_existing_roles {
} # end of foreach (table building loop)	} # end of foreach (table building loop)
my $rolesdisplay = 0;	my $rolesdisplay = 0;
my %output = ();	my %output = ();
foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {	foreach my $type ('Construction Space','Course','Community','Domain','System','Unknown') {
$output{$type} = '';	$output{$type} = '';
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {	foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {	if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {
Line 1103 sub display_existing_roles {	Line 1570 sub display_existing_roles {
}	}
}	}
if ($rolesdisplay == 1) {	if ($rolesdisplay == 1) {
	my $contextrole='';
	if ($env{'request.course.id'}) {
	my $crstype = &Apache::loncommon::course_type();
	$contextrole = "Existing Roles in this $crstype";
	} elsif ($env{'request.role'} =~ /^au\./) {
	$contextrole = 'Existing Co-Author Roles in your Construction Space';
	} else {
	$contextrole = 'Existing Roles in this Domain';
	}
$r->print('	$r->print('
<h3>'.$lt{'rer'}.'</h3>'.	<h3>'.$lt{'rer'}.'</h3>'.
	'<div>'.&mt($contextrole).'</div>'.
&Apache::loncommon::start_data_table("LC_createuser").	&Apache::loncommon::start_data_table("LC_createuser").
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
'<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.	'<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.
'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.	'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.	'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
&Apache::loncommon::end_data_table_header_row());	&Apache::loncommon::end_data_table_header_row());
foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {	foreach my $type ('Construction Space','Course','Community','Domain','System','Unknown') {
if ($output{$type}) {	if ($output{$type}) {
$r->print($output{$type}."\n");	$r->print($output{$type}."\n");
}	}
Line 1156 sub new_coauthor_roles {	Line 1633 sub new_coauthor_roles {
&Apache::loncommon::end_data_table_header_row()."\n".	&Apache::loncommon::end_data_table_header_row()."\n".
&Apache::loncommon::start_data_table_row().'	&Apache::loncommon::start_data_table_row().'
<td>	<td>
<input type=checkbox name="act_'.$cudom.'_'.$cuname.'_ca" />	<input type="checkbox" name="act_'.$cudom.'_'.$cuname.'_ca" />
</td>	</td>
<td>'.$lt{'cau'}.'</td>	<td>'.$lt{'cau'}.'</td>
<td>'.$cudom.'_'.$cuname.'</td>	<td>'.$cudom.'_'.$cuname.'</td>
Line 1168 sub new_coauthor_roles {	Line 1645 sub new_coauthor_roles {
"javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".	"javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
&Apache::loncommon::end_data_table_row()."\n".	&Apache::loncommon::end_data_table_row()."\n".
&Apache::loncommon::start_data_table_row()."\n".	&Apache::loncommon::start_data_table_row()."\n".
'<td><input type=checkbox name="act_'.$cudom.'_'.$cuname.'_aa" /></td>	'<td><input type="checkbox" name="act_'.$cudom.'_'.$cuname.'_aa" /></td>
<td>'.$lt{'caa'}.'</td>	<td>'.$lt{'caa'}.'</td>
<td>'.$cudom.'_'.$cuname.'</td>	<td>'.$cudom.'_'.$cuname.'</td>
<td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_aa" value="" />	<td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_aa" value="" />
Line 1208 sub new_domain_roles {	Line 1685 sub new_domain_roles {
&mt('Extent').'</th>'.	&mt('Extent').'</th>'.
'<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.	'<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
&Apache::loncommon::end_data_table_header_row();	&Apache::loncommon::end_data_table_header_row();
	my @allroles = &Apache::lonuserutils::roles_by_context('domain');
foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {	foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
foreach my $role ('dc','li','dg','au','sc') {	foreach my $role (@allroles) {
	next if ($role eq 'ad');
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {	if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
my $plrole=&Apache::lonnet::plaintext($role);	my $plrole=&Apache::lonnet::plaintext($role);
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
Line 1219 sub new_domain_roles {	Line 1698 sub new_domain_roles {
$num_domain_level ++;	$num_domain_level ++;
$domaintext .=	$domaintext .=
&Apache::loncommon::start_data_table_row().	&Apache::loncommon::start_data_table_row().
'<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'" /></td>	'<td><input type="checkbox" name="act_'.$thisdomain.'_'.$role.'" /></td>
<td>'.$plrole.'</td>	<td>'.$plrole.'</td>
<td>'.$thisdomain.'</td>	<td>'.$thisdomain.'</td>
<td><input type="hidden" name="start_'.$thisdomain.'_'.$role.'" value="" />	<td><input type="hidden" name="start_'.$thisdomain.'_'.$role.'" value="" />
Line 1260 sub user_authentication {	Line 1739 sub user_authentication {
my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);	my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);
$outcome = <<ENDBADAUTH;	$outcome = <<ENDBADAUTH;
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
	// <![CDATA[
$loginscript	$loginscript
	// ]]>
</script>	</script>
<span class="LC_error">$lt{'err'}:	<span class="LC_error">$lt{'err'}:
$lt{'uuas'} ($currentauth). $lt{'sldb'}.</span>	$lt{'uuas'} ($currentauth). $lt{'sldb'}.</span>
Line 1289 ENDBADAUTH	Line 1770 ENDBADAUTH
);	);
$outcome =	$outcome =
'<script type="text/javascript" language="Javascript">'."\n".	'<script type="text/javascript" language="Javascript">'."\n".
	'// <![CDATA['."\n".
$loginscript."\n".	$loginscript."\n".
	'// ]]>'."\n".
'</script>'."\n".	'</script>'."\n".
'<h3>'.$lt{'ld'}.'</h3>'.	'<h3>'.$lt{'ld'}.'</h3>'.
&Apache::loncommon::start_data_table().	&Apache::loncommon::start_data_table().
Line 1397 sub modify_login_block {	Line 1880 sub modify_login_block {

sub personal_data_display {	sub personal_data_display {
my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray) = @_;	my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray) = @_;
my ($output,$showforceid,%userenv,%canmodify);	my ($output,$showforceid,%userenv,%canmodify,%canmodify_status);
my @userinfo = ('firstname','middlename','lastname','generation',	my @userinfo = ('firstname','middlename','lastname','generation',
'permanentemail','id');	'permanentemail','id');
my $rowcount = 0;	my $rowcount = 0;
my $editable = 0;	my $editable = 0;
	%canmodify_status =
	&Apache::lonuserutils::can_modify_userinfo($context,$ccdomain,
	['inststatus'],$rolesarray);
if (!$newuser) {	if (!$newuser) {
# Get the users information	# Get the users information
%userenv = &Apache::lonnet::get('environment',	%userenv = &Apache::lonnet::get('environment',
['firstname','middlename','lastname','generation',	['firstname','middlename','lastname','generation',
'permanentemail','id'],$ccdomain,$ccuname);	'permanentemail','id','inststatus'],$ccdomain,$ccuname);
%canmodify =	%canmodify =
&Apache::lonuserutils::can_modify_userinfo($context,$ccdomain,	&Apache::lonuserutils::can_modify_userinfo($context,$ccdomain,
\@userinfo,$rolesarray);	\@userinfo,$rolesarray);
Line 1421 sub personal_data_display {	Line 1907 sub personal_data_display {
'lastname' => "Last Name",	'lastname' => "Last Name",
'generation' => "Generation",	'generation' => "Generation",
'permanentemail' => "Permanent e-mail address",	'permanentemail' => "Permanent e-mail address",
'id' => "ID/Student Number",	'id' => "Student/Employee ID",
'lg' => "Login Data"	'lg' => "Login Data",
	'inststatus' => "Affiliation",
);	);
my %textboxsize = (	my %textboxsize = (
firstname => '15',	firstname => '15',
Line 1448 sub personal_data_display {	Line 1935 sub personal_data_display {
$row .= '<input type="hidden" name="c'.$item.'" value="'.$inst_results->{$item}.'" />'.$inst_results->{$item};	$row .= '<input type="hidden" name="c'.$item.'" value="'.$inst_results->{$item}.'" />'.$inst_results->{$item};
} else {	} else {
if ($context eq 'selfcreate') {	if ($context eq 'selfcreate') {
if ($canmodify{$item}) {	if ($canmodify{$item}) {
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';	$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
$editable ++;	$editable ++;
} else {	} else {
Line 1460 sub personal_data_display {	Line 1947 sub personal_data_display {
}	}
} else {	} else {
if ($context eq 'selfcreate') {	if ($context eq 'selfcreate') {
if ($canmodify{$item}) {	if (($item eq 'permanentemail') && ($newuser eq 'email')) {
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';	$row .= $ccuname;
$editable ++;
} else {	} else {
$hiderow = 1;	if ($canmodify{$item}) {
	$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
	$editable ++;
	} else {
	$hiderow = 1;
	}
}	}
} else {	} else {
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';	$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
Line 1486 sub personal_data_display {	Line 1977 sub personal_data_display {
$rowcount ++;	$rowcount ++;
}	}
}	}
	if (($canmodify_status{'inststatus'}) \|\| ($context ne 'selfcreate')) {
	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($ccdomain);
	if (ref($types) eq 'ARRAY') {
	if (@{$types} > 0) {
	my ($hiderow,$shown);
	if ($canmodify_status{'inststatus'}) {
	$shown = &pick_inst_statuses($userenv{'inststatus'},$usertypes,$types);
	} else {
	$shown .= $userenv{'inststatus'};
	if ($userenv{'inststatus'} eq '') {
	$hiderow = 1;
	}
	}
	if (!$hiderow) {
	my $row = &Apache::lonhtmlcommon::row_title(&mt('Affliations'),undef,'LC_oddrow_value')."\n".
	$shown.&Apache::lonhtmlcommon::row_closure(1);
	if ($context eq 'selfcreate') {
	$rowcount ++;
	}
	$output .= $row;
	}
	}
	}
	}
$output .= &Apache::lonhtmlcommon::end_pick_box();	$output .= &Apache::lonhtmlcommon::end_pick_box();
if (wantarray) {	if (wantarray) {
if ($context eq 'selfcreate') {	if ($context eq 'selfcreate') {
Line 1498 sub personal_data_display {	Line 2013 sub personal_data_display {
}	}
}	}

	sub pick_inst_statuses {
	my ($curr,$usertypes,$types) = @_;
	my ($output,$rem,@currtypes);
	if ($curr ne '') {
	@currtypes = map { &unescape($_); } split(/:/,$curr);
	}
	my $numinrow = 2;
	if (ref($types) eq 'ARRAY') {
	$output = '<table>';
	my $lastcolspan;
	for (my $i=0; $i<@{$types}; $i++) {
	if (defined($usertypes->{$types->[$i]})) {
	my $rem = $i%($numinrow);
	if ($rem == 0) {
	if ($i<@{$types}-1) {
	if ($i > 0) {
	$output .= '</tr>';
	}
	$output .= '<tr>';
	}
	} elsif ($i==@{$types}-1) {
	my $colsleft = $numinrow - $rem;
	if ($colsleft > 1) {
	$lastcolspan = ' colspan="'.$colsleft.'"';
	}
	}
	my $check = ' ';
	if (grep(/^\Q$types->[$i]\E$/,@currtypes)) {
	$check = ' checked="checked" ';
	}
	$output .= '<td class="LC_left_item"'.$lastcolspan.'>'.
	'<span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="inststatus" '.
	'value="'.$types->[$i].'"'.$check.'/>'.
	$usertypes->{$types->[$i]}.'</label></span></td>';
	}
	}
	$output .= '</tr></table>';
	}
	return $output;
	}

sub selfcreate_canmodify {	sub selfcreate_canmodify {
my ($context,$dom,$userinfo,$inst_results,$rolesarray) = @_;	my ($context,$dom,$userinfo,$inst_results,$rolesarray) = @_;
if (ref($inst_results) eq 'HASH') {	if (ref($inst_results) eq 'HASH') {
Line 1526 sub get_inststatuses {	Line 2083 sub get_inststatuses {

# ================================================================= Phase Three	# ================================================================= Phase Three
sub update_user_data {	sub update_user_data {
my ($r,$context) = @_;	my ($r,$context,$crstype) = @_;
my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'},	my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'},
$env{'form.ccdomain'});	$env{'form.ccdomain'});
# Error messages	# Error messages
Line 1546 sub update_user_data {	Line 2103 sub update_user_data {
my $newuser = 0;	my $newuser = 0;
my ($jsback,$elements) = &crumb_utilities();	my ($jsback,$elements) = &crumb_utilities();
my $jscript = '<script type="text/javascript">'."\n".	my $jscript = '<script type="text/javascript">'."\n".
$jsback."\n".'</script>'."\n";	'// <![CDATA['."\n".
my %breadcrumb_text = &singleuser_breadcrumb();	$jsback."\n".
	'// ]]>'."\n".
	'</script>'."\n";
	my %breadcrumb_text = &singleuser_breadcrumb($crstype);
my $args;	my $args;
if ($env{'form.popup'}) {	if ($env{'form.popup'}) {
$args->{'no_nav_bar'} = 1;	$args->{'no_nav_bar'} = 1;
Line 1586 sub update_user_data {	Line 2146 sub update_user_data {
}	}
if ( $env{'form.ccuname'} ne	if ( $env{'form.ccuname'} ne
&LONCAPA::clean_username($env{'form.ccuname'}) ) {	&LONCAPA::clean_username($env{'form.ccuname'}) ) {
$r->print($error.&mt('Invalid login name').'. '.	$r->print($error.&mt('Invalid login name.').' '.
&mt('Only letters, numbers, periods, dashes, @, and underscores are valid').'.'.	&mt('Only letters, numbers, periods, dashes, @, and underscores are valid.').
$end.$rtnlink);	$end.$rtnlink);
return;	return;
}	}
Line 1597 sub update_user_data {	Line 2157 sub update_user_data {
}	}
if ( $env{'form.ccdomain'} ne	if ( $env{'form.ccdomain'} ne
&LONCAPA::clean_domain($env{'form.ccdomain'}) ) {	&LONCAPA::clean_domain($env{'form.ccdomain'}) ) {
$r->print($error.&mt ('Invalid domain name').'. '.	$r->print($error.&mt('Invalid domain name.').' '.
&mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.	&mt('Only letters, numbers, periods, dashes, and underscores are valid.').
$end.$rtnlink);	$end.$rtnlink);
return;	return;
}	}
Line 1645 sub update_user_data {	Line 2205 sub update_user_data {
$r->print('<h3>'.&mt('User [_1] in domain [_2]',	$r->print('<h3>'.&mt('User [_1] in domain [_2]',
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');	$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');
my (%alerts,%rulematch,%inst_results,%curr_rules);	my (%alerts,%rulematch,%inst_results,%curr_rules);
	my @usertools = ('aboutme','blog','portfolio');
	my @requestcourses = ('official','unofficial');
	my ($othertitle,$usertypes,$types) =
	&Apache::loncommon::sorted_inst_types($env{'form.ccdomain'});
if ($env{'form.makeuser'}) {	if ($env{'form.makeuser'}) {
$r->print('<h3>'.&mt('Creating new account.').'</h3>');	$r->print('<h3>'.&mt('Creating new account.').'</h3>');
# Check for the authentication mode and password	# Check for the authentication mode and password
Line 1704 sub update_user_data {	Line 2268 sub update_user_data {
$r->print(&mt('Generating user').': '.$result);	$r->print(&mt('Generating user').': '.$result);
$uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},	$uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},
$env{'form.ccdomain'});	$env{'form.ccdomain'});
if (($uhome ne 'no_host') && ($env{'form.customquota'} == 1)) {	my (%changeHash,%newcustom,%changed);
my (%changeHash,$newportfolioquota);	if ($uhome ne 'no_host') {
if ($env{'form.portfolioquota'} eq '') {	if ($env{'form.customquota'} == 1) {
$newportfolioquota = 0;	if ($env{'form.portfolioquota'} eq '') {
} else {	$newcustom{'quota'} = 0;
$newportfolioquota = $env{'form.portfolioquota'};	} else {
$newportfolioquota =~ s/[^\d\.]//g;	$newcustom{'quota'} = $env{'form.portfolioquota'};
	$newcustom{'quota'} =~ s/[^\d\.]//g;
	}
	$changed{'quota'} = &quota_admin($newcustom{'quota'},\%changeHash);
}	}
my $quotachanged = &quota_admin($newportfolioquota,\%changeHash);	foreach my $item (@usertools) {
if ($quotachanged) {	if ($env{'form.custom'.$item} == 1) {
	$newcustom{$item} = $env{'form.tools_'.$item};
	$changed{$item} = &tool_admin($item,$newcustom{$item},
	\%changeHash,'tools');
	}
	}
	foreach my $item (@requestcourses) {
	$newcustom{$item} = $env{'form.crsreq_'.$item};
	if ($env{'form.crsreq_'.$item} eq 'autolimit') {
	$newcustom{$item} .= '=';
	unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {
	$newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
	}
	}
	$changed{$item} = &tool_admin($item,$newcustom{$item},
	\%changeHash,'requestcourses');
	}
	if (exists($env{'form.inststatus'})) {
	my @inststatuses = &Apache::loncommon::get_env_multiple('form.inststatus');
	if (@inststatuses > 0) {
	$changeHash{'inststatus'} = join(',',@inststatuses);
	$changed{'inststatus'} = $changeHash{'inststatus'};
	}
	}
	if (keys(%changed)) {
$changeHash{'firstname'} = $env{'form.cfirstname'};	$changeHash{'firstname'} = $env{'form.cfirstname'};
$changeHash{'middlename'} = $env{'form.cmiddlename'};	$changeHash{'middlename'} = $env{'form.cmiddlename'};
$changeHash{'lastname'} = $env{'form.clastname'};	$changeHash{'lastname'} = $env{'form.clastname'};
$changeHash{'generation'} = $env{'form.cgeneration'};	$changeHash{'generation'} = $env{'form.cgeneration'};
$changeHash{'id'} = $env{'form.cid'};	$changeHash{'id'} = $env{'form.cid'};
$changeHash{'permanentemail'} = $env{'form.cpermanentemail'};	$changeHash{'permanentemail'} = $env{'form.cpermanentemail'};
my $quotachgresult =	my $chgresult =
&Apache::lonnet::put('environment',\%changeHash,	&Apache::lonnet::put('environment',\%changeHash,
$env{'form.ccdomain'},$env{'form.ccuname'});	$env{'form.ccdomain'},$env{'form.ccuname'});
}	}
}	}
$r->print('<br />'.&mt('Home server').': '.$uhome.' '.	$r->print('<br />'.&mt('Home server').': '.$uhome.' '.
&Apache::lonnet::hostname($uhome));	&Apache::lonnet::hostname($uhome));
Line 1748 sub update_user_data {	Line 2339 sub update_user_data {
}	}
}	}
##	##
my (@userroles,%userupdate,$cnum,$cdom,$namechanged);	my (@userroles,%userupdate,$cnum,$cdom,$crstype,$namechanged);
if ($context eq 'course') {	if ($context eq 'course') {
($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();	($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
	$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
}	}
if (! $env{'form.makeuser'} ) {	if (! $env{'form.makeuser'} ) {
# Check for need to change	# Check for need to change
my %userenv = &Apache::lonnet::get	my %userenv = &Apache::lonnet::get
('environment',['firstname','middlename','lastname','generation',	('environment',['firstname','middlename','lastname','generation',
'id','permanentemail','portfolioquota','inststatus'],	'id','permanentemail','portfolioquota','inststatus','tools.aboutme',
	'tools.blog','tools.portfolio','requestcourses.official',
	'requestcourses.unofficial','requestcourses.community',
	'reqcrsotherdom.official','reqcrsotherdom.unofficial',
	'reqcrsotherdom.community'],
$env{'form.ccdomain'},$env{'form.ccuname'});	$env{'form.ccdomain'},$env{'form.ccuname'});
my ($tmp) = keys(%userenv);	my ($tmp) = keys(%userenv);
if ($tmp =~ /^(con_lost\|error)/i) {	if ($tmp =~ /^(con_lost\|error)/i) {
Line 1830 sub update_user_data {	Line 2426 sub update_user_data {
if ($role eq 'cr') {	if ($role eq 'cr') {
push(@longroles,'Custom');	push(@longroles,'Custom');
} else {	} else {
push(@longroles,&Apache::lonnet::plaintext($role));	push(@longroles,&Apache::lonnet::plaintext($role,$crstype));
}	}
}	}
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');	my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');
Line 1847 sub update_user_data {	Line 2443 sub update_user_data {
$env{'form.c'.$item} = $userenv{$item};	$env{'form.c'.$item} = $userenv{$item};
}	}
}	}
# Check to see if we can change the ID/student number	# Check to see if we can change the Student/Employee ID
my $forceid = $env{'form.forceid'};	my $forceid = $env{'form.forceid'};
my $recurseid = $env{'form.recurseid'};	my $recurseid = $env{'form.recurseid'};
my (%alerts,%rulematch,%idinst_results,%curr_rules,%got_rules);	my (%alerts,%rulematch,%idinst_results,%curr_rules,%got_rules);
Line 1858 sub update_user_data {	Line 2454 sub update_user_data {
(!$forceid)) {	(!$forceid)) {
if ($env{'form.cid'} ne $uidhash{$env{'form.ccuname'}}) {	if ($env{'form.cid'} ne $uidhash{$env{'form.ccuname'}}) {
$env{'form.cid'} = $userenv{'id'};	$env{'form.cid'} = $userenv{'id'};
$no_forceid_alert = &mt('New student/employeeID does not match existing ID for this user.').'<br />'.&mt('Change is not permitted without checking the \'Force ID change\' checkbox on the previous page.').'<br />'."\n";	$no_forceid_alert = &mt('New student/employee ID does not match existing ID for this user.')
	.'<br />'
	.&mt("Change is not permitted without checking the 'Force ID change' checkbox on the previous page.")
	.'<br />'."\n";
}	}
}	}
if ($env{'form.cid'} ne $userenv{'id'}) {	if ($env{'form.cid'} ne $userenv{'id'}) {
Line 1876 sub update_user_data {	Line 2475 sub update_user_data {
}	}
}	}
}	}
my ($quotachanged,$oldportfolioquota,$newportfolioquota,	my ($quotachanged,$oldportfolioquota,$newportfolioquota,$oldinststatus,
$inststatus,$oldisdefault,$newisdefault,$olddefquotatext,	$inststatus,$newinststatus,$oldisdefault,$newisdefault,$olddefquotatext,
$newdefquotatext);	$newdefquotatext,%oldaccess,%oldaccesstext,%newaccess,%newaccesstext,
	$oldinststatuses,$newinststatuses);
my ($defquota,$settingstatus) =	my ($defquota,$settingstatus) =
&Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);	&Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);
my $showquota;	my ($showquota,$showtools,$showrequestcourses,$showinststatus,$showreqotherdom);
if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {	if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
$showquota = 1;	$showquota = 1;
}	}
my %changeHash;	if (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) {
	$showtools = 1;
	}
	if (&Apache::lonnet::allowed('ccc',$env{'form.ccdomain'})) {
	$showrequestcourses = 1;
	} elsif (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
	$showreqotherdom = 1;
	}
	if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {
	$showinststatus = 1;
	}
	my (%changeHash,%changed);
	$oldinststatus = $userenv{'inststatus'};
	if ($oldinststatus eq '') {
	$oldinststatuses = $othertitle;
	} else {
	if (ref($usertypes) eq 'HASH') {
	$oldinststatuses = join(', ',map{ $usertypes->{ &unescape($_) }; } (split(/:/,$userenv{'inststatus'})));
	} else {
	$oldinststatuses = join(', ',map{ &unescape($_); } (split(/:/,$userenv{'inststatus'})));
	}
	}
	$changeHash{'inststatus'} = $userenv{'inststatus'};
	my %canmodify_inststatus = &Apache::lonuserutils::can_modify_userinfo($context,$env{'form.ccdomain'},['inststatus'],\@userroles);
	if ($canmodify_inststatus{'inststatus'}) {
	if (exists($env{'form.inststatus'})) {
	my @inststatuses = &Apache::loncommon::get_env_multiple('form.inststatus');
	if (@inststatuses > 0) {
	$newinststatus = join(':',map { &escape($_); } @inststatuses);
	$changeHash{'inststatus'} = $newinststatus;
	if ($newinststatus ne $oldinststatus) {
	$changed{'inststatus'} = $newinststatus;
	}
	if (ref($usertypes) eq 'HASH') {
	$newinststatuses = join(', ',map{ $usertypes->{$_}; } (@inststatuses));
	} else {
	$newinststatuses = join(', ',map{ $usertypes->{$_}; } (@inststatuses));
	}
	} else {
	$newinststatus = '';
	$changeHash{'inststatus'} = $newinststatus;
	$newinststatuses = $othertitle;
	if ($newinststatus ne $oldinststatus) {
	$changed{'inststatus'} = $changeHash{'inststatus'};
	}
	}
	}
	}
$changeHash{'portfolioquota'} = $userenv{'portfolioquota'};	$changeHash{'portfolioquota'} = $userenv{'portfolioquota'};
if ($userenv{'portfolioquota'} ne '') {	if ($userenv{'portfolioquota'} ne '') {
$oldportfolioquota = $userenv{'portfolioquota'};	$oldportfolioquota = $userenv{'portfolioquota'};
Line 1897 sub update_user_data {	Line 2544 sub update_user_data {
$newportfolioquota =~ s/[^\d\.]//g;	$newportfolioquota =~ s/[^\d\.]//g;
}	}
if ($newportfolioquota != $oldportfolioquota) {	if ($newportfolioquota != $oldportfolioquota) {
$quotachanged = &quota_admin($newportfolioquota,\%changeHash);	$changed{'quota'} = &quota_admin($newportfolioquota,\%changeHash);
}	}
} else {	} else {
$quotachanged = &quota_admin('',\%changeHash);	$changed{'quota'} = &quota_admin('',\%changeHash);
$newportfolioquota = $defquota;	$newportfolioquota = $defquota;
$newisdefault = 1;	$newisdefault = 1;
}	}
} else {	} else {
$oldisdefault = 1;	$oldisdefault = 1;
Line 1914 sub update_user_data {	Line 2561 sub update_user_data {
$newportfolioquota = $env{'form.portfolioquota'};	$newportfolioquota = $env{'form.portfolioquota'};
$newportfolioquota =~ s/[^\d\.]//g;	$newportfolioquota =~ s/[^\d\.]//g;
}	}
$quotachanged = &quota_admin($newportfolioquota,\%changeHash);	$changed{'quota'} = &quota_admin($newportfolioquota,\%changeHash);
} else {	} else {
$newportfolioquota = $defquota;	$newportfolioquota = $defquota;
$newisdefault = 1;	$newisdefault = 1;
Line 1926 sub update_user_data {	Line 2573 sub update_user_data {
if ($newisdefault) {	if ($newisdefault) {
$newdefquotatext = &get_defaultquota_text($settingstatus);	$newdefquotatext = &get_defaultquota_text($settingstatus);
}	}
	&tool_changes('tools',\@usertools,\%oldaccess,\%oldaccesstext,\%userenv,
	\%changeHash,\%changed,\%newaccess,\%newaccesstext);
	if ($env{'form.ccdomain'} eq $env{'request.role.domain'}) {
	&tool_changes('requestcourses',\@requestcourses,\%oldaccess,\%oldaccesstext,
	\%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);
	} else {
	&tool_changes('reqcrsotherdom',\@requestcourses,\%oldaccess,\%oldaccesstext,
	\%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);
	}
if ($env{'form.cfirstname'} ne $userenv{'firstname'} \|\|	if ($env{'form.cfirstname'} ne $userenv{'firstname'} \|\|
$env{'form.cmiddlename'} ne $userenv{'middlename'} \|\|	$env{'form.cmiddlename'} ne $userenv{'middlename'} \|\|
$env{'form.clastname'} ne $userenv{'lastname'} \|\|	$env{'form.clastname'} ne $userenv{'lastname'} \|\|
Line 1934 sub update_user_data {	Line 2590 sub update_user_data {
$env{'form.cpermanentemail'} ne $userenv{'permanentemail'} ) {	$env{'form.cpermanentemail'} ne $userenv{'permanentemail'} ) {
$namechanged = 1;	$namechanged = 1;
}	}
if ($namechanged \|\| $quotachanged) {	if (($namechanged) \|\| (keys(%changed) > 0)) {
$changeHash{'firstname'} = $env{'form.cfirstname'};	$changeHash{'firstname'} = $env{'form.cfirstname'};
$changeHash{'middlename'} = $env{'form.cmiddlename'};	$changeHash{'middlename'} = $env{'form.cmiddlename'};
$changeHash{'lastname'} = $env{'form.clastname'};	$changeHash{'lastname'} = $env{'form.clastname'};
$changeHash{'generation'} = $env{'form.cgeneration'};	$changeHash{'generation'} = $env{'form.cgeneration'};
$changeHash{'id'} = $env{'form.cid'};	$changeHash{'id'} = $env{'form.cid'};
$changeHash{'permanentemail'} = $env{'form.cpermanentemail'};	$changeHash{'permanentemail'} = $env{'form.cpermanentemail'};
my ($quotachgresult,$namechgresult);	my ($chgresult,$namechgresult);
if ($quotachanged) {	if (keys(%changed) > 0) {
$quotachgresult =	$chgresult =
&Apache::lonnet::put('environment',\%changeHash,	&Apache::lonnet::put('environment',\%changeHash,
$env{'form.ccdomain'},$env{'form.ccuname'});	$env{'form.ccdomain'},$env{'form.ccuname'});
	if ($chgresult eq 'ok') {
	if (($env{'user.name'} eq $env{'form.ccuname'}) &&
	($env{'user.domain'} eq $env{'form.ccdomain'})) {
	my %newenvhash;
	foreach my $key (keys(%changed)) {
	if (($key eq 'official') \|\| ($key eq 'unofficial')) {
	$newenvhash{'environment.requestcourses.'.$key} =
	$changeHash{'requestcourses.'.$key};
	if ($changeHash{'requestcourses.'.$key} ne '') {
	$newenvhash{'environment.canrequest.'.$key} = 1;
	} else {
	$newenvhash{'environment.canrequest.'.$key} =
	&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},
	$key,'reload','requestcourses');
	}
	} elsif ($key ne 'quota') {
	$newenvhash{'environment.tools.'.$key} =
	$changeHash{'tools.'.$key};
	if ($changeHash{'tools.'.$key} ne '') {
	$newenvhash{'environment.availabletools.'.$key} =
	$changeHash{'tools.'.$key};
	} else {
	$newenvhash{'environment.availabletools.'.$key} =
	&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, $key,'reload','tools');
	}
	}
	}
	if (keys(%newenvhash)) {
	&Apache::lonnet::appenv(\%newenvhash);
	}
	}
	}
}	}
if ($namechanged) {	if ($namechanged) {
# Make the change	# Make the change
Line 1964 sub update_user_data {	Line 2652 sub update_user_data {
);	);
}	}
if (($namechanged && $namechgresult eq 'ok') \|\|	if (($namechanged && $namechgresult eq 'ok') \|\|
($quotachanged && $quotachgresult eq 'ok')) {	((keys(%changed) > 0) && $chgresult eq 'ok')) {
# Tell the user we changed the name	# Tell the user we changed the name
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'uic' => "User Information Changed",	'uic' => 'User Information Changed',
'frst' => "first",	'frst' => 'First Name',
'mddl' => "middle",	'mddl' => 'Middle Name',
'lst' => "last",	'lst' => 'Last Name',
'gen' => "generation",	'gen' => 'Generation',
'id' => "ID/Student number",	'id' => 'Student/Employee ID',
'mail' => "permanent e-mail",	'mail' => 'Permanent e-mail address',
'disk' => "disk space allocated to portfolio files",	'disk' => 'Disk space allocated to portfolio files',
'prvs' => "Previous",	'blog' => 'Blog Availability',
'chto' => "Changed To"	'aboutme' => 'Personal Information Page Availability',
	'portfolio' => 'Portfolio Availability',
	'official' => 'Can Request Official Courses',
	'unofficial' => 'Can Request Unofficial Courses',
	'inststatus' => "Affiliation",
	'prvs' => 'Previous Value:',
	'chto' => 'Changed To:'
);	);
$r->print('<h4>'.$lt{'uic'}.'</h4>'.	$r->print('<h4>'.$lt{'uic'}.'</h4>'.
&Apache::loncommon::start_data_table().	&Apache::loncommon::start_data_table().
Line 1990 sub update_user_data {	Line 2684 sub update_user_data {
<th>$lt{'id'}</th>	<th>$lt{'id'}</th>
<th>$lt{'mail'}</th>	<th>$lt{'mail'}</th>
END	END
	if ($showinststatus) {
	$r->print("
	<th>$lt{'inststatus'}</th>\n");
	}
	if ($showrequestcourses) {
	foreach my $item (@requestcourses) {
	$r->print("
	<th>$lt{$item}</th>\n");
	}
	} elsif ($showreqotherdom) {
	foreach my $item (@requestcourses) {
	$r->print("
	<th>$lt{$item}</th>\n");
	}
	}
if ($showquota) {	if ($showquota) {
$r->print("	$r->print("
<th>$lt{'disk'}</th>\n");	<th>$lt{'disk'}</th>\n");
}	}
	if ($showtools) {
	foreach my $item (@usertools) {
	$r->print("
	<th>$lt{$item}</th>\n");
	}
	}
$r->print(&Apache::loncommon::end_data_table_header_row().	$r->print(&Apache::loncommon::end_data_table_header_row().
&Apache::loncommon::start_data_table_row());	&Apache::loncommon::start_data_table_row());
$r->print(<<"END");	$r->print(<<"END");
Line 2005 END	Line 2720 END
<td>$userenv{'id'}</td>	<td>$userenv{'id'}</td>
<td>$userenv{'permanentemail'} </td>	<td>$userenv{'permanentemail'} </td>
END	END
	if ($showinststatus) {
	$r->print("
	<td>$oldinststatuses</td>\n");
	}
	if ($showrequestcourses) {
	foreach my $item (@requestcourses) {
	$r->print("
	<td>$oldaccess{$item} $oldaccesstext{$item}</td>\n");
	}
	} elsif ($showreqotherdom) {
	foreach my $item (@requestcourses) {
	$r->print("
	<td>$oldaccess{$item} $oldaccesstext{$item}</td>\n");
	}
	}
if ($showquota) {	if ($showquota) {
$r->print("	$r->print("
<td>$oldportfolioquota Mb $olddefquotatext </td>\n");	<td>$oldportfolioquota Mb $olddefquotatext </td>\n");
}	}
	if ($showtools) {
	foreach my $item (@usertools) {
	$r->print("
	<td>$oldaccess{$item} $oldaccesstext{$item} </td>\n");
	}
	}
$r->print(&Apache::loncommon::end_data_table_row().	$r->print(&Apache::loncommon::end_data_table_row().
&Apache::loncommon::start_data_table_row());	&Apache::loncommon::start_data_table_row());
$r->print(<<"END");	$r->print(<<"END");
<td><b>$lt{'chto'}</b></td>	<td><span class="LC_nobreak"><b>$lt{'chto'}</b></span></td>
<td>$env{'form.cfirstname'} </td>	<td>$env{'form.cfirstname'} </td>
<td>$env{'form.cmiddlename'} </td>	<td>$env{'form.cmiddlename'} </td>
<td>$env{'form.clastname'} </td>	<td>$env{'form.clastname'} </td>
Line 2020 END	Line 2756 END
<td>$env{'form.cid'} </td>	<td>$env{'form.cid'} </td>
<td>$env{'form.cpermanentemail'} </td>	<td>$env{'form.cpermanentemail'} </td>
END	END
	if ($showinststatus) {
	$r->print("
	<td>$newinststatuses</td>\n");
	}
	if ($showrequestcourses) {
	foreach my $item (@requestcourses) {
	$r->print("
	<td>$newaccess{$item} $newaccesstext{$item} </td>\n");
	}
	} elsif ($showreqotherdom) {
	foreach my $item (@requestcourses) {
	$r->print("
	<td>$newaccess{$item} $newaccesstext{$item} </td>\n");
	}
	}
if ($showquota) {	if ($showquota) {
$r->print("	$r->print("
<td>$newportfolioquota Mb $newdefquotatext </td>\n");	<td>$newportfolioquota Mb $newdefquotatext </td>\n");
}	}
	if ($showtools) {
	foreach my $item (@usertools) {
	$r->print("
	<td>$newaccess{$item} $newaccesstext{$item} </td>\n");
	}
	}
$r->print(&Apache::loncommon::end_data_table_row().	$r->print(&Apache::loncommon::end_data_table_row().
&Apache::loncommon::end_data_table().'<br />');	&Apache::loncommon::end_data_table().'<br />');
if ($env{'form.cid'} ne $userenv{'id'}) {	if ($env{'form.cid'} ne $userenv{'id'}) {
Line 2052 END	Line 2809 END
$env{'form.ccdomain'}.'</span><br />');	$env{'form.ccdomain'}.'</span><br />');
}	}
} else { # End of if ($env ... ) logic	} else { # End of if ($env ... ) logic
# They did not want to change the users name or quota but we can	# They did not want to change the users name, quota, tool availability,
# still tell them what the name and quota are	# or ability to request creation of courses,
	# but we can still tell them what the name and quota and availabilities are
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'id' => "ID/Student number",	'id' => "Student/Employee ID",
'mail' => "Permanent e-mail",	'mail' => "Permanent e-mail address",
'disk' => "Disk space allocated to user's portfolio files",	'disk' => "Disk space allocated to user's portfolio files",
	'blog' => "Blog Availability",
	'aboutme' => "Personal Information Page Availability",
	'portfolio' => "Portfolio Availability",
	'official' => "Can Request Official Courses",
	'unofficial' => "Can Request Unofficial Courses",
	'inststatus' => "Affiliation",
);	);
$r->print(<<"END");	$r->print(<<"END");
<h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} $userenv{'generation'}	<h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} $userenv{'generation'}
Line 2066 END	Line 2830 END
$r->print('<br />['.$lt{'mail'}.': '.	$r->print('<br />['.$lt{'mail'}.': '.
$userenv{'permanentemail'}.']');	$userenv{'permanentemail'}.']');
}	}
	if ($showinststatus) {
	$r->print('<br />['.$lt{'inststatus'}.': '.$oldinststatuses.']');
	}
	if ($showrequestcourses) {
	foreach my $item (@requestcourses) {
	$r->print('<br />['.$lt{$item}.': '.$newaccess{$item}.' '.
	$newaccesstext{$item}.']'."\n");
	}
	} elsif ($showreqotherdom) {
	foreach my $item (@requestcourses) {
	$r->print('<br />['.$lt{$item}.': '.$newaccess{$item}.' '.
	$newaccesstext{$item}.']'."\n");
	}
	}
	if ($showtools) {
	foreach my $item (@usertools) {
	$r->print('<br />['.$lt{$item}.': '.$newaccess{$item}.' '.
	$newaccesstext{$item}.']'."\n");
	}
	}
if ($showquota) {	if ($showquota) {
$r->print('<br />['.$lt{'disk'}.': '.$oldportfolioquota.' Mb '.	$r->print('<br />['.$lt{'disk'}.': '.$oldportfolioquota.' Mb '.
$olddefquotatext.']');	$olddefquotatext.']');
}	}
$r->print('</h4>');	$r->print('</h4>');
Line 2095 END	Line 2879 END
} else {	} else {
$r->print(&mt("You do not have the authority to change these fields given the user's current set of active/future [_1] roles:",$contextname));	$r->print(&mt("You do not have the authority to change these fields given the user's current set of active/future [_1] roles:",$contextname));
}	}
$r->print('<span class="LC_cusr_emph">'.$rolestr.'</span><br />'.	my $helplink = 'javascript:helpMenu('."'display'".')';
&mt('Contact your <a href="[_1]">helpdesk</a> for more information.',"javascript:helpMenu('display')").'<br />');	$r->print('<span class="LC_cusr_emph">'.$rolestr.'</span><br />'
}	.&mt('Please contact your [_1]helpdesk[_2] for more information.'
$r->print($no_forceid_alert.	,'<a href="'.$helplink.'">','</a>')
&Apache::lonuserutils::print_namespacing_alerts($env{'form.ccdomain'},\%alerts,\%curr_rules));	.'<br />');
	}
	$r->print('<span class="LC_warning">'
	.$no_forceid_alert
	.&Apache::lonuserutils::print_namespacing_alerts($env{'form.ccdomain'},\%alerts,\%curr_rules)
	.'</span>');
}	}
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
&enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context);	&enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context,$crstype);
$r->print('<p><a href="javascript:backPage(document.userupdate)">'.	$r->print('<p><a href="javascript:backPage(document.userupdate)">');
&mt('Enroll Another Student').'</a></p>');	if ($crstype eq 'Community') {
	$r->print(&mt('Enroll Another Member'));
	} else {
	$r->print(&mt('Enroll Another Student'));
	}
	$r->print('</a></p>');
} else {	} else {
my @rolechanges = &update_roles($r,$context);	my @rolechanges = &update_roles($r,$context);
if ($namechanged) {	if ($namechanged) {
Line 2136 END	Line 2930 END
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

	sub tool_changes {
	my ($context,$usertools,$oldaccess,$oldaccesstext,$userenv,$changeHash,
	$changed,$newaccess,$newaccesstext) = @_;
	if (!((ref($usertools) eq 'ARRAY') && (ref($oldaccess) eq 'HASH') &&
	(ref($oldaccesstext) eq 'HASH') && (ref($userenv) eq 'HASH') &&
	(ref($changeHash) eq 'HASH') && (ref($changed) eq 'HASH') &&
	(ref($newaccess) eq 'HASH') && (ref($newaccesstext) eq 'HASH'))) {
	return;
	}
	if ($context eq 'reqcrsotherdom') {
	my @options = ('approval','validate','autolimit');
	my $optregex = join('\|',@options);
	my %reqdisplay = &courserequest_display();
	my $cdom = $env{'request.role.domain'};
	foreach my $tool (@{$usertools}) {
	$oldaccesstext->{$tool} = &mt('No');
	$newaccesstext->{$tool} = $oldaccesstext->{$tool};
	$changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};
	my $newop;
	if ($env{'form.'.$context.'_'.$tool}) {
	$newop = $env{'form.'.$context.'_'.$tool};
	if ($newop eq 'autolimit') {
	my $limit = $env{'form.'.$context.'_'.$tool.'_limit'};
	$limit =~ s/\D+//g;
	$newop .= '='.$limit;
	}
	}
	if ($userenv->{$context.'.'.$tool} eq '') {
	if ($newop) {
	$changed->{$tool}=&tool_admin($tool,$cdom.':'.$newop,
	$changeHash,$context);
	if ($changed->{$tool}) {
	$newaccesstext->{$tool} = &mt('Yes');
	} else {
	$newaccesstext->{$tool} = $oldaccesstext->{$tool};
	}
	}
	} else {
	my @curr = split(',',$userenv->{$context.'.'.$tool});
	my @new;
	my $changedoms;
	foreach my $req (@curr) {
	if ($req =~ /^\Q$cdom\E\:($optregex\=?\d*)$/) {
	$oldaccesstext->{$tool} = &mt('Yes');
	my $oldop = $1;
	if ($oldop ne $newop) {
	$changedoms = 1;
	foreach my $item (@curr) {
	my ($reqdom,$option) = split(':',$item);
	unless ($reqdom eq $cdom) {
	push(@new,$item);
	}
	}
	if ($newop) {
	push(@new,$cdom.':'.$newop);
	}
	@new = sort(@new);
	}
	last;
	}
	}
	if ((!$changedoms) && ($newop)) {
	$changedoms = 1;
	@new = sort(@curr,$cdom.':'.$newop);
	}
	if ($changedoms) {
	my $newdomstr;
	if (@new) {
	$newdomstr = join(',',@new);
	}
	$changed->{$tool}=&tool_admin($tool,$newdomstr,$changeHash,
	$context);
	if ($changed->{$tool}) {
	if ($env{'form.'.$context.'_'.$tool}) {
	if ($env{'form.'.$context.'_'.$tool} eq 'autolimit') {
	my $limit = $env{'form.'.$context.'_'.$tool.'_limit'};
	$limit =~ s/\D+//g;
	if ($limit) {
	$newaccesstext->{$tool} = &mt('Yes, up to limit of [quant,_1,request] per user.',$limit);
	} else {
	$newaccesstext->{$tool} = &mt('Yes, processed automatically');
	}
	} else {
	$newaccesstext->{$tool} = $reqdisplay{$env{'form.'.$context.'_'.$tool}};
	}
	} else {
	$newaccesstext->{$tool} = &mt('No');
	}
	}
	}
	}
	}
	return;
	}
	foreach my $tool (@{$usertools}) {
	my $newval;
	if ($context eq 'requestcourses') {
	$newval = $env{'form.crsreq_'.$tool};
	if ($newval eq 'autolimit') {
	$newval .= '='.$env{'form.crsreq_'.$tool.'_limit'};
	}
	} else {
	$newval = $env{'form.'.$context.'_'.$tool};
	}
	if ($userenv->{$context.'.'.$tool} ne '') {
	$oldaccess->{$tool} = &mt('custom');
	if ($userenv->{$context.'.'.$tool}) {
	$oldaccesstext->{$tool} = &mt("availability set to 'on'");
	} else {
	$oldaccesstext->{$tool} = &mt("availability set to 'off'");
	}
	$changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};
	if ($env{'form.custom'.$tool} == 1) {
	if ($newval ne $userenv->{$context.'.'.$tool}) {
	$changed->{$tool} = &tool_admin($tool,$newval,$changeHash,
	$context);
	if ($changed->{$tool}) {
	$newaccess->{$tool} = &mt('custom');
	if ($newval) {
	$newaccesstext->{$tool} = &mt("availability set to 'on'");
	} else {
	$newaccesstext->{$tool} = &mt("availability set to 'off'");
	}
	} else {
	$newaccess->{$tool} = $oldaccess->{$tool};
	if ($userenv->{$context.'.'.$tool}) {
	$newaccesstext->{$tool} = &mt("availability set to 'on'");
	} else {
	$newaccesstext->{$tool} = &mt("availability set to 'off'");
	}
	}
	} else {
	$newaccess->{$tool} = $oldaccess->{$tool};
	$newaccesstext->{$tool} = $oldaccesstext->{$tool};
	}
	} else {
	$changed->{$tool} = &tool_admin($tool,'',$changeHash,$context);
	if ($changed->{$tool}) {
	$newaccess->{$tool} = &mt('default');
	} else {
	$newaccess->{$tool} = $oldaccess->{$tool};
	if ($userenv->{$context.'.'.$tool}) {
	$newaccesstext->{$tool} = &mt("availability set to 'on'");
	} else {
	$newaccesstext->{$tool} = &mt("availability set to 'off'");
	}
	}
	}
	} else {
	$oldaccess->{$tool} = &mt('default');
	if ($env{'form.custom'.$tool} == 1) {
	$changed->{$tool} = &tool_admin($tool,$newval,$changeHash,
	$context);
	if ($changed->{$tool}) {
	$newaccess->{$tool} = &mt('custom');
	if ($newval) {
	$newaccesstext->{$tool} = &mt("availability set to 'on'");
	} else {
	$newaccesstext->{$tool} = &mt("availability set to 'off'");
	}
	} else {
	$newaccess->{$tool} = $oldaccess->{$tool};
	}
	} else {
	$newaccess->{$tool} = $oldaccess->{$tool};
	}
	}
	}
	return;
	}

sub update_roles {	sub update_roles {
my ($r,$context) = @_;	my ($r,$context) = @_;
my $now=time;	my $now=time;
Line 2203 sub update_roles {	Line 3168 sub update_roles {
if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {	if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);	my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
# Delete custom role	# Delete custom role
$r->print(&mt('Deleting custom role [_1] by [_2]:[_3] in [_4]',	$r->print(&mt('Deleting custom role [_1] by [_2] in [_3]',
$rolename,$rnam,$rdom,$url).': <b>'.	$rolename,$rnam.':'.$rdom,$url).': <b>'.
&Apache::lonnet::assigncustomrole($env{'form.ccdomain'},	&Apache::lonnet::assigncustomrole($env{'form.ccdomain'},
$env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,	$env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
0,1,$context).'</b><br />');	0,1,$context).'</b><br />');
Line 2241 sub update_roles {	Line 3206 sub update_roles {
my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},	my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},
$env{'form.ccuname'},$url,$role,0,$now,'','',	$env{'form.ccuname'},$url,$role,0,$now,'','',
$context);	$context);
$output = &mt('Re-enabling [_1] in [_2]: <b>[_3]</b>',	$output = &mt('Re-enabling [_1] in [_2]: [_3]',
$role,$url,$result).'<br />';	$role,$url,'<b>'.$result.'</b>').'<br />';
}	}
$r->print($output);	$r->print($output);
if (!grep(/^\Q$role\E$/,@rolechanges)) {	if (!grep(/^\Q$role\E$/,@rolechanges)) {
Line 2255 sub update_roles {	Line 3220 sub update_roles {
my $result = &Apache::lonnet::assigncustomrole(	my $result = &Apache::lonnet::assigncustomrole(
$env{'form.ccdomain'}, $env{'form.ccuname'},	$env{'form.ccdomain'}, $env{'form.ccuname'},
$url,$rdom,$rnam,$rolename,0,$now,undef,$context);	$url,$rdom,$rnam,$rolename,0,$now,undef,$context);
$r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',	$r->print(&mt('Re-enabling custom role [_1] by [_2] in [_3]: [_4]',
$rolename,$rnam,$rdom,$url,$result).'<br />');	$rolename,$rnam.':'.$rdom,$url,'<b>'.$result.'</b>').'<br />');
if (!grep(/^cr$/,@rolechanges)) {	if (!grep(/^cr$/,@rolechanges)) {
push(@rolechanges,'cr');	push(@rolechanges,'cr');
}	}
Line 2378 sub update_roles {	Line 3343 sub update_roles {
$r->print('<p><span class="LC_error">'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></span></p><br />');	$r->print('<p><span class="LC_error">'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></span></p><br />');
}	}
foreach my $key (sort(keys(%disallowed))) {	foreach my $key (sort(keys(%disallowed))) {
	$r->print('<p class="LC_warning">');
if (($key eq 'none') \|\| ($key eq 'all')) {	if (($key eq 'none') \|\| ($key eq 'all')) {
$r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is a reserved word.',$key));	$r->print(&mt('[_1] may not be used as the name for a section, as it is a reserved word.','<tt>'.$key.'</tt>'));
} else {	} else {
$r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is the name of a course group.',$key));	$r->print(&mt('[_1] may not be used as the name for a section, as it is the name of a course group.','<tt>'.$key.'</tt>'));
}	}
$r->print(' '.&mt('Please <a href="javascript:history.go(-1)">go back</a> and choose a different section name.').'</p><br />');	$r->print('</p><p>'
	.&mt('Please [_1]go back[_2] and choose a different section name.'
	,'<a href="javascript:history.go(-1)'
	,'</a>')
	.'</p><br />'
	);
}	}
}	}
} # End of foreach (keys(%env))	} # End of foreach (keys(%env))
Line 2396 sub update_roles {	Line 3367 sub update_roles {
}	}

sub enroll_single_student {	sub enroll_single_student {
my ($r,$uhome,$amode,$genpwd,$now,$newuser,$context) = @_;	my ($r,$uhome,$amode,$genpwd,$now,$newuser,$context,$crstype) = @_;
$r->print('<h3>'.&mt('Enrolling Student').'</h3>');	$r->print('<h3>');
	if ($crstype eq 'Community') {
	$r->print(&mt('Enrolling Member'));
	} else {
	$r->print(&mt('Enrolling Student'));
	}
	$r->print('</h3>');

# Remove non alphanumeric values from section	# Remove non alphanumeric values from section
$env{'form.sections'}=~s/\W//g;	$env{'form.sections'}=~s/\W//g;
Line 2430 sub enroll_single_student {	Line 3407 sub enroll_single_student {
}	}
$r->print('.<br />'.$showstart.'; '.$showend);	$r->print('.<br />'.$showstart.'; '.$showend);
if ($startdate <= $now && !$newuser) {	if ($startdate <= $now && !$newuser) {
$r->print("<p> ".&mt('If the student is currently logged-in to LON-CAPA, the new role will be available when the student next logs in.')."</p>");	$r->print('<p> ');
	if ($crstype eq 'Community') {
	$r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role will be available when the member next logs in.'));
	} else {
	$r->print(&mt('If the student is currently logged-in to LON-CAPA, the new role will be available when the student next logs in.'));
	}
	$r->print('</p>');
}	}
} else {	} else {
$r->print(&mt('unable to enroll').": ".$enroll_result);	$r->print(&mt('unable to enroll').": ".$enroll_result);
Line 2485 sub quota_admin {	Line 3468 sub quota_admin {
my $quotachanged;	my $quotachanged;
if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {	if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
# Current user has quota modification privileges	# Current user has quota modification privileges
$quotachanged = 1;	if (ref($changeHash) eq 'HASH') {
$changeHash->{'portfolioquota'} = $setquota;	$quotachanged = 1;
	$changeHash->{'portfolioquota'} = $setquota;
	}
}	}
return $quotachanged;	return $quotachanged;
}	}

	sub tool_admin {
	my ($tool,$settool,$changeHash,$context) = @_;
	my $canchange = 0;
	if ($context eq 'requestcourses') {
	if (&Apache::lonnet::allowed('ccc',$env{'form.ccdomain'})) {
	$canchange = 1;
	}
	} elsif ($context eq 'reqcrsotherdom') {
	if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
	$canchange = 1;
	}
	} elsif (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) {
	# Current user has quota modification privileges
	$canchange = 1;
	}
	my $toolchanged;
	if ($canchange) {
	if (ref($changeHash) eq 'HASH') {
	$toolchanged = 1;
	$changeHash->{$context.'.'.$tool} = $settool;
	}
	}
	return $toolchanged;
	}

sub build_roles {	sub build_roles {
my ($sectionstr,$sections,$role) = @_;	my ($sectionstr,$sections,$role) = @_;
my $num_sections = 0;	my $num_sections = 0;
Line 2528 sub build_roles {	Line 3538 sub build_roles {

sub custom_role_editor {	sub custom_role_editor {
my ($r) = @_;	my ($r) = @_;
my $rolename=$env{'form.rolename'};	my $action = $env{'form.customroleaction'};
	my $rolename;
if ($rolename eq 'make new role') {	if ($action eq 'new') {
$rolename=$env{'form.newrolename'};	$rolename=$env{'form.newrolename'};
	} else {
	$rolename=$env{'form.rolename'};
}	}

$rolename=~s/[^A-Za-z0-9]//gs;	$rolename=~s/[^A-Za-z0-9]//gs;

if (!$rolename \|\| $env{'form.phase'} eq 'pickrole') {	if (!$rolename \|\| $env{'form.phase'} eq 'pickrole') {
&print_username_entry_form($r);	&print_username_entry_form($r);
return;	return;
}	}
	my ($crstype,$context);
	if ($env{'request.course.id'}) {
	$crstype = &Apache::loncommon::course_type();
	$context = 'course';
	} else {
	$context = 'domain';
	$crstype = $env{'form.templatecrstype'};
	}
# ------------------------------------------------------- What can be assigned?	# ------------------------------------------------------- What can be assigned?
my %full=();	my %full=();
my %courselevel=();	my %courselevel=();
Line 2548 sub custom_role_editor {	Line 3567 sub custom_role_editor {
my $dompriv='';	my $dompriv='';
my $coursepriv='';	my $coursepriv='';
my $body_top;	my $body_top;
my ($disp_dummy,$disp_roles) = &Apache::lonnet::get('roles',["st"]);
my ($rdummy,$roledef)=	my ($rdummy,$roledef)=
&Apache::lonnet::get('roles',["rolesdef_$rolename"]);	&Apache::lonnet::get('roles',["rolesdef_$rolename"]);
# ------------------------------------------------------- Does this role exist?	# ------------------------------------------------------- Does this role exist?
Line 2557 sub custom_role_editor {	Line 3575 sub custom_role_editor {
$body_top .= &mt('Existing Role').' "';	$body_top .= &mt('Existing Role').' "';
# ------------------------------------------------- Get current role privileges	# ------------------------------------------------- Get current role privileges
($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);	($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);
	if ($crstype eq 'Community') {
	$syspriv =~ s/bre\&S//;
	}
} else {	} else {
$body_top .= &mt('New Role').' "';	$body_top .= &mt('New Role').' "';
$roledef='';	$roledef='';
Line 2596 sub custom_role_editor {	Line 3617 sub custom_role_editor {
my ($jsback,$elements) = &crumb_utilities();	my ($jsback,$elements) = &crumb_utilities();
my $button_code = "\n";	my $button_code = "\n";
my $head_script = "\n";	my $head_script = "\n";
$head_script .= '<script type="text/javascript">'."\n";	$head_script .= '<script type="text/javascript">'."\n".
my @template_roles = ("cc","in","ta","ep","st");	'// <![CDATA['."\n";
	my @template_roles = ("in","ta","ep");
	if ($context eq 'domain') {
	push(@template_roles,"ad");
	}
	push(@template_roles,"st");
	if ($crstype eq 'Community') {
	unshift(@template_roles,'co');
	} else {
	unshift(@template_roles,'cc');
	}
foreach my $role (@template_roles) {	foreach my $role (@template_roles) {
$head_script .= &make_script_template($role);	$head_script .= &make_script_template($role,$crstype);
$button_code .= &make_button_code($role);	$button_code .= &make_button_code($role,$crstype).' ';
}	}
$head_script .= "\n".$jsback."\n".'</script>'."\n";	my $context_code;
	if ($context eq 'domain') {
	my $checkedCommunity = '';
	my $checkedCourse = ' checked="checked"';
	if ($env{'form.templatecrstype'} eq 'Community') {
	$checkedCommunity = $checkedCourse;
	$checkedCourse = '';
	}
	$context_code = '<label>'.
	'<input type="radio" name="templatecrstype" value="Course"'.$checkedCourse.' onclick="this.form.submit();">'.
	&mt('Course').
	'</label>'.(' ' x2).
	'<label>'.
	'<input type="radio" name="templatecrstype" value="Community"'.$checkedCommunity.' onclick="this.form.submit();">'.
	&mt('Community').
	'</label>'.
	'</fieldset>'.
	'<input type="hidden" name="customroleaction" value="'.
	$action.'" />';
	if ($env{'form.customroleaction'} eq 'new') {
	$context_code .= '<input type="hidden" name="newrolename" value="'.
	$rolename.'" />';
	} else {
	$context_code .= '<input type="hidden" name="rolename" value="'.
	$rolename.'" />';
	}
	$context_code .= '<input type="hidden" name="action" value="custom" />'.
	'<input type="hidden" name="phase" value="selected_custom_edit" />';
	}
	$head_script .= "\n".$jsback."\n".
	'// ]]>'."\n".
	'</script>'."\n";
$r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));	$r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:backPage(document.form1,'pickrole','')",	({href=>"javascript:backPage(document.form1,'pickrole','')",
text=>"Pick custom role",	text=>"Pick custom role",
faq=>282,bug=>'Instructor Interface',},	faq=>282,bug=>'Instructor Interface',},
Line 2620 sub custom_role_editor {	Line 3682 sub custom_role_editor {
'crl' => "Course Level",	'crl' => "Course Level",
'dml' => "Domain Level",	'dml' => "Domain Level",
'ssl' => "System Level");	'ssl' => "System Level");
$r->print(&mt('Select a Template').'<br />');
$r->print('<form action="">');	$r->print('<div class="LC_left_float">'
$r->print($button_code);	.'<form action=""><fieldset>'
$r->print('</form>');	.'<legend>'.&mt('Select a Template').'</legend>'
	.$button_code
	.'</fieldset></form></div>');
	if ($context_code) {
	$r->print('<div class="LC_left_float">'
	.'<form action="/adm/createuser" method="post"><fieldset>'
	.'<legend>'.&mt('Context').'</legend>'
	.$context_code
	.'</form>'
	.'</div>'
	);
	}
	$r->print('<br clear="all" />');

$r->print(<<ENDCCF);	$r->print(<<ENDCCF);
<form name="form1" method="post">	<form name="form1" method="post">
<input type="hidden" name="phase" value="set_custom_roles" />	<input type="hidden" name="phase" value="set_custom_roles" />
Line 2635 ENDCCF	Line 3710 ENDCCF
'</th><th>'.$lt{'ssl'}.'</th>'.	'</th><th>'.$lt{'ssl'}.'</th>'.
&Apache::loncommon::end_data_table_header_row());	&Apache::loncommon::end_data_table_header_row());
foreach my $priv (sort keys %full) {	foreach my $priv (sort keys %full) {
my $privtext = &Apache::lonnet::plaintext($priv);	my $privtext = &Apache::lonnet::plaintext($priv,$crstype);
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<td>'.$privtext.'</td><td>'.	'<td>'.$privtext.'</td><td>'.
($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c" '.	($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c"'.
($courselevelcurrent{$priv}?'checked="1"':'').' />':' ').	($courselevelcurrent{$priv}?' checked="checked"':'').' />':' ').
'</td><td>'.
($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d" '.
($domainlevelcurrent{$priv}?'checked="1"':'').' />':' ').
'</td><td>'.	'</td><td>'.
($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s" '.	($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d"'.
($systemlevelcurrent{$priv}?'checked="1"':'').' />':' ').	($domainlevelcurrent{$priv}?' checked="checked"':'').' />':' ').
'</td>'.	'</td><td>');
&Apache::loncommon::end_data_table_row());	if ($priv eq 'bre' && $crstype eq 'Community') {
	$r->print(' ');
	} else {
	$r->print($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s"'.
	($systemlevelcurrent{$priv}?' checked="checked"':'').' />':' ');
	}
	$r->print('</td>'.
	&Apache::loncommon::end_data_table_row());
}	}
$r->print(&Apache::loncommon::end_data_table().	$r->print(&Apache::loncommon::end_data_table().
'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.	'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
'<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.	'<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.
'" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".	'" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".
'<input type="reset" value="'.&mt("Reset").'" />'."\n".	'<input type="reset" value="'.&mt("Reset").'" />'."\n".
'<input type="submit" value="'.&mt('Define Role').'" /></form>'.	'<input type="submit" value="'.&mt('Save').'" /></form>'.
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}
# --------------------------------------------------------	# --------------------------------------------------------
sub make_script_template {	sub make_script_template {
my ($role) = @_;	my ($role,$crstype) = @_;
my %full_c=();	my %full_c=();
my %full_d=();	my %full_d=();
my %full_s=();	my %full_s=();
Line 2673 sub make_script_template {	Line 3752 sub make_script_template {
$full_d{$priv}=1;	$full_d{$priv}=1;
}	}
foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
	next if (($crstype eq 'Community') && ($item eq 'bre&S'));
my ($priv,$restrict)=split(/\&/,$item);	my ($priv,$restrict)=split(/\&/,$item);
$full_s{$priv}=1;	$full_s{$priv}=1;
}	}
Line 2683 sub make_script_template {	Line 3763 sub make_script_template {
my ($priv_item, $dummy) = split(/\&/,$priv);	my ($priv_item, $dummy) = split(/\&/,$priv);
$role_c{$priv_item} = 1;	$role_c{$priv_item} = 1;
}	}
	my %role_d;
	@temp = split(/:/,$Apache::lonnet::pr{$role.':d'});
	foreach my $priv(@temp) {
	my ($priv_item, $dummy) = split(/\&/,$priv);
	$role_d{$priv_item} = 1;
	}
	my %role_s;
	@temp = split(/:/,$Apache::lonnet::pr{$role.':s'});
	foreach my $priv(@temp) {
	my ($priv_item, $dummy) = split(/\&/,$priv);
	$role_s{$priv_item} = 1;
	}
foreach my $priv_item (keys(%full_c)) {	foreach my $priv_item (keys(%full_c)) {
my ($priv, $dummy) = split(/\&/,$priv_item);	my ($priv, $dummy) = split(/\&/,$priv_item);
if (exists($role_c{$priv})) {	if ((exists($role_c{$priv})) \|\| (exists($role_d{$priv})) \|\|
	(exists($role_s{$priv}))) {
$return_script .= "document.form1.$priv"."_c.checked = true;\n";	$return_script .= "document.form1.$priv"."_c.checked = true;\n";
} else {	} else {
$return_script .= "document.form1.$priv"."_c.checked = false;\n";	$return_script .= "document.form1.$priv"."_c.checked = false;\n";
}	}
}	}
my %role_d;
@temp = split(/:/,$Apache::lonnet::pr{$role.':d'});
foreach my $priv(@temp) {
my ($priv_item, $dummy) = split(/\&/,$priv);
$role_d{$priv_item} = 1;
}
foreach my $priv_item (keys(%full_d)) {	foreach my $priv_item (keys(%full_d)) {
my ($priv, $dummy) = split(/\&/,$priv_item);	my ($priv, $dummy) = split(/\&/,$priv_item);
if (exists($role_d{$priv})) {	if ((exists($role_d{$priv})) \|\| (exists($role_s{$priv}))) {
$return_script .= "document.form1.$priv"."_d.checked = true;\n";	$return_script .= "document.form1.$priv"."_d.checked = true;\n";
} else {	} else {
$return_script .= "document.form1.$priv"."_d.checked = false;\n";	$return_script .= "document.form1.$priv"."_d.checked = false;\n";
}	}
}	}
my %role_s;
@temp = split(/:/,$Apache::lonnet::pr{$role.':s'});
foreach my $priv(@temp) {
my ($priv_item, $dummy) = split(/\&/,$priv);
$role_s{$priv_item} = 1;
}
foreach my $priv_item (keys(%full_s)) {	foreach my $priv_item (keys(%full_s)) {
my ($priv, $dummy) = split(/\&/,$priv_item);	my ($priv, $dummy) = split(/\&/,$priv_item);
if (exists($role_s{$priv})) {	if (exists($role_s{$priv})) {
Line 2724 sub make_script_template {	Line 3805 sub make_script_template {
}	}
# ----------------------------------------------------------	# ----------------------------------------------------------
sub make_button_code {	sub make_button_code {
my ($role) = @_;	my ($role,$crstype) = @_;
my $label = &Apache::lonnet::plaintext($role);	my $label = &Apache::lonnet::plaintext($role,$crstype);
my $button_code = '<input type="button" onClick="set_'.$role.'()" value="'.$label.'" />';	my $button_code = '<input type="button" onclick="set_'.$role.'()" value="'.$label.'" />';
return ($button_code);	return ($button_code);
}	}
# ---------------------------------------------------------- Call to definerole	# ---------------------------------------------------------- Call to definerole
Line 2739 sub set_custom_role {	Line 3820 sub set_custom_role {
return;	return;
}	}
my ($jsback,$elements) = &crumb_utilities();	my ($jsback,$elements) = &crumb_utilities();
my $jscript = '<script type="text/javascript">'.$jsback."\n".'</script>';	my $jscript = '<script type="text/javascript">'.
	'// <![CDATA['."\n".
	$jsback."\n".
	'// ]]>'."\n".
	'</script>';

$r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);	$r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
Line 2821 sub handler {	Line 3906 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}
my $context;	my ($context,$crstype);
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$context = 'course';	$context = 'course';
	$crstype = &Apache::loncommon::course_type();
} elsif ($env{'request.role'} =~ /^au\./) {	} elsif ($env{'request.role'} =~ /^au\./) {
$context = 'author';	$context = 'author';
} else {	} else {
Line 2836 sub handler {	Line 3922 sub handler {
if ($env{'form.action'} ne 'dateselect') {	if ($env{'form.action'} ne 'dateselect') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/createuser",	({href=>"/adm/createuser",
text=>"User Management"});	text=>"User Management",
	help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'});
}	}
	#SD Following files not added to help, because the corresponding .tex-files seem to
	#be missing: Course_Approve_Selfenroll,Course_User_Logs,
my ($permission,$allowed) =	my ($permission,$allowed) =
&Apache::lonuserutils::get_permission($context);	&Apache::lonuserutils::get_permission($context,$crstype);
if (!$allowed) {	if (!$allowed) {
$env{'user.error.msg'}=	$env{'user.error.msg'}=
"/adm/createuser:cst:0:0:Cannot create/modify user data ".	"/adm/createuser:cst:0:0:Cannot create/modify user data ".
Line 2854 sub handler {	Line 3943 sub handler {
if (! exists($env{'form.action'})) {	if (! exists($env{'form.action'})) {
$r->print(&header());	$r->print(&header());
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
$r->print(&print_main_menu($permission,$context));	$r->print(&print_main_menu($permission,$context,$crstype));
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {	} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {
$r->print(&header());	$r->print(&header());
Line 2870 sub handler {	Line 3959 sub handler {
&Apache::lonuserutils::print_first_users_upload_form($r,$context);	&Apache::lonuserutils::print_first_users_upload_form($r,$context);
} elsif ($env{'form.state'} eq 'got_file') {	} elsif ($env{'form.state'} eq 'got_file') {
&Apache::lonuserutils::print_upload_manager_form($r,$context,	&Apache::lonuserutils::print_upload_manager_form($r,$context,
$permission);	$permission,$crstype);
} elsif ($env{'form.state'} eq 'enrolling') {	} elsif ($env{'form.state'} eq 'enrolling') {
if ($env{'form.datatoken'}) {	if ($env{'form.datatoken'}) {
&Apache::lonuserutils::upfile_drop_add($r,$context,$permission);	&Apache::lonuserutils::upfile_drop_add($r,$context,$permission);
Line 2895 sub handler {	Line 3984 sub handler {
if ($env{'form.srchterm'} !~ /^$match_username$/) {	if ($env{'form.srchterm'} !~ /^$match_username$/) {
my $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');	my $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
$env{'form.phase'} = '';	$env{'form.phase'} = '';
&print_username_entry_form($r,$context,$response,$srch);	&print_username_entry_form($r,$context,$response,$srch,undef,$crstype);
} else {	} else {
my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'});	my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'});
my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'});	my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'});
&print_user_modification_page($r,$ccuname,$ccdomain,	&print_user_modification_page($r,$ccuname,$ccdomain,
$srch,$response,$context,	$srch,$response,$context,
$permission);	$permission,$crstype);
}	}
} elsif ($env{'form.phase'} eq 'get_user_info') {	} elsif ($env{'form.phase'} eq 'get_user_info') {
my ($currstate,$response,$forcenewuser,$results) =	my ($currstate,$response,$forcenewuser,$results) =
Line 2911 sub handler {	Line 4000 sub handler {
}	}
if ($currstate eq 'select') {	if ($currstate eq 'select') {
&print_user_selection_page($r,$response,$srch,$results,	&print_user_selection_page($r,$response,$srch,$results,
\@search,$context);	\@search,$context,undef,$crstype);
} elsif ($currstate eq 'modify') {	} elsif ($currstate eq 'modify') {
my ($ccuname,$ccdomain);	my ($ccuname,$ccdomain);
if (($srch->{'srchby'} eq 'uname') &&	if (($srch->{'srchby'} eq 'uname') &&
Line 2929 sub handler {	Line 4018 sub handler {
}	}
&print_user_modification_page($r,$ccuname,$ccdomain,	&print_user_modification_page($r,$ccuname,$ccdomain,
$srch,$response,$context,	$srch,$response,$context,
$permission);	$permission,$crstype);
} elsif ($currstate eq 'query') {	} elsif ($currstate eq 'query') {
&print_user_query_page($r,'createuser');	&print_user_query_page($r,'createuser');
} else {	} else {
$env{'form.phase'} = '';	$env{'form.phase'} = '';
&print_username_entry_form($r,$context,$response,$srch,	&print_username_entry_form($r,$context,$response,$srch,
$forcenewuser);	$forcenewuser,$crstype);
}	}
} elsif ($env{'form.phase'} eq 'userpicked') {	} elsif ($env{'form.phase'} eq 'userpicked') {
my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});	my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});
my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});	my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});
&print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',	&print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',
$context,$permission);	$context,$permission,$crstype);
}	}
} elsif ($env{'form.phase'} eq 'update_user_data') {	} elsif ($env{'form.phase'} eq 'update_user_data') {
&update_user_data($r,$context);	&update_user_data($r,$context,$crstype);
} else {	} else {
&print_username_entry_form($r,$context,undef,$srch);	&print_username_entry_form($r,$context,undef,$srch,undef,$crstype);
}	}
} elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {	} elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {
if ($env{'form.phase'} eq 'set_custom_roles') {	if ($env{'form.phase'} eq 'set_custom_roles') {
Line 2981 sub handler {	Line 4070 sub handler {
text=>"List Users"});	text=>"List Users"});
my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);	my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);
my $formname = 'studentform';	my $formname = 'studentform';
if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {	if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') \|\|
($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) =	($env{'form.roletype'} eq 'community'))) {
&Apache::lonuserutils::courses_selector($env{'request.role.domain'},	if ($env{'form.roletype'} eq 'course') {
$formname);	($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) =
	&Apache::lonuserutils::courses_selector($env{'request.role.domain'},
	$formname);
	} elsif ($env{'form.roletype'} eq 'community') {
	$cb_jscript =
	&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'});
	my %elements = (
	coursepick => 'radio',
	coursetotal => 'text',
	courselist => 'text',
	);
	$jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements);
	}
$jscript .= &verify_user_display();	$jscript .= &verify_user_display();
my $js = &add_script($jscript).$cb_jscript;	my $js = &add_script($jscript).$cb_jscript;
my $loadcode =	my $loadcode =
Line 3005 sub handler {	Line 4106 sub handler {
}	}
} elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) {	} elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) {
$r->print(&header());	$r->print(&header());
	my $brtext;
	if ($crstype eq 'Community') {
	$brtext = 'Drop Members';
	} else {
	$brtext = 'Drop Students';
	}
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/createuser?action=drop',	({href=>'/adm/createuser?action=drop',
text=>"Drop Students"});	text=>$brtext});
if (!exists($env{'form.state'})) {	if (!exists($env{'form.state'})) {
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students',	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students',
'Course_Drop_Student'));	'Course_Drop_Student'));

&Apache::lonuserutils::print_drop_menu($r,$context,$permission);	&Apache::lonuserutils::print_drop_menu($r,$context,$permission,$crstype);
} elsif ($env{'form.state'} eq 'done') {	} elsif ($env{'form.state'} eq 'done') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/createuser?action=drop',	({href=>'/adm/createuser?action=drop',
text=>"Result"});	text=>"Result"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students',	$r->print(&Apache::lonhtmlcommon::breadcrumbs($brtext,
'Course_Drop_Student'));	'Course_Drop_Student'));
&Apache::lonuserutils::update_user_list($r,$context,undef,	&Apache::lonuserutils::update_user_list($r,$context,undef,
$env{'form.action'});	$env{'form.action'});
Line 3027 sub handler {	Line 4134 sub handler {
if ($permission->{'cusr'}) {	if ($permission->{'cusr'}) {
$r->print(&header(undef,undef,{'no_nav_bar' => 1}).	$r->print(&header(undef,undef,{'no_nav_bar' => 1}).
&Apache::lonuserutils::date_section_selector($context,	&Apache::lonuserutils::date_section_selector($context,
$permission).	$permission,$crstype).
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
} else {	} else {
$r->print(&header().	$r->print(&header().
Line 3054 sub handler {	Line 4161 sub handler {
&update_selfenroll_config($r,$context,$permission);	&update_selfenroll_config($r,$context,$permission);
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
	} elsif ($env{'form.action'} eq 'selfenrollqueue') {
	$r->print(&header());
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>'/adm/createuser?action=selfenrollqueue',
	text=>"Enrollment requests"});
	my $cid = $env{'request.course.id'};
	my $cdom = $env{'course.'.$cid.'.domain'};
	my $cnum = $env{'course.'.$cid.'.num'};
	my $coursedesc = $env{'course.'.$cid.'.description'};
	if (!exists($env{'form.state'})) {
	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment requests',
	'Course_SelfEnrollment_Approval'));
	$r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");
	$r->print(&Apache::loncoursequeueadmin::display_queued_requests($context,
	$cdom,$cnum));

	} elsif ($env{'form.state'} eq 'done') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>'/adm/createuser?action=selfenrollqueue',
	text=>"Result"});
	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment result',
	'Course_Self_Enrollment'));
	$r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");
	$r->print(&Apache::loncoursequeueadmin::update_request_queue($context,
	$cdom,$cnum,$coursedesc));
	}
	$r->print(&Apache::loncommon::end_page());
} elsif ($env{'form.action'} eq 'changelogs') {	} elsif ($env{'form.action'} eq 'changelogs') {
$r->print(&header());	$r->print(&header());
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
Line 3066 sub handler {	Line 4200 sub handler {
} else {	} else {
$r->print(&header());	$r->print(&header());
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
$r->print(&print_main_menu($permission,$context));	$r->print(&print_main_menu($permission,$context,$crstype));
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}
return OK;	return OK;
Line 3085 sub header {	Line 4219 sub header {

sub add_script {	sub add_script {
my ($js) = @_;	my ($js) = @_;
return '<script type="text/javascript">'."\n".$js."\n".'</script>';	return '<script type="text/javascript">'."\n".
	'// <![CDATA['."\n".
	"\n".$js."\n".
	'// ]]>'."\n".
	'</script>'."\n";
}	}

sub verify_user_display {	sub verify_user_display {
Line 3106 END	Line 4244 END
###############################################################	###############################################################
# Menu Phase One	# Menu Phase One
sub print_main_menu {	sub print_main_menu {
my ($permission,$context) = @_;	my ($permission,$context,$crstype) = @_;
	my $linkcontext = $context;
	my $stuterm = lc(&Apache::lonnet::plaintext('st',$crstype));
	if (($context eq 'course') && ($crstype eq 'Community')) {
	$linkcontext = lc($crstype);
	$stuterm = 'Members';
	}

my %links = (	my %links = (
domain => {	domain => {
upload => 'Upload a File of Users',	upload => 'Upload a File of Users',
Line 3123 sub print_main_menu {	Line 4268 sub print_main_menu {
singleuser => 'Add/Modify a Single Course User',	singleuser => 'Add/Modify a Single Course User',
listusers => 'Display Class Lists and Manage Multiple Users',	listusers => 'Display Class Lists and Manage Multiple Users',
},	},
);	community => {
	upload => 'Upload a File of Community Users',
	singleuser => 'Add/Modify a Community User',
	listusers => 'Manage Community Users',
	},
	);
my @menu =	my @menu =
(	(
{ text => $links{$context}{'upload'},	{ text => $links{$context}{'upload'},
Line 3131 sub print_main_menu {	Line 4281 sub print_main_menu {
action => 'upload',	action => 'upload',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
},	},
{ text => $links{$context}{'singleuser'},	{ text => $links{$context}{'singleuser'},
help => 'Course_Change_Privileges',	help => 'Course_Change_Privileges',
action => 'singleuser',	action => 'singleuser',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
Line 3165 sub print_main_menu {	Line 4315 sub print_main_menu {
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
});	});
if (!exists($permission->{'cusr_section'})) {	if (!exists($permission->{'cusr_section'})) {
	if ($crstype ne 'Community') {
	push(@courselinks,
	{ text => 'Automated Enrollment Manager',
	help => 'Course_Automated_Enrollment',
	permission => (&Apache::lonnet::auto_run($cnum,$cdom)
	&& $permission->{'cusr'}),
	url => '/adm/populate',
	});
	}
	push(@courselinks,
	{ text => 'Configure User Self-enrollment',
	help => 'Course_Self_Enrollment',
	action => 'selfenroll',
	permission => $permission->{'cusr'},
	});
	}
	if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) {
push(@courselinks,	push(@courselinks,
{ text => 'Automated Enrollment Manager',	{ text => 'Enrollment Requests',
help => 'Course_Automated_Enrollment',	help => 'Course_Approve_Selfenroll',
permission => (&Apache::lonnet::auto_run($cnum,$cdom)	action => 'selfenrollqueue',
&& $permission->{'cusr'}),	permission => $permission->{'cusr'},
url => '/adm/populate',	});
},
{ text => 'Configure User Self-enrollment',
help => 'Course_Self_Enrollment',
action => 'selfenroll',
permission => $permission->{'cusr'},
});
}	}
push(@courselinks,	push(@courselinks,
{ text => 'Manage Course Groups',	{ text => 'Manage Course Groups',
Line 3209 sub print_main_menu {	Line 4370 sub print_main_menu {
$menu_html.=qq{<a href="$menu_item->{'url'}">};	$menu_html.=qq{<a href="$menu_item->{'url'}">};
} else {	} else {
$menu_html.=	$menu_html.=
qq{<a href="/adm/createuser?action=$menu_item->{'action'}">};	qq{<a href="/adm/createuser?action=$menu_item->{'action'}">}; }
}
$menu_html.= &mt($menu_item->{'text'}).'</a></font>';	$menu_html.= &mt($menu_item->{'text'}).'</a></font>';
$menu_html.='</p>';	$menu_html.='</p>';
}	}
Line 3230 sub restore_prev_selections {	Line 4390 sub restore_prev_selections {

sub print_selfenroll_menu {	sub print_selfenroll_menu {
my ($r,$context,$permission) = @_;	my ($r,$context,$permission) = @_;
	my $crstype = &Apache::loncommon::course_type();
my $formname = 'enrollstudent';	my $formname = 'enrollstudent';
my $nolink = 1;	my $nolink = 1;
my ($row,$lt) = &get_selfenroll_titles();	my ($row,$lt) = &get_selfenroll_titles();
Line 3411 ENDSCRIPT	Line 4572 ENDSCRIPT
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};

my $output = '<script type="text/javascript">'."\n".	my $output = '<script type="text/javascript">'."\n".
	'// <![CDATA['."\n".
$setsec_js."\n".$selfenroll_js."\n".	$setsec_js."\n".$selfenroll_js."\n".
	'// ]]>'."\n".
'</script>'."\n".	'</script>'."\n".
'<h3>'.$lt->{'selfenroll'}.'</h3>'."\n";	'<h3>'.$lt->{'selfenroll'}.'</h3>'."\n";
my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum);	my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum);
if (ref($visactions) eq 'HASH') {	if (ref($visactions) eq 'HASH') {
if ($visible) {	if ($visible) {
$output .= '<p>'.$visactions->{'vis'}.'</p>';	$output .= '<p class="LC_info">'.$visactions->{'vis'}.'</p>';
} else {	} else {
$output .= $visactions->{'miss'}.'<br />'.$visactions->{'yous'}.	$output .= '<p class="LC_warning">'.$visactions->{'miss'}.'</p>'
	.$visactions->{'yous'}.
'<p>'.$visactions->{'gen'}.'<br />'.$visactions->{'coca'};	'<p>'.$visactions->{'gen'}.'<br />'.$visactions->{'coca'};
if (ref($vismsgs) eq 'ARRAY') {	if (ref($vismsgs) eq 'ARRAY') {
$output .= '<br />'.$visactions->{'make'}.'<ul>';	$output .= '<br />'.$visactions->{'make'}.'<ul>';
Line 3572 ENDSCRIPT	Line 4736 ENDSCRIPT
'<input type="hidden" name="sections" value="" />'."\n".	'<input type="hidden" name="sections" value="" />'."\n".
'<input type="hidden" name="state" value="done" />'."\n".	'<input type="hidden" name="state" value="done" />'."\n".
'</td></tr></table>'."\n";	'</td></tr></table>'."\n";
	} elsif ($item eq 'approval') {
	my ($appon,$appoff);
	my $cid = $env{'request.course.id'};
	my $currnotified = $env{'course.'.$cid.'.internal.selfenroll_notifylist'};
	if ($env{'course.'.$cid.'.internal.selfenroll_approval'}) {
	$appon = ' checked="checked" ';
	$appoff = ' ';
	} else {
	$appon = ' ';
	$appoff = ' checked="checked" ';
	}
	$output .= '<label>'.
	'<input type="radio" name="selfenroll_approval" value="1"'.$appon.'/>'.
	&mt('Yes').'</label>  <label>'.
	'<input type="radio" name="selfenroll_approval" value="0"'.$appoff.'/>'.
	&mt('No').'</label>';
	my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1);
	my (@ccs,%notified);
	my $ccrole = 'cc';
	if ($crstype eq 'Community') {
	$ccrole = 'co';
	}
	if ($advhash{$ccrole}) {
	@ccs = split(/,/,$advhash{$ccrole});
	}
	if ($currnotified) {
	foreach my $current (split(/,/,$currnotified)) {
	$notified{$current} = 1;
	if (!grep(/^\Q$current\E$/,@ccs)) {
	push(@ccs,$current);
	}
	}
	}
	if (@ccs) {
	$output .= '<br />'.&mt('Personnel to be notified when an enrollment request needs approval, or has been approved:').' '.&Apache::loncommon::start_data_table().
	&Apache::loncommon::start_data_table_row();
	my $count = 0;
	my $numcols = 4;
	foreach my $cc (sort(@ccs)) {
	my $notifyon;
	my ($ccuname,$ccudom) = split(/:/,$cc);
	if ($notified{$cc}) {
	$notifyon = ' checked="checked" ';
	}
	if ($count && !$count%$numcols) {
	$output .= &Apache::loncommon::end_data_table_row().
	&Apache::loncommon::start_data_table_row()
	}
	$output .= '<td><span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'.
	&Apache::loncommon::plainname($ccuname,$ccudom).
	'</label></span></td>';
	$count;
	}
	my $rem = $count%$numcols;
	if ($rem) {
	my $emptycols = $numcols - $rem;
	for (my $i=0; $i<$emptycols; $i++) {
	$output .= '<td> </td>';
	}
	}
	$output .= &Apache::loncommon::end_data_table_row().
	&Apache::loncommon::end_data_table();
	}
	} elsif ($item eq 'limit') {
	my ($crslimit,$selflimit,$nolimit);
	my $cid = $env{'request.course.id'};
	my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'};
	my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'};
	my $nolimit = ' checked="checked" ';
	if ($currlim eq 'allstudents') {
	$crslimit = ' checked="checked" ';
	$selflimit = ' ';
	$nolimit = ' ';
	} elsif ($currlim eq 'selfenrolled') {
	$crslimit = ' ';
	$selflimit = ' checked="checked" ';
	$nolimit = ' ';
	} else {
	$crslimit = ' ';
	$selflimit = ' ';
	}
	$output .= '<table><tr><td><label>'.
	'<input type="radio" name="selfenroll_limit" value="none"'.$nolimit.'/>'.
	&mt('No limit').'</label></td><td><label>'.
	'<input type="radio" name="selfenroll_limit" value="allstudents"'.$crslimit.'/>'.
	&mt('Limit by total students').'</label></td><td><label>'.
	'<input type="radio" name="selfenroll_limit" value="selfenrolled"'.$selflimit.'/>'.
	&mt('Limit by total self-enrolled students').
	'</td></tr><tr>'.
	'<td> </td><td colspan="2"><span class="LC_nobreak">'.
	(' 'x3).&mt('Maximum number allowed: ').
	'<input type="text" name="selfenroll_cap" size = "5" value="'.$currcap.'" /></td></tr></table>';
}	}
$output .= &Apache::lonhtmlcommon::row_closure(1);	$output .= &Apache::lonhtmlcommon::row_closure(1);
}	}
}	}
$output .= &Apache::lonhtmlcommon::end_pick_box().	$output .= &Apache::lonhtmlcommon::end_pick_box().
'<br /><input type="button" name="selfenrollconf" value="'	'<br /><input type="button" name="selfenrollconf" value="'
.&mt('Save changes').'" onclick="validate_types(this.form);" />'	.&mt('Save').'" onclick="validate_types(this.form);" />'
.'<input type="hidden" name="action" value="selfenroll" /></form>';	.'<input type="hidden" name="action" value="selfenroll" /></form>';
$r->print($output);	$r->print($output);
return;	return;
Line 3589 sub visible_in_cat {	Line 4846 sub visible_in_cat {
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);	my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);
my ($cathash,%settable,@vismsgs,$cansetvis);	my ($cathash,%settable,@vismsgs,$cansetvis);
my %visactions = &Apache::lonlocal::texthash(	my %visactions = &Apache::lonlocal::texthash(
vis => 'Your course currently appears in the Course Catalog for this domain.',	vis => 'Your course/community currently appears in the Course/Community Catalog for this domain.',
gen => 'Courses can be both self-cataloging, based on an institutional code (e.g., fs08phy231), or can be assigned categories from a hierarchy defined for the domain.',	gen => 'Courses can be both self-cataloging, based on an institutional code (e.g., fs08phy231), or can be assigned categories from a hierarchy defined for the domain.',
miss => 'Your course does not currently appear in the Course Catalog for this domain.',	miss => 'Your course/community does not currently appear in the Course/Community Catalog for this domain.',
yous => 'You should remedy this if you plan to allow self-enrollment, otherwise students will have difficulty finding your course.',	yous => 'You should remedy this if you plan to allow self-enrollment, otherwise students will have difficulty finding your course.',
coca => 'Courses can be absent from the Catalog, because they do not have an institutional code, have no assigned category, or have been specifically excluded.',	coca => 'Courses can be absent from the Catalog, because they do not have an institutional code, have no assigned category, or have been specifically excluded.',
make => 'Make any changes to self-enrollment settings below, click "Save changes", then take action to include the course in the Catalog:',	make => 'Make any changes to self-enrollment settings below, click "Save", then take action to include the course in the Catalog:',
take => 'Take the following action to ensure the course appears in the Catalog:',	take => 'Take the following action to ensure the course appears in the Catalog:',
dc_unhide => 'Ask a domain coordinator to change the "Exclude from course catalog" setting.',	dc_unhide => 'Ask a domain coordinator to change the "Exclude from course catalog" setting.',
dc_addinst => 'Ask a domain coordinator to enable display the catalog of "Official courses (with institutional codes)".',	dc_addinst => 'Ask a domain coordinator to enable display the catalog of "Official courses (with institutional codes)".',
Line 3604 sub visible_in_cat {	Line 4861 sub visible_in_cat {
dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain',	dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain',
dc_addcat => 'Ask a domain coordinator to assign a category to the course.',	dc_addcat => 'Ask a domain coordinator to assign a category to the course.',
);	);
$visactions{'unhide'} = &mt('Use [_1]Set course environment[_2] to change the "Exclude from course catalog" setting.','<a href="/adm/parmset?action=crsenv">','</a>');	$visactions{'unhide'} = &mt('Use [_1]Set course environment[_2] to change the "Exclude from course catalog" setting.','"<a href="/adm/parmset?action=crsenv">','</a>"');
$visactions{'chgcat'} = &mt('Use [_1]Set course environment[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','<a href="/adm/parmset?action=crsenv">','</a>');	$visactions{'chgcat'} = &mt('Use [_1]Set course environment[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','"<a href="/adm/parmset?action=crsenv">','</a>"');
$visactions{'addcat'} = &mt('Use [_1]Set course environment[_2] to assign a category to the course.','<a href="/adm/parmset?action=crsenv">','</a>');	$visactions{'addcat'} = &mt('Use [_1]Set course environment[_2] to assign a category to the course.','"<a href="/adm/parmset?action=crsenv">','</a>"');
if (ref($domconf{'coursecategories'}) eq 'HASH') {	if (ref($domconf{'coursecategories'}) eq 'HASH') {
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') {	if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') {
$settable{'togglecats'} = 1;	$settable{'togglecats'} = 1;
Line 3616 sub visible_in_cat {	Line 4873 sub visible_in_cat {
}	}
$cathash = $domconf{'coursecategories'}{'cats'};	$cathash = $domconf{'coursecategories'}{'cats'};
}	}
if ($settable{'togglecats'} && $settable{'categories'}) {	if ($settable{'togglecats'} && $settable{'categorize'}) {
$cansetvis = &mt('You are able to both assign a course category and choose to exclude this course from the catalog.');	$cansetvis = &mt('You are able to both assign a course category and choose to exclude this course from the catalog.');
} elsif ($settable{'togglecats'}) {	} elsif ($settable{'togglecats'}) {
$cansetvis = &mt('You are able to choose to exclude this course from the catalog, but only a Domain Coordinator may assign a course category.');	$cansetvis = &mt('You are able to choose to exclude this course from the catalog, but only a Domain Coordinator may assign a course category.');
} elsif ($settable{'categories'}) {	} elsif ($settable{'categorize'}) {
$cansetvis = &mt('You may assign a course category, but only a Domain Coordinator may choose to exclude this course from the catalog.');	$cansetvis = &mt('You may assign a course category, but only a Domain Coordinator may choose to exclude this course from the catalog.');
} else {	} else {
$cansetvis = &mt('Only a Domain Coordinator may assign a course category or choose to exclude this course from the catalog.');	$cansetvis = &mt('Only a Domain Coordinator may assign a course category or choose to exclude this course from the catalog.');
}	}

my %currsettings =	my %currsettings =
&Apache::lonnet::get('environment',['hidefromcat','categories','internal.coursecode'],	&Apache::lonnet::get('environment',['hidefromcat','categories','internal.coursecode'],
$cdom,$cnum);	$cdom,$cnum);
Line 3635 sub visible_in_cat {	Line 4892 sub visible_in_cat {
$cathash = $domconf{'coursecategories'}{'cats'};	$cathash = $domconf{'coursecategories'}{'cats'};
if (ref($cathash) eq 'HASH') {	if (ref($cathash) eq 'HASH') {
if ($cathash->{'instcode::0'} eq '') {	if ($cathash->{'instcode::0'} eq '') {
push(@vismsgs,'dc_addinst');	push(@vismsgs,'dc_addinst');
} else {	} else {
$visible = 1;	$visible = 1;
}	}
Line 3674 sub visible_in_cat {	Line 4931 sub visible_in_cat {
}	}
}	}
if (!$matched) {	if (!$matched) {
if ($settable{'categories'}) {	if ($settable{'categorize'}) {
push(@vismsgs,'chgcat');	push(@vismsgs,'chgcat');
} else {	} else {
push(@vismsgs,'dc_chgcat');	push(@vismsgs,'dc_chgcat');
Line 3685 sub visible_in_cat {	Line 4942 sub visible_in_cat {
}	}
} else {	} else {
if (ref($cathash) eq 'HASH') {	if (ref($cathash) eq 'HASH') {
if ((keys(%{$cathash}) > 1) \|\|	if ((keys(%{$cathash}) > 1) \|\|
(keys(%{$cathash}) == 1) && ($cathash->{'instcode::0'} eq '')) {	(keys(%{$cathash}) == 1) && ($cathash->{'instcode::0'} eq '')) {
if ($settable{'categories'}) {	if ($settable{'categorize'}) {
push(@vismsgs,'addcat');	push(@vismsgs,'addcat');
} else {	} else {
push(@vismsgs,'dc_addcat');	push(@vismsgs,'dc_addcat');
Line 3807 sub print_userchangelogs_display {	Line 5064 sub print_userchangelogs_display {
my $formname = 'roleslog';	my $formname = 'roleslog';
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $crstype = &Apache::loncommon::course_type();
my %roleslog=&Apache::lonnet::dump('nohist_rolelog',$cdom,$cnum);	my %roleslog=&Apache::lonnet::dump('nohist_rolelog',$cdom,$cnum);
if ((keys(%roleslog))[0]=~/^error\:/) { undef(%roleslog); }	if ((keys(%roleslog))[0]=~/^error\:/) { undef(%roleslog); }

Line 3845 sub print_userchangelogs_display {	Line 5103 sub print_userchangelogs_display {
}	}
my (%whodunit,%changed,$version);	my (%whodunit,%changed,$version);
($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);	($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);
$r->print(&role_display_filter($formname,$cdom,$cnum,\%curr,$version));	$r->print(&role_display_filter($formname,$cdom,$cnum,\%curr,$version,$crstype));
my $showntablehdr = 0;	my $showntablehdr = 0;
my $tablehdr = &Apache::loncommon::start_data_table().	my $tablehdr = &Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
Line 3921 sub print_userchangelogs_display {	Line 5179 sub print_userchangelogs_display {
if ($roleslog{$id}{'logentry'}{'selfenroll'}) {	if ($roleslog{$id}{'logentry'}{'selfenroll'}) {
$chgcontext = 'selfenroll';	$chgcontext = 'selfenroll';
}	}
my %lt = &rolechg_contexts();	my %lt = &rolechg_contexts($crstype);
if ($chgcontext ne '' && $lt{$chgcontext} ne '') {	if ($chgcontext ne '' && $lt{$chgcontext} ne '') {
$chgcontext = $lt{$chgcontext};	$chgcontext = $lt{$chgcontext};
}	}
$r->print(&Apache::loncommon::start_data_table_row().'<td>'.$count.'</td><td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td><td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td><td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td><td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'}).'</td><td>'.$sec.'</td><td>'.$chgcontext.'</td><td>'.$rolestart.'</td><td>'.$roleend.'</td>'.&Apache::loncommon::end_data_table_row()."\n");	$r->print(&Apache::loncommon::start_data_table_row().'<td>'.$count.'</td><td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td><td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td><td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td><td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'},$crstype).'</td><td>'.$sec.'</td><td>'.$chgcontext.'</td><td>'.$rolestart.'</td><td>'.$roleend.'</td>'.&Apache::loncommon::end_data_table_row()."\n");
}	}
if ($showntablehdr) {	if ($showntablehdr) {
$r->print(&Apache::loncommon::end_data_table().'<br />');	$r->print(&Apache::loncommon::end_data_table().'<br />');
Line 3940 sub print_userchangelogs_display {	Line 5198 sub print_userchangelogs_display {
$r->print('</tr></table>');	$r->print('</tr></table>');
$r->print(<<"ENDSCRIPT");	$r->print(<<"ENDSCRIPT");
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function chgPage(caller) {	function chgPage(caller) {
if (caller == 'previous') {	if (caller == 'previous') {
document.$formname.page.value --;	document.$formname.page.value --;
Line 3950 function chgPage(caller) {	Line 5209 function chgPage(caller) {
document.$formname.submit();	document.$formname.submit();
return;	return;
}	}
	// ]]>
</script>	</script>
ENDSCRIPT	ENDSCRIPT
}	}
} else {	} else {
$r->print(&mt('There are no records to display'));	$r->print('<p class="LC_info">'.
	&mt('There are no records to display').
	'</p>');
}	}
$r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'.	$r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'.
'<input type="hidden" name="action" value="changelogs" /></form>');	'<input type="hidden" name="action" value="changelogs" /></form>');
Line 3962 ENDSCRIPT	Line 5224 ENDSCRIPT
}	}

sub role_display_filter {	sub role_display_filter {
my ($formname,$cdom,$cnum,$curr,$version) = @_;	my ($formname,$cdom,$cnum,$curr,$version,$crstype) = @_;
my $context = 'course';	my $context = 'course';
	my $lctype = lc($crstype);
my $nolink = 1;	my $nolink = 1;
my $output = '<table><tr><td valign="top">'.	my $output = '<table><tr><td valign="top">'.
'<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b><br />'.	'<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b></span><br />'.
&Apache::lonmeta::selectbox('show',$curr->{'show'},undef,	&Apache::lonmeta::selectbox('show',$curr->{'show'},undef,
(&mt('all'),5,10,20,50,100,1000,10000)).	(&mt('all'),5,10,20,50,100,1000,10000)).
'</td><td>  </td>';	'</td><td>  </td>';
Line 3978 sub role_display_filter {	Line 5241 sub role_display_filter {
&Apache::lonhtmlcommon::date_setter($formname,'rolelog_end_date',	&Apache::lonhtmlcommon::date_setter($formname,'rolelog_end_date',
$curr->{'rolelog_end_date'},undef,	$curr->{'rolelog_end_date'},undef,
undef,undef,undef,undef,undef,undef,$nolink);	undef,undef,undef,undef,undef,undef,$nolink);
my %lt = &rolechg_contexts();	my %lt = &rolechg_contexts($crstype);
$output .= '<td valign="top"><b>'.&mt('Window during which changes occurred:').'</b><br /><table><tr><td>'.&mt('After:').	$output .= '<td valign="top"><b>'.&mt('Window during which changes occurred:').'</b><br /><table><tr><td>'.&mt('After:').
'</td><td>'.$startform.'</td></tr><tr><td>'.&mt('Before:').'</td><td>'.	'</td><td>'.$startform.'</td></tr><tr><td>'.&mt('Before:').'</td><td>'.
$endform.'</td></tr></table></td><td>  </td>'.	$endform.'</td></tr></table></td><td>  </td>'.
Line 3988 sub role_display_filter {	Line 5251 sub role_display_filter {
$output .= ' selected="selected"';	$output .= ' selected="selected"';
}	}
$output .= '>'.&mt('Any').'</option>'."\n";	$output .= '>'.&mt('Any').'</option>'."\n";
my @roles = &Apache::lonuserutils::course_roles($context,undef,1);	my @roles = &Apache::lonuserutils::course_roles($context,undef,1,$lctype);
foreach my $role (@roles) {	foreach my $role (@roles) {
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);
}	}
my $selstr = '';	my $selstr = '';
if ($role eq $curr->{'role'}) {	if ($role eq $curr->{'role'}) {
Line 4004 sub role_display_filter {	Line 5267 sub role_display_filter {
}	}
$output .= '</select></td><td>  </td><td valign="top"><b>'.	$output .= '</select></td><td>  </td><td valign="top"><b>'.
&mt('Context:').'</b><br /><select name="chgcontext">';	&mt('Context:').'</b><br /><select name="chgcontext">';
foreach my $chgtype ('any','auto','updatenow','createcourse','course','domain','selfenroll') {	foreach my $chgtype ('any','auto','updatenow','createcourse','course','domain','selfenroll','requestcourses') {
my $selstr = '';	my $selstr = '';
if ($curr->{'chgcontext'} eq $chgtype) {	if ($curr->{'chgcontext'} eq $chgtype) {
$output .= $selstr = ' selected="selected"';	$selstr = ' selected="selected"';
}	}
if (($chgtype eq 'auto') \|\| ($chgtype eq 'updatenow')) {	if (($chgtype eq 'auto') \|\| ($chgtype eq 'updatenow')) {
next if (!&Apache::lonnet::auto_run($cnum,$cdom));	next if (!&Apache::lonnet::auto_run($cnum,$cdom));
}	}
$output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n";	$output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n";
}	}
$output .= '</select></td><td>  </td><td valign="middle"><input type="submit" value="'.	$output .= '</select></td>'
&mt('Update Display').'" /></tr></table>'.	.'</tr></table>';
'<span class="LC_roleslog_note">'.
&mt('[_1]Note:[_2] Only changes made from servers running LON-CAPA 2.6.99.0 or later are displayed.');	# Update Display button
	$output .= '<p>'
	.'<input type="submit" value="'.&mt('Update Display').'" />'
	.'</p>';

	# Server version info
	$output .= '<p style="font-size: smaller;" class="LC_info">'
	.&mt('Only changes made from servers running LON-CAPA [_1] or later are displayed.'
	,'2.6.99.0');
if ($version) {	if ($version) {
$output .= ' '.&mt('This server is version [_3].','<b>','</b>',$version); }	$output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);
$output .= '</span><hr noshade><br />';	}
	$output .= '</p><hr /><br />';
return $output;	return $output;
}	}

sub rolechg_contexts {	sub rolechg_contexts {
	my ($crstype) = @_;
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
any => 'Any',	any => 'Any',
auto => 'Automated enrollment',	auto => 'Automated enrollment',
Line 4032 sub rolechg_contexts {	Line 5305 sub rolechg_contexts {
createcourse => 'Course Creation',	createcourse => 'Course Creation',
course => 'User Management in course',	course => 'User Management in course',
domain => 'User Management in domain',	domain => 'User Management in domain',
selfenroll => 'Self-enrolled',	selfenroll => 'Self-enrolled',
	requestcourses => 'Course Request',
);	);
	if ($crstype eq 'Community') {
	$lt{'createcourse'} = &mt('Community Creation');
	$lt{'course'} = &mt('User Management in community');
	$lt{'requestcourses'} = &mt('Community Request');
	}
return %lt;	return %lt;
}	}

Line 4117 sub user_search_result {	Line 5396 sub user_search_result {
&build_search_response($context,$srch,%srch_results);	&build_search_response($context,$srch,%srch_results);
} else {	} else {
$currstate = 'modify';	$currstate = 'modify';
	my $uname = $srch->{'srchterm'};
	my $udom = $srch->{'srchdomain'};
	$srch_results{$uname.':'.$udom} =
	{ &Apache::lonnet::get('environment',
	['firstname',
	'lastname',
	'permanentemail'],
	$udom,$uname)
	};
}	}
} else {	} else {
%srch_results = &Apache::lonnet::usersearch($srch);	%srch_results = &Apache::lonnet::usersearch($srch);
Line 4408 sub build_search_response {	Line 5696 sub build_search_response {
$response .= '<br />'.&mt('You may want to broaden your search to the selected LON-CAPA domain.');	$response .= '<br />'.&mt('You may want to broaden your search to the selected LON-CAPA domain.');
}	}
}	}
if (!($srch->{'srchby'} eq 'uname' && $srch->{'srchin'} eq 'dom' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchdomain'} eq $env{'request.role.domain'})) {	my $createdom = $env{'request.role.domain'};
	if ($context eq 'requestcrs') {
	if ($env{'form.coursedom'} ne '') {
	$createdom = $env{'form.coursedom'};
	}
	}
	if (!($srch->{'srchby'} eq 'uname' && $srch->{'srchin'} eq 'dom' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchdomain'} eq $createdom)) {
my $cancreate =	my $cancreate =
&Apache::lonuserutils::can_create_user($env{'request.role.domain'},$context);	&Apache::lonuserutils::can_create_user($createdom,$context);
	my $targetdom = '<span class="LC_cusr_emph">'.$createdom.'</span>';
if ($cancreate) {	if ($cancreate) {
my $showdom = &display_domain_info($env{'request.role.domain'});	my $showdom = &display_domain_info($createdom);
$response .= '<br /><br />'.&mt("<b>To add a new user</b> (you can only create new users in your current role's domain - <span class=\"LC_cusr_emph\">[_1]</span>):",$env{'request.role.domain'}).'<ul><li>'.&mt("Set 'Domain/institution to search' to: <span class=\"LC_cusr_emph\">[_1]</span>",$showdom).'<li>'.&mt("Set 'Search criteria' to: <span class=\"LC_cusr_emph\">'username is ...... in selected LON-CAPA domain'").'</span></li><li>'.&mt('Provide the proposed username').'</li><li>'.&mt('Search').'</li></ul><br />';	$response .= '<br /><br />'
	.'<b>'.&mt('To add a new user:').'</b>'
	.'<br />';
	if ($context eq 'requestcrs') {
	$response .= &mt("(You can only define new users in the new course's domain - [_1])",$targetdom);
	} else {
	$response .= &mt("(You can only create new users in your current role's domain - [_1])",$targetdom);
	}
	$response .= '<ul><li>'
	.&mt("Set 'Domain/institution to search' to: [_1]",'<span class="LC_cusr_emph">'.$showdom.'</span>')
	.'</li><li>'
	.&mt("Set 'Search criteria' to: [_1]username is ..... in selected LON-CAPA domain[_2]",'<span class="LC_cusr_emph">','</span>')
	.'</li><li>'
	.&mt('Provide the proposed username')
	.'</li><li>'
	.&mt("Click 'Search'")
	.'</li></ul><br />';
} else {	} else {
my $helplink = ' href="javascript:helpMenu('."'display'".')"';	my $helplink = ' href="javascript:helpMenu('."'display'".')"';
$response .= '<br /><br />'.&mt("You are not authorized to create new users in your current role's domain - <span class=\"LC_cusr_emph\">[_1]</span>.",$env{'request.role.domain'}).'<br />'.&mt('Contact the <a[_1]>helpdesk</a> if you need to create a new user.',$helplink).'<br /><br />';	$response .= '<br /><br />';
	if ($context eq 'requestcrs') {
	$response .= &mt("You are not authorized to define new users in the new course's domain - [_1].",$targetdom);
	} else {
	$response .= &mt("You are not authorized to create new users in your current role's domain - [_1].",$targetdom);
	}
	$response .= '<br />'
	.&mt('Please contact the [_1]helpdesk[_2] if you need to create a new user.'
	,' <a'.$helplink.'>'
	,'</a>')
	.'<br /><br />';
}	}
}	}
}	}
Line 4507 sub course_level_table {	Line 5828 sub course_level_table {
$thiscourse=~s:_:/:g;	$thiscourse=~s:_:/:g;
my %coursedata=&Apache::lonnet::coursedescription($thiscourse);	my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
my $area=$coursedata{'description'};	my $area=$coursedata{'description'};
my $type=$coursedata{'type'};	my $crstype=$coursedata{'type'};
if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }	if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
my ($domain,$cnum)=split(/\//,$thiscourse);	my ($domain,$cnum)=split(/\//,$thiscourse);
my %sections_count;	my %sections_count;
Line 4517 sub course_level_table {	Line 5838 sub course_level_table {
&Apache::loncommon::get_sections($domain,$cnum);	&Apache::loncommon::get_sections($domain,$cnum);
}	}
}	}
my @roles = &Apache::lonuserutils::roles_by_context('course');	my @roles = &Apache::lonuserutils::roles_by_context('course','',$crstype);
foreach my $role (@roles) {	foreach my $role (@roles) {
my $plrole=&Apache::lonnet::plaintext($role);	my $plrole=&Apache::lonnet::plaintext($role,$crstype);
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {	if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
$table .= &course_level_row($protectedcourse,$role,$area,$domain,	$table .= &course_level_row($protectedcourse,$role,$area,$domain,
$plrole,\%sections_count,\%lt);	$plrole,\%sections_count,\%lt);
Line 4532 sub course_level_table {	Line 5853 sub course_level_table {
}	}
}	}
if (&Apache::lonnet::allowed('ccr',$thiscourse)) {	if (&Apache::lonnet::allowed('ccr',$thiscourse)) {
foreach my $cust (sort keys %customroles) {	foreach my $cust (sort(keys(%customroles))) {
	next if ($crstype eq 'Community' && $customroles{$cust} =~ /bre\&S/);
my $role = 'cr_cr_'.$env{'user.domain'}.'_'.$env{'user.name'}.'_'.$cust;	my $role = 'cr_cr_'.$env{'user.domain'}.'_'.$env{'user.name'}.'_'.$cust;
$table .= &course_level_row($protectedcourse,$role,$area,$domain,	$table .= &course_level_row($protectedcourse,$role,$area,$domain,
$cust,\%sections_count,\%lt);	$cust,\%sections_count,\%lt);
Line 4563 sub course_level_row {	Line 5885 sub course_level_row {
$protectedcourse.'_'.$role.'" /></td>'."\n".	$protectedcourse.'_'.$role.'" /></td>'."\n".
' <td>'.$plrole.'</td>'."\n".	' <td>'.$plrole.'</td>'."\n".
' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";	' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
if ($role eq 'cc') {	if (($role eq 'cc') \|\| ($role eq 'co')) {
$row .= '<td> </td>';	$row .= '<td> </td>';
} elsif ($env{'request.course.sec'} ne '') {	} elsif ($env{'request.course.sec'} ne '') {
$row .= ' <td><input type="hidden" value="'.	$row .= ' <td><input type="hidden" value="'.
Line 4612 sub course_level_dc {	Line 5934 sub course_level_dc {
'<input type="hidden" name="dccourse" value="" />';	'<input type="hidden" name="dccourse" value="" />';
my $courseform='<b>'.&Apache::loncommon::selectcourse_link	my $courseform='<b>'.&Apache::loncommon::selectcourse_link
('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';	('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';
my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');	my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu','role','Course/Community Browser');
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'rol' => "Role",	'rol' => "Role",
'grs' => "Section",	'grs' => "Section",
Line 4623 sub course_level_dc {	Line 5945 sub course_level_dc {
'ssd' => "Set Start Date",	'ssd' => "Set Start Date",
'sed' => "Set End Date"	'sed' => "Set End Date"
);	);
my $header = '<h4>'.&mt('Course Level').'</h4>'.	my $header = '<h4>'.&mt('Course/Community Level').'</h4>'.
&Apache::loncommon::start_data_table().	&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>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.	'<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
&Apache::loncommon::end_data_table_header_row();	&Apache::loncommon::end_data_table_header_row();
my $otheritems = &Apache::loncommon::start_data_table_row()."\n".	my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
'<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".	'<td><br /><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc','','','','crstype'".')" /></td>'."\n".
'<td><select name="role">'."\n";	'<td valign><br /><select name="role">'."\n";
foreach my $role (@roles) {	foreach my $role (@roles) {
my $plrole=&Apache::lonnet::plaintext($role);	my $plrole=&Apache::lonnet::plaintext($role);
$otheritems .= ' <option value="'.$role.'">'.$plrole;	$otheritems .= ' <option value="'.$role.'">'.$plrole;
Line 4650 sub course_level_dc {	Line 5972 sub course_level_dc {
'<td valign="top"> <b>'.$lt{'new'}.'</b><br />'.	'<td valign="top"> <b>'.$lt{'new'}.'</b><br />'.
'<input type="text" name="newsec" value="" />'.	'<input type="text" name="newsec" value="" />'.
'<input type="hidden" name="section" value="" />'.	'<input type="hidden" name="section" value="" />'.
'<input type="hidden" name="groups" value="" /></td>'.	'<input type="hidden" name="groups" value="" />'.
	'<input type="hidden" name="crstype" value="" /></td>'.
'</tr></table></td>';	'</tr></table></td>';
$otheritems .= <<ENDTIMEENTRY;	$otheritems .= <<ENDTIMEENTRY;
<td><input type="hidden" name="start" value='' />	<td><br /><input type="hidden" name="start" value='' />
<a href=	<a href=
"javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>	"javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>
<td><input type="hidden" name="end" value='' />	<td><br /><input type="hidden" name="end" value='' />
<a href=	<a href=
"javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>	"javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
ENDTIMEENTRY	ENDTIMEENTRY
Line 4720 sub update_selfenroll_config {	Line 6043 sub update_selfenroll_config {
$newnum ++;	$newnum ++;
}	}
}	}
for (my $j=0; $j<$env{'form.selfenroll_types_total'}; $j++) { if ((!grep(/^$j$/,@deletedoms)) && (!grep(/^$j$/,@activations))) {	for (my $j=0; $j<$env{'form.selfenroll_types_total'}; $j++) {
	if ((!grep(/^$j$/,@deletedoms)) && (!grep(/^$j$/,@activations))) {
my @types = &Apache::loncommon::get_env_multiple('form.selfenroll_types_'.$j);	my @types = &Apache::loncommon::get_env_multiple('form.selfenroll_types_'.$j);
if (@types > 0) {	if (@types > 0) {
@types = sort(@types);	@types = sort(@types);
Line 4759 sub update_selfenroll_config {	Line 6083 sub update_selfenroll_config {
$changes{'internal.selfenroll_types'} = $selfenroll_types;	$changes{'internal.selfenroll_types'} = $selfenroll_types;
}	}
}	}
	} elsif ($item eq 'limit') {
	my $newlimit = $env{'form.selfenroll_limit'};
	my $newcap = $env{'form.selfenroll_cap'};
	$newcap =~s/\s+//g;
	my $currlimit = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_limit'};
	$currlimit = 'none' if ($currlimit eq '');
	my $currcap = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_cap'};
	if ($newlimit ne $currlimit) {
	if ($newlimit ne 'none') {
	if ($newcap =~ /^\d+$/) {
	if ($newcap ne $currcap) {
	$changes{'internal.selfenroll_cap'} = $newcap;
	}
	$changes{'internal.selfenroll_limit'} = $newlimit;
	} else {
	$warning{$item} = &mt('Maximum enrollment setting unchanged.').'<br />'.&mt('The value provided was invalid - it must be a positive integer if enrollment is being limited.');
	}
	} elsif ($currcap ne '') {
	$changes{'internal.selfenroll_cap'} = '';
	$changes{'internal.selfenroll_limit'} = $newlimit;
	}
	} elsif ($currlimit ne 'none') {
	if ($newcap =~ /^\d+$/) {
	if ($newcap ne $currcap) {
	$changes{'internal.selfenroll_cap'} = $newcap;
	}
	} else {
	$warning{$item} = &mt('Maximum enrollment setting unchanged.').'<br />'.&mt('The value provided was invalid - it must be a positive integer if enrollment is being limited.');
	}
	}
	} elsif ($item eq 'approval') {
	my (@currnotified,@newnotified);
	my $currapproval = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'};
	my $currnotifylist = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_notifylist'};
	if ($currnotifylist ne '') {
	@currnotified = split(/,/,$currnotifylist);
	@currnotified = sort(@currnotified);
	}
	my $newapproval = $env{'form.selfenroll_approval'};
	@newnotified = &Apache::loncommon::get_env_multiple('form.selfenroll_notify');
	@newnotified = sort(@newnotified);
	if ($newapproval ne $currapproval) {
	$changes{'internal.selfenroll_approval'} = $newapproval;
	if (!$newapproval) {
	if ($currnotifylist ne '') {
	$changes{'internal.selfenroll_notifylist'} = '';
	}
	} else {
	my @differences =
	&Apache::loncommon::compare_arrays(\@currnotified,\@newnotified);
	if (@differences > 0) {
	if (@newnotified > 0) {
	$changes{'internal.selfenroll_notifylist'} = join(',',@newnotified);
	} else {
	$changes{'internal.selfenroll_notifylist'} = join(',',@newnotified);
	}
	}
	}
	} else {
	my @differences = &Apache::loncommon::compare_arrays(\@currnotified,\@newnotified);
	if (@differences > 0) {
	if (@newnotified > 0) {
	$changes{'internal.selfenroll_notifylist'} = join(',',@newnotified);
	} else {
	$changes{'internal.selfenroll_notifylist'} = '';
	}
	}
	}
} else {	} else {
my $curr_val =	my $curr_val =
$env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$item};	$env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$item};
Line 4770 sub update_selfenroll_config {	Line 6162 sub update_selfenroll_config {
$warning{$item} = &mt('Section for self-enrolled users unchanged as the proposed section is a group').'<br />'.&mt('Group names and section names must be distinct');	$warning{$item} = &mt('Section for self-enrolled users unchanged as the proposed section is a group').'<br />'.&mt('Group names and section names must be distinct');
} elsif ($newval eq 'all') {	} elsif ($newval eq 'all') {
$newval = $curr_val;	$newval = $curr_val;
$warning{$item} = &mt("Section for self-enrolled users unchanged, as 'all' is a reserved section name.");	$warning{$item} = &mt('Section for self-enrolled users unchanged, as "all" is a reserved section name.');
}	}
if ($newval eq '') {	if ($newval eq '') {
$newval = 'none';	$newval = 'none';
Line 4831 sub update_selfenroll_config {	Line 6223 sub update_selfenroll_config {
$title,$type,$newdate).'</li>');	$title,$type,$newdate).'</li>');
}	}
}	}
	} elsif ($item eq 'limit') {
	if ((exists($changes{'internal.selfenroll_limit'})) \|\|
	(exists($changes{'internal.selfenroll_cap'}))) {
	my ($newval,$newcap);
	if ($changes{'internal.selfenroll_cap'} ne '') {
	$newcap = $changes{'internal.selfenroll_cap'}
	} else {
	$newcap = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_cap'};
	}
	if ($changes{'internal.selfenroll_limit'} eq 'none') {
	$newval = &mt('No limit');
	} elsif ($changes{'internal.selfenroll_limit'} eq
	'allstudents') {
	$newval = &mt('New self-enrollment no longer allowed when total (all students) reaches [_1].',$newcap);
	} elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {
	$newval = &mt('New self-enrollment no longer allowed when total number of self-enrolled students reaches [_1].',$newcap);
	} else {
	my $currlimit = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_limit'};
	if ($currlimit eq 'allstudents') {
	$newval = &mt('New self-enrollment no longer allowed when total (all students) reaches [_1].',$newcap);
	} elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {
	$newval = &mt('New self-enrollment no longer allowed when total number of self-enrolled students reaches [_1].',$newcap);
	}
	}
	$r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval).'</li>'."\n");
	}
	} elsif ($item eq 'approval') {
	if ((exists($changes{'internal.selfenroll_approval'})) \|\|
	(exists($changes{'internal.selfenroll_notifylist'}))) {
	my ($newval,$newnotify);
	if (exists($changes{'internal.selfenroll_notifylist'})) {
	$newnotify = $changes{'internal.selfenroll_notifylist'};
	} else {
	$newnotify = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_notifylist'};
	}
	if ($changes{'internal.selfenroll_approval'}) {
	$newval = &mt('Yes');
	} elsif ($changes{'internal.selfenroll_approval'} eq '0') {
	$newval = &mt('No');
	} else {
	my $currapproval =
	$env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'};
	if ($currapproval) {
	$newval = &mt('Yes');
	} else {
	$newval = &mt('No');
	}
	}
	$r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval));
	if ($newnotify) {
	$r->print('<br />'.&mt('The following will be notified when an enrollment request needs approval, or has been approved: [_1].',$newnotify));
	} else {
	$r->print('<br />'.&mt('No notifications sent when an enrollment request needs approval, or has been approved.'));
	}
	$r->print('</li>'."\n");
	}
} else {	} else {
if (exists($changes{'internal.selfenroll_'.$item})) {	if (exists($changes{'internal.selfenroll_'.$item})) {
my $newval = $changes{'internal.selfenroll_'.$item};	my $newval = $changes{'internal.selfenroll_'.$item};
Line 4880 sub update_selfenroll_config {	Line 6328 sub update_selfenroll_config {
}	}
$r->print($cansetvis);	$r->print($cansetvis);
}	}
}	}
return;	return;
}	}

sub get_selfenroll_titles {	sub get_selfenroll_titles {
my @row = ('types','registered','enroll_dates','access_dates','section');	my @row = ('types','registered','enroll_dates','access_dates','section',
	'approval','limit');
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
types => 'Users allowed to self-enroll in this course',	types => 'Users allowed to self-enroll in this course',
registered => 'Restrict self-enrollment to students officially registered for the course',	registered => 'Restrict self-enrollment to students officially registered for the course',
enroll_dates => 'Dates self-enrollment available',	enroll_dates => 'Dates self-enrollment available',
access_dates => 'Course access dates assigned to self-enrolling users',	access_dates => 'Course access dates assigned to self-enrolling users',
section => 'Section assigned to self-enrolling users',	section => 'Section assigned to self-enrolling users',
	approval => 'Self-enrollment requests need approval?',
	limit => 'Enrollment limit',
);	);
return (\@row,\%lt);	return (\@row,\%lt);
}	}

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

Removed from v.1.249.2.5
changed lines
	Added in v.1.295.2.25