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.303 and 1.329.2.3

version 1.303, 2009/08/05 13:40:10	version 1.329.2.3, 2010/08/09 23:39:43
Line 51 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 68 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::selfenroll();	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 110 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 216 END_SCRIPT	Line 218 END_SCRIPT

sub build_tools_display {	sub build_tools_display {
my ($ccuname,$ccdomain,$context) = @_;	my ($ccuname,$ccdomain,$context) = @_;
my (@usertools,%userenv,$output);	my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay,
	$colspan);
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
'blog' => "Personal User Blog",	'blog' => "Personal User Blog",
'aboutme' => "Personal Information Page",	'aboutme' => "Personal Information Page",
Line 235 sub build_tools_display {	Line 238 sub build_tools_display {
'requestcourses.official','requestcourses.unofficial',	'requestcourses.official','requestcourses.unofficial',
'requestcourses.community');	'requestcourses.community');
@usertools = ('official','unofficial','community');	@usertools = ('official','unofficial','community');
	@options =('norequest','approval','autolimit','validate');
	%validations = &Apache::lonnet::auto_courserequest_checks($ccdomain);
	%reqtitles = &courserequest_titles();
	%reqdisplay = &courserequest_display();
	$colspan = ' colspan="2"';
} else {	} else {
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,	%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
'tools.aboutme','tools.portfolio','tools.blog');	'tools.aboutme','tools.portfolio','tools.blog');
@usertools = ('aboutme','blog','portfolio');	@usertools = ('aboutme','blog','portfolio');
}	}
foreach my $item (@usertools) {	foreach my $item (@usertools) {
my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off);	my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off,
	$currdisp,$custdisp,$custradio);
