loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.160.6.84.6.1 and 1.303

version 1.160.6.84.6.1, 2020/04/06 21:56:01	version 1.303, 2017/07/26 19:45:45
Line 27	Line 27
#	#
#	#
###############################################################	###############################################################
##############################################################	###############################################################

=pod	=pod

Line 104 $datatable - HTML containing form eleme	Line 104 $datatable - HTML containing form eleme

In the case of course requests, radio buttons are displayed for each institutional	In the case of course requests, radio buttons are displayed for each institutional
affiliate type (and also default, and _LC_adv) for each of the course types	affiliate type (and also default, and _LC_adv) for each of the course types
(official, unofficial, community, and textbook). In each case the radio buttons	(official, unofficial, community, textbook, and placement).
allow the selection of one of four values:	In each case the radio buttons allow the selection of one of four values:

0, approval, validate, autolimit=N (where N is blank, or a positive integer).	0, approval, validate, autolimit=N (where N is blank, or a positive integer).
which have the following effects:	which have the following effects:
Line 170 use Apache::loncoursequeueadmin();	Line 170 use Apache::loncoursequeueadmin();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use LONCAPA::Enrollment;	use LONCAPA::Enrollment;
use LONCAPA::lonauthcgi();	use LONCAPA::lonauthcgi();
	use LONCAPA::SSL;
use File::Copy;	use File::Copy;
use Locale::Language;	use Locale::Language;
use DateTime::TimeZone;	use DateTime::TimeZone;
use DateTime::Locale;	use DateTime::Locale;
	use Time::HiRes qw( sleep );

my $registered_cleanup;	my $registered_cleanup;
my $modified_urls;	my $modified_urls;
Line 217 sub handler {	Line 219 sub handler {
'serverstatuses','requestcourses','helpsettings',	'serverstatuses','requestcourses','helpsettings',
'coursedefaults','usersessions','loadbalancing',	'coursedefaults','usersessions','loadbalancing',
'requestauthor','selfenrollment','inststatus',	'requestauthor','selfenrollment','inststatus',
'ltitools'],$dom);	'ltitools','ssl','trust'],$dom);
if (ref($domconfig{'ltitools'}) eq 'HASH') {	if (ref($domconfig{'ltitools'}) eq 'HASH') {
my %encconfig =	my %encconfig =
&Apache::lonnet::get_dom('encconfig',['ltitools'],$dom);	&Apache::lonnet::get_dom('encconfig',['ltitools'],$dom);
Line 236 sub handler {	Line 238 sub handler {
'usercreation','selfcreation','usermodification','scantron',	'usercreation','selfcreation','usermodification','scantron',
'requestcourses','requestauthor','coursecategories',	'requestcourses','requestauthor','coursecategories',
'serverstatuses','helpsettings','coursedefaults',	'serverstatuses','helpsettings','coursedefaults',
'ltitools','selfenrollment','usersessions');	'ltitools','selfenrollment','usersessions','ssl','trust');
my %existing;	my %existing;
if (ref($domconfig{'loadbalancing'}) eq 'HASH') {	if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
%existing = %{$domconfig{'loadbalancing'}};	%existing = %{$domconfig{'loadbalancing'}};
Line 279 sub handler {	Line 281 sub handler {
{col1 => 'Internal Authentication',	{col1 => 'Internal Authentication',
col2 => 'Value'},	col2 => 'Value'},
{col1 => 'Institutional user types',	{col1 => 'Institutional user types',
col2 => 'Assignable to e-mail usernames'}],	col2 => 'Assignable to non-institutional users'}],
print => \&print_defaults,	print => \&print_defaults,
modify => \&modify_defaults,	modify => \&modify_defaults,
},	},
Line 361 sub handler {	Line 363 sub handler {
col2 => 'Enabled?'},	col2 => 'Enabled?'},
{col1 => 'Institutional user type (login/SSO self-creation)',	{col1 => 'Institutional user type (login/SSO self-creation)',
col2 => 'Information user can enter'},	col2 => 'Information user can enter'},
{col1 => 'Self-creation with e-mail as username',	{col1 => 'Self-creation with e-mail verification',
col2 => 'Settings'}],	col2 => 'Settings'}],
print => \&print_selfcreation,	print => \&print_selfcreation,
modify => \&modify_selfcreation,	modify => \&modify_selfcreation,
Line 466 sub handler {	Line 468 sub handler {
print => \&print_selfenrollment,	print => \&print_selfenrollment,
modify => \&modify_selfenrollment,	modify => \&modify_selfenrollment,
},	},
	'privacy' =>
	{text => 'User Privacy',
	help => 'Domain_Configuration_User_Privacy',
	header => [{col1 => 'Setting',
	col2 => 'Value',}],
	print => \&print_privacy,
	modify => \&modify_privacy,
	},