$cust_off = 'checked="checked" ';	$cust_off = 'checked="checked" ';
$tool_on = 'checked="checked" ';	$tool_on = 'checked="checked" ';
$curr_access =	$curr_access =
&Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef,	&Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef,
$context);	$context);
if ($userenv{$context.'.'.$item} eq '') {	if ($userenv{$context.'.'.$item} ne '') {
$custom_access = 'default';
if (!$curr_access) {
$tool_off = 'checked="checked" ';
$tool_on = '';
}
} else {
$custom_access = 'custom';
$cust_on = ' checked="checked" ';	$cust_on = ' checked="checked" ';
$cust_off = '';	$cust_off = '';
if ($userenv{$context.'.'.$item} == 0) {	}
$tool_off = 'checked="checked" ';	if ($context eq 'requestcourses') {
$tool_on = '';	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".	$output .= ' <tr class="LC_info_row">'."\n".
' <td>'.$lt{$item}.'</td>'."\n".	' <td'.$colspan.'>'.$lt{$item}.'</td>'."\n".
' </tr>'."\n".	' </tr>'."\n".
&Apache::loncommon::start_data_table_row()."\n".	&Apache::loncommon::start_data_table_row()."\n";
' <td>'.&mt('Availability determined currently from [_1] setting.',$custom_access).	if ($context eq 'requestcourses') {
'     '.$lt{'avai'}.': '.	my ($curroption,$currlimit);
($curr_access?&mt('Yes'):&mt('No')).'</td>'."\n".	$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::end_data_table_row()."\n".
&Apache::loncommon::start_data_table_row()."\n".	&Apache::loncommon::start_data_table_row()."\n".
' <td><span class="LC_nobreak">'.$lt{'chse'}.': <label>'.	' <td style="vertical-align:top;"><span class="LC_nobreak">'.
	$lt{'chse'}.': <label>'.
'<input type="radio" name="custom'.$item.'" value="0" '.	'<input type="radio" name="custom'.$item.'" value="0" '.
$cust_off.'/>'.$lt{'usde'}.'</label>   '.	$cust_off.'/>'.$lt{'usde'}.'</label>'.(' ' x3).
'<label><input type="radio" name="custom'.$item.'" value="1" '.	'<label><input type="radio" name="custom'.$item.'" value="1" '.
$cust_on.'/>'.$lt{'uscu'}.'</label>  --  '.	$cust_on.'/>'.$lt{'uscu'}.'</label>'.$custradio.'</td>'.
$lt{'cusa'}.': <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></td>'."\n".
&Apache::loncommon::end_data_table_row()."\n";	&Apache::loncommon::end_data_table_row()."\n";
}	}
return $output;	return $output;
Line 288 sub build_tools_display {	Line 369 sub build_tools_display {

sub coursereq_externaluser {	sub coursereq_externaluser {
my ($ccuname,$ccdomain,$cdom) = @_;	my ($ccuname,$ccdomain,$cdom) = @_;
my (@usertools,%userenv,$output);	my (@usertools,@options,%validations,%userenv,$output);
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
'official' => 'Can request creation of official courses',	'official' => 'Can request creation of official courses',
'unofficial' => 'Can request creation of unofficial courses',	'unofficial' => 'Can request creation of unofficial courses',
Line 299 sub coursereq_externaluser {	Line 380 sub coursereq_externaluser {
'reqcrsotherdom.official','reqcrsotherdom.unofficial',	'reqcrsotherdom.official','reqcrsotherdom.unofficial',
'reqcrsotherdom.community');	'reqcrsotherdom.community');
@usertools = ('official','unofficial','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) {	foreach my $item (@usertools) {
my ($tool_on,$tool_off);	my ($curroption,$currlimit,$tooloff);
$tool_off = 'checked="checked" ';
if ($userenv{'reqcrsotherdom.'.$item} ne '') {	if ($userenv{'reqcrsotherdom.'.$item} ne '') {
my @curr = split(',',$userenv{'reqcrsotherdom.'.$item});	my @curr = split(',',$userenv{'reqcrsotherdom.'.$item});
if (grep(/^\Q$cdom\E$/,@curr)) {	foreach my $req (@curr) {
$tool_on = 'checked="checked" ';	if ($req =~ /^\Q$cdom\E\:($optregex)=?(\d*)$/) {
$tool_off = '';	$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 .= &Apache::loncommon::start_data_table_row()."\n".	$output .= '</td></tr></table></td>'."\n".
' <td><span class="LC_nobreak">'.$lt{$item}.': <label>'.
'<input type="radio" name="reqcrsotherdom_'.$item.'" value="1" '.
$tool_on.'/>'.&mt('Yes').'</label> <label>'.
'<input type="radio" name="reqcrsotherdom_'.$item.'" value="0" '.
$tool_off.'/>'.&mt('No').'</label></span></td>'."\n".
&Apache::loncommon::end_data_table_row()."\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 342 sub print_username_entry_form {	Line 488 sub print_username_entry_form {
'// ]]>'."\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 $title = 'User Management';
	if ($context eq 'course') {
	if (&Apache::loncommon::needs_gci_custom()) {
	$title = 'Enrollment and Student Activity';
	}
	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page('User Management',	&Apache::loncommon::start_page($title,
$jscript,{'add_entries' => \%loaditems,});	$jscript,{'add_entries' => \%loaditems,});
if ($env{'form.action'} eq 'custom') {	if ($env{'form.action'} eq 'custom') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
Line 365 sub print_username_entry_form {	Line 522 sub print_username_entry_form {
} elsif ($env{'form.action'} eq 'singlestudent') {	} elsif ($env{'form.action'} eq 'singlestudent') {
$helpitem = 'Course_Add_Student';	$helpitem = 'Course_Add_Student';
}	}
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',	my $crumbs = &Apache::lonhtmlcommon::breadcrumbs($title,
$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' => "Next",	'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>'.
$choice $lt{'nr'}: <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 448 ENDBLOCK	Line 669 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 459 ENDBLOCK	Line 681 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 507 sub user_modification_js {	Line 733 sub user_modification_js {
return <<END;	return <<END;
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
// <![CDATA[	// <![CDATA[

function pclose() {	function pclose() {
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",	parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");	"height=350,width=350,scrollbars=no,menubar=no");
Line 530 END	Line 757 END

# =================================================================== Phase two	# =================================================================== Phase two
sub print_user_selection_page {	sub print_user_selection_page {
my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements) = @_;	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 558 ENDSCRIPT	Line 785 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",
Line 569 ENDSCRIPT	Line 798 ENDSCRIPT
if ($context eq 'requestcrs') {	if ($context eq 'requestcrs') {
$r->print('<div>');	$r->print('<div>');
} else {	} else {
$r->print(&Apache::loncommon::start_page('User Management',$jscript));	my $title = 'User Management';
	if ($context eq 'course') {
	if (&Apache::loncommon::needs_gci_custom()) {
	$title = 'Enrollment and Student Activity';
	}
	}
	$r->print(&Apache::loncommon::start_page($title,$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'},
Line 580 ENDSCRIPT	Line 815 ENDSCRIPT
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($title,
'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($title,
'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">'.
Line 618 ENDSCRIPT	Line 865 ENDSCRIPT
my ($uname,$udom) = split(/:/,$user);	my ($uname,$udom) = split(/:/,$user);
my $onclick;	my $onclick;
if ($context eq 'requestcrs') {	if ($context eq 'requestcrs') {
$onclick =	$onclick =
'onclick="javascript:gochoose('."'$uname','$udom',".	'onclick="javascript:gochoose('."'$uname','$udom',".
"'$srch_results->{$user}->{firstname}',".	"'$srch_results->{$user}->{firstname}',".
"'$srch_results->{$user}->{lastname}',".	"'$srch_results->{$user}->{lastname}',".
"'$srch_results->{$user}->{permanentemail}'".');"';	"'$srch_results->{$user}->{permanentemail}'".');"';
} else {	} else {
$onclick =	$onclick =
' onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".');"';	' onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".');"';
}	}
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
Line 665 sub print_user_query_page {	Line 912 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 710 sub print_user_modification_page {	Line 957 sub print_user_modification_page {
,'<a href="'.$helplink.'">','</a>')	,'<a href="'.$helplink.'">','</a>')
.'</p><br />';	.'</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 734 sub print_user_modification_page {	Line 981 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 759 sub print_user_modification_page {	Line 1006 sub print_user_modification_page {
if ($env{'form.popup'}) {	if ($env{'form.popup'}) {
$args->{'no_nav_bar'} = 1;	$args->{'no_nav_bar'} = 1;
}	}
	my $title = 'User Management';
	if ($context eq 'course') {
	if (&Apache::loncommon::needs_gci_custom()) {
	$title = 'Enrollment and Student Activity';
	}
	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page('User Management',$js,$args);	&Apache::loncommon::start_page($title,$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 781 sub print_user_modification_page {	Line 1034 sub print_user_modification_page {
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$helpitem = 'Course_Add_Student';	$helpitem = 'Course_Add_Student';
}	}
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',	my $crumbs = &Apache::lonhtmlcommon::breadcrumbs($title,
$helpitem);	$helpitem);

my $forminfo =<<"ENDFORMINFO";	my $forminfo =<<"ENDFORMINFO";
Line 793 sub print_user_modification_page {	Line 1046 sub print_user_modification_page {
<input type="hidden" name="pres_type" value="" />	<input type="hidden" name="pres_type" value="" />
<input type="hidden" name="pres_marker" value="" />	<input type="hidden" name="pres_marker" value="" />
ENDFORMINFO	ENDFORMINFO
my %inccourses;	my (%inccourses,$roledom);
foreach my $key (keys(%env)) {	if ($context eq 'course') {
if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {	$inccourses{$env{'request.course.id'}}=1;
$inccourses{$1.'_'.$2}=1;	$roledom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	} elsif ($context eq 'author') {
	$roledom = $env{'request.role.domain'};
	} elsif ($context eq 'domain') {
	foreach my $key (keys(%env)) {
	$roledom = $env{'request.role.domain'};
	if ($key=~/^user\.priv\.cm\.\/($roledom)\/($match_username)/) {
	$inccourses{$1.'_'.$2}=1;
	}
	}
	} else {
	foreach my $key (keys(%env)) {
	if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {
	$inccourses{$1.'_'.$2}=1;
	}
}	}
}	}
if ($newuser) {	if ($newuser) {
Line 810 ENDFORMINFO	Line 1077 ENDFORMINFO
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 828 $loginscript	Line 1096 $loginscript
<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 846 $lt{'hs'}: $home_server_pick	Line 1118 $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 914 ENDAUTH	Line 1193 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 923 $forminfo	Line 1203 $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 937 ENDCHANGEUSER	Line 1221 ENDCHANGEUSER
$r->print(&Apache::lonuserutils::forceid_change($context));	$r->print(&Apache::lonuserutils::forceid_change($context));
}	}
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {	if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
$r->print('<h3>'.&mt('User Can Request Creation of Courses in this Domain?').'</h3>'.	$r->print('<h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.
&Apache::loncommon::start_data_table());	&Apache::loncommon::start_data_table());
if ($env{'request.role.domain'} eq $ccdomain) {	if ($env{'request.role.domain'} eq $ccdomain) {
$r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses'));	$r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses'));
} else {	} else {
$r->print(&coursereq_externaluser($ccuname,$ccdomain,	$r->print(&coursereq_externaluser($ccuname,$ccdomain,
Line 1016 ENDNOTOOLSPRIV	Line 1300 ENDNOTOOLSPRIV
}	}
$r->print('</div><div class="LC_clear_float_footer"></div>');	$r->print('</div><div class="LC_clear_float_footer"></div>');
if ($env{'form.action'} ne 'singlestudent') {	if ($env{'form.action'} ne 'singlestudent') {
&display_existing_roles($r,$ccuname,$ccdomain,\%inccourses);	&display_existing_roles($r,$ccuname,$ccdomain,\%inccourses,$context,
	$roledom,$crstype);
}	}
} ## 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 1060 ENDNOTOOLSPRIV	Line 1350 ENDNOTOOLSPRIV
}	}

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 1126 sub validation_javascript {	Line 1421 sub validation_javascript {
}	}

sub display_existing_roles {	sub display_existing_roles {
my ($r,$ccuname,$ccdomain,$inccourses) = @_;	my ($r,$ccuname,$ccdomain,$inccourses,$context,$roledom,$crstype) = @_;
my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);	my $now=time;
# Build up table of user roles to allow revocation and re-enabling of roles.	my %lt=&Apache::lonlocal::texthash(
my ($tmp) = keys(%rolesdump);
if ($tmp !~ /^(con_lost\|error)/i) {
my $now=time;
my %lt=&Apache::lonlocal::texthash(
'rer' => "Existing Roles",	'rer' => "Existing Roles",
'rev' => "Revoke",	'rev' => "Revoke",
'del' => "Delete",	'del' => "Delete",
Line 1142 sub display_existing_roles {	Line 1433 sub display_existing_roles {
'sta' => "Start",	'sta' => "Start",
'end' => "End",	'end' => "End",
);	);
my (%roletext,%sortrole,%roleclass,%rolepriv);	my (%rolesdump,%roletext,%sortrole,%roleclass,%rolepriv);
foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);	if ($context eq 'course' \|\| $context eq 'author') {
my $b1=join('_',(split('_',$b))[1,0]);	my @roles = &Apache::lonuserutils::roles_by_context($context,1,$crstype);
return $a1 cmp $b1;	my %roleshash =
} keys(%rolesdump)) {	&Apache::lonnet::get_my_roles($ccuname,$ccdomain,'userroles',
next if ($area =~ /^rolesdef/);	['active','previous','future'],\@roles,$roledom,1);
my $envkey=$area;	foreach my $key (keys(%roleshash)) {
my $role = $rolesdump{$area};	my ($start,$end) = split(':',$roleshash{$key});
my $thisrole=$area;	next if ($start eq '-1' \|\| $end eq '-1');
$area =~ s/\_\w\w$//;	my ($rnum,$rdom,$role,$sec) = split(':',$key);
my ($role_code,$role_end_time,$role_start_time) =	if ($context eq 'course') {
split(/_/,$role);	next unless (($rnum eq $env{'course.'.$env{'request.course.id'}.'.num'})
	&& ($rdom eq $env{'course.'.$env{'request.course.id'}.'.domain'}));
	} elsif ($context eq 'author') {
	next unless (($rnum eq $env{'user.name'}) && ($rdom eq $env{'request.role.domain'}));
	}
	my ($newkey,$newvalue,$newrole);
	$newkey = '/'.$rdom.'/'.$rnum;
	if ($sec ne '') {
	$newkey .= '/'.$sec;
	}
	$newvalue = $role;
	if ($role =~ /^cr/) {
	$newrole = 'cr';
	} else {
	$newrole = $role;
	}
	$newkey .= '_'.$newrole;
	if ($start ne '' && $end ne '') {
	$newvalue .= '_'.$end.'_'.$start;
	}
	$rolesdump{$newkey} = $newvalue;
	}
	} else {
	%rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
	}
	# Build up table of user roles to allow revocation and re-enabling of roles.
	my ($tmp) = keys(%rolesdump);
	return if ($tmp =~ /^(con_lost\|error)/i);
	foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
	my $b1=join('_',(split('_',$b))[1,0]);
	return $a1 cmp $b1;
	} keys(%rolesdump)) {
	next if ($area =~ /^rolesdef/);
	my $envkey=$area;
	my $role = $rolesdump{$area};
	my $thisrole=$area;
	$area =~ s/\_\w\w$//;
	my ($role_code,$role_end_time,$role_start_time) =
	split(/_/,$role);
# Is this a custom role? Get role owner and title.	# Is this a custom role? Get role owner and title.
my ($croleudom,$croleuname,$croletitle)=	my ($croleudom,$croleuname,$croletitle)=
($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});	($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});
my $allowed=0;	my $allowed=0;
my $delallowed=0;	my $delallowed=0;
my $sortkey=$role_code;	my $sortkey=$role_code;
my $class='Unknown';	my $class='Unknown';
if ($area =~ m{^/($match_domain)/($match_courseid)} ) {	if ($area =~ m{^/($match_domain)/($match_courseid)} ) {
$class='Course';	$class='Course';
my ($coursedom,$coursedir) = ($1,$2);	my ($coursedom,$coursedir) = ($1,$2);
$sortkey.="\0$coursedom";	my $cid = $1.'_'.$2;
# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).	# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
my %coursedata=	my %coursedata=
&Apache::lonnet::coursedescription($1.'_'.$2);	&Apache::lonnet::coursedescription($cid);
my $carea;	if ($coursedir =~ /^$match_community$/) {
if (defined($coursedata{'description'})) {	$class='Community';
$carea=$coursedata{'description'}.	}
'<br />'.&mt('Domain').': '.$coursedom.(' 'x8).	$sortkey.="\0$coursedom";
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$coursedir,$coursedom);	my $carea;
$sortkey.="\0".$coursedata{'description'};	if (defined($coursedata{'description'})) {
$class=$coursedata{'type'};	$carea=$coursedata{'description'}.
	'<br />'.&mt('Domain').': '.$coursedom.(' 'x8).
	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$coursedir,$coursedom);
	$sortkey.="\0".$coursedata{'description'};
	} else {
	if ($class eq 'Community') {
	$carea=&mt('Unavailable community').': '.$area;
	$sortkey.="\0".&mt('Unavailable community').': '.$area;
} else {	} else {
$carea=&mt('Unavailable course').': '.$area;	$carea=&mt('Unavailable course').': '.$area;
$sortkey.="\0".&mt('Unavailable course').': '.$area;	$sortkey.="\0".&mt('Unavailable course').': '.$area;
}	}
$sortkey.="\0$coursedir";	}
$inccourses->{$1.'_'.$2}=1;	$sortkey.="\0$coursedir";
if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) \|\|	$inccourses->{$cid}=1;
(&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {	if ((&Apache::lonnet::allowed('c'.$role_code,$coursedom.'/'.$coursedir)) \|\|
$allowed=1;	(&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
}	$allowed=1;
if ((&Apache::lonnet::allowed('dro',$1)) \|\|	}
(&Apache::lonnet::allowed('dro',$ccdomain))) {	unless ($allowed) {
$delallowed=1;	my $isowner = &is_courseowner($cid,$coursedata{'internal.courseowner'});
	if ($isowner) {
	if (($role_code eq 'co') && ($class eq 'Community')) {
	$allowed = 1;
	} elsif (($role_code eq 'cc') && ($class eq 'Course')) {
	$allowed = 1;
	}
}	}
	}
	if ((&Apache::lonnet::allowed('dro',$coursedom)) \|\|
	(&Apache::lonnet::allowed('dro',$ccdomain))) {
	$delallowed=1;
	}
# - custom role. Needs more info, too	# - custom role. Needs more info, too
if ($croletitle) {	if ($croletitle) {
if (&Apache::lonnet::allowed('ccr',$1.'/'.$2)) {	if (&Apache::lonnet::allowed('ccr',$coursedom.'/'.$coursedir)) {
$allowed=1;	$allowed=1;
$thisrole.='.'.$role_code;	$thisrole.='.'.$role_code;
}
}	}
# Compute the background color based on $area	}
if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {	if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
$carea.='<br />Section: '.$3;	$carea.='<br />Section: '.$3;
$sortkey.="\0$3";	$sortkey.="\0$3";
if (!$allowed) {	if (!$allowed) {
if ($env{'request.course.sec'} eq $3) {	if ($env{'request.course.sec'} eq $3) {
if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2.'/'.$3)) {	if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2.'/'.$3)) {
$allowed = 1;	$allowed = 1;
}
}	}
}	}
}	}
$area=$carea;	}
} else {	$area=$carea;
$sortkey.="\0".$area;	} else {
# Determine if current user is able to revoke privileges	$sortkey.="\0".$area;
if ($area=~m{^/($match_domain)/}) {	# Determine if current user is able to revoke privileges
if ((&Apache::lonnet::allowed('c'.$role_code,$1)) \|\|	if ($area=~m{^/($match_domain)/}) {
(&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {	if ((&Apache::lonnet::allowed('c'.$role_code,$1)) \|\|
$allowed=1;	(&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
}	$allowed=1;
if (((&Apache::lonnet::allowed('dro',$1)) \|\|
(&Apache::lonnet::allowed('dro',$ccdomain))) &&
($role_code ne 'dc')) {
$delallowed=1;
}
} else {
if (&Apache::lonnet::allowed('c'.$role_code,'/')) {
$allowed=1;
}
}	}
if ($role_code eq 'ca' \|\| $role_code eq 'au') {	if (((&Apache::lonnet::allowed('dro',$1)) \|\|
$class='Construction Space';	(&Apache::lonnet::allowed('dro',$ccdomain))) &&
} elsif ($role_code eq 'su') {	($role_code ne 'dc')) {
$class='System';	$delallowed=1;
} else {
$class='Domain';
}	}
}	} else {
if (($role_code eq 'ca') \|\| ($role_code eq 'aa')) {	if (&Apache::lonnet::allowed('c'.$role_code,'/')) {
$area=~m{/($match_domain)/($match_username)};
if (&Apache::lonuserutils::authorpriv($2,$1)) {
$allowed=1;	$allowed=1;
} else {
$allowed=0;
}	}
}	}
my $row = '';	if ($role_code eq 'ca' \|\| $role_code eq 'au') {
$row.= '<td>';	$class='Construction Space';
my $active=1;	} elsif ($role_code eq 'su') {
$active=0 if (($role_end_time) && ($now>$role_end_time));	$class='System';
if (($active) && ($allowed)) {
$row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
} else {	} else {
if ($active) {	$class='Domain';
$row.=' ';
} else {
$row.=&mt('expired or revoked');
}
}	}
$row.='</td><td>';	}
if ($allowed && !$active) {	if (($role_code eq 'ca') \|\| ($role_code eq 'aa')) {
$row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';	$area=~m{/($match_domain)/($match_username)};
	if (&Apache::lonuserutils::authorpriv($2,$1)) {
	$allowed=1;
} else {	} else {
$row.=' ';	$allowed=0;
}	}
$row.='</td><td>';	}
if ($delallowed) {	my $row = '';
$row.= '<input type="checkbox" name="del:'.$thisrole.'" />';	$row.= '<td>';
	my $active=1;
	$active=0 if (($role_end_time) && ($now>$role_end_time));
	if (($active) && ($allowed)) {
	$row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
	} else {
	if ($active) {
	$row.=' ';
} else {	} else {
$row.=' ';	$row.=&mt('expired or revoked');
}	}
my $plaintext='';	}
if (!$croletitle) {	$row.='</td><td>';
$plaintext=&Apache::lonnet::plaintext($role_code,$class)	if ($allowed && !$active) {
} else {	$row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';
$plaintext=	} else {
	$row.=' ';
	}
	$row.='</td><td>';
	if ($delallowed) {
	$row.= '<input type="checkbox" name="del:'.$thisrole.'" />';
	} else {
	$row.=' ';
	}
	my $plaintext='';
	if (!$croletitle) {
	$plaintext=&Apache::lonnet::plaintext($role_code,$class)
	} else {
	$plaintext=
"Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";	"Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";
}	}
$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;
$roletext{$envkey}=$row;	$roletext{$envkey}=$row;
$roleclass{$envkey}=$class;	$roleclass{$envkey}=$class;
$rolepriv{$envkey}=$allowed;	$rolepriv{$envkey}=$allowed;
#$r->print($row);	} # 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}}) ) {
$output{$type}.=	$output{$type}.=
&Apache::loncommon::start_data_table_row().	&Apache::loncommon::start_data_table_row().
$roletext{$sortrole{$which}}.	$roletext{$sortrole{$which}}.
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
}	}
}	}
unless($output{$type} eq '') {	unless($output{$type} eq '') {
$output{$type} = '<tr class="LC_info_row">'.	$output{$type} = '<tr class="LC_info_row">'.
"<td align='center' colspan='7'>".&mt($type)."</td></tr>".	"<td align='center' colspan='7'>".&mt($type)."</td></tr>".
$output{$type};	$output{$type};
$rolesdisplay = 1;	$rolesdisplay = 1;
}	}
}	}
if ($rolesdisplay == 1) {	if ($rolesdisplay == 1) {
my $contextrole='';	my $contextrole='';
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$contextrole = 'Existing Roles in this Course';	if (&Apache::loncommon::course_type() eq 'Community') {
} elsif ($env{'request.role'} =~ /^au\./) {	$contextrole = &mt('Existing Roles in this Community');
$contextrole = 'Existing Co-Author Roles in your Construction Space';
} else {	} else {
$contextrole = 'Existing Roles in this Domain';	$contextrole = &mt('Existing Roles in this Course');
}	}
$r->print('	} elsif ($env{'request.role'} =~ /^au\./) {
	$contextrole = &mt('Existing Co-Author Roles in your Construction Space');
	} else {
	$contextrole = &mt('Existing Roles in this Domain');
	}
	$r->print('
<h3>'.$lt{'rer'}.'</h3>'.	<h3>'.$lt{'rer'}.'</h3>'.
'<div>'.&mt($contextrole).'</div>'.	'<div>'.$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");
}
}	}
$r->print(&Apache::loncommon::end_data_table());
}	}
} # End of check for keys in rolesdump	$r->print(&Apache::loncommon::end_data_table());
	}
return;	return;
}	}

Line 1422 sub new_domain_roles {	Line 1771 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 1818 sub get_inststatuses {	Line 2169 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 1842 sub update_user_data {	Line 2193 sub update_user_data {
$jsback."\n".	$jsback."\n".
'// ]]>'."\n".	'// ]]>'."\n".
'</script>'."\n";	'</script>'."\n";
my %breadcrumb_text = &singleuser_breadcrumb();	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 1871 sub update_user_data {	Line 2222 sub update_user_data {
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
$helpitem = 'Course_Add_Student';	$helpitem = 'Course_Add_Student';
}	}
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',	my $title = 'User Management';
	if ($context eq 'course') {
	if (&Apache::loncommon::needs_gci_custom()) {
	$title = 'Enrollment and Student Activity';
	}
	}
	$r->print(&Apache::lonhtmlcommon::breadcrumbs($title,
$helpitem));	$helpitem));
$r->print(&update_result_form($uhome));	$r->print(&update_result_form($uhome));
# Check Inputs	# Check Inputs
Line 2022 sub update_user_data {	Line 2379 sub update_user_data {
}	}
}	}
foreach my $item (@requestcourses) {	foreach my $item (@requestcourses) {
$newcustom{$item} = $env{'form.requestcourses_'.$item};	$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},	$changed{$item} = &tool_admin($item,$newcustom{$item},
\%changeHash,'requestcourses');	\%changeHash,'requestcourses');
}	}
Line 2068 sub update_user_data {	Line 2431 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
Line 2154 sub update_user_data {	Line 2518 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 2308 sub update_user_data {	Line 2672 sub update_user_data {
\%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);	\%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);
} else {	} else {
&tool_changes('reqcrsotherdom',\@requestcourses,\%oldaccess,\%oldaccesstext,	&tool_changes('reqcrsotherdom',\@requestcourses,\%oldaccess,\%oldaccesstext,
\%userenv,	\%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);
\%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'} \|\|
Line 2624 END	Line 2987 END
.'</span>');	.'</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 2668 sub tool_changes {	Line 3036 sub tool_changes {
return;	return;
}	}
if ($context eq 'reqcrsotherdom') {	if ($context eq 'reqcrsotherdom') {
	my @options = ('approval','validate','autolimit');
	my $optregex = join('\|',@options);
	my %reqdisplay = &courserequest_display();
my $cdom = $env{'request.role.domain'};	my $cdom = $env{'request.role.domain'};
foreach my $tool (@{$usertools}) {	foreach my $tool (@{$usertools}) {
$oldaccesstext->{$tool} = &mt('no');	$oldaccesstext->{$tool} = &mt('No');
	$newaccesstext->{$tool} = $oldaccesstext->{$tool};
$changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$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 ($userenv->{$context.'.'.$tool} eq '') {
if ($env{'form.'.$context.'_'.$tool}) {	if ($newop) {
$changed->{$tool}=&tool_admin($tool,$cdom,	$changed->{$tool}=&tool_admin($tool,$cdom.':'.$newop,
$changeHash,$context);	$changeHash,$context);
if ($changed->{$tool}) {	if ($changed->{$tool}) {
$newaccesstext->{$tool} = &mt('yes');	$newaccesstext->{$tool} = &mt('Yes');
} else {	} else {
$newaccesstext->{$tool} = $oldaccesstext->{$tool};	$newaccesstext->{$tool} = $oldaccesstext->{$tool};
}	}
Line 2686 sub tool_changes {	Line 3067 sub tool_changes {
my @curr = split(',',$userenv->{$context.'.'.$tool});	my @curr = split(',',$userenv->{$context.'.'.$tool});
my @new;	my @new;
my $changedoms;	my $changedoms;
if (grep(/^\Q$cdom\E$/,@curr)) {	foreach my $req (@curr) {
$oldaccesstext->{$tool} = &mt('yes');	if ($req =~ /^\Q$cdom\E\:($optregex\=?\d*)$/) {
unless ($env{'form.'.$context.'_'.$tool}) {	$oldaccesstext->{$tool} = &mt('Yes');
$changedoms = 1;	my $oldop = $1;
foreach my $dom (@curr) {	if ($oldop ne $newop) {
unless ($dom eq $cdom) {	$changedoms = 1;
push(@new,$dom);	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;
}	}
} elsif ($env{'form.'.$context.'_'.$tool}) {	}
	if ((!$changedoms) && ($newop)) {
$changedoms = 1;	$changedoms = 1;
@new = sort(@curr,$cdom);	@new = sort(@curr,$cdom.':'.$newop);
}	}
$newaccesstext->{$tool} = $oldaccesstext->{$tool};
if ($changedoms) {	if ($changedoms) {
my $newdomstr;	my $newdomstr;
if (@new) {	if (@new) {
$newdomstr = join(',',@new);	$newdomstr = join(',',@new);
}	}
Line 2710 sub tool_changes {	Line 3100 sub tool_changes {
$context);	$context);
if ($changed->{$tool}) {	if ($changed->{$tool}) {
if ($env{'form.'.$context.'_'.$tool}) {	if ($env{'form.'.$context.'_'.$tool}) {
$newaccesstext->{$tool} = &mt('yes');	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 {	} else {
$newaccesstext->{$tool} = &mt('no');	$newaccesstext->{$tool} = &mt('No');
}	}
}	}
}	}
Line 2721 sub tool_changes {	Line 3121 sub tool_changes {
return;	return;
}	}
foreach my $tool (@{$usertools}) {	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 '') {	if ($userenv->{$context.'.'.$tool} ne '') {
$oldaccess->{$tool} = &mt('custom');	$oldaccess->{$tool} = &mt('custom');
if ($userenv->{$context.'.'.$tool}) {	if ($userenv->{$context.'.'.$tool}) {
Line 2730 sub tool_changes {	Line 3139 sub tool_changes {
}	}
$changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};	$changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};
if ($env{'form.custom'.$tool} == 1) {	if ($env{'form.custom'.$tool} == 1) {
if ($env{'form.'.$context.'_'.$tool} ne $userenv->{$context.'.'.$tool}) {	if ($newval ne $userenv->{$context.'.'.$tool}) {
$changed->{$tool} = &tool_admin($tool,$env{'form.'.$context.'_'.$tool},	$changed->{$tool} = &tool_admin($tool,$newval,$changeHash,
$changeHash,$context);	$context);
if ($changed->{$tool}) {	if ($changed->{$tool}) {
$newaccess->{$tool} = &mt('custom');	$newaccess->{$tool} = &mt('custom');
if ($env{'form.'.$context.'_'.$tool}) {	if ($newval) {
$newaccesstext->{$tool} = &mt("availability set to 'on'");	$newaccesstext->{$tool} = &mt("availability set to 'on'");
} else {	} else {
$newaccesstext->{$tool} = &mt("availability set to 'off'");	$newaccesstext->{$tool} = &mt("availability set to 'off'");
Line 2768 sub tool_changes {	Line 3177 sub tool_changes {
} else {	} else {
$oldaccess->{$tool} = &mt('default');	$oldaccess->{$tool} = &mt('default');
if ($env{'form.custom'.$tool} == 1) {	if ($env{'form.custom'.$tool} == 1) {
$changed->{$tool} = &tool_admin($tool,$env{'form.'.$context.'_'.$tool},	$changed->{$tool} = &tool_admin($tool,$newval,$changeHash,
$changeHash,$context);	$context);
if ($changed->{$tool}) {	if ($changed->{$tool}) {
$newaccess->{$tool} = &mt('custom');	$newaccess->{$tool} = &mt('custom');
if ($env{'form.'.$context.'_'.$tool}) {	if ($newval) {
$newaccesstext->{$tool} = &mt("availability set to 'on'");	$newaccesstext->{$tool} = &mt("availability set to 'on'");
} else {	} else {
$newaccesstext->{$tool} = &mt("availability set to 'off'");	$newaccesstext->{$tool} = &mt("availability set to 'off'");
Line 3054 sub update_roles {	Line 3463 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 3088 sub enroll_single_student {	Line 3503 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 3213 sub build_roles {	Line 3634 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'};
	}
	my $title = 'User Management';
	if ($context eq 'course') {
	if (&Apache::loncommon::needs_gci_custom()) {
	$title = 'Enrollment and Student Activity';
	}
	}
# ------------------------------------------------------- What can be assigned?	# ------------------------------------------------------- What can be assigned?
my %full=();	my %full=();
my %courselevel=();	my %courselevel=();
Line 3233 sub custom_role_editor {	Line 3669 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 3242 sub custom_role_editor {	Line 3677 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 3283 sub custom_role_editor {	Line 3721 sub custom_role_editor {
my $head_script = "\n";	my $head_script = "\n";
$head_script .= '<script type="text/javascript">'."\n"	$head_script .= '<script type="text/javascript">'."\n"
.'// <![CDATA['."\n";	.'// <![CDATA['."\n";
my @template_roles = ("cc","in","ta","ep","st");	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).' ';
	}
	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"	$head_script .= "\n".$jsback."\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script>'."\n";	.'</script>'."\n";
Line 3299 sub custom_role_editor {	Line 3776 sub custom_role_editor {
{href=>"javascript:backPage(document.form1,'','')",	{href=>"javascript:backPage(document.form1,'','')",
text=>"Edit custom role",	text=>"Edit custom role",
faq=>282,bug=>'Instructor Interface',});	faq=>282,bug=>'Instructor Interface',});
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',	$r->print(&Apache::lonhtmlcommon::breadcrumbs($title,
'Course_Editing_Custom_Roles'));	'Course_Editing_Custom_Roles'));

$r->print($body_top);	$r->print($body_top);
Line 3309 sub custom_role_editor {	Line 3786 sub custom_role_editor {
'dml' => "Domain Level",	'dml' => "Domain Level",
'ssl' => "System Level");	'ssl' => "System Level");

$r->print('<div>'
	$r->print('<div class="LC_left_float">'
.'<form action=""><fieldset>'	.'<form action=""><fieldset>'
.'<legend>'.&mt('Select a Template').'</legend>'	.'<legend>'.&mt('Select a Template').'</legend>'
.$button_code	.$button_code
.'</fieldset></form>'	.'</fieldset></form></div>');
.'</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">
Line 3327 ENDCCF	Line 3813 ENDCCF
'<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.	'<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.
'</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"'.
Line 3336 ENDCCF	Line 3822 ENDCCF
'</td><td>'.	'</td><td>'.
($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d"'.	($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d"'.
($domainlevelcurrent{$priv}?' checked="checked"':'').' />':' ').	($domainlevelcurrent{$priv}?' checked="checked"':'').' />':' ').
'</td><td>'.	'</td><td>');
($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s"'.	if ($priv eq 'bre' && $crstype eq 'Community') {
($systemlevelcurrent{$priv}?' checked="checked"':'').' />':' ').	$r->print(' ');
'</td>'.	} else {
&Apache::loncommon::end_data_table_row());	$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'}.'" />'.
Line 3352 ENDCCF	Line 3842 ENDCCF
}	}
# --------------------------------------------------------	# --------------------------------------------------------
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 3366 sub make_script_template {	Line 3856 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 3418 sub make_script_template {	Line 3909 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);
}	}
Line 3438 sub set_custom_role {	Line 3929 sub set_custom_role {
.$jsback."\n"	.$jsback."\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script>'."\n";	.'</script>'."\n";
	my $title = 'User Management';
	if ($context eq 'course') {
	if (&Apache::loncommon::needs_gci_custom()) {
	$title = 'Enrollment and Student Activity';
	}
	}
$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
({href=>"javascript:backPage(document.customresult,'pickrole','')",	({href=>"javascript:backPage(document.customresult,'pickrole','')",
Line 3450 sub set_custom_role {	Line 3946 sub set_custom_role {
{href=>"javascript:backPage(document.customresult,'set_custom_roles','')",	{href=>"javascript:backPage(document.customresult,'set_custom_roles','')",
text=>"Result",	text=>"Result",
faq=>282,bug=>'Instructor Interface',});	faq=>282,bug=>'Instructor Interface',});
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',	$r->print(&Apache::lonhtmlcommon::breadcrumbs($title,
'Course_Editing_Custom_Roles'));	'Course_Editing_Custom_Roles'));

my ($rdummy,$roledef)=	my ($rdummy,$roledef)=
Line 3519 sub handler {	Line 4015 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 {
$context = 'domain';	$context = 'domain';
}	}
	my $title = 'User Management';
	if ($context eq 'course') {
	if (&Apache::loncommon::needs_gci_custom()) {
	$title = 'Enrollment and Student Activity';
	}
	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['action','state','callingform','roletype','showrole','bulkaction','popup','phase',	['action','state','callingform','roletype','showrole','bulkaction','popup','phase',
'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);	'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);
Line 3534 sub handler {	Line 4037 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=>$title,
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'});	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	#SD Following files not added to help, because the corresponding .tex-files seem to
#be missing: Course_Approve_Selfenroll,Course_User_Logs,	#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 3554 sub handler {	Line 4057 sub handler {
# Main switch on form.action and form.state, as appropriate	# Main switch on form.action and form.state, as appropriate
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($title));
$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 3571 sub handler {	Line 4074 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 3596 sub handler {	Line 4099 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 3612 sub handler {	Line 4115 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 3630 sub handler {	Line 4133 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 3682 sub handler {	Line 4185 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 3706 sub handler {	Line 4221 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($brtext,
'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 3728 sub handler {	Line 4249 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 3763 sub handler {	Line 4284 sub handler {
my $cid = $env{'request.course.id'};	my $cid = $env{'request.course.id'};
my $cdom = $env{'course.'.$cid.'.domain'};	my $cdom = $env{'course.'.$cid.'.domain'};
my $cnum = $env{'course.'.$cid.'.num'};	my $cnum = $env{'course.'.$cid.'.num'};
	my $coursedesc = $env{'course.'.$cid.'.description'};
if (!exists($env{'form.state'})) {	if (!exists($env{'form.state'})) {
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment requests',	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment requests',
'Course_SelfEnrollment_Approval'));	'Course_SelfEnrollment_Approval'));
$r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");	$r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");
&display_selfenroll_queue($r,$context,$permission,$cnum,$cdom);	$r->print(&Apache::loncoursequeueadmin::display_queued_requests($context,
	$cdom,$cnum));
} elsif ($env{'form.state'} eq 'done') {	} elsif ($env{'form.state'} eq 'done') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/createuser?action=selfenrollqueue',	({href=>'/adm/createuser?action=selfenrollqueue',
Line 3775 sub handler {	Line 4298 sub handler {
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment result',	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment result',
'Course_Self_Enrollment'));	'Course_Self_Enrollment'));
$r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");	$r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");
&update_selfenroll_queue($r,$context,$permission,$cid,$cnum,$cdom);	$r->print(&Apache::loncoursequeueadmin::update_request_queue($context,
	$cdom,$cnum,$coursedesc));
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} elsif ($env{'form.action'} eq 'changelogs') {	} elsif ($env{'form.action'} eq 'changelogs') {
Line 3789 sub handler {	Line 4313 sub handler {
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} else {	} else {
$r->print(&header());	$r->print(&header());
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs($title));
$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 3834 END	Line 4358 END
###############################################################	###############################################################
# Menu Phase One	# Menu Phase One
sub print_main_menu {	sub print_main_menu {
my ($permission,$context) = @_;	my ($permission,$context,$crstype) = @_;
	if (($context eq 'course') && (&Apache::loncommon::needs_gci_custom())) {
	return &print_gci_main_menu($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 3851 sub print_main_menu {	Line 4384 sub print_main_menu {
singleuser => 'Add/Modify a Course User',	singleuser => 'Add/Modify a Course User',
listusers => 'Manage Course Users',	listusers => 'Manage Course Users',
},	},
	community => {
	upload => 'Upload a File of Community Users',
	singleuser => 'Add/Modify a Community User',
	listusers => 'Manage Community Users',
	},
	);
	my %linktitles = (
	domain => {
	singleuser => 'Add a user to the domain, and/or a course or community in the domain.',
	listusers => 'Show and manage users in this domain.',
	},
	author => {
	singleuser => 'Add a user with a co- or assistant author role.',
	listusers => 'Show and manage co- or assistant authors.',
	},
	course => {
	singleuser => 'Add a user with a certain role to this course.',
	listusers => 'Show and manage users in this course.',
	},
	community => {
	singleuser => 'Add a user with a certain role to this community.',
	listusers => 'Show and manage users in this community.',
	},
);	);
my @menu = ( {categorytitle => 'Single Users',	my @menu = ( {categorytitle => 'Single Users',
items =>	items =>
[	[
{	{
linktext => $links{$context}{'singleuser'},	linktext => $links{$linkcontext}{'singleuser'},
icon => 'edit-redo.png',	icon => 'edit-redo.png',
#help => 'Course_Change_Privileges',	#help => 'Course_Change_Privileges',
url => '/adm/createuser?action=singleuser',	url => '/adm/createuser?action=singleuser',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
linktitle => 'Add a user with a certain role to this course.',	linktitle => $linktitles{$linkcontext}{'singleuser'},
},	},
]},	]},

Line 3869 sub print_main_menu {	Line 4425 sub print_main_menu {
items =>	items =>
[	[
{	{
linktext => $links{$context}{'upload'},	linktext => $links{$linkcontext}{'upload'},
icon => 'sctr.png',	icon => 'sctr.png',
#help => 'Course_Create_Class_List',	#help => 'Course_Create_Class_List',
url => '/adm/createuser?action=upload',	url => '/adm/createuser?action=upload',
Line 3877 sub print_main_menu {	Line 4433 sub print_main_menu {
linktitle => 'Upload a CSV or a text file containing users.',	linktitle => 'Upload a CSV or a text file containing users.',
},	},
{	{
linktext => $links{$context}{'listusers'},	linktext => $links{$linkcontext}{'listusers'},
icon => 'edit-find.png',	icon => 'edit-find.png',
#help => 'Course_View_Class_List',	#help => 'Course_View_Class_List',
url => '/adm/createuser?action=listusers',	url => '/adm/createuser?action=listusers',
permission => ($permission->{'view'} \|\| $permission->{'cusr'}),	permission => ($permission->{'view'} \|\| $permission->{'cusr'}),
linktitle => 'Show and manage users of this course.',	linktitle => $linktitles{$linkcontext}{'listusers'},
},	},

]},	]},
Line 3906 sub print_main_menu {	Line 4462 sub print_main_menu {

}elsif ($context eq 'course'){	}elsif ($context eq 'course'){
my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();	my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();

	my %linktext = (
	'Course' => {
	single => 'Add/Modify a Student',
	drop => 'Drop Students',
	groups => 'Course Groups',
	},
	'Community' => {
	single => 'Add/Modify a Member',
	drop => 'Drop Members',
	groups => 'Community Groups',
	},
	);

	my %linktitle = (
	'Course' => {
	single => 'Add a user with the role of student to this course',
	drop => 'Remove a student from this course.',
	groups => 'Manage course groups',
	},
	'Community' => {
	single => 'Add a user with the role of member to this community',
	drop => 'Remove a member from this community.',
	groups => 'Manage community groups',
	},
	);

push(@{ $menu[0]->{items} }, #Category: Single Users	push(@{ $menu[0]->{items} }, #Category: Single Users
{	{
linktext => 'Add/Modify a Student',	linktext => $linktext{$crstype}{'single'},
#help => 'Course_Add_Student',	#help => 'Course_Add_Student',
icon => 'list-add.png',	icon => 'list-add.png',
url => '/adm/createuser?action=singlestudent',	url => '/adm/createuser?action=singlestudent',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
linktitle => 'Add a user with the role student to this course.',	linktitle => $linktitle{$crstype}{'single'},
},	},
);	);

push(@{ $menu[1]->{items} }, #Category: Multiple Users	push(@{ $menu[1]->{items} }, #Category: Multiple Users
{	{
linktext => 'Drop Students',	linktext => $linktext{$crstype}{'drop'},
icon => 'edit-undo.png',	icon => 'edit-undo.png',
#help => 'Course_Drop_Student',	#help => 'Course_Drop_Student',
url => '/adm/createuser?action=drop',	url => '/adm/createuser?action=drop',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
linktitle =>'Remove a student from this course.',	linktitle => $linktitle{$crstype}{'drop'},
},	},
);	);
push(@{ $menu[2]->{items} }, #Category: Administration	push(@{ $menu[2]->{items} }, #Category: Administration
Line 3938 sub print_main_menu {	Line 4520 sub print_main_menu {
linktitle => 'Configure a custom role.',	linktitle => 'Configure a custom role.',
},	},
{	{
linktext => 'Course Groups',	linktext => $linktext{$crstype}{'groups'},
icon => 'conf.png',	icon => 'conf.png',
#help => 'Course_Manage_Group',	#help => 'Course_Manage_Group',
url => '/adm/coursegroups?refpage=cusr',	url => '/adm/coursegroups?refpage=cusr',
permission => $permission->{'grp_manage'},	permission => $permission->{'grp_manage'},
linktitle => 'Manage course groups.',	linktitle => $linktitle{$crstype}{'groups'},
},	},
{	{
linktext => 'Change Logs',	linktext => 'Change Log',
icon => 'document-properties.png',	icon => 'document-properties.png',
#help => 'Course_User_Logs',	#help => 'Course_User_Logs',
url => '/adm/createuser?action=changelogs',	url => '/adm/createuser?action=changelogs',
Line 3968 sub print_main_menu {	Line 4550 sub print_main_menu {
}	}

if (!exists($permission->{'cusr_section'})){	if (!exists($permission->{'cusr_section'})){
	if ($crstype ne 'Community') {
push(@{ $menu[2]->{items} },	push(@{ $menu[2]->{items} },
{	{
linktext => 'Automated Enrollment',	linktext => 'Automated Enrollment',
icon => 'roles.png',	icon => 'roles.png',
#help => 'Course_Automated_Enrollment',	#help => 'Course_Automated_Enrollment',
permission => (&Apache::lonnet::auto_run($cnum,$cdom)	permission => (&Apache::lonnet::auto_run($cnum,$cdom)
&& $permission->{'cusr'}),	&& $permission->{'cusr'}),
url => '/adm/populate',	url => '/adm/populate',
linktitle => 'Automated enrollment manager.',	linktitle => 'Automated enrollment manager.',
},	}
	);
	}
	push(@{ $menu[2]->{items} },
{	{
linktext => 'User Self-Enrollment',	linktext => 'User Self-Enrollment',
icon => 'cstr.png',	icon => 'cstr.png',
#help => 'Course_Self_Enrollment',	#help => 'Course_Self_Enrollment',
url => '/adm/createuser?action=selfenroll',	url => '/adm/createuser?action=selfenroll',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
linktitle => 'Configure user self enrollment.',	linktitle => 'Configure user self-enrollment.',
},	},
);	);

}	}
};	};
return Apache::lonhtmlcommon::generate_menu(@menu);	return Apache::lonhtmlcommon::generate_menu(@menu);
Line 3999 return Apache::lonhtmlcommon::generate_m	Line 4583 return Apache::lonhtmlcommon::generate_m
# });	# });
}	}

	sub print_gci_main_menu {
	my ($permission,$context,$crstype) = @_;
	my $stuterm = lc(&Apache::lonnet::plaintext('st',$crstype));
	my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
	my %links = (
	course => {
	single => 'Add/Modify a Student',
	drop => 'Drop Students',
	upload => 'Upload a File of Course Users',
	singleuser => 'Add/Modify a Course User',
	listusers => 'Concept Test Roster and Student Activity',
	},
	);
	my %linktitles = (
	course => {
	singleuser => 'Add a user with a certain role to this course.',
	listusers => 'Show and manage users in this course.',
	single => 'Add a user with the role of student to this course',
	drop => 'Remove a student from this course.',
	upload => 'Upload a CSV or a text file containing users.',
	},
	);
	my @menu = ( {categorytitle => 'Manage Users',
	items =>
	[
	{
	linktext => $links{$context}{'single'},
	#help => 'Course_Add_Student',
	icon => 'list-add.png',
	url => '/adm/createuser?action=singlestudent',
	permission => $permission->{'cusr'},
	linktitle => $linktitles{$context}{'single'},

	},
	{
	linktext => $links{$context}{'drop'},
	icon => 'edit-undo.png',
	#help => 'Course_Drop_Student',
	url => '/adm/createuser?action=drop',
	permission => $permission->{'cusr'},
	linktitle => $linktitles{$context}{'drop'},
	},
	{
	linktext => $links{$context}{'upload'},
	icon => 'sctr.png',
	#help => 'Course_Create_Class_List',
	url => '/adm/createuser?action=upload',
	permission => $permission->{'cusr'},
	linktitle => $linktitles{$context}{'upload'},
	},
	{
	linktext => $links{$context}{'listusers'},
	icon => 'edit-find.png',
	#help => 'Course_View_Class_List',
	url => '/adm/createuser?action=listusers',
	permission => ($permission->{'view'} \|\| $permission->{'cusr'}),
	linktitle => $linktitles{$context}{'listusers'},
	},
	]},
	{categorytitle => 'Administration',
	items => [ ]},
	);

	push(@{ $menu[1]->{items} }, #Category: Administration
	{
	linktext => 'Change Log',
	icon => 'document-properties.png',
	#help => 'Course_User_Logs',
	url => '/adm/createuser?action=changelogs',
	permission => $permission->{'cusr'},
	linktitle => 'View change log.',
	},
	);
	return Apache::lonhtmlcommon::generate_menu(@menu);
	}

sub restore_prev_selections {	sub restore_prev_selections {
my %saveable_parameters = ('srchby' => 'scalar',	my %saveable_parameters = ('srchby' => 'scalar',
'srchin' => 'scalar',	'srchin' => 'scalar',
Line 4012 sub restore_prev_selections {	Line 4672 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 4373 ENDSCRIPT	Line 5034 ENDSCRIPT
&mt('No').'</label>';	&mt('No').'</label>';
my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1);	my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1);
my (@ccs,%notified);	my (@ccs,%notified);
if ($advhash{'cc'}) {	my $ccrole = 'cc';
@ccs = split(/,/,$advhash{'cc'});	if ($crstype eq 'Community') {
	$ccrole = 'co';
	}
	if ($advhash{$ccrole}) {
	@ccs = split(/,/,$advhash{$ccrole});
}	}
if ($currnotified) {	if ($currnotified) {
foreach my $current (split(/,/,$currnotified)) {	foreach my $current (split(/,/,$currnotified)) {
Line 4456 ENDSCRIPT	Line 5121 ENDSCRIPT
return;	return;
}	}

sub display_selfenroll_queue {
my ($r,$context,$permission,$cnum,$cdom) = @_;
my $namespace = 'selfenrollrequests';
my ($output,%queue_by_date);
my %requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);
if (keys(%requesthash) > 0) {
$r->print('<form method="post" name="changequeue" action="/adm/createuser" />'.
'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
'<input type="hidden" name="state" value="done" />'.
&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().
'<th>'.&mt('Action').'</th>'.
'<th>'.&mt('Requestor').'</th>'.
'<th>'.&mt('Section').'</th>'.
'<th>'.&mt('Date requested').'</th>'.
&Apache::loncommon::end_data_table_header_row());
foreach my $item (keys(%requesthash)) {
my ($timestamp,$usec) = split(/:/,$requesthash{$item});
if (exists($queue_by_date{$timestamp})) {
if (ref($queue_by_date{$timestamp}) eq 'ARRAY') {
push(@{$queue_by_date{$timestamp}},$item.':'.$usec);
}
} else {
@{$queue_by_date{$timestamp}} = ($item.':'.$usec);
}
}
my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));
my $count = 0;
foreach my $item (@sortedtimes) {
if (ref($queue_by_date{$item}) eq 'ARRAY') {
foreach my $request (sort(@{$queue_by_date{$item}})) {
my ($puname,$pudom,$pusec) = split(/:/,$request);
my $showsec = $pusec;
if ($showsec eq '') {
$showsec = &mt('none');
}
my $namelink = &Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($puname,$pudom),
$puname,$pudom);
$r->print(&Apache::loncommon::start_data_table_row().
'<td><span class="LC_nobreak"><label>'.
'<input type="checkbox" value="'.$count.':'.$puname.':'.$pudom.':'.$pusec.'" name="approvereq" />'.&mt('Approve').'</label></span><br />'.
'<span class="LC_nobreak"><label>'.
'<input type="checkbox" value="'.$puname.':'.$pudom.'" name="rejectreq" />'.&mt('Reject').'</label></span><br /></td>'.
'<td>'.$namelink.'</td>'.
'<td>'.$showsec.'</td>'.
'<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'.
&Apache::loncommon::end_data_table_row());
$count ++;
}
}
}
$r->print(&Apache::loncommon::end_data_table().
'<input type="submit" name="processqueue" value="'.&mt('Save').'" /></form>');
} else {
$r->print(&mt('There are currently no enrollment requests.'));
}
return;
}

sub update_selfenroll_queue {
my ($r,$context,$permission,$cid,$cnum,$cdom) = @_;
my @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');
my @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');
my $access_start = $env{'course.'.$cid.'.internal.selfenroll_start_access'};
my $access_end = $env{'course.'.$cid.'.internal.selfenroll_end_access'};
my $limit = $env{'course.'.$cid.'.internal.selfenroll_limit'};
my $cap = $env{'course.'.$cid.'.internal.selfenroll_cap'};
my $notifylist = $env{'course.'.$cid.'.internal.selfenroll_notifylist'};
my $namespace = 'selfenrollrequests';
my ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum);
my %requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);
my $coursedesc = $env{'course.'.$cid.'.description'};
my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
my $hostname = &Apache::lonnet::hostname($chome);
my $protocol = $Apache::lonnet::protocol{$chome};
$protocol = 'http' if ($protocol ne 'https');
my (@existing,@missingreq,@invalidusers,@limitexceeded,@enrolled,
@enrollerrors,@warn_approves,@warn_rejects);
my $now = time;
my $sender = $env{'user.name'}.':'.$env{'user.domain'};
my $approvedmsg = [{
mt => 'Your request for enrollment has been approved.',
},
{
mt => 'Visit [_1], to log-in and access the course',
args => [$protocol.'://'.$hostname],
}];

my $rejectedmsg = [{
mt => 'Your request for enrollment has not been approved.',
}];
foreach my $item (sort {$a <=> $b} @approvals) {
my ($num,$uname,$udom,$usec) = split(/:/,$item);
my $uhome = &Apache::lonnet::homeserver($uname,$udom);
if ($uhome ne 'no_host') {
if (exists($requesthash{$uname.':'.$udom})) {

if (exists($classlist->{$uname.':'.$udom})) {
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {
if (($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Active') \|\|
($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Future')) {
push(@existing,$uname.':'.$udom);
next;
}
}
}
} else {
push(@missingreq,$uname.':'.$udom);
next;
}
if (!grep(/^\Q$item\E$/,@rejections)) {
if ($limit eq 'allstudents') {
if ($stucounts->{$limit} >= $cap) {
push(@limitexceeded,$uname.':'.$udom);
last;
}
} elsif ($limit eq 'selfenrolled') {
if ($stucounts->{$limit} >= $cap) {
push(@limitexceeded,$uname.':'.$udom);
last;
}
}
my $result =
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$usec,$access_end,$access_start,'selfenroll',undef,$cdom.'_'.$cnum,1);
if ($result eq 'ok') {
push(@enrolled,$uname.':'.$udom);
$stucounts->{'allstudents'} ++;
$stucounts->{'selfenrolled'} ++;
&Apache::selfenroll::send_notification($uname.':'.$udom,$approvedmsg,$cid,
$coursedesc,$now,'enroller',$sender);
my %userrequest = (
$cdom.'_'.$cnum => {
timestamp => $now,
section => $usec,
adjudicator => $env{'user.name'}.':'.$env{'user.domain'},
status => 'approved',
}
);
my $userresult =
&Apache::lonnet::put($namespace,\%userrequest,$udom,$uname);
if ($userresult ne 'ok') {
push(@warn_approves,$uname.':'.$udom);
}
} else {
push(@enrollerrors,$uname.':'.$udom);
}
}
} else {
push(@invalidusers,$uname.':'.$udom);
}
}
my @changes = (@enrolled,@rejections);
if (@rejections) {
foreach my $user (@rejections) {
&Apache::selfenroll::send_notification($user,$rejectedmsg,$cid,
$coursedesc,$now,'enroller',$sender);
my ($uname,$udom) = split(/:/,$user);
my %userrequest = (
$cdom.'_'.$cnum => {
timestamp => $now,
adjudicator => $env{'user.name'}.':'.$env{'user.domain'},
status => 'rejected',
}
);
my $userresult =
&Apache::lonnet::put($namespace,\%userrequest,$udom,$uname);
if ($userresult ne 'ok') {
push(@warn_rejects,$user);
}
}
}
if (@changes) {
my $delresult = &Apache::lonnet::del($namespace,\@changes,$cdom,$cnum);
if ($delresult eq 'ok') {
my $namelink =
&Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}).' ('.$env{'user.name'}.':'.$env{'user.domain'}.')';
my $chgmsg = "'Action was taken on the following enrollment requests by [_1].',$namelink";
my ($approvedlist,$rejectedlist);
if (@enrolled) {
$approvedlist = join("\n",@enrolled);
$r->print('<p>'.&mt('The following were enrolled in the course:').'<ul>');
foreach my $user (@enrolled) {
my ($uname,$udom) = split(/:/,$user);
my $userlink =
&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom);
$r->print('<li>'.$userlink.'</li>');
}
$r->print('</ul></p>');
}
if (@rejections) {
$rejectedlist = join("\n",@rejections);
$r->print('<p>'.&mt('The following enrollment requests were rejected:').'<ul>');
foreach my $user (@rejections) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
&Apache::selfenroll::send_notification($notifylist,$chgmsg,$cid,
$coursedesc,$now,'managers',
$sender,$approvedlist,$rejectedlist);
}
}
if (@existing) {
$r->print('<p>'.&mt('The following enrollment requests were deleted because the user is already enrolled in the course:').'<ul>');
foreach my $user (@existing) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
if (@missingreq) {
$r->print('<p>'.&mt('The following enrollment requests were ignored because the request is no longer in the enrollment queue:').'<ul>');
foreach my $user (@missingreq) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
if (@invalidusers) {
$r->print('<p>'.&mt('The following enrollment requests were deleted because the requestor does not have a LON-CAPA account:').'<ul>');
foreach my $user (@invalidusers) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
if (@limitexceeded) {
$r->print('<p>'.&mt('The following enrollment requests were skipped because the enrollment limit has been reached for the course:').'<ul>');
foreach my $user (@limitexceeded) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
if (@enrollerrors) {
$r->print('<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>');
foreach my $user (@enrollerrors) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
if (@warn_approves) {
$r->print('<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>');
foreach my $user (@warn_approves) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
if (@warn_rejects) {
$r->print('<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>');
foreach my $user (@warn_rejects) {
$r->print('<li>'.$user.'</li>');
}
$r->print('</ul></p>');
}
return;
}

sub get_student_counts {
my ($cdom,$cnum) = @_;
my (%idx,%stucounts);
my $classlist = &Apache::loncoursedata::get_classlist($cdom,$cnum);
$idx{'type'} = &Apache::loncoursedata::CL_TYPE();
$idx{'status'} = &Apache::loncoursedata::CL_STATUS();
while (my ($student,$data) = each(%$classlist)) {
if (($data->[$idx{'status'}] eq 'Active') \|\|
($data->[$idx{'status'}] eq 'Future')) {
if ($data->[$idx{'type'}] eq 'selfenroll') {
$stucounts{'selfenroll'} ++;
}
$stucounts{'allstudents'} ++;
}
}
return (\%stucounts,\%idx,$classlist);
}

sub visible_in_cat {	sub visible_in_cat {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum) = @_;
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", 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:',
Line 4952 sub print_userchangelogs_display {	Line 5344 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); }

$r->print('<form action="/adm/createuser" method="post" name="'.$formname.'">');
my %saveable_parameters = ('show' => 'scalar',);	my %saveable_parameters = ('show' => 'scalar',);
&Apache::loncommon::store_course_settings('roles_log',	&Apache::loncommon::store_course_settings('roles_log',
\%saveable_parameters);	\%saveable_parameters);
Line 4990 sub print_userchangelogs_display {	Line 5382 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));
my ($minshown,$maxshown);	my ($minshown,$maxshown);
$minshown = 1;	$minshown = 1;
my $count = 0;	my $count = 0;
Line 5001 sub print_userchangelogs_display {	Line 5392 sub print_userchangelogs_display {
}	}
}	}

# Collect user change log data	# Form Header
my $content = '';	$r->print('<form action="/adm/createuser" method="post" name="'.$formname.'">'.
	&role_display_filter($formname,$cdom,$cnum,\%curr,$version,$crstype));

	# Create navigation
	my ($nav_script,$nav_links) = &userlogdisplay_nav($formname,\%curr,$more_records);
	my $showntableheader = 0;

	# Table Header
	my $tableheader =
	&Apache::loncommon::start_data_table_header_row()
	.'<th> </th>'
	.'<th>'.&mt('When').'</th>'
	.'<th>'.&mt('Who made the change').'</th>'
	.'<th>'.&mt('Changed User').'</th>'
	.'<th>'.&mt('Role').'</th>'
	.'<th>'.&mt('Section').'</th>'
	.'<th>'.&mt('Context').'</th>'
	.'<th>'.&mt('Start').'</th>'
	.'<th>'.&mt('End').'</th>'
	.&Apache::loncommon::end_data_table_header_row();

	# Display user change log data
foreach my $id (sort { $roleslog{$b}{'exe_time'}<=>$roleslog{$a}{'exe_time'} } (keys(%roleslog))) {	foreach my $id (sort { $roleslog{$b}{'exe_time'}<=>$roleslog{$a}{'exe_time'} } (keys(%roleslog))) {
next if (($roleslog{$id}{'exe_time'} < $curr{'rolelog_start_date'}) \|\|	next if (($roleslog{$id}{'exe_time'} < $curr{'rolelog_start_date'}) \|\|
($roleslog{$id}{'exe_time'} > $curr{'rolelog_end_date'}));	($roleslog{$id}{'exe_time'} > $curr{'rolelog_end_date'}));
Line 5024 sub print_userchangelogs_display {	Line 5436 sub print_userchangelogs_display {
}	}
$count ++;	$count ++;
next if ($count < $minshown);	next if ($count < $minshown);
	unless ($showntableheader) {
	$r->print($nav_script
	.$nav_links
	.&Apache::loncommon::start_data_table()
	.$tableheader);
	$r->rflush();
	$showntableheader = 1;
	}
if ($whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} eq '') {	if ($whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} eq '') {
$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} =	$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} =
&Apache::loncommon::plainname($roleslog{$id}{'exe_uname'},$roleslog{$id}{'exe_udom'});	&Apache::loncommon::plainname($roleslog{$id}{'exe_uname'},$roleslog{$id}{'exe_udom'});
Line 5059 sub print_userchangelogs_display {	Line 5478 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};
}	}
$content .=	$r->print(
&Apache::loncommon::start_data_table_row()	&Apache::loncommon::start_data_table_row()
.'<td>'.$count.'</td>'	.'<td>'.$count.'</td>'
.'<td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td>'	.'<td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td>'
.'<td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td>'	.'<td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td>'
.'<td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td>'	.'<td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td>'
.'<td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'}).'</td>'	.'<td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'},$crstype).'</td>'
.'<td>'.$sec.'</td>'	.'<td>'.$sec.'</td>'
.'<td>'.$chgcontext.'</td>'	.'<td>'.$chgcontext.'</td>'
.'<td>'.$rolestart.'</td>'	.'<td>'.$rolestart.'</td>'
.'<td>'.$roleend.'</td>'	.'<td>'.$roleend.'</td>'
.&Apache::loncommon::end_data_table_row();	.&Apache::loncommon::end_data_table_row()."\n");
}	}

# Form Footer	if ($showntableheader) { # Table footer, if content displayed above
my $form_footer =	$r->print(&Apache::loncommon::end_data_table()
'<input type="hidden" name="page" value="'.$curr{'page'}.'" />'	.$nav_links);
.'<input type="hidden" name="action" value="changelogs" />'	} else { # No content displayed above
.'</form>';

# Only display table, if content is available (has been collected above)
if (!$content) {
$r->print('<p class="LC_info">'	$r->print('<p class="LC_info">'
.&mt('There are no records to display.')	.&mt('There are no records to display.')
.'</p>'	.'</p>'
);	);
$r->print($form_footer);
return;
}	}

# Content to display, so create navigation and display table	# Form Footer
	$r->print(
	'<input type="hidden" name="page" value="'.$curr{'page'}.'" />'
	.'<input type="hidden" name="action" value="changelogs" />'
	.'</form>');
	return;
	}

# Create Navigation:	sub userlogdisplay_nav {
# Navigation Script	my ($formname,$curr,$more_records) = @_;
my $nav_script = <<"ENDSCRIPT";	my ($nav_script,$nav_links);
	if (ref($curr) eq 'HASH') {
	# Create Navigation:
	# Navigation Script
	$nav_script = <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
function chgPage(caller) {	function chgPage(caller) {
Line 5107 function chgPage(caller) {	Line 5530 function chgPage(caller) {
if (caller == 'next') {	if (caller == 'next') {
document.$formname.page.value ++;	document.$formname.page.value ++;
}	}
document.$formname.submit();	document.$formname.submit();
return;	return;
}	}
// ]]>	// ]]>
</script>	</script>
ENDSCRIPT	ENDSCRIPT
# Navigation Buttons	# Navigation Buttons
my $nav_links;	$nav_links = '<p>';
$nav_links = '<p>';	if (($curr->{'page'} > 1) \|\| ($more_records)) {
if (($curr{'page'} > 1) \|\| ($more_records)) {	if ($curr->{'page'} > 1) {
if ($curr{'page'} > 1) {	$nav_links .= '<input type="button"'
$nav_links .= '<input type="button"'	.' onclick="javascript:chgPage('."'previous'".');"'
.' onclick="javascript:chgPage('."'previous'".');"'	.' value="'.&mt('Previous [_1] changes',$curr->{'show'})
.' value="'.&mt('Previous [_1] changes',$curr{'show'})	.'" /> ';
.'" /> ';	}
}	if ($more_records) {
if ($more_records) {	$nav_links .= '<input type="button"'
$nav_links .= '<input type="button"'	.' onclick="javascript:chgPage('."'next'".');"'
.' onclick="javascript:chgPage('."'next'".');"'	.' value="'.&mt('Next [_1] changes',$curr->{'show'})
.' value="'.&mt('Next [_1] changes',$curr{'show'})	.'" />';
.'" />';	}
}	}
	$nav_links .= '</p>';
}	}
$nav_links .= '</p>';	return ($nav_script,$nav_links);

# Table Header
my $tableheader =
&Apache::loncommon::start_data_table_header_row()
.'<th> </th>'
.'<th>'.&mt('When').'</th>'
.'<th>'.&mt('Who made the change').'</th>'
.'<th>'.&mt('Changed User').'</th>'
.'<th>'.&mt('Role').'</th>'
.'<th>'.&mt('Section').'</th>'
.'<th>'.&mt('Context').'</th>'
.'<th>'.&mt('Start').'</th>'
.'<th>'.&mt('End').'</th>'
.&Apache::loncommon::end_data_table_header_row();

# Print Content
$r->print(
$nav_script
.$nav_links
.&Apache::loncommon::start_data_table()
.$tableheader
.$content
.&Apache::loncommon::end_data_table()
.$nav_links
.$form_footer
);
return;
}	}

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></span><br />'.	'<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b></span><br />'.
Line 5177 sub role_display_filter {	Line 5575 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 />'.	$output .= '<td valign="top"><b>'.&mt('Window during which changes occurred:').'</b><br />'.
'<table><tr><td>'.&mt('After:').	'<table><tr><td>'.&mt('After:').
'</td><td>'.$startform.'</td></tr>'.	'</td><td>'.$startform.'</td></tr>'.
Line 5191 sub role_display_filter {	Line 5589 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 5209 sub role_display_filter {	Line 5607 sub role_display_filter {
'<td>  </td>'.	'<td>  </td>'.
'<td valign="top"><b>'.	'<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) {
$selstr = ' selected="selected"';	$selstr = ' selected="selected"';
Line 5225 sub role_display_filter {	Line 5623 sub role_display_filter {
# Update Display button	# Update Display button
$output .= '<p>'	$output .= '<p>'
.'<input type="submit" value="'.&mt('Update Display').'" />'	.'<input type="submit" value="'.&mt('Update Display').'" />'
.'</p>';	.'</p><hr />';

# Server version info
$output .= '<p class="LC_info">'
.&mt('Only changes made from servers running LON-CAPA [_1] or later are displayed.'
,'2.6.99.0');
if ($version) {
$output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);
}
$output .= '</p><hr />';
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 5246 sub rolechg_contexts {	Line 5636 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 5331 sub user_search_result {	Line 5727 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 5622 sub build_search_response {	Line 6027 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 />'	$response .= '<br /><br />'
.'<b>'.&mt('To add a new user:').'</b>'	.'<b>'.&mt('To add a new user:').'</b>'
.'<br />'	.'<br />';
.&mt("(You can only create new users in your current role's domain - [_1])"	if ($context eq 'requestcrs') {
,'<span class="LC_cusr_emph">'.$env{'request.role.domain'}.'</span>')	$response .= &mt("(You can only define new users in the new course's domain - [_1])",$targetdom);
.'<ul><li>'	} 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>')	.&mt("Set 'Domain/institution to search' to: [_1]",'<span class="LC_cusr_emph">'.$showdom.'</span>')
.'</li><li>'	.'</li><li>'
.&mt("Set 'Search criteria' to: [_1]username is ..... in selected LON-CAPA domain[_2]",'<span class="LC_cusr_emph">','</span>')	.&mt("Set 'Search criteria' to: [_1]username is ..... in selected LON-CAPA domain[_2]",'<span class="LC_cusr_emph">','</span>')
Line 5643 sub build_search_response {	Line 6058 sub build_search_response {
.'</li></ul><br />';	.'</li></ul><br />';
} else {	} else {
my $helplink = ' href="javascript:helpMenu('."'display'".')"';	my $helplink = ' href="javascript:helpMenu('."'display'".')"';
$response .= '<br /><br />'	$response .= '<br /><br />';
.&mt("You are not authorized to create new users in your current role's domain - [_1]."	if ($context eq 'requestcrs') {
,'<span class="LC_cusr_emph">'.$env{'request.role.domain'}.'</span>')	$response .= &mt("You are not authorized to define new users in the new course's domain - [_1].",$targetdom);
.'<br />'	} else {
.&mt('Please contact the [_1]helpdesk[_2] if you need to create a new user.'	$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'.$helplink.'>'
,'</a>')	,'</a>')
.'<br /><br />';	.'<br /><br />';
}	}
}	}
}	}
Line 5736 sub course_level_table {	Line 6154 sub course_level_table {
'end' => "End"	'end' => "End"
);	);

foreach my $protectedcourse (sort( keys(%inccourses))) {	foreach my $protectedcourse (sort(keys(%inccourses))) {
my $thiscourse=$protectedcourse;	my $thiscourse=$protectedcourse;
$thiscourse=~s:_:/:g;	$thiscourse=~s:_:/:g;
my %coursedata=&Apache::lonnet::coursedescription($thiscourse);	my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
	my $isowner = &is_courseowner($protectedcourse,$coursedata{'internal.courseowner'});
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 5751 sub course_level_table {	Line 6170 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)) \|\|
	((($role eq 'cc') \|\| ($role eq 'co')) && ($isowner))) {
$table .= &course_level_row($protectedcourse,$role,$area,$domain,	$table .= &course_level_row($protectedcourse,$role,$area,$domain,
$plrole,\%sections_count,\%lt);	$plrole,\%sections_count,\%lt);
} elsif ($env{'request.course.sec'} ne '') {	} elsif ($env{'request.course.sec'} ne '') {
if (&Apache::lonnet::allowed('c'.$role,$thiscourse.'/'.	if (&Apache::lonnet::allowed('c'.$role,$thiscourse.'/'.
$env{'request.course.sec'})) {	$env{'request.course.sec'})) {
Line 5766 sub course_level_table {	Line 6186 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 5797 sub course_level_row {	Line 6218 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 5845 sub course_level_dc {	Line 6266 sub course_level_dc {
'<input type="hidden" name="origdom" value="'.$dcdom.'" />'.	'<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
'<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/Community','crstype').'</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 5857 sub course_level_dc {	Line 6278 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 5884 sub course_level_dc {	Line 6305 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 6154 sub update_selfenroll_config {	Line 6576 sub update_selfenroll_config {
if ($currlimit eq 'allstudents') {	if ($currlimit eq 'allstudents') {
$newval = &mt('New self-enrollment no longer allowed when total (all students) reaches [_1].',$newcap);	$newval = &mt('New self-enrollment no longer allowed when total (all students) reaches [_1].',$newcap);
} elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {	} elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {
$newval = &mt('New self-enrollment no longer allowed when total umber of self-enrolled students reaches [_1].',$newcap);	$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");	$r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval).'</li>'."\n");
Line 6257 sub get_selfenroll_titles {	Line 6679 sub get_selfenroll_titles {
return (\@row,\%lt);	return (\@row,\%lt);
}	}

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

#---------------------------------------------- end functions for &phase_two	#---------------------------------------------- end functions for &phase_two

#--------------------------------- functions for &phase_two and &phase_three	#--------------------------------- functions for &phase_two and &phase_three

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

Removed from v.1.303
changed lines
	Added in v.1.329.2.3