'usersessions' =>	'usersessions' =>
{text => 'User session hosting/offloading',	{text => 'User session hosting/offloading',
help => 'Domain_Configuration_User_Sessions',	help => 'Domain_Configuration_User_Sessions',
Line 489 sub handler {	Line 499 sub handler {
print => \&print_loadbalancing,	print => \&print_loadbalancing,
modify => \&modify_loadbalancing,	modify => \&modify_loadbalancing,
},	},
'ltitools' =>	'ltitools' =>
{text => 'External Tools (LTI)',	{text => 'External Tools (LTI)',
help => 'Domain_Configuration_LTI_Tools',	help => 'Domain_Configuration_LTI_Tools',
header => [{col1 => 'Setting',	header => [{col1 => 'Setting',
Line 497 sub handler {	Line 507 sub handler {
print => \&print_ltitools,	print => \&print_ltitools,
modify => \&modify_ltitools,	modify => \&modify_ltitools,
},	},
	'ssl' =>
	{text => 'LON-CAPA Network (SSL)',
	help => 'Domain_Configuration_Network_SSL',
	header => [{col1 => 'Server',
	col2 => 'Certificate Status'},
	{col1 => 'Connections to other servers',
	col2 => 'Rules'},
	{col1 => 'Connections from other servers',
	col2 => 'Rules'},
	{col1 => "Replicating domain's published content",
	col2 => 'Rules'}],
	print => \&print_ssl,
	modify => \&modify_ssl,
	},
	'trust' =>
	{text => 'Trust Settings',
	help => 'Domain_Configuration_Trust',
	header => [{col1 => "Access to this domain's content by others",
	col2 => 'Rules'},
	{col1 => "Access to other domain's content by this domain",
	col2 => 'Rules'},
	{col1 => "Enrollment in this domain's courses by others",
	col2 => 'Rules',},
	{col1 => "Co-author roles in this domain for others",
	col2 => 'Rules',},
	{col1 => "Co-author roles for this domain's users elsewhere",
	col2 => 'Rules',},
	{col1 => "Domain roles in this domain assignable to others",
	col2 => 'Rules'},
	{col1 => "Course catalog for this domain displayed elsewhere",
	col2 => 'Rules'},
	{col1 => "Requests for creation of courses in this domain by others",
	col2 => 'Rules'},
	{col1 => "Users in other domains can send messages to this domain",
	col2 => 'Rules'},],
	print => \&print_trust,
	modify => \&modify_trust,
	},
);	);
if (keys(%servers) > 1) {	if (keys(%servers) > 1) {
$prefs{'login'} = { text => 'Log-in page options',	$prefs{'login'} = { text => 'Log-in page options',
Line 675 sub process_changes {	Line 723 sub process_changes {
$output = &modify_loadbalancing($dom,%domconfig);	$output = &modify_loadbalancing($dom,%domconfig);
} elsif ($action eq 'ltitools') {	} elsif ($action eq 'ltitools') {
$output = &modify_ltitools($r,$dom,$action,$lastactref,%domconfig);	$output = &modify_ltitools($r,$dom,$action,$lastactref,%domconfig);
	} elsif ($action eq 'ssl') {
	$output = &modify_ssl($dom,$lastactref,%domconfig);
	} elsif ($action eq 'trust') {
	$output = &modify_trust($dom,$lastactref,%domconfig);
}	}
return $output;	return $output;
}	}
Line 701 sub print_config_box {	Line 753 sub print_config_box {
&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);	&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);	my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
$output =	$output =
&Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,\%full,	&Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,\%full,
\@templateroles);	\@templateroles);
}	}
$output .=	$output .=
Line 738 sub print_config_box {	Line 790 sub print_config_box {
$rowtotal ++;	$rowtotal ++;
if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\| ($action eq 'selfcreation') \|\|	if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\| ($action eq 'selfcreation') \|\|
($action eq 'usermodification') \|\| ($action eq 'defaults') \|\| ($action eq 'coursedefaults') \|\|	($action eq 'usermodification') \|\| ($action eq 'defaults') \|\| ($action eq 'coursedefaults') \|\|
($action eq 'selfenrollment') \|\| ($action eq 'usersessions') \|\| ($action eq 'directorysrch') \|\|	($action eq 'selfenrollment') \|\| ($action eq 'usersessions') \|\| ($action eq 'ssl') \|\|
($action eq 'helpsettings') \|\| ($action eq 'contacts')) {	($action eq 'directorysrch') \|\| ($action eq 'trust') \|\| ($action eq 'helpsettings') \|\|
	($action eq 'contacts')) {
$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);
} elsif ($action eq 'coursecategories') {	} elsif ($action eq 'coursecategories') {
$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);	$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);
Line 769 sub print_config_box {	Line 822 sub print_config_box {
$rowtotal ++;	$rowtotal ++;
if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\|	if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\|
($action eq 'selfcreation') \|\| ($action eq 'selfenrollment') \|\|	($action eq 'selfcreation') \|\| ($action eq 'selfenrollment') \|\|
($action eq 'usersessions') \|\| ($action eq 'coursecategories') \|\|	($action eq 'usersessions') \|\| ($action eq 'coursecategories') \|\|
($action eq 'contacts') \|\| ($action eq 'defaults')) {	($action eq 'trust') \|\| ($action eq 'contacts') \|\| ($action eq 'defaults')) {
if ($action eq 'coursecategories') {	if ($action eq 'coursecategories') {
$output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal);	$output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal);
$colspan = ' colspan="2"';	$colspan = ' colspan="2"';
	} elsif ($action eq 'trust') {
	$output .= $item->{'print'}->('shared',$dom,$settings,\$rowtotal);
} else {	} else {
$output .= $item->{'print'}->('middle',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('middle',$dom,$settings,\$rowtotal);
}	}
$output .= '	if ($action eq 'trust') {
	$output .= '
	</table>
	</td>
	</tr>';
	my @trusthdrs = qw(2 3 4 5 6 7);
	my @prefixes = qw(enroll othcoau coaurem domroles catalog reqcrs);
	for (my $i=0; $i<@trusthdrs; $i++) {
	$output .= '
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[$trusthdrs[$i]]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[$trusthdrs[$i]]->{'col2'}).'</td></tr>'.
	$item->{'print'}->($prefixes[$i],$dom,$settings,\$rowtotal).'
	</table>
	</td>
	</tr>';
	}
	$output .= '
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[8]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[8]->{'col2'}).'</td></tr>'.
	$item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
	} else {
	$output .= '
</table>	</table>
</td>	</td>
</tr>	</tr>
Line 788 sub print_config_box {	Line 872 sub print_config_box {
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>	<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>
</tr>'."\n";	</tr>'."\n";
if ($action eq 'coursecategories') {	if ($action eq 'coursecategories') {
$output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal);	$output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal);
} else {	} else {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
	}
}	}
$rowtotal ++;	$rowtotal ++;
} elsif (($action eq 'usermodification') \|\| ($action eq 'coursedefaults') \|\|	} elsif (($action eq 'usermodification') \|\| ($action eq 'coursedefaults') \|\|
($action eq 'defaults') \|\| ($action eq 'directorysrch') \|\|	($action eq 'defaults') \|\| ($action eq 'directorysrch') \|\|
($action eq 'helpsettings')) {	($action eq 'helpsettings')) {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
	} elsif ($action eq 'ssl') {
	$output .= $item->{'print'}->('connto',$dom,$settings,\$rowtotal).'
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td></tr>'.
	$item->{'print'}->('connfrom',$dom,$settings,\$rowtotal).'
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col2'}).'</td></tr>'.
	$item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
} elsif ($action eq 'login') {	} elsif ($action eq 'login') {
if ($numheaders == 4) {	if ($numheaders == 4) {
$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal).'	$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal).'
Line 954 sub print_config_box {	Line 1061 sub print_config_box {
if ($action eq 'quotas') {	if ($action eq 'quotas') {
$output .= &print_quotas($dom,$settings,\$rowtotal,$action);	$output .= &print_quotas($dom,$settings,\$rowtotal,$action);
} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\|	} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\|
($action eq 'serverstatuses') \|\| ($action eq 'loadbalancing') \|\|	($action eq 'serverstatuses') \|\| ($action eq 'loadbalancing') \|\|
($action eq 'ltitools')) {	($action eq 'ltitools')) {
$output .= $item->{'print'}->($dom,$settings,\$rowtotal);	$output .= $item->{'print'}->($dom,$settings,\$rowtotal);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
Line 1759 sub print_quotas {	Line 1866 sub print_quotas {
my $typecount = 0;	my $typecount = 0;
my ($css_class,%titles);	my ($css_class,%titles);
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
@usertools = ('official','unofficial','community','textbook');	@usertools = ('official','unofficial','community','textbook','placement');
@options =('norequest','approval','validate','autolimit');	@options =('norequest','approval','validate','autolimit');
%validations = &Apache::lonnet::auto_courserequest_checks($dom);	%validations = &Apache::lonnet::auto_courserequest_checks($dom);
%titles = &courserequest_titles();	%titles = &courserequest_titles();
Line 2211 sub print_studentcode {	Line 2318 sub print_studentcode {
my ($settings,$rowtotal) = @_;	my ($settings,$rowtotal) = @_;
my $rownum = 0;	my $rownum = 0;
my ($output,%current);	my ($output,%current);
my @crstypes = ('official','unofficial','community','textbook');	my @crstypes = ('official','unofficial','community','textbook','placement');
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'uniquecode'}) eq 'HASH') {	if (ref($settings->{'uniquecode'}) eq 'HASH') {
foreach my $type (@crstypes) {	foreach my $type (@crstypes) {
Line 2307 sub print_textbookcourses {	Line 2414 sub print_textbookcourses {
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.&mt('Thumbnail:');	'<span class="LC_nobreak">'.&mt('Thumbnail:');
if ($image) {	if ($image) {
$datatable .= '<span class="LC_nobreak">'.	$datatable .= $imgsrc.
$imgsrc.
'<label><input type="checkbox" name="'.$type.'_image_del"'.	'<label><input type="checkbox" name="'.$type.'_image_del"'.
' value="'.$key.'" />'.&mt('Delete?').'</label></span> '.	' value="'.$key.'" />'.&mt('Delete?').'</label></span> '.
'<span class="LC_nobreak"> '.&mt('Replace:').' ';	'<span class="LC_nobreak"> '.&mt('Replace:').' ';
Line 3194 sub print_helpsettings {	Line 3300 sub print_helpsettings {
@jsarray = ('bystatus');	@jsarray = ('bystatus');
}	}
}	}
my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh'.'da']);	my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh','da']);
if (keys(%domhelpdesk)) {	if (keys(%domhelpdesk)) {
push(@accesstypes,('inc','exc'));	push(@accesstypes,('inc','exc'));
push(@jsarray,('notinc','notexc'));	push(@jsarray,('notinc','notexc'));
Line 3743 sub print_ltitools {	Line 3849 sub print_ltitools {
if (!$rolemaps{$role}) {	if (!$rolemaps{$role}) {
$selectnone = ' selected="selected"';	$selectnone = ' selected="selected"';
}	}
$datatable .= '<td align="center">'.	$datatable .= '<td align="center">'.
&Apache::lonnet::plaintext($role,'Course').'<br />'.	&Apache::lonnet::plaintext($role,'Course').'<br />'.
'<select name="ltitools_roles_'.$role.'_'.$i.'">'.	'<select name="ltitools_roles_'.$role.'_'.$i.'">'.
'<option value=""'.$selectnone.'>'.&mt('Select').'</option>';	'<option value=""'.$selectnone.'>'.&mt('Select').'</option>';
Line 3915 sub ltitools_names {	Line 4021 sub ltitools_names {
'url' => 'URL',	'url' => 'URL',
'key' => 'Key',	'key' => 'Key',
'secret' => 'Secret',	'secret' => 'Secret',
'icon' => 'Icon',	'icon' => 'Icon',
'user' => 'Username:domain',	'user' => 'Username:domain',
'fullname' => 'Full Name',	'fullname' => 'Full Name',
'firstname' => 'First Name',	'firstname' => 'First Name',
Line 3933 sub ltitools_names {	Line 4039 sub ltitools_names {
'roster' => 'Tool can retrieve roster:',	'roster' => 'Tool can retrieve roster:',
'crstarget' => 'Display target',	'crstarget' => 'Display target',
'crslabel' => 'Course label',	'crslabel' => 'Course label',
'crstitle' => 'Course title',	'crstitle' => 'Course title',
'crslinktext' => 'Link Text',	'crslinktext' => 'Link Text',
'crsexplanation' => 'Explanation',	'crsexplanation' => 'Explanation',
);	);

return %lt;	return %lt;
}	}

Line 3946 sub print_coursedefaults {	Line 4051 sub print_coursedefaults {
my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);	my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);
my $itemcount = 1;	my $itemcount = 1;
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
	canuse_pdfforms => 'Course/Community users can create/upload PDF forms',
uploadquota => 'Default quota for files uploaded directly to course/community using Course Editor (MB)',	uploadquota => 'Default quota for files uploaded directly to course/community using Course Editor (MB)',
anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',	anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',
coursecredits => 'Credits can be specified for courses',	coursecredits => 'Credits can be specified for courses',
Line 3963 sub print_coursedefaults {	Line 4069 sub print_coursedefaults {
);	);
if ($position eq 'top') {	if ($position eq 'top') {
%defaultchecked = (	%defaultchecked = (
	'canuse_pdfforms' => 'off',
'uselcmath' => 'on',	'uselcmath' => 'on',
'usejsme' => 'on',	'usejsme' => 'on',
'canclone' => 'none',	'canclone' => 'none',
);	);
@toggles = ('uselcmath','usejsme');	@toggles = ('canuse_pdfforms','uselcmath','usejsme');
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$itemcount);	\%choices,$itemcount);
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
Line 4046 sub print_coursedefaults {	Line 4153 sub print_coursedefaults {
my ($currdefresponder,%defcredits,%curruploadquota,%deftimeout,%currmysql);	my ($currdefresponder,%defcredits,%curruploadquota,%deftimeout,%currmysql);
my $currusecredits = 0;	my $currusecredits = 0;
my $postsubmitclient = 1;	my $postsubmitclient = 1;
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook','placement');
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
$currdefresponder = $settings->{'anonsurvey_threshold'};	$currdefresponder = $settings->{'anonsurvey_threshold'};
if (ref($settings->{'uploadquota'}) eq 'HASH') {	if (ref($settings->{'uploadquota'}) eq 'HASH') {
Line 4203 sub print_selfenrollment {	Line 4310 sub print_selfenrollment {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my ($css_class,$datatable);	my ($css_class,$datatable);
my $itemcount = 1;	my $itemcount = 1;
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook','placement');
if (($position eq 'top') \|\| ($position eq 'middle')) {	if (($position eq 'top') \|\| ($position eq 'middle')) {
my ($rowsref,$titlesref) = &Apache::lonuserutils::get_selfenroll_titles();	my ($rowsref,$titlesref) = &Apache::lonuserutils::get_selfenroll_titles();
my %descs = &Apache::lonuserutils::selfenroll_default_descs();	my %descs = &Apache::lonuserutils::selfenroll_default_descs();
Line 4426 sub print_validation_rows {	Line 4533 sub print_validation_rows {

sub print_usersessions {	sub print_usersessions {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my ($css_class,$datatable,%checked,%choices);	my ($css_class,$datatable,$itemcount,%checked,%choices);
my (%by_ip,%by_location,@intdoms);	my (%by_ip,%by_location,@intdoms,@instdoms);
&build_location_hashes(\@intdoms,\%by_ip,\%by_location);	&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms);

my @alldoms = &Apache::lonnet::all_domains();	my @alldoms = &Apache::lonnet::all_domains();
my %serverhomes = %Apache::lonnet::serverhomeIDs;	my %serverhomes = %Apache::lonnet::serverhomeIDs;
my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
my %altids = &id_for_thisdom(%servers);	my %altids = &id_for_thisdom(%servers);
my $itemcount = 1;
if ($position eq 'top') {	if ($position eq 'top') {
if (keys(%serverhomes) > 1) {	if (keys(%serverhomes) > 1) {
my %spareid = &current_offloads_to($dom,$settings,\%servers);	my %spareid = &current_offloads_to($dom,$settings,\%servers);
Line 4447 sub print_usersessions {	Line 4553 sub print_usersessions {
$datatable .= &spares_row($dom,\%servers,\%spareid,\%serverhomes,\%altids,$curroffloadnow,$rowtotal);	$datatable .= &spares_row($dom,\%servers,\%spareid,\%serverhomes,\%altids,$curroffloadnow,$rowtotal);
} else {	} else {
$datatable .= '<tr'.$css_class.'><td colspan="2">'.	$datatable .= '<tr'.$css_class.'><td colspan="2">'.
&mt('Nothing to set here, as the cluster to which this domain belongs only contains one server.');	&mt('Nothing to set here, as the cluster to which this domain belongs only contains one server.').
	'</td></tr>';
}	}
} else {	} else {
if (keys(%by_location) == 0) {	my %titles = &usersession_titles();
$datatable .= '<tr'.$css_class.'><td colspan="2">'.	my ($prefix,@types);
&mt('Nothing to set here, as the cluster to which this domain belongs only contains one institution.');	if ($position eq 'bottom') {
	$prefix = 'remote';
	@types = ('version','excludedomain','includedomain');
} else {	} else {
my %lt = &usersession_titles();	$prefix = 'hosted';
my $numinrow = 5;	@types = ('excludedomain','includedomain');
my $prefix;	}
my @types;	($datatable,$itemcount) = &rules_by_location($settings,$prefix,\%by_location,\%by_ip,\@types,\%titles);
if ($position eq 'bottom') {	}
$prefix = 'remote';	$$rowtotal += $itemcount;
@types = ('version','excludedomain','includedomain');	return $datatable;
} else {	}
$prefix = 'hosted';
@types = ('excludedomain','includedomain');	sub rules_by_location {
}	my ($settings,$prefix,$by_location,$by_ip,$types,$titles) = @_;
my (%current,%checkedon,%checkedoff);	my ($datatable,$itemcount,$css_class);
my @lcversions = &Apache::lonnet::all_loncaparevs();	if (keys(%{$by_location}) == 0) {
my @locations = sort(keys(%by_location));	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
foreach my $type (@types) {	$datatable = '<tr'.$css_class.'><td colspan="2">'.
$checkedon{$type} = '';	&mt('Nothing to set here, as the cluster to which this domain belongs only contains one institution.').
$checkedoff{$type} = ' checked="checked"';	'</td></tr>';
}	$itemcount = 1;
if (ref($settings) eq 'HASH') {	} else {
if (ref($settings->{$prefix}) eq 'HASH') {	$itemcount = 0;
foreach my $key (keys(%{$settings->{$prefix}})) {	my $numinrow = 5;
$current{$key} = $settings->{$prefix}{$key};	my (%current,%checkedon,%checkedoff);
if ($key eq 'version') {	my @locations = sort(keys(%{$by_location}));
if ($current{$key} ne '') {	foreach my $type (@{$types}) {
$checkedon{$key} = ' checked="checked"';	$checkedon{$type} = '';
$checkedoff{$key} = '';	$checkedoff{$type} = ' checked="checked"';
}	}
} elsif (ref($current{$key}) eq 'ARRAY') {	if (ref($settings) eq 'HASH') {
	if (ref($settings->{$prefix}) eq 'HASH') {
	foreach my $key (keys(%{$settings->{$prefix}})) {
	$current{$key} = $settings->{$prefix}{$key};
	if ($key eq 'version') {
	if ($current{$key} ne '') {
$checkedon{$key} = ' checked="checked"';	$checkedon{$key} = ' checked="checked"';
$checkedoff{$key} = '';	$checkedoff{$key} = '';
}	}
	} elsif (ref($current{$key}) eq 'ARRAY') {
	$checkedon{$key} = ' checked="checked"';
	$checkedoff{$key} = '';
}	}
}	}
}	}
foreach my $type (@types) {	}
next if ($type ne 'version' && !@locations);	foreach my $type (@{$types}) {
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	next if ($type ne 'version' && !@locations);
$datatable .= '<tr'.$css_class.'>	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
<td><span class="LC_nobreak">'.$lt{$type}.'</span><br />	$datatable .= '<tr'.$css_class.'>
<span class="LC_nobreak">	<td><span class="LC_nobreak">'.$titles->{$type}.'</span><br />
<label><input type="radio" name="'.$prefix.'_'.$type.'_inuse" '.$checkedoff{$type}.' value="0" />'.&mt('Not in use').'</label>	<span class="LC_nobreak">
<label><input type="radio" name="'.$prefix.'_'.$type.'_inuse" '.$checkedon{$type}.' value="1" />'.&mt('In use').'</label></span></td><td>';	<label><input type="radio" name="'.$prefix.'_'.$type.'_inuse" '.$checkedoff{$type}.' value="0" />'.&mt('Not in use').'</label>
if ($type eq 'version') {	<label><input type="radio" name="'.$prefix.'_'.$type.'_inuse" '.$checkedon{$type}.' value="1" />'.&mt('In use').'</label></span></td><td>';
my $selector = '<select name="'.$prefix.'_version">';	if ($type eq 'version') {
foreach my $version (@lcversions) {	my @lcversions = &Apache::lonnet::all_loncaparevs();
my $selected = '';	my $selector = '<select name="'.$prefix.'_version">';
if ($current{'version'} eq $version) {	foreach my $version (@lcversions) {
$selected = ' selected="selected"';	my $selected = '';
}	if ($current{'version'} eq $version) {
$selector .= ' <option value="'.$version.'"'.	$selected = ' selected="selected"';
$selected.'>'.$version.'</option>';
}	}
$selector .= '</select> ';	$selector .= ' <option value="'.$version.'"'.
$datatable .= &mt('remote server must be version: [_1] or later',$selector);	$selected.'>'.$version.'</option>';
} else {	}
$datatable.= '<div><input type="button" value="'.&mt('check all').'" '.	$selector .= '</select> ';
'onclick="javascript:checkAll(document.display.'.$prefix.'_'.$type.')"'.	$datatable .= &mt('remote server must be version: [_1] or later',$selector);
' />'.(' 'x2).	} else {
'<input type="button" value="'.&mt('uncheck all').'" '.	$datatable.= '<div><input type="button" value="'.&mt('check all').'" '.
'onclick="javascript:uncheckAll(document.display.'.$prefix.'_'.$type.')" />'.	'onclick="javascript:checkAll(document.display.'.$prefix.'_'.$type.')"'.
"\n".	' />'.(' 'x2).
'</div><div><table>';	'<input type="button" value="'.&mt('uncheck all').'" '.
my $rem;	'onclick="javascript:uncheckAll(document.display.'.$prefix.'_'.$type.')" />'.
for (my $i=0; $i<@locations; $i++) {	"\n".
my ($showloc,$value,$checkedtype);	'</div><div><table>';
if (ref($by_location{$locations[$i]}) eq 'ARRAY') {	my $rem;
my $ip = $by_location{$locations[$i]}->[0];	for (my $i=0; $i<@locations; $i++) {
if (ref($by_ip{$ip}) eq 'ARRAY') {	my ($showloc,$value,$checkedtype);
$value = join(':',@{$by_ip{$ip}});	if (ref($by_location->{$locations[$i]}) eq 'ARRAY') {
$showloc = join(', ',@{$by_ip{$ip}});	my $ip = $by_location->{$locations[$i]}->[0];
if (ref($current{$type}) eq 'ARRAY') {	if (ref($by_ip->{$ip}) eq 'ARRAY') {
foreach my $loc (@{$by_ip{$ip}}) {	$value = join(':',@{$by_ip->{$ip}});
if (grep(/^\Q$loc\E$/,@{$current{$type}})) {	$showloc = join(', ',@{$by_ip->{$ip}});
$checkedtype = ' checked="checked"';	if (ref($current{$type}) eq 'ARRAY') {
last;	foreach my $loc (@{$by_ip->{$ip}}) {
}	if (grep(/^\Q$loc\E$/,@{$current{$type}})) {
	$checkedtype = ' checked="checked"';
	last;
}	}
}	}
}	}
}	}
$rem = $i%($numinrow);
if ($rem == 0) {
if ($i > 0) {
$datatable .= '</tr>';
}
$datatable .= '<tr>';
}
$datatable .= '<td class="LC_left_item">'.
'<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="'.$prefix.'_'.$type.
'" value="'.$value.'"'.$checkedtype.' />'.$showloc.
'</label></span></td>';
}	}
$rem = @locations%($numinrow);	$rem = $i%($numinrow);
my $colsleft = $numinrow - $rem;	if ($rem == 0) {
if ($colsleft > 1 ) {	if ($i > 0) {
$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.	$datatable .= '</tr>';
' </td>';	}
} elsif ($colsleft == 1) {	$datatable .= '<tr>';
$datatable .= '<td class="LC_left_item"> </td>';	}
	$datatable .= '<td class="LC_left_item">'.
	'<span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="'.$prefix.'_'.$type.
	'" value="'.$value.'"'.$checkedtype.' />'.$showloc.
	'</label></span></td>';
	}
	$rem = @locations%($numinrow);
	my $colsleft = $numinrow - $rem;
	if ($colsleft > 1 ) {
	$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
	' </td>';
	} elsif ($colsleft == 1) {
	$datatable .= '<td class="LC_left_item"> </td>';
	}
	$datatable .= '</tr></table>';
	}
	$datatable .= '</td></tr>';
	$itemcount ++;
	}
	}
	return ($datatable,$itemcount);
	}

	sub print_ssl {
	my ($position,$dom,$settings,$rowtotal) = @_;
	my ($css_class,$datatable);
	my $itemcount = 1;
	if ($position eq 'top') {
	my $primary_id = &Apache::lonnet::domain($dom,'primary');
	my $intdom = &Apache::lonnet::internet_dom($primary_id);
	my $same_institution;
	if ($intdom ne '') {
	my $internet_names = &Apache::lonnet::get_internet_names($Apache::lonnet::perlvar{'lonHostID'});
	if (ref($internet_names) eq 'ARRAY') {
	if (grep(/^\Q$intdom\E$/,@{$internet_names})) {
	$same_institution = 1;
	}
	}
	}
	$css_class = $itemcount%2?' class="LC_odd_row"':'';
	$datatable = '<tr'.$css_class.'><td colspan="2">';
	if ($same_institution) {
	my %domservers = &Apache::lonnet::get_servers($dom);
	$datatable .= &LONCAPA::SSL::print_certstatus(\%domservers,'web','domprefs');
	} else {
	$datatable .= &mt("You need to be logged into one of your own domain's servers to display information about the status of LON-CAPA SSL certificates.");
	}
	$datatable .= '</td></tr>';
	$itemcount ++;
	} else {
	my %titles = &ssl_titles();
	my (%by_ip,%by_location,@intdoms,@instdoms);
	&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms);
	my @alldoms = &Apache::lonnet::all_domains();
	my %serverhomes = %Apache::lonnet::serverhomeIDs;
	my @domservers = &Apache::lonnet::get_servers($dom);
	my %servers = &Apache::lonnet::internet_dom_servers($dom);
	my %altids = &id_for_thisdom(%servers);
	if (($position eq 'connto') \|\| ($position eq 'connfrom')) {
	my $legacy;
	unless (ref($settings) eq 'HASH') {
	my $name;
	if ($position eq 'connto') {
	$name = 'loncAllowInsecure';
	} else {
	$name = 'londAllowInsecure';
	}
	my $primarylibserv = &Apache::lonnet::domain($dom,'primary');
	my @ids=&Apache::lonnet::current_machine_ids();
	if (($primarylibserv ne '') && (!grep(/^\Q$primarylibserv\E$/,@ids))) {
	my %what = (
	$name => 1,
	);
	my ($result,$returnhash) =
	&Apache::lonnet::get_remote_globals($primarylibserv,\%what);
	if ($result eq 'ok') {
	if (ref($returnhash) eq 'HASH') {
	$legacy = $returnhash->{$name};
	}
	}
	} else {
	$legacy = $Apache::lonnet::perlvar{$name};
	}
	}
	foreach my $type ('dom','intdom','other') {
	my %checked;
	$css_class = $itemcount%2?' class="LC_odd_row"':'';
	$datatable .= '<tr'.$css_class.'><td>'.$titles{$type}.'</td>'.
	'<td class="LC_right_item">';
	my $skip;
	if ($type eq 'dom') {
	unless (keys(%servers) > 1) {
	$datatable .= &mt('Nothing to set here, as there are no other servers/VMs');
	$skip = 1;
	}
	}
	if ($type eq 'intdom') {
	unless (@instdoms > 1) {
	$datatable .= &mt('Nothing to set here, as there are no other domains for this institution');
	$skip = 1;
	}
	} elsif ($type eq 'other') {
	if (keys(%by_location) == 0) {
	$datatable .= &mt('Nothing to set here, as there are no other institutions');
	$skip = 1;
	}
	}
	unless ($skip) {
	$checked{'yes'} = ' checked="checked"';
	if (ref($settings) eq 'HASH') {
	if (ref($settings->{$position}) eq 'HASH') {
	if ($settings->{$position}->{$type} =~ /^(no\|req)$/) {
	$checked{$1} = $checked{'yes'};
	delete($checked{'yes'});
	}
	}
	} else {
	if ($legacy == 0) {
	$checked{'req'} = $checked{'yes'};
	delete($checked{'yes'});
	}
	}
	foreach my $option ('no','yes','req') {
	$datatable .= '<span class="LC_nobreak"><label>'.
	'<input type="radio" name="'.$position.'_'.$type.'" '.
	'value="'.$option.'"'.$checked{$option}.' />'.$titles{$option}.
	'</label></span>'.(' 'x2);
}	}
$datatable .= '</tr></table>';
}	}
$datatable .= '</td></tr>';	$datatable .= '</td></tr>';
	$itemcount ++;
	}
	} else {
	my $prefix = 'replication';
	my @types = ('certreq','nocertreq');
	if (keys(%by_location) == 0) {
	$datatable .= '<tr'.$css_class.'><td>'.
	&mt('Nothing to set here, as there are no other institutions').
	'</td></tr>';
$itemcount ++;	$itemcount ++;
	} else {
	($datatable,$itemcount) =
	&rules_by_location($settings,$prefix,\%by_location,\%by_ip,\@types,\%titles);
}	}
}	}
}	}
Line 4566 sub print_usersessions {	Line 4810 sub print_usersessions {
return $datatable;	return $datatable;
}	}

	sub ssl_titles {
	return &Apache::lonlocal::texthash (
	dom => 'LON-CAPA servers/VMs from same domain',
	intdom => 'LON-CAPA servers/VMs from same "internet" domain',
	other => 'External LON-CAPA servers/VMs',
	connto => 'Connections to other servers',
	connfrom => 'Connections from other servers',
	replication => 'Replicating content to other institutions',
	certreq => 'Client certificate required, but specific domains exempt',
	nocertreq => 'No client certificate required, except for specific domains',
	no => 'SSL not used',
	yes => 'SSL Optional (used if available)',
	req => 'SSL Required',
	);
	}

	sub print_trust {
	my ($prefix,$dom,$settings,$rowtotal) = @_;
	my ($css_class,$datatable,%checked,%choices);
	my (%by_ip,%by_location,@intdoms,@instdoms);
	&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms);
	my $itemcount = 1;
	my %titles = &trust_titles();
	my @types = ('exc','inc');
	if ($prefix eq 'top') {
	$prefix = 'content';
	} elsif ($prefix eq 'bottom') {
	$prefix = 'msg';
	}
	($datatable,$itemcount) = &rules_by_location($settings,$prefix,\%by_location,\%by_ip,\@types,\%titles);
	$$rowtotal += $itemcount;
	return $datatable;
	}

	sub trust_titles {
	return &Apache::lonlocal::texthash(
	content => "Access to this domain's content by others",
	shared => "Access to other domain's content by this domain",
	enroll => "Enrollment in this domain's courses by others",
	othcoau => "Co-author roles in this domain for others",
	coaurem => "Co-author roles for this domain's users elsewhere",
	domroles => "Domain roles in this domain assignable to others",
	catalog => "Course Catalog for this domain displayed elsewhere",
	reqcrs => "Requests for creation of courses in this domain by others",
	msg => "Users in other domains can send messages to this domain",
	exc => "Allow all, but exclude specific domains",
	inc => "Deny all, but include specific domains",
	);
	}

sub build_location_hashes {	sub build_location_hashes {
my ($intdoms,$by_ip,$by_location) = @_;	my ($intdoms,$by_ip,$by_location,$instdoms) = @_;
return unless((ref($intdoms) eq 'ARRAY') && (ref($by_ip) eq 'HASH') &&	return unless((ref($intdoms) eq 'ARRAY') && (ref($by_ip) eq 'HASH') &&
(ref($by_location) eq 'HASH'));	(ref($by_location) eq 'HASH') && (ref($instdoms) eq 'ARRAY'));
my %iphost = &Apache::lonnet::get_iphost();	my %iphost = &Apache::lonnet::get_iphost();
my $primary_id = &Apache::lonnet::domain($env{'request.role.domain'},'primary');	my $primary_id = &Apache::lonnet::domain($env{'request.role.domain'},'primary');
my $primary_ip = &Apache::lonnet::get_host_ip($primary_id);	my $primary_ip = &Apache::lonnet::get_host_ip($primary_id);
Line 4586 sub build_location_hashes {	Line 4880 sub build_location_hashes {
foreach my $id (@{$iphost{$ip}}) {	foreach my $id (@{$iphost{$ip}}) {
my $location = &Apache::lonnet::internet_dom($id);	my $location = &Apache::lonnet::internet_dom($id);
if ($location) {	if ($location) {
next if (grep(/^\Q$location\E$/,@{$intdoms}));	if (grep(/^\Q$location\E$/,@{$intdoms})) {
	my $dom = &Apache::lonnet::host_domain($id);
	unless (grep(/^\Q$dom\E/,@{$instdoms})) {
	push(@{$instdoms},$dom);
	}
	next;
	}
if (ref($by_ip->{$ip}) eq 'ARRAY') {	if (ref($by_ip->{$ip}) eq 'ARRAY') {
unless(grep(/^\Q$location\E$/,@{$by_ip->{$ip}})) {	unless(grep(/^\Q$location\E$/,@{$by_ip->{$ip}})) {
push(@{$by_ip->{$ip}},$location);	push(@{$by_ip->{$ip}},$location);
Line 5090 sub loadbalancing_titles {	Line 5390 sub loadbalancing_titles {
'_LC_ipchange' => &mt('Non-SSO users with IP mismatch'),	'_LC_ipchange' => &mt('Non-SSO users with IP mismatch'),
);	);
my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external','_LC_ipchangesso','_LC_ipchange');	my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external','_LC_ipchangesso','_LC_ipchange');
	my @available;
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
unshift(@alltypes,@{$types},'default');	@available = @{$types};
	}
	unless (grep(/^default$/,@available)) {
	push(@available,'default');
}	}
	unshift(@alltypes,@available);
my %titles;	my %titles;
foreach my $type (@alltypes) {	foreach my $type (@alltypes) {
if ($type =~ /^_LC_/) {	if ($type =~ /^_LC_/) {
Line 5271 sub tool_titles {	Line 5576 sub tool_titles {
unofficial => 'Unofficial courses',	unofficial => 'Unofficial courses',
community => 'Communities',	community => 'Communities',
textbook => 'Textbook courses',	textbook => 'Textbook courses',
	placement => 'Placement tests',
);	);
return %titles;	return %titles;
}	}
Line 5281 sub courserequest_titles {	Line 5587 sub courserequest_titles {
unofficial => 'Unofficial',	unofficial => 'Unofficial',
community => 'Communities',	community => 'Communities',
textbook => 'Textbook',	textbook => 'Textbook',
	placement => 'Placement tests',
norequest => 'Not allowed',	norequest => 'Not allowed',
approval => 'Approval by Dom. Coord.',	approval => 'Approval by Dom. Coord.',
validate => 'With validation',	validate => 'With validation',
Line 5445 sub print_usercreation {	Line 5752 sub print_usercreation {

sub print_selfcreation {	sub print_selfcreation {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my (@selfcreate,$createsettings,$processing,$datatable);	my (@selfcreate,$createsettings,$processing,$emailverified,$emaildomain,$datatable);
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'cancreate'}) eq 'HASH') {	if (ref($settings->{'cancreate'}) eq 'HASH') {
$createsettings = $settings->{'cancreate'};	$createsettings = $settings->{'cancreate'};
Line 5462 sub print_selfcreation {	Line 5769 sub print_selfcreation {
if (ref($createsettings->{'selfcreateprocessing'}) eq 'HASH') {	if (ref($createsettings->{'selfcreateprocessing'}) eq 'HASH') {
$processing = $createsettings->{'selfcreateprocessing'};	$processing = $createsettings->{'selfcreateprocessing'};
}	}
	if (ref($createsettings->{'emailverified'}) eq 'HASH') {
	$emailverified = $createsettings->{'emailverified'};
	}
	if (ref($createsettings->{'emaildomain'}) eq 'HASH') {
	$emaildomain = $createsettings->{'emaildomain'};
	}
}	}
}	}
}	}
my %radiohash;	my %radiohash;
my $numinrow = 4;	my $numinrow = 4;
map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate;	map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate;
	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
if ($position eq 'top') {	if ($position eq 'top') {
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
cancreate_login => 'Institutional Login',	cancreate_login => 'Institutional Login',
Line 5483 sub print_selfcreation {	Line 5797 sub print_selfcreation {
\%choices,$itemcount,$onclick);	\%choices,$itemcount,$onclick);
$$rowtotal += $itemcount;	$$rowtotal += $itemcount;

my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);

if (ref($usertypes) eq 'HASH') {	if (ref($usertypes) eq 'HASH') {
if (keys(%{$usertypes}) > 0) {	if (keys(%{$usertypes}) > 0) {
$datatable .= &insttypes_row($createsettings,$types,$usertypes,	$datatable .= &insttypes_row($createsettings,$types,$usertypes,
Line 5534 sub print_selfcreation {	Line 5846 sub print_selfcreation {
$$rowtotal ++;	$$rowtotal ++;
} elsif ($position eq 'middle') {	} elsif ($position eq 'middle') {
my %domconf = &Apache::lonnet::get_dom('configuration',['usermodification'],$dom);	my %domconf = &Apache::lonnet::get_dom('configuration',['usermodification'],$dom);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my @posstypes;
$usertypes->{'default'} = $othertitle;
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
push(@{$types},'default');	@posstypes = @{$types};
$usertypes->{'default'} = $othertitle;	}
foreach my $status (@{$types}) {	unless (grep(/^default$/,@posstypes)) {
$datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'},	push(@posstypes,'default');
$numinrow,$$rowtotal,$usertypes);	}
$$rowtotal ++;	my %usertypeshash;
}	if (ref($usertypes) eq 'HASH') {
	%usertypeshash = %{$usertypes};
	}
	$usertypeshash{'default'} = $othertitle;
	foreach my $status (@posstypes) {
	$datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'},
	$numinrow,$$rowtotal,\%usertypeshash);
	$$rowtotal ++;
}	}
} else {	} else {
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
cancreate_email => 'E-mail address as username',	cancreate_email => 'Non-institutional username (e-mail verification)',
);	);
my @toggles = sort(keys(%choices));	my @toggles = sort(keys(%choices));
my %defaultchecked = (	my %defaultchecked = (
Line 5561 sub print_selfcreation {	Line 5879 sub print_selfcreation {
my $onclick = "toggleDisplay(this.form,'emailoptions');";	my $onclick = "toggleDisplay(this.form,'emailoptions');";
my $additional = '<div id="emailoptions" style="display: '.$display.'">';	my $additional = '<div id="emailoptions" style="display: '.$display.'">';
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
my $usertypes = {};	my $order;
my $order = [];	if (ref($domdefaults{'inststatusguest'}) eq 'ARRAY') {
if ((ref($domdefaults{'inststatustypes'}) eq 'HASH') && (ref($domdefaults{'inststatusguest'}) eq 'ARRAY')) {
$usertypes = $domdefaults{'inststatustypes'};
$order = $domdefaults{'inststatusguest'};	$order = $domdefaults{'inststatusguest'};
}	}
	my (@ordered,%usertypeshash);
if (ref($order) eq 'ARRAY') {	if (ref($order) eq 'ARRAY') {
push(@{$order},'default');	@ordered = @{$order};
if (@{$order} > 1) {	}
$usertypes->{'default'} = &mt('Other users');	if (@ordered) {
$additional .= '<table><tr>';	unless (grep(/^default$/,@ordered)) {
foreach my $status (@{$order}) {	push(@ordered,'default');
$additional .= '<th>'.$usertypes->{$status}.'</th>';	}
}	if (ref($usertypes) eq 'HASH') {
$additional .= '</tr><tr>';	%usertypeshash = %{$usertypes};
foreach my $status (@{$order}) {
$additional .= '<td>'.&email_as_username($rowtotal,$processing,$status).'</td>';
}
$additional .= '</tr></table>';
} else {
$usertypes->{'default'} = &mt('All users');
$additional .= &email_as_username($rowtotal,$processing);
}	}
	$usertypeshash{'default'} = $othertitle;
	$additional .= '<table><tr>';
	foreach my $status (@ordered) {
	$additional .= '<th align="center">'.$usertypeshash{$status}.'</th>';
	}
	$additional .= '</tr><tr>';
	foreach my $status (@ordered) {
	$additional .= '<td align="left" valign="top">'.&validate_by_email($rowtotal,$processing,$status).'</td>';
	}
	$additional .= '</tr></table><br />'.
	'<table><tr>';
	foreach my $status (@ordered) {
	$additional .= '<th align="center">'.$usertypeshash{$status}.'</th>';
	}
	$additional .= '</tr><tr>';
	foreach my $status (@ordered) {
	$additional .= '<td align="left" valign="top">'.&email_as_username($rowtotal,$emailverified,$emaildomain,$status).'</td>';
	}
	$additional .= '</tr></table>';

	} else {
	$usertypeshash{'default'} = $othertitle;
	$additional .= &mt('Approval:').' '.&validate_by_email($rowtotal,$processing).'<br />'.
	&mt('Username:').' '.&email_as_username($rowtotal,$emailverified,$emaildomain);
}	}
$additional .= '</div>'."\n";	$additional .= '</div>'."\n";

Line 5594 sub print_selfcreation {	Line 5928 sub print_selfcreation {
$$rowtotal ++;	$$rowtotal ++;
my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();	my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
$numinrow = 1;	$numinrow = 1;
if (ref($order) eq 'ARRAY') {	foreach my $status (@ordered) {
foreach my $status (@{$order}) {	$datatable .= &modifiable_userdata_row('cancreate','emailusername_'.$status,$settings,
$datatable .= &modifiable_userdata_row('cancreate','emailusername_'.$status,$settings,	$numinrow,$$rowtotal,\%usertypeshash,$infofields,$infotitles);
$numinrow,$$rowtotal,$usertypes,$infofields,$infotitles);	$$rowtotal ++;
$$rowtotal ++;
}
}	}
my ($emailrules,$emailruleorder) =	my ($emailrules,$emailruleorder) =
&Apache::lonnet::inst_userrules($dom,'email');	&Apache::lonnet::inst_userrules($dom,'email');
Line 5615 sub print_selfcreation {	Line 5947 sub print_selfcreation {
return $datatable;	return $datatable;
}	}

sub email_as_username {	sub validate_by_email {
my ($rowtotal,$processing,$type) = @_;	my ($rowtotal,$processing,$type) = @_;
my %choices =	my %choices =
&Apache::lonlocal::texthash (	&Apache::lonlocal::texthash (
automatic => 'Automatic approval',	automatic => 'Automatic approval',
approval => 'Queued for approval',	approval => 'Queued for approval',
	notinuse => 'Unavailable',
);	);
my $output;	my $output;
foreach my $option ('automatic','approval') {	my @options = ('automatic','approval');
	unless ($type eq '') {
	push(@options,'notinuse');
	}
	foreach my $option (@options) {
my $checked;	my $checked;
if (ref($processing) eq 'HASH') {	if (ref($processing) eq 'HASH') {
if ($type eq '') {	if ($type eq '') {
Line 5668 sub email_as_username {	Line 6005 sub email_as_username {
return $output;	return $output;
}	}

	sub email_as_username {
	my ($rowtotal,$emailverified,$emaildomain,$type) = @_;
	my %choices =
	&Apache::lonlocal::texthash (
	email => 'Username is e-mail',
	other => 'Username is chosen',
	);
	my $name = 'cancreate_emailverified';
	my $condition = 'cancreate_emaildomain';
	if (($type ne '') && ($type ne 'default')) {
	$name .= '_'.$type;
	$condition .= '_'.$type;
	}
	my $display = 'none';
	my $onclick = "toggleDisplay(this.form,'$name');";

	my $output;
	foreach my $option ('email','other') {
	my ($checked,$domain);
	if (ref($emailverified) eq 'HASH') {
	if ($type eq '') {
	if (!exists($emailverified->{'default'})) {
	if ($option eq 'email') {
	$checked = ' checked="checked"';
	}
	} else {
	if ($emailverified->{'default'} eq $option) {
	$checked = ' checked="checked"';
	}
	}
	} else {
	if (!exists($emailverified->{$type})) {
	if ($option eq 'email') {
	$checked = ' checked="checked"';
	}
	} else {
	if ($emailverified->{$type} eq $option) {
	$checked = ' checked="checked"';
	if ($option eq 'other') {
	$display = 'inline';
	}
	}
	}
	}
	} elsif ($option eq 'email') {
	$checked = ' checked="checked"';
	}
	$output .= '<span class="LC_nobreak"><label>'.
	'<input type="radio" name="'.$name.'"'.
	$checked.' value="'.$option.'" onclick="'.$onclick.'" />'.
	$choices{$option}.'</label></span>';
	if ($type eq '') {
	$output .= ' ';
	} else {
	$output .= '<br />';
	}
	}
	my $domain;
	if (ref($emaildomain) eq 'HASH') {
	if ($type eq '') {
	if (exists($emaildomain->{'default'})) {
	$domain = $emaildomain->{'default'};
	}
	} else {
	if (exists($emaildomain->{$type})) {
	$domain = $emaildomain->{$type};
	}
	}
	}
	$output .= '<div id="'.$name.'" style="display: '.$display.';">'.
	'<span class="LC_domprefs_email">'.&mt('E-mail domain').'</span> '.
	'<input type="text" name="'.$condition.'" value="'.$domain.'" size="10" />'.
	'</div>';
	$$rowtotal ++;
	return $output;
	}

sub captcha_choice {	sub captcha_choice {
my ($context,$settings,$itemcount) = @_;	my ($context,$settings,$itemcount) = @_;
my ($keyentry,$currpub,$currpriv,%checked,$rowname,$pubtext,$privtext,	my ($keyentry,$currpub,$currpriv,%checked,$rowname,$pubtext,$privtext,
$vertext,$currver);	$vertext,$currver);
my %lt = &captcha_phrases();	my %lt = &captcha_phrases();
$keyentry = 'hidden';	$keyentry = 'hidden';
if ($context eq 'cancreate') {	if ($context eq 'cancreate') {
Line 6003 sub print_defaults {	Line 6417 sub print_defaults {
$datatable .= '</table>';	$datatable .= '</table>';
} else {	} else {
$datatable .= '<input type="text" name="'.$item.'" value="'.	$datatable .= '<input type="text" name="'.$item.'" value="'.
$defaults{$item}.'" size="3" onblur="javascript:warnIntAuth(this);" />';	$defaults{$item}.'" size="3" onblur="javascript:warnIntAuth(this);" />';
}	}
$datatable .= '</td></tr>';	$datatable .= '</td></tr>';
$rownum ++;	$rownum ++;
Line 6349 sub print_coursecategories {	Line 6763 sub print_coursecategories {
my $toggle_catscomm_dom = ' checked="checked" ';	my $toggle_catscomm_dom = ' checked="checked" ';
my $can_catcomm_comm = ' ';	my $can_catcomm_comm = ' ';
my $can_catcomm_dom = ' checked="checked" ';	my $can_catcomm_dom = ' checked="checked" ';
	my $toggle_catsplace_place = ' ';
	my $toggle_catsplace_dom = ' checked="checked" ';
	my $can_catplace_place = ' ';
	my $can_catplace_dom = ' checked="checked" ';

if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if ($settings->{'togglecats'} eq 'crs') {	if ($settings->{'togglecats'} eq 'crs') {
Line 6367 sub print_coursecategories {	Line 6785 sub print_coursecategories {
$can_catcomm_comm = $can_catcomm_dom;	$can_catcomm_comm = $can_catcomm_dom;
$can_catcomm_dom = ' ';	$can_catcomm_dom = ' ';
}	}
	if ($settings->{'togglecatsplace'} eq 'place') {
	$toggle_catsplace_place = $toggle_catsplace_dom;
	$toggle_catsplace_dom = ' ';
	}
	if ($settings->{'categorizeplace'} eq 'place') {
	$can_catplace_place = $can_catplace_dom;
	$can_catplace_dom = ' ';
	}
}	}
my %title = &Apache::lonlocal::texthash (	my %title = &Apache::lonlocal::texthash (
togglecats => 'Show/Hide a course in catalog',	togglecats => 'Show/Hide a course in catalog',
togglecatscomm => 'Show/Hide a community in catalog',	togglecatscomm => 'Show/Hide a community in catalog',
categorize => 'Assign a category to a course',	togglecatsplace => 'Show/Hide a placement test in catalog',
categorizecomm => 'Assign a category to a community',	categorize => 'Assign a category to a course',
	categorizecomm => 'Assign a category to a community',
	categorizeplace => 'Assign a category to a placement test',
);	);
my %level = &Apache::lonlocal::texthash (	my %level = &Apache::lonlocal::texthash (
dom => 'Set in Domain',	dom => 'Set in Domain',
crs => 'Set in Course',	crs => 'Set in Course',
comm => 'Set in Community',	comm => 'Set in Community',
	place => 'Set in Placement Test',
);	);
$datatable = '<tr class="LC_odd_row">'.	$datatable = '<tr class="LC_odd_row">'.
'<td>'.$title{'togglecats'}.'</td>'.	'<td>'.$title{'togglecats'}.'</td>'.
Line 6407 sub print_coursecategories {	Line 6836 sub print_coursecategories {
$can_catcomm_dom.' value="dom" />'.$level{'dom'}.'</label> '.	$can_catcomm_dom.' value="dom" />'.$level{'dom'}.'</label> '.
'<label><input type="radio" name="categorizecomm"'.	'<label><input type="radio" name="categorizecomm"'.
$can_catcomm_comm.'value="comm" />'.$level{'comm'}.'</label></span></td>'.	$can_catcomm_comm.'value="comm" />'.$level{'comm'}.'</label></span></td>'.
	'</tr><tr>'.
	'<td>'.$title{'togglecatsplace'}.'</td>'.
	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
	'<input type="radio" name="togglecatsplace"'.
	$toggle_catsplace_dom.' value="dom" />'.$level{'dom'}.'</label> '.
	'<label><input type="radio" name="togglecatscomm"'.
	$toggle_catsplace_place.' value="comm" />'.$level{'place'}.'</label></span></td>'.
	'</tr><tr>'.
	'<td>'.$title{'categorizeplace'}.'</td>'.
	'<td class="LC_right_item"><span class="LC_nobreak">'.
	'<label><input type="radio" name="categorizeplace"'.
	$can_catplace_dom.' value="dom" />'.$level{'dom'}.'</label> '.
	'<label><input type="radio" name="categorizeplace"'.
	$can_catplace_place.'value="place" />'.$level{'place'}.'</label></span></td>'.
'</tr>';	'</tr>';
$$rowtotal += 4;	$$rowtotal += 6;
} else {	} else {
my $css_class;	my $css_class;
my $itemcount = 1;	my $itemcount = 1;
Line 6433 sub print_coursecategories {	Line 6876 sub print_coursecategories {
my %default_names = (	my %default_names = (
instcode => &mt('Official courses'),	instcode => &mt('Official courses'),
communities => &mt('Communities'),	communities => &mt('Communities'),
	placement => &mt('Placement Tests'),
);	);

if ((!grep(/^instcode$/,@{$cats[0]})) \|\|	if ((!grep(/^instcode$/,@{$cats[0]})) \|\|
($cathash->{'instcode::0'} eq '') \|\|	($cathash->{'instcode::0'} eq '') \|\|
(!grep(/^communities$/,@{$cats[0]})) \|\|	(!grep(/^communities$/,@{$cats[0]})) \|\|
($cathash->{'communities::0'} eq '')) {	($cathash->{'communities::0'} eq '') \|\|
	(!grep(/^placement$/,@{$cats[0]})) \|\|
	($cathash->{'placement::0'} eq '')) {
$maxnum ++;	$maxnum ++;
}	}
my $lastidx;	my $lastidx;
Line 6459 sub print_coursecategories {	Line 6905 sub print_coursecategories {
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
$datatable .= '</select></span></td><td>';	$datatable .= '</select></span></td><td>';
if ($parent eq 'instcode' \|\| $parent eq 'communities') {	if ($parent eq 'instcode' \|\| $parent eq 'communities' \|\| $parent eq 'placement') {
$datatable .= '<span class="LC_nobreak">'	$datatable .= '<span class="LC_nobreak">'
.$default_names{$parent}.'</span>';	.$default_names{$parent}.'</span>';
if ($parent eq 'instcode') {	if ($parent eq 'instcode') {
Line 6482 sub print_coursecategories {	Line 6928 sub print_coursecategories {
$datatable .= '<label><input type="radio" name="'	$datatable .= '<label><input type="radio" name="'
.$parent.'" value="0" />'	.$parent.'" value="0" />'
.&mt('Do not display').'</label></span>';	.&mt('Do not display').'</label></span>';
if ($parent eq 'communities') {	if (($parent eq 'communities') \|\| ($parent eq 'placement')) {
$datatable .= '</td></tr></table>';	$datatable .= '</td></tr></table>';
}	}
$datatable .= '</td>';	$datatable .= '</td>';
Line 6514 sub print_coursecategories {	Line 6960 sub print_coursecategories {
.'<input type="text" size="20" name="addcategory_name" value="" /></td>'	.'<input type="text" size="20" name="addcategory_name" value="" /></td>'
.'</tr>'."\n";	.'</tr>'."\n";
$itemcount ++;	$itemcount ++;
foreach my $default ('instcode','communities') {	foreach my $default ('instcode','communities','placement') {
if ((!grep(/^\Q$default\E$/,@{$cats[0]})) \|\| ($cathash->{$default.'::0'} eq '')) {	if ((!grep(/^\Q$default\E$/,@{$cats[0]})) \|\| ($cathash->{$default.'::0'} eq '')) {
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
my $chgstr = ' onchange="javascript:reorderCats(this.form,'."'','$default"."_pos','$lastidx'".');"';	my $chgstr = ' onchange="javascript:reorderCats(this.form,'."'','$default"."_pos','$lastidx'".');"';
Line 6603 sub print_serverstatuses {	Line 7049 sub print_serverstatuses {

sub serverstatus_pages {	sub serverstatus_pages {
return ('userstatus','lonstatus','loncron','server-status','codeversions',	return ('userstatus','lonstatus','loncron','server-status','codeversions',
'checksums','clusterstatus','metadata_keywords','metadata_harvest',	'checksums','clusterstatus','certstatus','metadata_keywords',
'takeoffline','takeonline','showenv','toggledebug','ping','domconf',	'metadata_harvest','takeoffline','takeonline','showenv','toggledebug',
'uniquecodes','diskusage','coursecatalog');	'ping','domconf','uniquecodes','diskusage','coursecatalog');
}	}

sub defaults_javascript {	sub defaults_javascript {
Line 6727 sub coursecategories_javascript {	Line 7173 sub coursecategories_javascript {
}	}
my $instcode_reserved = &mt('The name: [_1] is a reserved category.','"instcode"');	my $instcode_reserved = &mt('The name: [_1] is a reserved category.','"instcode"');
my $communities_reserved = &mt('The name: [_1] is a reserved category.','"communities"');	my $communities_reserved = &mt('The name: [_1] is a reserved category.','"communities"');
	my $placement_reserved = &mt('The name: [_1] is a reserved category.','"placement"');
my $choose_again = "\n".&mt('Please use a different name for the new top level category.');	my $choose_again = "\n".&mt('Please use a different name for the new top level category.');
&js_escape(\$instcode_reserved);	&js_escape(\$instcode_reserved);
&js_escape(\$communities_reserved);	&js_escape(\$communities_reserved);
	&js_escape(\$placement_reserved);
&js_escape(\$choose_again);	&js_escape(\$choose_again);
$output = <<"ENDSCRIPT";	$output = <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
Line 6799 function categoryCheck(form) {	Line 7247 function categoryCheck(form) {
alert('$communities_reserved\\n$choose_again');	alert('$communities_reserved\\n$choose_again');
return false;	return false;
}	}
	if (form.elements['addcategory_name'].value == 'placement') {
	alert('$placement_reserved\\n$choose_again');
	return false;
	}
return true;	return true;
}	}

Line 6815 sub initialize_categories {	Line 7267 sub initialize_categories {
my %default_names = (	my %default_names = (
instcode => 'Official courses (with institutional codes)',	instcode => 'Official courses (with institutional codes)',
communities => 'Communities',	communities => 'Communities',
	placement => 'Placement Tests',
);	);
my $select0 = ' selected="selected"';	my $select0 = ' selected="selected"';
my $select1 = '';	my $select1 = '';
foreach my $default ('instcode','communities') {	foreach my $default ('instcode','communities','placement') {
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
$chgstr = ' onchange="javascript:reorderCats(this.form,'."'',$default"."_pos','0'".');"';	$chgstr = ' onchange="javascript:reorderCats(this.form,'."'',$default"."_pos','0'".');"';
if ($default eq 'communities') {	if (($default eq 'communities') \|\| ($default eq 'placement')) {
$select1 = $select0;	$select1 = $select0;
$select0 = '';	$select0 = '';
}	}
Line 8130 sub check_authorstatus {	Line 8583 sub check_authorstatus {

sub publishlogo {	sub publishlogo {
my ($r,$action,$formname,$dom,$confname,$subdir,$thumbwidth,$thumbheight,$savefileas) = @_;	my ($r,$action,$formname,$dom,$confname,$subdir,$thumbwidth,$thumbheight,$savefileas) = @_;
my ($output,$fname,$logourl);	my ($output,$fname,$logourl,$madethumb);
if ($action eq 'upload') {	if ($action eq 'upload') {
$fname=$env{'form.'.$formname.'.filename'};	$fname=$env{'form.'.$formname.'.filename'};
chop($env{'form.'.$formname});	chop($env{'form.'.$formname});
Line 8258 $env{'user.name'}.':'.$env{'user.domain'	Line 8711 $env{'user.name'}.':'.$env{'user.domain'
$r->set_handlers('PerlCleanupHandler' => [\&notifysubscribed,@{$handlers}]);	$r->set_handlers('PerlCleanupHandler' => [\&notifysubscribed,@{$handlers}]);
$registered_cleanup=1;	$registered_cleanup=1;
}	}
	$madethumb = 1;
} else {	} else {
print $logfile "\nUnable to write ".$copyfile.	print $logfile "\nUnable to write ".$copyfile.
':'.$!."\n";	':'.$!."\n";
Line 8270 $env{'user.name'}.':'.$env{'user.domain'	Line 8724 $env{'user.name'}.':'.$env{'user.domain'
$output = $versionresult;	$output = $versionresult;
}	}
}	}
return ($output,$logourl);	return ($output,$logourl,$madethumb);
}	}

sub logo_versioning {	sub logo_versioning {
Line 8424 sub modify_quotas {	Line 8878 sub modify_quotas {
$context = $action;	$context = $action;
}	}
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
@usertools = ('official','unofficial','community','textbook');	@usertools = ('official','unofficial','community','textbook','placement');
@options =('norequest','approval','validate','autolimit');	@options =('norequest','approval','validate','autolimit');
%validations = &Apache::lonnet::auto_courserequest_checks($dom);	%validations = &Apache::lonnet::auto_courserequest_checks($dom);
%titles = &courserequest_titles();	%titles = &courserequest_titles();
Line 8473 sub modify_quotas {	Line 8927 sub modify_quotas {
my @approvalnotify = &Apache::loncommon::get_env_multiple('form.'.$context.'notifyapproval');	my @approvalnotify = &Apache::loncommon::get_env_multiple('form.'.$context.'notifyapproval');
@approvalnotify = sort(@approvalnotify);	@approvalnotify = sort(@approvalnotify);
$confhash{'notify'}{'approval'} = join(',',@approvalnotify);	$confhash{'notify'}{'approval'} = join(',',@approvalnotify);
my @crstypes = ('official','unofficial','community','textbook');	my @crstypes = ('official','unofficial','community','textbook','placement');
my @hasuniquecode = &Apache::loncommon::get_env_multiple('form.uniquecode');	my @hasuniquecode = &Apache::loncommon::get_env_multiple('form.uniquecode');
foreach my $type (@hasuniquecode) {	foreach my $type (@hasuniquecode) {
if (grep(/^\Q$type\E$/,@crstypes)) {	if (grep(/^\Q$type\E$/,@crstypes)) {
Line 9152 sub modify_ltitools {	Line 9606 sub modify_ltitools {
map { $posslti{$_} = 1; } @ltiroles;	map { $posslti{$_} = 1; } @ltiroles;
my @allfields = ('fullname','firstname','lastname','email','user','roles');	my @allfields = ('fullname','firstname','lastname','email','user','roles');
map { $possfield{$_} = 1; } @allfields;	map { $possfield{$_} = 1; } @allfields;
my %lt = &ltitools_names();	my %lt = &ltitools_names();
if ($env{'form.ltitools_add'}) {	if ($env{'form.ltitools_add'}) {
my $title = $env{'form.ltitools_add_title'};	my $title = $env{'form.ltitools_add_title'};
$title =~ s/(`)/'/g;	$title =~ s/(`)/'/g;
Line 9189 sub modify_ltitools {	Line 9643 sub modify_ltitools {
}	}
} else {	} else {
if ($env{'form.ltitools_add_'.$item} ne '') {	if ($env{'form.ltitools_add_'.$item} ne '') {
$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item};	$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item};
}	}
}	}
}	}
Line 9207 sub modify_ltitools {	Line 9661 sub modify_ltitools {
}	}
if ($env{'form.ltitools_add_image.filename'} ne '') {	if ($env{'form.ltitools_add_image.filename'} ne '') {
my ($imageurl,$error) =	my ($imageurl,$error) =
&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$newid,	&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$dom,
$configuserok,$switchserver,$author_ok);	$configuserok,$switchserver,$author_ok);
if ($imageurl) {	if ($imageurl) {
$confhash{$newid}{'image'} = $imageurl;	$confhash{$newid}{'image'} = $imageurl;
Line 9226 sub modify_ltitools {	Line 9680 sub modify_ltitools {
if (($choice ne '') && ($posslti{$choice})) {	if (($choice ne '') && ($posslti{$choice})) {
$confhash{$newid}{'roles'}{$role} = $choice;	$confhash{$newid}{'roles'}{$role} = $choice;
if ($role eq 'cc') {	if ($role eq 'cc') {
$confhash{$newid}{'roles'}{'co'} = $choice;	$confhash{$newid}{'roles'}{'co'} = $choice;
}	}
}	}
}	}
Line 9247 sub modify_ltitools {	Line 9701 sub modify_ltitools {
$confhash{$newid}{'custom'}{$name} = $value;	$confhash{$newid}{'custom'}{$name} = $value;
}	}
} else {	} else {
my $error = &mt('Failed to acquire unique ID for new external tool');	my $error = &mt('Failed to acquire unique ID for new external tool');
$errors .= '<li><span class="LC_error">'.$error.'</span></li>';	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
}	}
}	}
Line 9261 sub modify_ltitools {	Line 9715 sub modify_ltitools {
my @newcustom = &Apache::loncommon::get_env_multiple('form.ltitools_customadd');	my @newcustom = &Apache::loncommon::get_env_multiple('form.ltitools_customadd');
if (@newcustom) {	if (@newcustom) {
map { $customadds{$_} = 1; } @newcustom;	map { $customadds{$_} = 1; } @newcustom;
}	}
my %imgdeletions;	my %imgdeletions;
my @todeleteimages = &Apache::loncommon::get_env_multiple('form.ltitools_image_del');	my @todeleteimages = &Apache::loncommon::get_env_multiple('form.ltitools_image_del');
if (@todeleteimages) {	if (@todeleteimages) {
Line 9437 sub modify_ltitools {	Line 9891 sub modify_ltitools {
}	}
}	}
my %customdels;	my %customdels;
my @customdeletions = &Apache::loncommon::get_env_multiple('form.ltitools_customdel_'.$i);	my @customdeletions = &Apache::loncommon::get_env_multiple('form.ltitools_customdel_'.$i);
if (@customdeletions) {	if (@customdeletions) {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
}	}
Line 9446 sub modify_ltitools {	Line 9900 sub modify_ltitools {
foreach my $key (keys(%{$domconfig{$action}{$itemid}{'custom'}})) {	foreach my $key (keys(%{$domconfig{$action}{$itemid}{'custom'}})) {
unless ($customdels{$key}) {	unless ($customdels{$key}) {
if ($env{'form.ltitools_customval_'.$key.'_'.$i} ne '') {	if ($env{'form.ltitools_customval_'.$key.'_'.$i} ne '') {
$confhash{$itemid}{'custom'}{$key} = $env{'form.ltitools_customval_'.$key.'_'.$i};	$confhash{$itemid}{'custom'}{$key} = $env{'form.ltitools_customval_'.$key.'_'.$i};
}	}
if ($domconfig{$action}{$itemid}{'custom'}{$key} ne $env{'form.ltitools_customval_'.$key.'_'.$i}) {	if ($domconfig{$action}{$itemid}{'custom'}{$key} ne $env{'form.ltitools_customval_'.$key.'_'.$i}) {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
Line 9521 sub modify_ltitools {	Line 9975 sub modify_ltitools {
$bynum{$position} = $itemid;	$bynum{$position} = $itemid;
}	}
foreach my $pos (sort { $a <=> $b } keys(%bynum)) {	foreach my $pos (sort { $a <=> $b } keys(%bynum)) {
my $itemid = $bynum{$pos};	my $itemid = $bynum{$pos};
if (ref($confhash{$itemid}) ne 'HASH') {	if (ref($confhash{$itemid}) ne 'HASH') {
$resulttext .= '<li>'.&mt('Deleted: [_1]',$changes{$itemid}).'</li>';	$resulttext .= '<li>'.&mt('Deleted: [_1]',$changes{$itemid}).'</li>';
} else {	} else {
Line 9549 sub modify_ltitools {	Line 10003 sub modify_ltitools {
}	}
$resulttext .= '<li>'.&mt('Configurable in course:');	$resulttext .= '<li>'.&mt('Configurable in course:');
my @possconfig = ('label','title','target','linktext','explanation');	my @possconfig = ('label','title','target','linktext','explanation');
my $numconfig = 0;	my $numconfig = 0;
if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') {	if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') {
foreach my $item (@possconfig) {	foreach my $item (@possconfig) {
if ($confhash{$itemid}{'crsconf'}{$item}) {	if ($confhash{$itemid}{'crsconf'}{$item}) {
$numconfig ++;	$numconfig ++;
Line 9577 sub modify_ltitools {	Line 10031 sub modify_ltitools {
$displaylist = &mt('Display target').': '.	$displaylist = &mt('Display target').': '.
$confhash{$itemid}{'display'}{'target'}.',';	$confhash{$itemid}{'display'}{'target'}.',';
}	}
foreach my $size ('width','height') {	foreach my $size ('width','height') {
if ($confhash{$itemid}{'display'}{$size}) {	if ($confhash{$itemid}{'display'}{$size}) {
$displaylist .= (' 'x2).$lt{$size}.': '.	$displaylist .= (' 'x2).$lt{$size}.': '.
$confhash{$itemid}{'display'}{$size}.',';	$confhash{$itemid}{'display'}{$size}.',';
Line 9614 sub modify_ltitools {	Line 10068 sub modify_ltitools {
}	}
}	}
if ($rolemaps) {	if ($rolemaps) {
$rolemaps =~ s/,$//;	$rolemaps =~ s/,$//;
$resulttext .= '<li>'.&mt('Role mapping:').$rolemaps.'</li>';	$resulttext .= '<li>'.&mt('Role mapping:').$rolemaps.'</li>';
}	}
}	}
Line 9623 sub modify_ltitools {	Line 10077 sub modify_ltitools {
if (keys(%{$confhash{$itemid}{'custom'}})) {	if (keys(%{$confhash{$itemid}{'custom'}})) {
foreach my $key (sort(keys(%{$confhash{$itemid}{'custom'}}))) {	foreach my $key (sort(keys(%{$confhash{$itemid}{'custom'}}))) {
$customlist .= $key.':'.$confhash{$itemid}{'custom'}{$key}.(' 'x2);	$customlist .= $key.':'.$confhash{$itemid}{'custom'}{$key}.(' 'x2);
}	}
}	}
if ($customlist) {	if ($customlist) {
$resulttext .= '<li>'.&mt('Custom items').':'.$customlist.'</li>';	$resulttext .= '<li>'.&mt('Custom items').':'.$customlist.'</li>';
}	}
}	}
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
}	}
}	}
Line 9689 sub get_ltitools_id {	Line 10143 sub get_ltitools_id {
my $tries = 0;	my $tries = 0;
my $gotlock = &Apache::lonnet::newput_dom('ltitools',$lockhash,$cdom);	my $gotlock = &Apache::lonnet::newput_dom('ltitools',$lockhash,$cdom);
my ($id,$error);	my ($id,$error);

while (($gotlock ne 'ok') && ($tries<10)) {	while (($gotlock ne 'ok') && ($tries<10)) {
$tries ++;	$tries ++;
sleep (0.1);	sleep (0.1);
Line 10512 sub modify_contacts {	Line 10966 sub modify_contacts {
$resulttext .= $bcctext.': <span class="LC_cusr_emph">'.$bcc{$type}.'</span>';	$resulttext .= $bcctext.': <span class="LC_cusr_emph">'.$bcc{$type}.'</span>';
} elsif (!@text) {	} elsif (!@text) {
$resulttext .= &mt('No one');	$resulttext .= &mt('No one');
}	}
if ($includestr{$type} ne '') {	if ($includestr{$type} ne '') {
if ($includeloc{$type} eq 'b') {	if ($includeloc{$type} eq 'b') {
$resulttext .= '<br />'.&mt('Text automatically added to e-mail body:').' '.$includestr{$type};	$resulttext .= '<br />'.&mt('Text automatically added to e-mail body:').' '.$includestr{$type};
Line 10604 sub modify_usercreation {	Line 11058 sub modify_usercreation {
if ($key eq 'cancreate') {	if ($key eq 'cancreate') {
if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {	if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {
foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {	foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {
if (($item eq 'selfcreate') \|\| ($item eq 'statustocreate') \|\|	if (($item eq 'requestcrs') \|\| ($item eq 'course') \|\| ($item eq 'author')) {
($item eq 'captcha') \|\| ($item eq 'recaptchakeys') \|\|
($item eq 'recaptchaversion')) {
$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
} else {
$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
	} else {
	$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
}	}
}	}
}	}
Line 10814 sub modify_usercreation {	Line 11266 sub modify_usercreation {
sub modify_selfcreation {	sub modify_selfcreation {
my ($dom,%domconfig) = @_;	my ($dom,%domconfig) = @_;
my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate);	my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate);
my (%save_usercreate,%save_usermodify);	my (%save_usercreate,%save_usermodify,@types,%usertypes);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my ($othertitle,$usertypesref,$typesref) = &Apache::loncommon::sorted_inst_types($dom);
if (ref($types) eq 'ARRAY') {	if (ref($typesref) eq 'ARRAY') {
$usertypes->{'default'} = $othertitle;	@types = @{$typesref};
push(@{$types},'default');
}	}
	unless (grep(/^default$/,@types)) {
	push(@types,'default');
	}
	if (ref($usertypesref) eq 'HASH') {
	%usertypes = %{$usertypesref};
	}
	$usertypes{'default'} = $othertitle;
#	#
# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}.	# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}.
#	#
Line 10829 sub modify_selfcreation {	Line 11287 sub modify_selfcreation {
if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {	if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {
foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {	foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {
if (($item eq 'selfcreate') \|\| ($item eq 'statustocreate') \|\|	if (($item eq 'selfcreate') \|\| ($item eq 'statustocreate') \|\|
($item eq 'captcha') \|\| ($item eq 'recaptchakeys') \|\|	($item eq 'captcha') \|\| ($item eq 'recaptchakeys') \|\|
($item eq 'recaptchaversion') \|\|	($item eq 'recaptchaversion') \|\| ($item eq 'notify') \|\|
($item eq 'emailusername') \|\| ($item eq 'notify') \|\|	($item eq 'emailusername') \|\| ($item eq 'shibenv') \|\|
($item eq 'selfcreateprocessing') \|\| ($item eq 'shibenv')) {	($item eq 'selfcreateprocessing') \|\| ($item eq 'emailverified') \|\|
	($item eq 'emaildomain')) {
$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
} else {	} else {
$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
Line 10865 sub modify_selfcreation {	Line 11324 sub modify_selfcreation {
@{$cancreate{'statustocreate'}} = ();	@{$cancreate{'statustocreate'}} = ();
%{$cancreate{'selfcreateprocessing'}} = ();	%{$cancreate{'selfcreateprocessing'}} = ();
%{$cancreate{'shibenv'}} = ();	%{$cancreate{'shibenv'}} = ();
	%{$cancreate{'emailverified'}} = ();
	%{$cancreate{'emaildomain'}} = ();
my %selfcreatetypes = (	my %selfcreatetypes = (
sso => 'users authenticated by institutional single sign on',	sso => 'users authenticated by institutional single sign on',
login => 'users authenticated by institutional log-in',	login => 'users authenticated by institutional log-in',
email => 'users who provide a valid e-mail address for use as username',	email => 'users verified by e-mail',
);	);
#	#
# Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts	# Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts
Line 10887 sub modify_selfcreation {	Line 11348 sub modify_selfcreation {
if ($item eq 'email') {	if ($item eq 'email') {
if ($env{'form.cancreate_email'}) {	if ($env{'form.cancreate_email'}) {
push(@{$cancreate{'selfcreate'}},'email');	push(@{$cancreate{'selfcreate'}},'email');
push(@contexts,'selfcreateprocessing');	push(@contexts,('selfcreateprocessing','emailverified','emaildomain'));
foreach my $type (@statuses) {	foreach my $type (@statuses) {
if ($type eq 'default') {	if ($type eq 'default') {
$cancreate{'selfcreateprocessing'}{$type} = $env{'form.cancreate_emailprocess'};	$cancreate{'selfcreateprocessing'}{$type} = $env{'form.cancreate_emailprocess'};
	unless ($cancreate{'selfcreateprocessing'}{$type} eq 'notinuse') {
	$cancreate{'emailverified'}{$type} = $env{'form.cancreate_emailverified'};
	if ($cancreate{'emailverified'}{$type} eq 'other') {
	$cancreate{'emaildomain'}{$type} =$env{'form.cancreate_emaildomain'};
	}
	}
} else {	} else {
$cancreate{'selfcreateprocessing'}{$type} = $env{'form.cancreate_emailprocess_'.$type};	$cancreate{'selfcreateprocessing'}{$type} = $env{'form.cancreate_emailprocess_'.$type};
	$cancreate{'emailverified'}{$type} = $env{'form.cancreate_emailverified_'.$type};
	if ($cancreate{'emailverified'}{$type} eq 'other') {
	$cancreate{'emaildomain'}{$type} =$env{'form.cancreate_emaildomain_'.$type};
	}
}	}
}	}
}	}
Line 10911 sub modify_selfcreation {	Line 11382 sub modify_selfcreation {

if ($env{'form.cancreate_email'}) {	if ($env{'form.cancreate_email'}) {
push(@contexts,'emailusername');	push(@contexts,'emailusername');
if (ref($types) eq 'ARRAY') {	if (@types) {
foreach my $type (@{$types}) {	foreach my $type (@types) {
if (ref($infofields) eq 'ARRAY') {	if (ref($infofields) eq 'ARRAY') {
foreach my $field (@{$infofields}) {	foreach my $field (@{$infofields}) {
if ($env{'form.canmodify_emailusername_'.$type.'_'.$field} =~ /^(required\|optional)$/) {	if ($env{'form.canmodify_emailusername_'.$type.'_'.$field} =~ /^(required\|optional)$/) {
Line 10924 sub modify_selfcreation {	Line 11395 sub modify_selfcreation {
}	}
#	#
# Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of	# Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of
# queued requests for self-creation of account using e-mail address as username	# queued requests for self-creation of account verified by e-mail.
#	#

my @approvalnotify = &Apache::loncommon::get_env_multiple('form.selfcreationnotifyapproval');	my @approvalnotify = &Apache::loncommon::get_env_multiple('form.selfcreationnotifyapproval');
Line 10945 sub modify_selfcreation {	Line 11416 sub modify_selfcreation {
}	}

#	#
# Retrieve rules (if any) governing types of e-mail address which may be used as a username	# Retrieve rules (if any) governing types of e-mail address which may be used to verify a username.
#	#
@email_rule = &Apache::loncommon::get_env_multiple('form.email_rule');	@email_rule = &Apache::loncommon::get_env_multiple('form.email_rule');
&process_captcha('cancreate',\%changes,\%savecaptcha,$curr_usercreation{'cancreate'});	&process_captcha('cancreate',\%changes,\%savecaptcha,$curr_usercreation{'cancreate'});
Line 10992 sub modify_selfcreation {	Line 11463 sub modify_selfcreation {
# which the user may supply, if institutional data is unavailable.	# which the user may supply, if institutional data is unavailable.
#	#
if (($env{'form.cancreate_login'}) \|\| ($env{'form.cancreate_sso'})) {	if (($env{'form.cancreate_login'}) \|\| ($env{'form.cancreate_sso'})) {
if (ref($types) eq 'ARRAY') {	if (@types) {
if (@{$types} > 1) {	if (@types > 1) {
@{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate');	@{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate');
push(@contexts,'statustocreate');	push(@contexts,'statustocreate');
} else {	} else {
undef($cancreate{'statustocreate'});	undef($cancreate{'statustocreate'});
}	}
foreach my $type (@{$types}) {	foreach my $type (@types) {
my @modifiable = &Apache::loncommon::get_env_multiple('form.canmodify_'.$type);	my @modifiable = &Apache::loncommon::get_env_multiple('form.canmodify_'.$type);
foreach my $field (@fields) {	foreach my $field (@fields) {
if (grep(/^\Q$field\E$/,@modifiable)) {	if (grep(/^\Q$field\E$/,@modifiable)) {
Line 11010 sub modify_selfcreation {	Line 11481 sub modify_selfcreation {
}	}
}	}
if (ref($curr_usermodify{'selfcreate'}) eq 'HASH') {	if (ref($curr_usermodify{'selfcreate'}) eq 'HASH') {
foreach my $type (@{$types}) {	foreach my $type (@types) {
if (ref($curr_usermodify{'selfcreate'}{$type}) eq 'HASH') {	if (ref($curr_usermodify{'selfcreate'}{$type}) eq 'HASH') {
foreach my $field (@fields) {	foreach my $field (@fields) {
if ($save_usermodify{'selfcreate'}{$type}{$field} ne	if ($save_usermodify{'selfcreate'}{$type}{$field} ne
Line 11022 sub modify_selfcreation {	Line 11493 sub modify_selfcreation {
}	}
}	}
} else {	} else {
foreach my $type (@{$types}) {	foreach my $type (@types) {
push(@{$changes{'selfcreate'}},$type);	push(@{$changes{'selfcreate'}},$type);
}	}
}	}
Line 11080 sub modify_selfcreation {	Line 11551 sub modify_selfcreation {
}	}
}	}
}	}
} elsif ($item eq 'selfcreateprocessing') {	} elsif (($item eq 'selfcreateprocessing') \|\| ($item eq 'emailverified') \|\| ($item eq 'emaildomain')) {
if ($cancreate{$item}{$curr} ne $curr_usercreation{'cancreate'}{$item}{$curr}) {	if ($cancreate{$item}{$curr} ne $curr_usercreation{'cancreate'}{$item}{$curr}) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {	if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);	push(@{$changes{'cancreate'}},$item);
Line 11168 sub modify_selfcreation {	Line 11639 sub modify_selfcreation {
if (ref($cancreate{'selfcreateprocessing'}) eq 'HASH') {	if (ref($cancreate{'selfcreateprocessing'}) eq 'HASH') {
$save_usercreate{'cancreate'}{'selfcreateprocessing'} = $cancreate{'selfcreateprocessing'};	$save_usercreate{'cancreate'}{'selfcreateprocessing'} = $cancreate{'selfcreateprocessing'};
}	}
	if (ref($cancreate{'emailverified'}) eq 'HASH') {
	$save_usercreate{'cancreate'}{'emailverified'} = $cancreate{'emailverified'};
	}
	if (ref($cancreate{'emaildomain'}) eq 'HASH') {
	$save_usercreate{'cancreate'}{'emaildomain'} = $cancreate{'emaildomain'};
	}
if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {	if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {
$save_usercreate{'cancreate'}{'statustocreate'} = $cancreate{'statustocreate'};	$save_usercreate{'cancreate'}{'statustocreate'} = $cancreate{'statustocreate'};
}	}
Line 11192 sub modify_selfcreation {	Line 11669 sub modify_selfcreation {
if (ref($changes{'cancreate'}) eq 'ARRAY') {	if (ref($changes{'cancreate'}) eq 'ARRAY') {
my %lt = &selfcreation_types();	my %lt = &selfcreation_types();
foreach my $type (@{$changes{'cancreate'}}) {	foreach my $type (@{$changes{'cancreate'}}) {
my $chgtext;	my $chgtext = '';
if ($type eq 'selfcreate') {	if ($type eq 'selfcreate') {
if (@{$cancreate{$type}} == 0) {	if (@{$cancreate{$type}} == 0) {
$chgtext .= &mt('Self creation of a new user account is not permitted.');	$chgtext .= &mt('Self creation of a new user account is not permitted.');
Line 11207 sub modify_selfcreation {	Line 11684 sub modify_selfcreation {
if (grep(/^(login\|sso)$/,@{$cancreate{$type}})) {	if (grep(/^(login\|sso)$/,@{$cancreate{$type}})) {
if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {	if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {
if (@{$cancreate{'statustocreate'}} == 0) {	if (@{$cancreate{'statustocreate'}} == 0) {
$chgtext .= '<br />'.	$chgtext .= '<span class="LC_warning">'.
'<span class="LC_warning">'.	&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts via log-in or single sign-on.").
&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").	'</span><br />';
'</span>';	}
	}
	}
	if (grep(/^email$/,@{$cancreate{$type}})) {
	if (@statuses > 1) {
	my $numtypes = 0;
	foreach my $type (@statuses) {
	unless ($cancreate{'selfcreateprocessing'}{$type} eq 'notinuse') {
	$numtypes ++;
	}
	}
	if (!$numtypes) {
	$chgtext .= '<span class="LC_warning">'.
	&mt("However, e-mail verification is currently set to 'unavailable' for all user types (including 'other'), so self-creation of accounts is not possible for non-institutional log-in.").
	'</span><br />';

}	}
}	}
}	}
Line 11218 sub modify_selfcreation {	Line 11710 sub modify_selfcreation {
}	}
} elsif ($type eq 'shibenv') {	} elsif ($type eq 'shibenv') {
if (keys(%{$cancreate{$type}}) == 0) {	if (keys(%{$cancreate{$type}}) == 0) {
$chgtext .= &mt('Shibboleth-autheticated user does not use environment variables to set user information');	$chgtext .= &mt('Shibboleth-autheticated user does not use environment variables to set user information').'<br />';
} else {	} else {
$chgtext .= &mt('Shibboleth-autheticated user information set from environment variables, as follows:').	$chgtext .= &mt('Shibboleth-autheticated user information set from environment variables, as follows:').
'<ul>';	'<ul>';
Line 11231 sub modify_selfcreation {	Line 11723 sub modify_selfcreation {
}	}
}	}
$chgtext .= '</ul>';	$chgtext .= '</ul>';
}	}
} elsif ($type eq 'statustocreate') {	} elsif ($type eq 'statustocreate') {
if ((ref($cancreate{'selfcreate'}) eq 'ARRAY') &&	if ((ref($cancreate{'selfcreate'}) eq 'ARRAY') &&
(ref($cancreate{'statustocreate'}) eq 'ARRAY')) {	(ref($cancreate{'statustocreate'}) eq 'ARRAY')) {
Line 11244 sub modify_selfcreation {	Line 11736 sub modify_selfcreation {
&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").	&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").
'</span>';	'</span>';
}	}
} elsif (ref($usertypes) eq 'HASH') {	} elsif (keys(%usertypes) > 0) {
if (grep(/^(login\|sso)$/,@{$cancreate{'selfcreate'}})) {	if (grep(/^(login\|sso)$/,@{$cancreate{'selfcreate'}})) {
$chgtext .= &mt('Creation of a new account for an institutional user is restricted to the following institutional affiliation(s):');	$chgtext .= &mt('Creation of a new account for an institutional user is restricted to the following institutional affiliation(s):');
} else {	} else {
Line 11255 sub modify_selfcreation {	Line 11747 sub modify_selfcreation {
if ($case eq 'default') {	if ($case eq 'default') {
$chgtext .= '<li>'.$othertitle.'</li>';	$chgtext .= '<li>'.$othertitle.'</li>';
} else {	} else {
$chgtext .= '<li>'.$usertypes->{$case}.'</li>';	$chgtext .= '<li>'.$usertypes{$case}.'</li>';
}	}
}	}
$chgtext .= '</ul>';	$chgtext .= '</ul>';
if (!grep(/^(login\|sso)$/,@{$cancreate{'selfcreate'}})) {	if (!grep(/^(login\|sso)$/,@{$cancreate{'selfcreate'}})) {
$chgtext .= '<br /><span class="LC_warning">'.	$chgtext .= '<span class="LC_warning">'.
&mt('However, users authenticated by institutional login/single sign on are not currently permitted to create accounts.').	&mt('However, users authenticated by institutional login/single sign on are not currently permitted to create accounts.').
'</span>';	'</span>';
}	}
Line 11272 sub modify_selfcreation {	Line 11764 sub modify_selfcreation {
$chgtext .= &mt('Although institutional affiliations permitted to create accounts were changed, self creation of accounts is not currently permitted for any authentication types.');	$chgtext .= &mt('Although institutional affiliations permitted to create accounts were changed, self creation of accounts is not currently permitted for any authentication types.');
}	}
}	}
	$chgtext .= '<br />';
}	}
} elsif ($type eq 'selfcreateprocessing') {	} elsif ($type eq 'selfcreateprocessing') {
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
automatic => 'Automatic approval',	automatic => 'Automatic approval',
approval => 'Queued for approval',	approval => 'Queued for approval',
	notinuse => 'Unavailable',
);	);
if (@statuses > 1) {	if (@statuses > 1) {
$chgtext .= &mt('Processing of requests to create account with e-mail address as username set as follows:').	my $numtypes = 0;
'<ul>';	foreach my $type (@statuses) {
foreach my $type (@statuses) {	unless ($cancreate{'selfcreateprocessing'}{$type} eq 'notinuse') {
if ($type eq 'default') {	$numtypes ++;
$chgtext .= '<li>'.$othertitle.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$type}}.'</li>';	}
} else {	}
$chgtext .= '<li>'.$usertypes->{$type}.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$type}}.'</li>';	if ($numtypes) {
}	$chgtext .= &mt('Processing of requests to create account with e-mail verification set as follows:').
}	'<ul>';
$chgtext .= '</ul>';	foreach my $type (@statuses) {
	if ($type eq 'default') {
	$chgtext .= '<li>'.$othertitle.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$type}}.'</li>';
	} else {
	$chgtext .= '<li>'.$usertypes{$type}.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$type}}.'</li>';
	}
	}
	$chgtext .= '</ul>';
	}
	} else {
	$chgtext .= &mt('Processing of requests to create account with e-mail verification set to: "[_1]"',
	$choices{$cancreate{'selfcreateprocessing'}{'default'}});
	}
	} elsif ($type eq 'emailverified') {
	my %options = &Apache::lonlocal::texthash (
	email => 'Username is e-mail',
	other => 'Username is chosen',
	);
	if (@statuses > 1) {
	my $numtypes = 0;
	foreach my $type (@statuses) {
	unless ($cancreate{'selfcreateprocessing'}{$type} eq 'notinuse') {
	$numtypes ++;
	}
	}
	if ($numtypes) {
	$chgtext .= &mt('For self-created accounts verified by e-mail address, username is set as follows:').
	'<ul>';
	foreach my $type (@statuses) {
	next if ($cancreate{'selfcreateprocessing'}{$type} eq 'notinuse');
	if ($type eq 'default') {
	$chgtext .= '<li>'.$othertitle.' -- '.$options{$cancreate{'emailverified'}{$type}}.'</li>';
	} else {
	$chgtext .= '<li>'.$usertypes{$type}.' -- '.$options{$cancreate{'emailverified'}{$type}}.'</li>';
	}
	}
	$chgtext .= '</ul>';
	}
} else {	} else {
$chgtext .= &mt('Processing of requests to create account with e-mail address as username set to: "[_1]"',	$chgtext .= &mt('For self-created accounts verified by e-mail address: "[_1]"',
$choices{$cancreate{'selfcreateprocessing'}{'default'}});	$choices{$cancreate{'emailverified'}{'default'}});
	}
	} elsif ($type eq 'emaildomain') {
	if (@statuses > 1) {
	my $numtypes = 0;
	foreach my $type (@statuses) {
	unless ($cancreate{'selfcreateprocessing'}{$type} eq 'notinuse') {
	if ($cancreate{'emailverified'}{$type} eq 'other') {
	$numtypes ++;
	}
	}
	}
	if ($numtypes) {
	$chgtext .= &mt('For self-created accounts verified by e-mail address, with username chosen by user ...').
	'<ul>';
	foreach my $type (@statuses) {
	next if (($cancreate{'selfcreateprocessing'}{$type} eq 'notinuse') \|\|
	($cancreate{'emailverified'}{$type} eq 'email'));
	if ($type eq 'default') {
	if ($cancreate{'emaildomain'}{$type} eq '') {
	$chgtext .= '<li>'.$othertitle.' -- '.&mt('No restriction on e-mail domain').'</li>';
	} else {
	$chgtext .= '<li>'.$othertitle.' -- '.&mt("User's e-mail domain needs to be: [_1]",
	$cancreate{'emaildomain'}{$type}).'</li>';
	}
	} else {
	if ($cancreate{'emaildomain'}{$type} eq '') {
	$chgtext .= '<li>'.$usertypes{$type}.' -- '.&mt('No restriction on e-mail domain').'</li>';
	} else {
	$chgtext .= '<li>'.$usertypes{$type}.' -- '.&mt("User's e-mail domain needs to be: [_1]",
	$cancreate{'emaildomain'}{$type}).'</li>';
	}
	}
	}
	$chgtext .= '</ul>';
	}
	} else {
	if ($cancreate{'emailverified'}{'default'} eq 'other') {
	if ($cancreate{'emaildomain'}{'default'} eq '') {
	$chgtext .= &mt('No restriction on e-mail domain for self-created accounts verified by e-mail address, where username is chosen by user.');
	} else {
	$chgtext .= &mt('For self-created accounts verified by e-mail address, where username is chosen by user, e-mail domain needs to be: [_1],
	$cancreate{'selfcreateprocessing'}{'default'});
	}
	}
}	}
} elsif ($type eq 'captcha') {	} elsif ($type eq 'captcha') {
if ($savecaptcha{$type} eq 'notused') {	if ($savecaptcha{$type} eq 'notused') {
Line 11328 sub modify_selfcreation {	Line 11903 sub modify_selfcreation {
}	}
} elsif ($type eq 'emailusername') {	} elsif ($type eq 'emailusername') {
if (ref($cancreate{'emailusername'}) eq 'HASH') {	if (ref($cancreate{'emailusername'}) eq 'HASH') {
if (ref($types) eq 'ARRAY') {	if (@types) {
foreach my $type (@{$types}) {	foreach my $type (@types) {
if (ref($cancreate{'emailusername'}{$type}) eq 'HASH') {	if (ref($cancreate{'emailusername'}{$type}) eq 'HASH') {
if (keys(%{$cancreate{'emailusername'}{$type}}) > 0) {	if (keys(%{$cancreate{'emailusername'}{$type}}) > 0) {
$chgtext .= &mt('When self-creating account with e-mail as username, the following information will be provided by [_1]:',"'$usertypes->{$type}'").	$chgtext .= &mt('When self-creating account with e-mail verification, the following information will be provided by [_1]:',"'$usertypes{$type}'").
'<ul>';	'<ul>';
foreach my $field (@{$infofields}) {	foreach my $field (@{$infofields}) {
if ($cancreate{'emailusername'}{$type}{$field}) {	if ($cancreate{'emailusername'}{$type}{$field}) {
Line 11341 sub modify_selfcreation {	Line 11916 sub modify_selfcreation {
}	}
$chgtext .= '</ul>';	$chgtext .= '</ul>';
} else {	} else {
$chgtext .= &mt('When self creating account with e-mail as username, no information besides e-mail address will be provided by [_1].',"'$usertypes->{$type}'").'<br />';	$chgtext .= &mt('When self creating account with e-mail verification, no information besides e-mail address will be provided by [_1].',"'$usertypes{$type}'").'<br />';
}	}
} else {	} else {
$chgtext .= &mt('When self creating account with e-mail as username, no information besides e-mail address will be provided by [_1].',"'$usertypes->{$type}'").'<br />';	$chgtext .= &mt('When self creating account with e-mail verification, no information besides e-mail address will be provided by [_1].',"'$usertypes{$type}'").'<br />';
}	}
}	}
}	}
}	}
} elsif ($type eq 'notify') {	} elsif ($type eq 'notify') {
$chgtext = &mt('No Domain Coordinators will receive notification of username requests requiring approval.');	my $numapprove = 0;
if (ref($changes{'cancreate'}) eq 'ARRAY') {	if (ref($changes{'cancreate'}) eq 'ARRAY') {
if ((grep(/^notify$/,@{$changes{'cancreate'}})) && (ref($cancreate{'notify'}) eq 'HASH')) {	if ((grep(/^notify$/,@{$changes{'cancreate'}})) && (ref($cancreate{'notify'}) eq 'HASH')) {
if ($cancreate{'notify'}{'approval'}) {	if ($cancreate{'notify'}{'approval'}) {
$chgtext = &mt('Notification of username requests requiring approval will be sent to: ').$cancreate{'notify'}{'approval'};	$chgtext .= &mt('Notification of username requests requiring approval will be sent to: ').$cancreate{'notify'}{'approval'};
	$numapprove ++;
}	}
}	}
}	}
	unless ($numapprove) {
	$chgtext .= &mt('No Domain Coordinators will receive notification of username requests requiring approval.');
	}
}	}
if ($chgtext) {	if ($chgtext) {
$resulttext .= '<li>'.$chgtext.'</li>';	$resulttext .= '<li>'.$chgtext.'</li>';
Line 11376 sub modify_selfcreation {	Line 11955 sub modify_selfcreation {
$chgtext .= '</ul>';	$chgtext .= '</ul>';
if (@email_rule > 0) {	if (@email_rule > 0) {
$resulttext .= '<li>'.	$resulttext .= '<li>'.
&mt('Accounts may not be created by users self-enrolling with e-mail addresses of the following types: ').	&mt('Accounts may not be created by users verified by e-mail, for e-mail addresses of the following types: ').
$chgtext.	$chgtext.
'</li>';	'</li>';
} else {	} else {
$resulttext .= '<li>'.	$resulttext .= '<li>'.
&mt('There are now no restrictions on e-mail addresses which may be used as a username when self-enrolling.').	&mt('There are now no restrictions on e-mail addresses which may be used for verification when self-enrolling.').
'</li>';	'</li>';
}	}
}	}
Line 11390 sub modify_selfcreation {	Line 11969 sub modify_selfcreation {
my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();	my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
foreach my $type (@{$changes{'selfcreate'}}) {	foreach my $type (@{$changes{'selfcreate'}}) {
my $typename = $type;	my $typename = $type;
if (ref($usertypes) eq 'HASH') {	if (keys(%usertypes) > 0) {
if ($usertypes->{$type} ne '') {	if ($usertypes{$type} ne '') {
$typename = $usertypes->{$type};	$typename = $usertypes{$type};
}	}
}	}
my @modifiable;	my @modifiable;
Line 11996 sub modify_coursecategories {	Line 12575 sub modify_coursecategories {
if ($domconfig{'coursecategories'}{'categorizecomm'} ne $env{'form.categorizecomm'}) {	if ($domconfig{'coursecategories'}{'categorizecomm'} ne $env{'form.categorizecomm'}) {
$changes{'categorizecomm'} = 1;	$changes{'categorizecomm'} = 1;
$domconfig{'coursecategories'}{'categorizecomm'} = $env{'form.categorizecomm'};	$domconfig{'coursecategories'}{'categorizecomm'} = $env{'form.categorizecomm'};

	}
	if ($domconfig{'coursecategories'}{'togglecatsplace'} ne $env{'form.togglecatsplace'}) {
	$changes{'togglecatsplace'} = 1;
	$domconfig{'coursecategories'}{'togglecatsplace'} = $env{'form.togglecatsplace'};
	}
	if ($domconfig{'coursecategories'}{'categorizeplace'} ne $env{'form.categorizeplace'}) {
	$changes{'categorizeplace'} = 1;
	$domconfig{'coursecategories'}{'categorizeplace'} = $env{'form.categorizeplace'};
}	}
foreach my $item (@catitems) {	foreach my $item (@catitems) {
if (grep(/^\Q$env{'form.coursecat_'.$item}\E$/,@cattypes)) {	if (grep(/^\Q$env{'form.coursecat_'.$item}\E$/,@cattypes)) {
Line 12010 sub modify_coursecategories {	Line 12598 sub modify_coursecategories {
$changes{'categorize'} = 1;	$changes{'categorize'} = 1;
$changes{'togglecatscomm'} = 1;	$changes{'togglecatscomm'} = 1;
$changes{'categorizecomm'} = 1;	$changes{'categorizecomm'} = 1;
	$changes{'togglecatsplace'} = 1;
	$changes{'categorizeplace'} = 1;
$domconfig{'coursecategories'} = {	$domconfig{'coursecategories'} = {
togglecats => $env{'form.togglecats'},	togglecats => $env{'form.togglecats'},
categorize => $env{'form.categorize'},	categorize => $env{'form.categorize'},
togglecatscomm => $env{'form.togglecatscomm'},	togglecatscomm => $env{'form.togglecatscomm'},
categorizecomm => $env{'form.categorizecomm'},	categorizecomm => $env{'form.categorizecomm'},
	togglecatsplace => $env{'form.togglecatsplace'},
	categorizeplace => $env{'form.categorizeplace'},
};	};
foreach my $item (@catitems) {	foreach my $item (@catitems) {
if ($env{'form.coursecat_'.$item} ne 'std') {	if ($env{'form.coursecat_'.$item} ne 'std') {
Line 12032 sub modify_coursecategories {	Line 12624 sub modify_coursecategories {
if (($domconfig{'coursecategories'}{'cats'}{'communities::0'} ne '') && ($env{'form.communities'} == 0)) {	if (($domconfig{'coursecategories'}{'cats'}{'communities::0'} ne '') && ($env{'form.communities'} == 0)) {
push(@deletecategory,'communities::0');	push(@deletecategory,'communities::0');
}	}
	if (($domconfig{'coursecategories'}{'cats'}{'placement::0'} ne '') && ($env{'form.placement'} == 0)) {
	push(@deletecategory,'placement::0');
	}
}	}
my (@predelcats,@predeltrails,%predelallitems,%sort_by_deltrail);	my (@predelcats,@predeltrails,%predelallitems,%sort_by_deltrail);
if (ref($cathash) eq 'HASH') {	if (ref($cathash) eq 'HASH') {
Line 12094 sub modify_coursecategories {	Line 12689 sub modify_coursecategories {
$adds{$newitem} = 1;	$adds{$newitem} = 1;
}	}
}	}
	if ($env{'form.placement'} eq '1') {
	if (ref($cathash) eq 'HASH') {
	my $newitem = 'placement::0';
	if ($cathash->{$newitem} eq '') {
	$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.placement_pos'};
	$adds{$newitem} = 1;
	}
	} else {
	my $newitem = 'placement::0';
	$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.placement_pos'};
	$adds{$newitem} = 1;
	}
	}
if ($env{'form.addcategory_name'} ne '') {	if ($env{'form.addcategory_name'} ne '') {
if (($env{'form.addcategory_name'} ne 'instcode') &&	if (($env{'form.addcategory_name'} ne 'instcode') &&
($env{'form.addcategory_name'} ne 'communities')) {	($env{'form.addcategory_name'} ne 'communities') &&
	($env{'form.addcategory_name'} ne 'placement')) {
my $newitem = &escape($env{'form.addcategory_name'}).'::0';	my $newitem = &escape($env{'form.addcategory_name'}).'::0';
$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.addcategory_pos'};	$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.addcategory_pos'};
$adds{$newitem} = 1;	$adds{$newitem} = 1;
Line 12691 sub modify_coursedefaults {	Line 13300 sub modify_coursedefaults {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,%changes,%defaultshash);	my ($resulttext,$errors,%changes,%defaultshash);
my %defaultchecked = (	my %defaultchecked = (
	'canuse_pdfforms' => 'off',
'uselcmath' => 'on',	'uselcmath' => 'on',
'usejsme' => 'on'	'usejsme' => 'on'
);	);
my @toggles = ('uselcmath','usejsme');	my @toggles = ('canuse_pdfforms','uselcmath','usejsme');
my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',	my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',
'uploadquota_community','uploadquota_textbook','mysqltables_official',	'uploadquota_community','uploadquota_textbook','uploadquota_placement',
'mysqltables_unofficial','mysqltables_community','mysqltables_textbook');	'mysqltables_official','mysqltables_unofficial','mysqltables_community',
my @types = ('official','unofficial','community','textbook');	'mysqltables_textbook','mysqltables_placement');
	my @types = ('official','unofficial','community','textbook','placement');
my %staticdefaults = (	my %staticdefaults = (
anonsurvey_threshold => 10,	anonsurvey_threshold => 10,
uploadquota => 500,	uploadquota => 500,
Line 12883 sub modify_coursedefaults {	Line 13494 sub modify_coursedefaults {
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|	if (($changes{'canuse_pdfforms'}) \|\| ($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|
($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|	($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|
($changes{'canclone'}) \|\| ($changes{'mysqltables'})) {	($changes{'canclone'}) \|\| ($changes{'mysqltables'})) {
foreach my $item ('uselcmath','usejsme') {	foreach my $item ('canuse_pdfforms','uselcmath','usejsme') {
if ($changes{$item}) {	if ($changes{$item}) {
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item};	$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item};
}	}
Line 12937 sub modify_coursedefaults {	Line 13548 sub modify_coursedefaults {
}	}
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
foreach my $item (sort(keys(%changes))) {	foreach my $item (sort(keys(%changes))) {
if ($item eq 'uselcmath') {	if ($item eq 'canuse_pdfforms') {
	if ($env{'form.'.$item} eq '1') {
	$resulttext .= '<li>'.&mt("Course/Community users can create/upload PDF forms set to 'on'").'</li>';
	} else {
	$resulttext .= '<li>'.&mt('Course/Community users can create/upload PDF forms set to "off"').'</li>';
	}
	} elsif ($item eq 'uselcmath') {
if ($env{'form.'.$item} eq '1') {	if ($env{'form.'.$item} eq '1') {
$resulttext .= '<li>'.&mt('Math preview uses LON-CAPA previewer (javascript), if supported by browser.').'</li>';	$resulttext .= '<li>'.&mt('Math preview uses LON-CAPA previewer (javascript), if supported by browser.').'</li>';
} else {	} else {
Line 12957 sub modify_coursedefaults {	Line 13574 sub modify_coursedefaults {
'<li>'.&mt('Official courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'official'}.'</b>').'</li>'.	'<li>'.&mt('Official courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'official'}.'</b>').'</li>'.
'<li>'.&mt('Unofficial courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'unofficial'}.'</b>').'</li>'.	'<li>'.&mt('Unofficial courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'unofficial'}.'</b>').'</li>'.
'<li>'.&mt('Textbook courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'textbook'}.'</b>').'</li>'.	'<li>'.&mt('Textbook courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'textbook'}.'</b>').'</li>'.
	'<li>'.&mt('Placement tests: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'placement'}.'</b>').'</li>'.
'<li>'.&mt('Communities: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'community'}.'</b>').'</li>'.	'<li>'.&mt('Communities: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'community'}.'</b>').'</li>'.
'</ul>'.	'</ul>'.
'</li>';	'</li>';
Line 12970 sub modify_coursedefaults {	Line 13587 sub modify_coursedefaults {
'<li>'.&mt('Official courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'official'}.'</b>').'</li>'.	'<li>'.&mt('Official courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'official'}.'</b>').'</li>'.
'<li>'.&mt('Unofficial courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'unofficial'}.'</b>').'</li>'.	'<li>'.&mt('Unofficial courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'unofficial'}.'</b>').'</li>'.
'<li>'.&mt('Textbook courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'textbook'}.'</b>').'</li>'.	'<li>'.&mt('Textbook courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'textbook'}.'</b>').'</li>'.
	'<li>'.&mt('Placement tests: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'placement'}.'</b>').'</li>'.
'<li>'.&mt('Communities: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'community'}.'</b>').'</li>'.	'<li>'.&mt('Communities: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'community'}.'</b>').'</li>'.
'</ul>'.	'</ul>'.
'</li>';	'</li>';
Line 13005 sub modify_coursedefaults {	Line 13623 sub modify_coursedefaults {
$resulttext .= &mt('Unofficial courses');	$resulttext .= &mt('Unofficial courses');
} elsif ($type eq 'textbook') {	} elsif ($type eq 'textbook') {
$resulttext .= &mt('Textbook courses');	$resulttext .= &mt('Textbook courses');
	} elsif ($type eq 'placement') {
	$resulttext .= &mt('Placement tests');
}	}
$resulttext .= ' -- '.$display.'</li>';	$resulttext .= ' -- '.$display.'</li>';
}	}
Line 13056 sub modify_coursedefaults {	Line 13676 sub modify_coursedefaults {
sub modify_selfenrollment {	sub modify_selfenrollment {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,%changes,%selfenrollhash,%ordered);	my ($resulttext,$errors,%changes,%selfenrollhash,%ordered);
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook','placement');
my %titles = &tool_titles();	my %titles = &tool_titles();
my %descs = &Apache::lonuserutils::selfenroll_default_descs();	my %descs = &Apache::lonuserutils::selfenroll_default_descs();
($ordered{'admin'},my $titlesref) = &Apache::lonuserutils::get_selfenroll_titles();	($ordered{'admin'},my $titlesref) = &Apache::lonuserutils::get_selfenroll_titles();
Line 13303 sub modify_usersessions {	Line 13923 sub modify_usersessions {
);	);
my @prefixes = ('remote','hosted','spares');	my @prefixes = ('remote','hosted','spares');
my @lcversions = &Apache::lonnet::all_loncaparevs();	my @lcversions = &Apache::lonnet::all_loncaparevs();
my (%by_ip,%by_location,@intdoms);	my (%by_ip,%by_location,@intdoms,@instdoms);
&build_location_hashes(\@intdoms,\%by_ip,\%by_location);	&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms);
my @locations = sort(keys(%by_location));	my @locations = sort(keys(%by_location));
my (%defaultshash,%changes);	my (%defaultshash,%changes);
foreach my $prefix (@prefixes) {	foreach my $prefix (@prefixes) {
Line 13620 sub modify_usersessions {	Line 14240 sub modify_usersessions {
return $resulttext;	return $resulttext;
}	}

	sub modify_ssl {
	my ($dom,$lastactref,%domconfig) = @_;
	my (%by_ip,%by_location,@intdoms,@instdoms);
	&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms);
	my @locations = sort(keys(%by_location));
	my %servers = &Apache::lonnet::internet_dom_servers($dom);
	my (%defaultshash,%changes);
	my $action = 'ssl';
	my @prefixes = ('connto','connfrom','replication');
	foreach my $prefix (@prefixes) {
	$defaultshash{$action}{$prefix} = {};
	}
	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
	my $resulttext;
	my %iphost = &Apache::lonnet::get_iphost();
	my @reptypes = ('certreq','nocertreq');
	my @connecttypes = ('dom','intdom','other');
	my %types = (
	connto => \@connecttypes,
	connfrom => \@connecttypes,
	replication => \@reptypes,
	);
	foreach my $prefix (sort(keys(%types))) {
	foreach my $type (@{$types{$prefix}}) {
	if (($prefix eq 'connto') \|\| ($prefix eq 'connfrom')) {
	my $value = 'yes';
	if ($env{'form.'.$prefix.'_'.$type} =~ /^(no\|req)$/) {
	$value = $env{'form.'.$prefix.'_'.$type};
	}
	if (ref($domconfig{$action}{$prefix}) eq 'HASH') {
	if ($domconfig{$action}{$prefix}{$type} ne '') {
	if ($value ne $domconfig{$action}{$prefix}{$type}) {
	$changes{$prefix}{$type} = 1;
	}
	$defaultshash{$action}{$prefix}{$type} = $value;
	} else {
	$defaultshash{$action}{$prefix}{$type} = $value;
	$changes{$prefix}{$type} = 1;
	}
	} else {
	$defaultshash{$action}{$prefix}{$type} = $value;
	$changes{$prefix}{$type} = 1;
	}
	if (($type eq 'dom') && (keys(%servers) == 1)) {
	delete($changes{$prefix}{$type});
	} elsif (($type eq 'intdom') && (@instdoms == 1)) {
	delete($changes{$prefix}{$type});
	} elsif (($type eq 'other') && (keys(%by_location) == 0)) {
	delete($changes{$prefix}{$type});
	}
	} elsif ($prefix eq 'replication') {
	if (@locations > 0) {
	my $inuse = $env{'form.'.$prefix.'_'.$type.'_inuse'};
	my @vals = &Apache::loncommon::get_env_multiple('form.'.$prefix.'_'.$type);
	my @okvals;
	foreach my $val (@vals) {
	if ($val =~ /:/) {
	my @items = split(/:/,$val);
	foreach my $item (@items) {
	if (ref($by_location{$item}) eq 'ARRAY') {
	push(@okvals,$item);
	}
	}
	} else {
	if (ref($by_location{$val}) eq 'ARRAY') {
	push(@okvals,$val);
	}
	}
	}
	@okvals = sort(@okvals);
	if (ref($domconfig{$action}) eq 'HASH') {
	if (ref($domconfig{$action}{$prefix}) eq 'HASH') {
	if (ref($domconfig{$action}{$prefix}{$type}) eq 'ARRAY') {
	if ($inuse == 0) {
	$changes{$prefix}{$type} = 1;
	} else {
	$defaultshash{$action}{$prefix}{$type} = \@okvals;
	my @changed = &Apache::loncommon::compare_arrays($domconfig{$action}{$prefix}{$type},$defaultshash{$action}{$prefix}{$type});
	if (@changed > 0) {
	$changes{$prefix}{$type} = 1;
	}
	}
	} else {
	if ($inuse == 1) {
	$defaultshash{$action}{$prefix}{$type} = \@okvals;
	$changes{$prefix}{$type} = 1;
	}
	}
	} else {
	if ($inuse == 1) {
	$defaultshash{$action}{$prefix}{$type} = \@okvals;
	$changes{$prefix}{$type} = 1;
	}
	}
	} else {
	if ($inuse == 1) {
	$defaultshash{$action}{$prefix}{$type} = \@okvals;
	$changes{$prefix}{$type} = 1;
	}
	}
	}
	}
	}
	}
	my $nochgmsg = &mt('No changes made to LON-CAPA SSL settings');
	if (keys(%changes) > 0) {
	my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,
	$dom);
	if ($putresult eq 'ok') {
	if (ref($defaultshash{$action}) eq 'HASH') {
	if (ref($defaultshash{$action}{'replication'}) eq 'HASH') {
	$domdefaults{'replication'} = $defaultshash{$action}{'replication'};
	}
	if (ref($defaultshash{$action}{'connto'}) eq 'HASH') {
	$domdefaults{'connto'} = $domconfig{$action}{'connto'};
	}
	if (ref($defaultshash{$action}{'connfrom'}) eq 'HASH') {
	$domdefaults{'connfrom'} = $domconfig{$action}{'connfrom'};
	}
	}
	my $cachetime = 246060;
	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
	if (keys(%changes) > 0) {
	my %titles = &ssl_titles();
	$resulttext = &mt('Changes made:').'<ul>';
	foreach my $prefix (@prefixes) {
	if (ref($changes{$prefix}) eq 'HASH') {
	$resulttext .= '<li>'.$titles{$prefix}.'<ul>';
	foreach my $type (@{$types{$prefix}}) {
	if (defined($changes{$prefix}{$type})) {
	my $newvalue;
	if (ref($defaultshash{$action}) eq 'HASH') {
	if (ref($defaultshash{$action}{$prefix})) {
	if (($prefix eq 'connto') \|\| ($prefix eq 'connfrom')) {
	$newvalue = $titles{$defaultshash{$action}{$prefix}{$type}};
	} elsif (ref($defaultshash{$action}{$prefix}{$type}) eq 'ARRAY') {
	if (@{$defaultshash{$action}{$prefix}{$type}} > 0) {
	$newvalue = join(', ',@{$defaultshash{$action}{$prefix}{$type}});
	}
	}
	}
	if ($newvalue eq '') {
	$resulttext .= '<li>'.&mt('[_1] set to: none',$titles{$type}).'</li>';
	} else {
	$resulttext .= '<li>'.&mt('[_1] set to: [_2].',$titles{$type},$newvalue).'</li>';
	}
	}
	}
	}
	$resulttext .= '</ul>';
	}
	}
	} else {
	$resulttext = $nochgmsg;
	}
	} else {
	$resulttext = '<span class="LC_error">'.
	&mt('An error occurred: [_1]',$putresult).'</span>';
	}
	} else {
	$resulttext = $nochgmsg;
	}
	return $resulttext;
	}

	sub modify_trust {
	my ($dom,$lastactref,%domconfig) = @_;
	my (%by_ip,%by_location,@intdoms,@instdoms);
	&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms);
	my @locations = sort(keys(%by_location));
	my @prefixes = qw(content shared enroll othcoau coaurem domroles catalog reqcrs msg);
	my @types = ('exc','inc');
	my (%defaultshash,%changes);
	foreach my $prefix (@prefixes) {
	$defaultshash{'trust'}{$prefix} = {};
	}
	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
	my $resulttext;
	foreach my $prefix (@prefixes) {
	foreach my $type (@types) {
	my $inuse = $env{'form.'.$prefix.'_'.$type.'_inuse'};
	my @vals = &Apache::loncommon::get_env_multiple('form.'.$prefix.'_'.$type);
	my @okvals;
	foreach my $val (@vals) {
	if ($val =~ /:/) {
	my @items = split(/:/,$val);
	foreach my $item (@items) {
	if (ref($by_location{$item}) eq 'ARRAY') {
	push(@okvals,$item);
	}
	}
	} else {
	if (ref($by_location{$val}) eq 'ARRAY') {
	push(@okvals,$val);
	}
	}
	}
	@okvals = sort(@okvals);
	if (ref($domconfig{'trust'}) eq 'HASH') {
	if (ref($domconfig{'trust'}{$prefix}) eq 'HASH') {
	if (ref($domconfig{'trust'}{$prefix}{$type}) eq 'ARRAY') {
	if ($inuse == 0) {
	$changes{$prefix}{$type} = 1;
	} else {
	$defaultshash{'trust'}{$prefix}{$type} = \@okvals;
	my @changed = &Apache::loncommon::compare_arrays($domconfig{'trust'}{$prefix}{$type},$defaultshash{'trust'}{$prefix}{$type});
	if (@changed > 0) {
	$changes{$prefix}{$type} = 1;
	}
	}
	} else {
	if ($inuse == 1) {
	$defaultshash{'trust'}{$prefix}{$type} = \@okvals;
	$changes{$prefix}{$type} = 1;
	}
	}
	} else {
	if ($inuse == 1) {
	$defaultshash{'trust'}{$prefix}{$type} = \@okvals;
	$changes{$prefix}{$type} = 1;
	}
	}
	} else {
	if ($inuse == 1) {
	$defaultshash{'trust'}{$prefix}{$type} = \@okvals;
	$changes{$prefix}{$type} = 1;
	}
	}
	}
	}
	my $nochgmsg = &mt('No changes made to trust settings.');
	if (keys(%changes) > 0) {
	my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,
	$dom);
	if ($putresult eq 'ok') {
	if (ref($defaultshash{'trust'}) eq 'HASH') {
	foreach my $prefix (@prefixes) {
	if (ref($defaultshash{'trust'}{$prefix}) eq 'HASH') {
	$domdefaults{'trust'.$prefix} = $defaultshash{'trust'}{$prefix};
	}
	}
	}
	my $cachetime = 246060;
	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
	if (keys(%changes) > 0) {
	my %lt = &trust_titles();
	$resulttext = &mt('Changes made:').'<ul>';
	foreach my $prefix (@prefixes) {
	if (ref($changes{$prefix}) eq 'HASH') {
	$resulttext .= '<li>'.$lt{$prefix}.'<ul>';
	foreach my $type (@types) {
	if (defined($changes{$prefix}{$type})) {
	my $newvalue;
	if (ref($defaultshash{'trust'}) eq 'HASH') {
	if (ref($defaultshash{'trust'}{$prefix})) {
	if (ref($defaultshash{'trust'}{$prefix}{$type}) eq 'ARRAY') {
	if (@{$defaultshash{'trust'}{$prefix}{$type}} > 0) {
	$newvalue = join(', ',@{$defaultshash{'trust'}{$prefix}{$type}});
	}
	}
	}
	}
	if ($newvalue eq '') {
	$resulttext .= '<li>'.&mt('[_1] set to: none',$lt{$type}).'</li>';
	} else {
	$resulttext .= '<li>'.&mt('[_1] set to: [_2].',$lt{$type},$newvalue).'</li>';
	}
	}
	}
	$resulttext .= '</ul>';
	}
	}
	$resulttext .= '</ul>';
	} else {
	$resulttext = $nochgmsg;
	}
	} else {
	$resulttext = '<span class="LC_error">'.
	&mt('An error occurred: [_1]',$putresult).'</span>';
	}
	} else {
	$resulttext = $nochgmsg;
	}
	return $resulttext;
	}

sub modify_loadbalancing {	sub modify_loadbalancing {
my ($dom,%domconfig) = @_;	my ($dom,%domconfig) = @_;
my $primary_id = &Apache::lonnet::domain($dom,'primary');	my $primary_id = &Apache::lonnet::domain($dom,'primary');
Line 14560 function toggleDisplay(domForm,caller) {	Line 15472 function toggleDisplay(domForm,caller) {
var optionsElement = domForm.coursecredits;	var optionsElement = domForm.coursecredits;
var checkval = 1;	var checkval = 1;
var dispval = 'block';	var dispval = 'block';
	var selfcreateRegExp = /^cancreate_emailverified/;
if (caller == 'emailoptions') {	if (caller == 'emailoptions') {
optionsElement = domForm.cancreate_email;	optionsElement = domForm.cancreate_email;
}	}
Line 14570 function toggleDisplay(domForm,caller) {	Line 15483 function toggleDisplay(domForm,caller) {
optionsElement = domForm.canclone;	optionsElement = domForm.canclone;
checkval = 'instcode';	checkval = 'instcode';
}	}
	if (selfcreateRegExp.test(caller)) {
	optionsElement = domForm.elements[caller];
	checkval = 'other';
	dispval = 'inline'
	}
if (optionsElement.length) {	if (optionsElement.length) {
var currval;	var currval;
for (var i=0; i<optionsElement.length; i++) {	for (var i=0; i<optionsElement.length; i++) {

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

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