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.268 and 1.278

version 1.268, 2016/02/18 21:30:33	version 1.278, 2016/09/11 14:51:42
Line 103 $datatable - HTML containing form eleme	Line 103 $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 169 use Apache::loncoursequeueadmin();	Line 169 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;
Line 217 sub handler {	Line 218 sub handler {
'serverstatuses','requestcourses','helpsettings',	'serverstatuses','requestcourses','helpsettings',
'coursedefaults','usersessions','loadbalancing',	'coursedefaults','usersessions','loadbalancing',
'requestauthor','selfenrollment','inststatus',	'requestauthor','selfenrollment','inststatus',
'ltitools'],$dom);	'ltitools','ssl'],$dom);
my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',	my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',
'autoupdate','autocreate','directorysrch','contacts',	'autoupdate','autocreate','directorysrch','contacts',
'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');
my %existing;	my %existing;
if (ref($domconfig{'loadbalancing'}) eq 'HASH') {	if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
%existing = %{$domconfig{'loadbalancing'}};	%existing = %{$domconfig{'loadbalancing'}};
Line 306 sub handler {	Line 307 sub handler {
modify => \&modify_autocreate,	modify => \&modify_autocreate,
},	},
'directorysrch' =>	'directorysrch' =>
{ text => 'Institutional directory searches',	{ text => 'Directory searches',
help => 'Domain_Configuration_InstDirectory_Search',	help => 'Domain_Configuration_InstDirectory_Search',
header => [{col1 => 'Setting',	header => [{col1 => 'Institutional Directory Setting',
	col2 => 'Value',},
	{col1 => 'LON-CAPA Directory Setting',
col2 => 'Value',}],	col2 => 'Value',}],
print => \&print_directorysrch,	print => \&print_directorysrch,
modify => \&modify_directorysrch,	modify => \&modify_directorysrch,
Line 482 sub handler {	Line 485 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 => "Replicating domain's published content",
	col2 => 'Rules'}],
	print => \&print_ssl,
	modify => \&modify_ssl,
	},
);	);
if (keys(%servers) > 1) {	if (keys(%servers) > 1) {
$prefs{'login'} = { text => 'Log-in page options',	$prefs{'login'} = { text => 'Log-in page options',
Line 658 sub process_changes {	Line 672 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);
}	}
return $output;	return $output;
}	}
Line 687 sub print_config_box {	Line 703 sub print_config_box {
my $colspan = '';	my $colspan = '';
my $rightcolspan = '';	my $rightcolspan = '';
if (($action eq 'rolecolors') \|\| ($action eq 'defaults') \|\|	if (($action eq 'rolecolors') \|\| ($action eq 'defaults') \|\|
	($action eq 'directorysrch') \|\|
(($action eq 'login') && ($numheaders < 4))) {	(($action eq 'login') && ($numheaders < 4))) {
$colspan = ' colspan="2"';	$colspan = ' colspan="2"';
}	}
Line 704 sub print_config_box {	Line 721 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 'selfenrollment') \|\| ($action eq 'usersessions') \|\| ($action eq 'ssl') \|\|
	($action eq 'directorysrch')) {
$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 734 sub print_config_box {	Line 752 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 'ssl')) {
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"';
Line 759 sub print_config_box {	Line 778 sub print_config_box {
}	}
$rowtotal ++;	$rowtotal ++;
} elsif (($action eq 'usermodification') \|\| ($action eq 'coursedefaults') \|\|	} elsif (($action eq 'usermodification') \|\| ($action eq 'coursedefaults') \|\|
($action eq 'defaults')) {	($action eq 'defaults') \|\| ($action eq 'directorysrch')) {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
} elsif ($action eq 'login') {	} elsif ($action eq 'login') {
if ($numheaders == 4) {	if ($numheaders == 4) {
Line 872 sub print_config_box {	Line 891 sub print_config_box {
<td>	<td>
<table class="LC_nested">	<table class="LC_nested">
<tr class="LC_info_row">';	<tr class="LC_info_row">';
if (($action eq 'login') \|\| ($action eq 'directorysrch')) {	if ($action eq 'login') {
$output .= '	$output .= '
<td class="LC_left_item" colspan="2">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>';	<td class="LC_left_item" colspan="2">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>';
} elsif ($action eq 'serverstatuses') {	} elsif ($action eq 'serverstatuses') {
Line 916 sub print_config_box {	Line 935 sub print_config_box {
$rowtotal ++;	$rowtotal ++;
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') \|\| ($action eq 'directorysrch') \|\|	} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\|
($action eq 'contacts') \|\| ($action eq 'serverstatuses') \|\| ($action eq 'loadbalancing') \|\|	($action eq 'contacts') \|\| ($action eq 'serverstatuses') \|\|
($action eq 'ltitools')) {	($action eq 'loadbalancing') \|\| ($action eq 'ltitools')) {
$output .= $item->{'print'}->($dom,$settings,\$rowtotal);	$output .= $item->{'print'}->($dom,$settings,\$rowtotal);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);	$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);
Line 1724 sub print_quotas {	Line 1743 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 2176 sub print_studentcode {	Line 2195 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 2497 ENDSCRIPT	Line 2516 ENDSCRIPT
sub print_autoenroll {	sub print_autoenroll {
my ($dom,$settings,$rowtotal) = @_;	my ($dom,$settings,$rowtotal) = @_;
my $autorun = &Apache::lonnet::auto_run(undef,$dom),	my $autorun = &Apache::lonnet::auto_run(undef,$dom),
my ($defdom,$runon,$runoff,$coownerson,$coownersoff);	my ($defdom,$runon,$runoff,$coownerson,$coownersoff,$failsafe);
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (exists($settings->{'run'})) {	if (exists($settings->{'run'})) {
if ($settings->{'run'} eq '0') {	if ($settings->{'run'} eq '0') {
Line 2531 sub print_autoenroll {	Line 2550 sub print_autoenroll {
if (exists($settings->{'sender_domain'})) {	if (exists($settings->{'sender_domain'})) {
$defdom = $settings->{'sender_domain'};	$defdom = $settings->{'sender_domain'};
}	}
	if (exists($settings->{'autofailsafe'})) {
	$failsafe = $settings->{'autofailsafe'};
	}
} else {	} else {
if ($autorun) {	if ($autorun) {
$runon = ' checked="checked" ';	$runon = ' checked="checked" ';
Line 2566 sub print_autoenroll {	Line 2588 sub print_autoenroll {
$coownerson.' value="1" />'.&mt('Yes').'</label> '.	$coownerson.' value="1" />'.&mt('Yes').'</label> '.
'<label><input type="radio" name="autoassign_coowners"'.	'<label><input type="radio" name="autoassign_coowners"'.
$coownersoff.' value="0" />'.&mt('No').'</label></span></td>'.	$coownersoff.' value="0" />'.&mt('No').'</label></span></td>'.
'</tr>';	'</tr><tr>'.
$$rowtotal += 3;	'<td>'.&mt('Failsafe for no drops when institutional data missing').'</td>'.
	'<td class="LC_right_item"><span class="LC_nobreak">'.
	'<input type="text" name="autoenroll_failsafe"'.
	' value="'.$failsafe.'" size="4" /></td></tr>';
	$$rowtotal += 4;
return $datatable;	return $datatable;
}	}

Line 2696 sub print_autocreate {	Line 2722 sub print_autocreate {
}	}

sub print_directorysrch {	sub print_directorysrch {
my ($dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my $srchon = ' ';	my $datatable;
my $srchoff = ' checked="checked" ';	if ($position eq 'top') {
my ($exacton,$containson,$beginson);	my $instsrchon = ' ';
my $localon = ' ';	my $instsrchoff = ' checked="checked" ';
my $localoff = ' checked="checked" ';	my ($exacton,$containson,$beginson);
if (ref($settings) eq 'HASH') {	my $instlocalon = ' ';
if ($settings->{'available'} eq '1') {	my $instlocaloff = ' checked="checked" ';
$srchon = $srchoff;	if (ref($settings) eq 'HASH') {
$srchoff = ' ';	if ($settings->{'available'} eq '1') {
}	$instsrchon = $instsrchoff;
if ($settings->{'localonly'} eq '1') {	$instsrchoff = ' ';
$localon = $localoff;	}
$localoff = ' ';	if ($settings->{'localonly'} eq '1') {
}	$instlocalon = $instlocaloff;
if (ref($settings->{'searchtypes'}) eq 'ARRAY') {	$instlocaloff = ' ';
foreach my $type (@{$settings->{'searchtypes'}}) {	}
if ($type eq 'exact') {	if (ref($settings->{'searchtypes'}) eq 'ARRAY') {
	foreach my $type (@{$settings->{'searchtypes'}}) {
	if ($type eq 'exact') {
	$exacton = ' checked="checked" ';
	} elsif ($type eq 'contains') {
	$containson = ' checked="checked" ';
	} elsif ($type eq 'begins') {
	$beginson = ' checked="checked" ';
	}
	}
	} else {
	if ($settings->{'searchtypes'} eq 'exact') {
	$exacton = ' checked="checked" ';
	} elsif ($settings->{'searchtypes'} eq 'contains') {
	$containson = ' checked="checked" ';
	} elsif ($settings->{'searchtypes'} eq 'specify') {
$exacton = ' checked="checked" ';	$exacton = ' checked="checked" ';
} elsif ($type eq 'contains') {
$containson = ' checked="checked" ';	$containson = ' checked="checked" ';
} elsif ($type eq 'begins') {
$beginson = ' checked="checked" ';
}	}
}	}
} else {
if ($settings->{'searchtypes'} eq 'exact') {
$exacton = ' checked="checked" ';
} elsif ($settings->{'searchtypes'} eq 'contains') {
$containson = ' checked="checked" ';
} elsif ($settings->{'searchtypes'} eq 'specify') {
$exacton = ' checked="checked" ';
$containson = ' checked="checked" ';
}
}	}
}	my ($searchtitles,$titleorder) = &sorted_searchtitles();
my ($searchtitles,$titleorder) = &sorted_searchtitles();	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);

my $numinrow = 4;	my $numinrow = 4;
my $cansrchrow = 0;	my $cansrchrow = 0;
my $datatable='<tr class="LC_odd_row">'.	$datatable='<tr class="LC_odd_row">'.
'<td colspan="2"><span class ="LC_nobreak">'.&mt('Directory search available?').'</span></td>'.	'<td colspan="2"><span class ="LC_nobreak">'.&mt('Institutional directory search available?').'</span></td>'.
'<td class="LC_right_item"><span class="LC_nobreak"><label>'.	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
'<input type="radio" name="dirsrch_available"'.	'<input type="radio" name="dirsrch_available"'.
$srchon.' value="1" />'.&mt('Yes').'</label> '.	$instsrchon.' value="1" />'.&mt('Yes').'</label> '.
'<label><input type="radio" name="dirsrch_available"'.	'<label><input type="radio" name="dirsrch_available"'.
$srchoff.' value="0" />'.&mt('No').'</label></span></td>'.	$instsrchoff.' value="0" />'.&mt('No').'</label></span></td>'.
'</tr><tr>'.	'</tr><tr>'.
'<td colspan="2"><span class ="LC_nobreak">'.&mt('Other domains can search?').'</span></td>'.	'<td colspan="2"><span class ="LC_nobreak">'.&mt('Other domains can search institution?').'</span></td>'.
'<td class="LC_right_item"><span class="LC_nobreak"><label>'.	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
'<input type="radio" name="dirsrch_localonly"'.	'<input type="radio" name="dirsrch_instlocalonly"'.
$localoff.' value="0" />'.&mt('Yes').'</label> '.	$instlocaloff.' value="0" />'.&mt('Yes').'</label> '.
'<label><input type="radio" name="dirsrch_localonly"'.	'<label><input type="radio" name="dirsrch_instlocalonly"'.
$localon.' value="1" />'.&mt('No').'</label></span></td>'.	$instlocalon.' value="1" />'.&mt('No').'</label></span></td>'.
'</tr>';	'</tr>';
$$rowtotal += 2;	$$rowtotal += 2;
if (ref($usertypes) eq 'HASH') {	if (ref($usertypes) eq 'HASH') {
if (keys(%{$usertypes}) > 0) {	if (keys(%{$usertypes}) > 0) {
$datatable .= &insttypes_row($settings,$types,$usertypes,$dom,	$datatable .= &insttypes_row($settings,$types,$usertypes,$dom,
$numinrow,$othertitle,'cansearch');	$numinrow,$othertitle,'cansearch');
$cansrchrow = 1;	$cansrchrow = 1;
	}
}	}
}	if ($cansrchrow) {
if ($cansrchrow) {	$$rowtotal ++;
$$rowtotal ++;	$datatable .= '<tr>';
$datatable .= '<tr>';	} else {
} else {	$datatable .= '<tr class="LC_odd_row">';
$datatable .= '<tr class="LC_odd_row">';	}
}	$datatable .= '<td><span class ="LC_nobreak">'.&mt('Supported search methods').
$datatable .= '<td><span class ="LC_nobreak">'.&mt('Supported search methods').	'</span></td><td class="LC_left_item" colspan="2"><table><tr>';
'</span></td><td class="LC_left_item" colspan="2"><table><tr>';	foreach my $title (@{$titleorder}) {
foreach my $title (@{$titleorder}) {	if (defined($searchtitles->{$title})) {
if (defined($searchtitles->{$title})) {	my $check = ' ';
my $check = ' ';	if (ref($settings) eq 'HASH') {
if (ref($settings) eq 'HASH') {	if (ref($settings->{'searchby'}) eq 'ARRAY') {
if (ref($settings->{'searchby'}) eq 'ARRAY') {	if (grep(/^\Q$title\E$/,@{$settings->{'searchby'}})) {
if (grep(/^\Q$title\E$/,@{$settings->{'searchby'}})) {	$check = ' checked="checked" ';
$check = ' checked="checked" ';	}
}	}
}	}
	$datatable .= '<td class="LC_left_item">'.
	'<span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="searchby" '.
	'value="'.$title.'"'.$check.'/>'.
	$searchtitles->{$title}.'</label></span></td>';
}	}
$datatable .= '<td class="LC_left_item">'.
'<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="searchby" '.
'value="'.$title.'"'.$check.'/>'.
$searchtitles->{$title}.'</label></span></td>';
}	}
}	$datatable .= '</tr></table></td></tr>';
$datatable .= '</tr></table></td></tr>';	$$rowtotal ++;
$$rowtotal ++;	if ($cansrchrow) {
if ($cansrchrow) {	$datatable .= '<tr class="LC_odd_row">';
$datatable .= '<tr class="LC_odd_row">';	} else {
	$datatable .= '<tr>';
	}
	$datatable .= '<td><span class ="LC_nobreak">'.&mt('Search latitude').'</span></td>'.
	'<td class="LC_left_item" colspan="2">'.
	'<span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="searchtypes" '.
	$exacton.' value="exact" />'.&mt('Exact match').
	'</label> '.
	'<label><input type="checkbox" name="searchtypes" '.
	$beginson.' value="begins" />'.&mt('Begins with').
	'</label> '.
	'<label><input type="checkbox" name="searchtypes" '.
	$containson.' value="contains" />'.&mt('Contains').
	'</label></span></td></tr>';
	$$rowtotal ++;
} else {	} else {
$datatable .= '<tr>';	my $domsrchon = ' checked="checked" ';
	my $domsrchoff = ' ';
	my $domlocalon = ' ';
	my $domlocaloff = ' checked="checked" ';
	if (ref($settings) eq 'HASH') {
	if ($settings->{'lclocalonly'} eq '1') {
	$domlocalon = $domlocaloff;
	$domlocaloff = ' ';
	}
	if ($settings->{'lcavailable'} eq '0') {
	$domsrchoff = $domsrchon;
	$domsrchon = ' ';
	}
	}
	$datatable='<tr class="LC_odd_row">'.
	'<td colspan="2"><span class ="LC_nobreak">'.&mt('LON-CAPA directory search available?').'</span></td>'.
	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
	'<input type="radio" name="dirsrch_domavailable"'.
	$domsrchon.' value="1" />'.&mt('Yes').'</label> '.
	'<label><input type="radio" name="dirsrch_domavailable"'.
	$domsrchoff.' value="0" />'.&mt('No').'</label></span></td>'.
	'</tr><tr>'.
	'<td colspan="2"><span class ="LC_nobreak">'.&mt('Other domains can search LON-CAPA domain?').'</span></td>'.
	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
	'<input type="radio" name="dirsrch_domlocalonly"'.
	$domlocaloff.' value="0" />'.&mt('Yes').'</label> '.
	'<label><input type="radio" name="dirsrch_domlocalonly"'.
	$domlocalon.' value="1" />'.&mt('No').'</label></span></td>'.
	'</tr>';
	$$rowtotal += 2;
}	}
$datatable .= '<td><span class ="LC_nobreak">'.&mt('Search latitude').'</span></td>'.
'<td class="LC_left_item" colspan="2">'.
'<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="searchtypes" '.
$exacton.' value="exact" />'.&mt('Exact match').
'</label> '.
'<label><input type="checkbox" name="searchtypes" '.
$beginson.' value="begins" />'.&mt('Begins with').
'</label> '.
'<label><input type="checkbox" name="searchtypes" '.
$containson.' value="contains" />'.&mt('Contains').
'</label></span></td></tr>';
$$rowtotal ++;
return $datatable;	return $datatable;
}	}

Line 3154 sub print_ltitools {	Line 3214 sub print_ltitools {
}	}
$datatable .= '</select></td>';	$datatable .= '</select></td>';
}	}
$datatable .= '</tr></table></fieldset>'.	$datatable .= '</tr></table></fieldset>';
	my %courseconfig;
	if (ref($settings->{$item}) eq 'HASH') {
	if (ref($settings->{$item}->{'crsconf'}) eq 'HASH') {
	%courseconfig = %{$settings->{$item}->{'crsconf'}};
	}
	}
	$datatable .= '<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">';
	foreach my $item ('label','title','target') {
	my $checked;
	if ($courseconfig{$item}) {
	$checked = ' checked="checked"';
	}
	$datatable .= '<label>'.
	'<input type="checkbox" name="ltitools_courseconfig_'.$i.'" value="'.$item.'"'.$checked.' />'.
	$lt{'crs'.$item}.'</label>'.(' ' x2)."\n";
	}
	$datatable .= '</span></fieldset>'.
'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'.	'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'.
'<table><tr><th>'.&mt('Action').'</th><th>'.&mt('Name').'</th><th>'.&mt('Value').'</th></tr>';	'<table><tr><th>'.&mt('Action').'</th><th>'.&mt('Name').'</th><th>'.&mt('Value').'</th></tr>';
if (ref($settings->{$item}->{'custom'}) eq 'HASH') {	if (ref($settings->{$item}->{'custom'}) eq 'HASH') {
Line 3260 sub print_ltitools {	Line 3337 sub print_ltitools {
$datatable .= '</select></td>';	$datatable .= '</select></td>';
}	}
$datatable .= '</tr></table></fieldset>'.	$datatable .= '</tr></table></fieldset>'.
	'<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">';
	foreach my $item ('label','title','target') {
	$datatable .= '<label>'.
	'<input type="checkbox" name="ltitools_courseconfig" value="'.$item.'" checked="checked" />'.
	$lt{'crs'.$item}.'</label>'.(' ' x2)."\n";
	}
	$datatable .= '</span></fieldset>'.
'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'.	'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'.
'<table><tr><th>'.&mt('Action').'</th><th>'.&mt('Name').'</th><th>'.&mt('Value').'</th></tr>'.	'<table><tr><th>'.&mt('Action').'</th><th>'.&mt('Name').'</th><th>'.&mt('Value').'</th></tr>'.
'<tr><td><span class="LC_nobreak">'.	'<tr><td><span class="LC_nobreak">'.
Line 3294 sub ltitools_names {	Line 3378 sub ltitools_names {
'width' => 'Width',	'width' => 'Width',
'passback' => 'Tool can return grades:',	'passback' => 'Tool can return grades:',
'roster' => 'Tool can retrieve roster:',	'roster' => 'Tool can retrieve roster:',
	'crstarget' => 'Display target',
	'crslabel' => 'Course label',
	'crstitle' => 'Course title',
);	);
return %lt;	return %lt;
}	}
Line 3310 sub print_coursedefaults {	Line 3397 sub print_coursedefaults {
uselcmath => 'Math preview uses LON-CAPA previewer (javascript) in place of DragMath (Java)',	uselcmath => 'Math preview uses LON-CAPA previewer (javascript) in place of DragMath (Java)',
usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',	usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',
postsubmit => 'Disable submit button/keypress following student submission',	postsubmit => 'Disable submit button/keypress following student submission',
canclone => "People who may clone a course (besides course's owner and coordinators)",	canclone => "People who may clone a course (besides course's owner and coordinators)",
	mysqltables => 'Lifetime (s) of "Temporary" MySQL tables (student performance data) on homeserver',
);	);
my %staticdefaults = (	my %staticdefaults = (
anonsurvey_threshold => 10,	anonsurvey_threshold => 10,
uploadquota => 500,	uploadquota => 500,
postsubmit => 60,	postsubmit => 60,
	mysqltables => 172800,
);	);
if ($position eq 'top') {	if ($position eq 'top') {
%defaultchecked = (	%defaultchecked = (
Line 3400 sub print_coursedefaults {	Line 3489 sub print_coursedefaults {
$itemcount ++;	$itemcount ++;
} else {	} else {
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
my ($currdefresponder,%defcredits,%curruploadquota,%deftimeout);	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 3444 sub print_coursedefaults {	Line 3533 sub print_coursedefaults {
$deftimeout{$type} = $staticdefaults{'postsubmit'};	$deftimeout{$type} = $staticdefaults{'postsubmit'};
}	}
}	}
	if (ref($settings->{'mysqltables'}) eq 'HASH') {
	foreach my $type (keys(%{$settings->{'mysqltables'}})) {
	$currmysql{$type} = $settings->{'mysqltables'}{$type};
	}
	} else {
	foreach my $type (@types) {
	$currmysql{$type} = $staticdefaults{'mysqltables'};
	}
	}
} else {	} else {
foreach my $type (@types) {	foreach my $type (@types) {
$deftimeout{$type} = $staticdefaults{'postsubmit'};	$deftimeout{$type} = $staticdefaults{'postsubmit'};
Line 3528 sub print_coursedefaults {	Line 3626 sub print_coursedefaults {
&radiobutton_prefs($current,\@toggles,\%defaultchecked,	&radiobutton_prefs($current,\@toggles,\%defaultchecked,
\%choices,$itemcount,$onclick,$additional,'left');	\%choices,$itemcount,$onclick,$additional,'left');
$datatable .= $table;	$datatable .= $table;
	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
	$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'.
	$choices{'mysqltables'}.
	'</span></td>'.
	'<td align="right" class="LC_right_item">'.
	'<table><tr>';
	foreach my $type (@types) {
	$datatable .= '<td align="center">'.&mt($type).'<br />'.
	'<input type="text" name="mysqltables_'.$type.'"'.
	' value="'.$currmysql{$type}.'" size="5" /></td>';
	}
	$datatable .= '</tr></table></td></tr>'."\n";
	$itemcount ++;

}	}
$$rowtotal += $itemcount;	$$rowtotal += $itemcount;
return $datatable;	return $datatable;
Line 3537 sub print_selfenrollment {	Line 3649 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 3761 sub print_validation_rows {	Line 3873 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,%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;
Line 3900 sub print_usersessions {	Line 4012 sub print_usersessions {
return $datatable;	return $datatable;
}	}

	sub print_ssl {
	my ($position,$dom,$settings,$rowtotal) = @_;
	my ($css_class,$datatable);
	my $lonhost = '';
	my $itemcount = 1;
	if ($position eq 'top') {
	my %domservers = &Apache::lonnet::get_servers($dom);
	$css_class = $itemcount%2?' class="LC_odd_row"':'';
	$datatable .= '<tr'.$css_class.'><td colspan="2">'.
	&LONCAPA::SSL::print_certstatus(\%domservers,'web','domprefs').
	'</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 'middle') {
	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->{'connect'}) eq 'HASH') {
	if ($settings->{'connect'}->{$type} =~ /^(no\|req)$/) {
	$checked{$1} = $checked{'yes'};
	delete($checked{'yes'});
	}
	}
	}
	foreach my $option ('no','yes','req') {
	$datatable .= '<span class="LC_nobreak"><label>'.
	'<input type="radio" name="connect_'.$type.'" '.
	'value="'.$option.'"'.$checked{$option}.' />'.$titles{$option}.
	'</label></span>'.(' 'x2);
	}
	}
	$datatable .= '</td></tr>';
	$itemcount ++;
	}
	} else {
	my $numinrow = 5;
	my $prefix = 'replication';
	my @types = ('certreq','nocertreq');
	my (%current,%checkedon,%checkedoff);
	my @locations = sort(keys(%by_location));
	foreach my $type (@types) {
	$checkedon{$type} = '';
	$checkedoff{$type} = ' checked="checked"';
	}
	if (ref($settings) eq 'HASH') {
	if (ref($settings->{$prefix}) eq 'HASH') {
	foreach my $key (keys(%{$settings->{$prefix}})) {
	$current{$key} = $settings->{$prefix}{$key};
	if (ref($current{$key}) eq 'ARRAY') {
	$checkedon{$key} = ' checked="checked"';
	$checkedoff{$key} = '';
	}
	}
	}
	}
	if (@locations > 0) {
	foreach my $type (@types) {
	$css_class = $itemcount%2?' class="LC_odd_row"':'';
	$datatable .= '<tr'.$css_class.'>
	<td><span class="LC_nobreak LC_right_item">'.$titles{$type}.'</span><br />
	<span class="LC_nobreak">
	<label><input type="radio" name="'.$prefix.'_'.$type.'_inuse" '.$checkedoff{$type}.' value="0" />'.&mt('Not in use').'</label>
	<label><input type="radio" name="'.$prefix.'_'.$type.'_inuse" '.$checkedon{$type}.' value="1" />'.&mt('In use').'</label></span></td><td>
	<div><input type="button" value="'.&mt('check all').'" '.
	'onclick="javascript:checkAll(document.display.'.$prefix.'_'.$type.')"'.
	' />'.(' 'x2)."\n".
	'<input type="button" value="'.&mt('uncheck all').'" '.
	'onclick="javascript:uncheckAll(document.display.'.$prefix.'_'.$type.')" />'.
	"\n".
	'</div><div><table>';
	my $rem;
	for (my $i=0; $i<@locations; $i++) {
	my ($showloc,$value,$checkedtype);
	if (ref($by_location{$locations[$i]}) eq 'ARRAY') {
	my $ip = $by_location{$locations[$i]}->[0];
	if (ref($by_ip{$ip}) eq 'ARRAY') {
	$value = join(':',@{$by_ip{$ip}});
	$showloc = join(', ',@{$by_ip{$ip}});
	if (ref($current{$type}) eq 'ARRAY') {
	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);
	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></td></tr>';
	$itemcount ++;
	}
	} else {
	$datatable .= '<tr'.$css_class.'><td>'.&mt('Nothing to set here, as there are no other institutions').'</td></tr>';
	$itemcount ++;
	}
	}
	}
	$$rowtotal += $itemcount;
	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',
	connect => 'Connections to 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 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 3920 sub build_location_hashes {	Line 4200 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 4556 sub tool_titles {	Line 4842 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 4566 sub courserequest_titles {	Line 4853 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 4955 sub email_as_username {	Line 5243 sub email_as_username {

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);
my %lt = &captcha_phrases();	my %lt = &captcha_phrases();
$keyentry = 'hidden';	$keyentry = 'hidden';
if ($context eq 'cancreate') {	if ($context eq 'cancreate') {
Line 4973 sub captcha_choice {	Line 5262 sub captcha_choice {
$pubtext = $lt{'pub'};	$pubtext = $lt{'pub'};
$privtext = $lt{'priv'};	$privtext = $lt{'priv'};
$keyentry = 'text';	$keyentry = 'text';
	$vertext = $lt{'ver'};
	$currver = $settings->{'recaptchaversion'};
	if ($currver ne '2') {
	$currver = 1;
	}
}	}
if (ref($settings->{'recaptchakeys'}) eq 'HASH') {	if (ref($settings->{'recaptchakeys'}) eq 'HASH') {
$currpub = $settings->{'recaptchakeys'}{'public'};	$currpub = $settings->{'recaptchakeys'}{'public'};
Line 5006 sub captcha_choice {	Line 5300 sub captcha_choice {
$currpub.'" size="40" /></span><br />'."\n".	$currpub.'" size="40" /></span><br />'."\n".
'<span class="LC_nobreak"><span id="'.$context.'_recaptchaprivtxt">'.$privtext.'</span> '."\n".	'<span class="LC_nobreak"><span id="'.$context.'_recaptchaprivtxt">'.$privtext.'</span> '."\n".
'<input type="'.$keyentry.'" id="'.$context.'_recaptchapriv" name="'.$context.'_recaptchapriv" value="'.	'<input type="'.$keyentry.'" id="'.$context.'_recaptchapriv" name="'.$context.'_recaptchapriv" value="'.
$currpriv.'" size="40" /></span></td></tr></table>'."\n".	$currpriv.'" size="40" /></span><br />'.
	'<span class="LC_nobreak"><span id="'.$context.'_recaptchavertxt">'.$vertext.'</span> '."\n".
	'<input type="'.$keyentry.'" id="'.$context.'_recaptchaversion" name="'.$context.'_recaptchaversion" value="'.
	$currver.'" size="3" /></span><br />'.
	'</td></tr></table>'."\n".
'</td></tr>';	'</td></tr>';
return $output;	return $output;
}	}
Line 5540 sub print_coursecategories {	Line 5838 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 5558 sub print_coursecategories {	Line 5860 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 5598 sub print_coursecategories {	Line 5911 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 5624 sub print_coursecategories {	Line 5951 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 5650 sub print_coursecategories {	Line 5980 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 5673 sub print_coursecategories {	Line 6003 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 5705 sub print_coursecategories {	Line 6035 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 5794 sub print_serverstatuses {	Line 6124 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 5886 sub coursecategories_javascript {	Line 6216 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 5958 function categoryCheck(form) {	Line 6290 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 5974 sub initialize_categories {	Line 6310 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 6791 sub modify_login {	Line 7128 sub modify_login {
$chgtxt .= '</ul>';	$chgtxt .= '</ul>';
$resulttext .= '<li>'.$chgtxt.'</li>';	$resulttext .= '<li>'.$chgtxt.'</li>';
}	}
	} elsif ($item eq 'recaptchaversion') {
	if (ref($loginhash{'login'}) eq 'HASH') {
	if ($loginhash{'login'}{'captcha'} eq 'recaptcha') {
	$resulttext .= '<li>'.&mt('ReCAPTCHA for helpdesk form set to version [_1]',$loginhash{'login'}{'recaptchaversion'}).
	'</li>';
	}
	}
} else {	} else {
$resulttext .= '<li>'.&mt("$title{$item} set to $offon[$env{'form.'.$item}]").'</li>';	$resulttext .= '<li>'.&mt("$title{$item} set to $offon[$env{'form.'.$item}]").'</li>';
}	}
Line 7578 sub modify_quotas {	Line 7922 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 7627 sub modify_quotas {	Line 7971 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 8377 sub modify_ltitools {	Line 8721 sub modify_ltitools {
}	}
}	}
}	}
	my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig');
	foreach my $item (@courseconfig) {
	$confhash{$newid}{'crsconf'}{$item} = 1;
	}
if ($env{'form.ltitools_add_custom'}) {	if ($env{'form.ltitools_add_custom'}) {
my $name = $env{'form.ltitools_add_custom_name'};	my $name = $env{'form.ltitools_add_custom_name'};
my $value = $env{'form.ltitools_add_custom_value'};	my $value = $env{'form.ltitools_add_custom_value'};
Line 8464 sub modify_ltitools {	Line 8812 sub modify_ltitools {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
}	}
}	}
	my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig_'.$i);
	foreach my $item ('label','title','target') {
	if (grep(/^\Q$item\E$/,@courseconfig)) {
	$confhash{$itemid}{'crsconf'}{$item} = 1;
	if (ref($domconfig{$action}{$itemid}{'crsconf'}) eq 'HASH') {
	if ($domconfig{$action}{$itemid}{'crsconf'}{$item} ne $confhash{$itemid}{'crsconf'}{$item}) {
	$changes{$itemid} = 1;
	}
	} else {
	$changes{$itemid} = 1;
	}
	}
	}
my @fields = &Apache::loncommon::get_env_multiple('form.ltitools_fields_'.$i);	my @fields = &Apache::loncommon::get_env_multiple('form.ltitools_fields_'.$i);
foreach my $field (@fields) {	foreach my $field (@fields) {
if ($possfield{$field}) {	if ($possfield{$field}) {
Line 8627 sub modify_ltitools {	Line 8988 sub modify_ltitools {
my $num = length($confhash{$itemid}{'secret'});	my $num = length($confhash{$itemid}{'secret'});
$resulttext .= ('*'x$num).'</li>';	$resulttext .= ('*'x$num).'</li>';
}	}
	$resulttext .= '<li>'.&mt('Configurable in course:');
	my @possconfig = ('label','title','target');
	my $numconfig = 0;
	if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') {
	foreach my $item (@possconfig) {
	if ($confhash{$itemid}{'crsconf'}{$item}) {
	$numconfig ++;
	$resulttext .= ' '.$lt{'crs'.$item};
	}
	}
	}
	if (!$numconfig) {
	$resulttext .= &mt('None');
	}
	$resulttext .= '</li>';
foreach my $item ('passback','roster') {	foreach my $item ('passback','roster') {
$resulttext .= '<li>'.$lt{$item}.' ';	$resulttext .= '<li>'.$lt{$item}.' ';
if ($confhash{$itemid}{$item}) {	if ($confhash{$itemid}{$item}) {
Line 8794 sub modify_autoenroll {	Line 9170 sub modify_autoenroll {
my $autorun = &Apache::lonnet::auto_run(undef,$dom),	my $autorun = &Apache::lonnet::auto_run(undef,$dom),
my %title = ( run => 'Auto-enrollment active',	my %title = ( run => 'Auto-enrollment active',
sender => 'Sender for notification messages',	sender => 'Sender for notification messages',
coowners => 'Automatic assignment of co-ownership to instructors of record (institutional data)');	coowners => 'Automatic assignment of co-ownership to instructors of record (institutional data)',
	failsafe => 'Failsafe for no drops if institutional data missing for a section');
my @offon = ('off','on');	my @offon = ('off','on');
my $sender_uname = $env{'form.sender_uname'};	my $sender_uname = $env{'form.sender_uname'};
my $sender_domain = $env{'form.sender_domain'};	my $sender_domain = $env{'form.sender_domain'};
Line 8804 sub modify_autoenroll {	Line 9181 sub modify_autoenroll {
$sender_domain = '';	$sender_domain = '';
}	}
my $coowners = $env{'form.autoassign_coowners'};	my $coowners = $env{'form.autoassign_coowners'};
	my $failsafe = $env{'form.autoenroll_failsafe'};
	$failsafe =~ s{^\s+\|\s+$}{}g;
	if ($failsafe =~ /\D/) {
	undef($failsafe);
	}
my %autoenrollhash = (	my %autoenrollhash = (
autoenroll => { 'run' => $env{'form.autoenroll_run'},	autoenroll => { 'run' => $env{'form.autoenroll_run'},
'sender_uname' => $sender_uname,	'sender_uname' => $sender_uname,
'sender_domain' => $sender_domain,	'sender_domain' => $sender_domain,
'co-owners' => $coowners,	'co-owners' => $coowners,
	'autofailsafe' => $failsafe,
}	}
);	);
my $putresult = &Apache::lonnet::put_dom('configuration',\%autoenrollhash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%autoenrollhash,
Line 8835 sub modify_autoenroll {	Line 9218 sub modify_autoenroll {
}	}
} elsif ($coowners) {	} elsif ($coowners) {
$changes{'coowners'} = 1;	$changes{'coowners'} = 1;
}	}
	if ($currautoenroll{'autofailsafe'} ne $failsafe) {
	$changes{'autofailsafe'} = 1;
	}
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
if ($changes{'run'}) {	if ($changes{'run'}) {
Line 8855 sub modify_autoenroll {	Line 9241 sub modify_autoenroll {
$lastactref->{'domainconfig'} = 1;	$lastactref->{'domainconfig'} = 1;
}	}
}	}
	if ($changes{'autofailsafe'}) {
	if ($failsafe ne '') {
	$resulttext .= '<li>'.&mt("$title{'failsafe'} set to [_1]",$failsafe).'</li>';
	} else {
	$resulttext .= '<li>'.&mt("$title{'failsafe'} deleted");
	}
	&Apache::lonnet::get_domain_defaults($dom,1);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
$resulttext = &mt('No changes made to auto-enrollment settings');	$resulttext = &mt('No changes made to auto-enrollment settings');
Line 9135 sub modify_directorysrch {	Line 9532 sub modify_directorysrch {
$currdirsrch{$key} = $domconfig{'directorysrch'}{$key};	$currdirsrch{$key} = $domconfig{'directorysrch'}{$key};
}	}
}	}
my %title = ( available => 'Directory search available',	my %title = ( available => 'Institutional directory search available',
localonly => 'Other domains can search',	localonly => 'Other domains can search institution',
	lcavailable => 'LON-CAPA directory search available',
	lclocalonly => 'Other domains can search LON-CAPA domain',
searchby => 'Search types',	searchby => 'Search types',
searchtypes => 'Search latitude');	searchtypes => 'Search latitude');
my @offon = ('off','on');	my @offon = ('off','on');
Line 9210 sub modify_directorysrch {	Line 9609 sub modify_directorysrch {
my %dirsrch_hash = (	my %dirsrch_hash = (
directorysrch => { available => $env{'form.dirsrch_available'},	directorysrch => { available => $env{'form.dirsrch_available'},
cansearch => \@cansearch,	cansearch => \@cansearch,
localonly => $env{'form.dirsrch_localonly'},	localonly => $env{'form.dirsrch_instlocalonly'},
	lclocalonly => $env{'form.dirsrch_domlocalonly'},
	lcavailable => $env{'form.dirsrch_domavailable'},
searchby => \@searchby,	searchby => \@searchby,
searchtypes => \@searchtypes,	searchtypes => \@searchtypes,
}	}
Line 9227 sub modify_directorysrch {	Line 9628 sub modify_directorysrch {
$changes{'available'} = 1;	$changes{'available'} = 1;
}	}
}	}
	if (exists($currdirsrch{'lcavailable'})) {
	if ($currdirsrch{'lcavailable'} ne $env{'form.dirsrch_domavailable'}) {
	$changes{'lcavailable'} = 1;
	}
	} else {
	if ($env{'form.dirsrch_lcavailable'} eq '1') {
	$changes{'lcavailable'} = 1;
	}
	}
if (exists($currdirsrch{'localonly'})) {	if (exists($currdirsrch{'localonly'})) {
if ($currdirsrch{'localonly'} ne $env{'form.dirsrch_localonly'}) {	if ($currdirsrch{'localonly'} ne $env{'form.dirsrch_instlocalonly'}) {
$changes{'localonly'} = 1;	$changes{'localonly'} = 1;
}	}
} else {	} else {
if ($env{'form.dirsrch_localonly'} eq '1') {	if ($env{'form.dirsrch_instlocalonly'} eq '1') {
$changes{'localonly'} = 1;	$changes{'localonly'} = 1;
}	}
}	}
	if (exists($currdirsrch{'lclocalonly'})) {
	if ($currdirsrch{'lclocalonly'} ne $env{'form.dirsrch_domlocalonly'}) {
	$changes{'lclocalonly'} = 1;
	}
	} else {
	if ($env{'form.dirsrch_domlocalonly'} eq '1') {
	$changes{'lclocalonly'} = 1;
	}
	}
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
if ($changes{'available'}) {	if ($changes{'available'}) {
$resulttext .= '<li>'.&mt("$title{'available'} set to: $offon[$env{'form.dirsrch_available'}]").'</li>';	$resulttext .= '<li>'.&mt("$title{'available'} set to: $offon[$env{'form.dirsrch_available'}]").'</li>';
}	}
	if ($changes{'lcavailable'}) {
	$resulttext .= '<li>'.&mt("$title{'lcavailable'} set to: $offon[$env{'form.dirsrch_domavailable'}]").'</li>';
	}
if ($changes{'localonly'}) {	if ($changes{'localonly'}) {
$resulttext .= '<li>'.&mt("$title{'localonly'} set to: $otherdoms[$env{'form.dirsrch_localonly'}]").'</li>';	$resulttext .= '<li>'.&mt("$title{'localonly'} set to: $otherdoms[$env{'form.dirsrch_instlocalonly'}]").'</li>';
}	}
	if ($changes{'lclocalonly'}) {
	$resulttext .= '<li>'.&mt("$title{'lclocalonly'} set to: $otherdoms[$env{'form.dirsrch_domlocalonly'}]").'</li>';
	}
if (ref($changes{'cansearch'}) eq 'ARRAY') {	if (ref($changes{'cansearch'}) eq 'ARRAY') {
my $chgtext;	my $chgtext;
if (ref($usertypes) eq 'HASH') {	if (ref($usertypes) eq 'HASH') {
Line 9295 sub modify_directorysrch {	Line 9719 sub modify_directorysrch {
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
$resulttext = &mt('No changes made to institution directory search settings');	$resulttext = &mt('No changes made to directory search settings');
}	}
} else {	} else {
$resulttext = '<span class="LC_error">'.	$resulttext = '<span class="LC_error">'.
Line 9482 sub modify_usercreation {	Line 9906 sub modify_usercreation {
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')) {
$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
} else {	} else {
$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
Line 9706 sub modify_selfcreation {	Line 10131 sub modify_selfcreation {
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 'emailusername') \|\| ($item eq 'notify') \|\|	($item eq 'emailusername') \|\| ($item eq 'notify') \|\|
($item eq 'selfcreateprocessing') \|\| ($item eq 'shibenv')) {	($item eq 'selfcreateprocessing') \|\| ($item eq 'shibenv')) {
$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
Line 10035 sub modify_selfcreation {	Line 10461 sub modify_selfcreation {
#	#
$save_usercreate{'cancreate'}{'captcha'} = $savecaptcha{'captcha'};	$save_usercreate{'cancreate'}{'captcha'} = $savecaptcha{'captcha'};
$save_usercreate{'cancreate'}{'recaptchakeys'} = $savecaptcha{'recaptchakeys'};	$save_usercreate{'cancreate'}{'recaptchakeys'} = $savecaptcha{'recaptchakeys'};
	$save_usercreate{'cancreate'}{'recaptchaversion'} = $savecaptcha{'recaptchaversion'};
$save_usercreate{'cancreate'}{'selfcreate'} = $cancreate{'selfcreate'};	$save_usercreate{'cancreate'}{'selfcreate'} = $cancreate{'selfcreate'};
if (ref($cancreate{'notify'}) eq 'HASH') {	if (ref($cancreate{'notify'}) eq 'HASH') {
$save_usercreate{'cancreate'}{'notify'} = $cancreate{'notify'};	$save_usercreate{'cancreate'}{'notify'} = $cancreate{'notify'};
Line 10196 sub modify_selfcreation {	Line 10623 sub modify_selfcreation {
$chgtext .= '<li>'.&mt('Private key set to [_1]',$pubkey).'</li>';	$chgtext .= '<li>'.&mt('Private key set to [_1]',$pubkey).'</li>';
}	}
$chgtext .= '</ul>';	$chgtext .= '</ul>';
	} elsif ($type eq 'recaptchaversion') {
	if ($savecaptcha{'captcha'} eq 'recaptcha') {
	$chgtext .= &mt('ReCAPTCHA set to version [_1]',$savecaptcha{$type});
	}
} 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 (ref($types) eq 'ARRAY') {
Line 10316 sub process_captcha {	Line 10747 sub process_captcha {
$changes->{'captcha'} = 1;	$changes->{'captcha'} = 1;
}	}
}	}
my ($newpub,$newpriv,$currpub,$currpriv);	my ($newpub,$newpriv,$currpub,$currpriv,$newversion,$currversion);
if ($newsettings->{'captcha'} eq 'recaptcha') {	if ($newsettings->{'captcha'} eq 'recaptcha') {
$newpub = $env{'form.'.$container.'_recaptchapub'};	$newpub = $env{'form.'.$container.'_recaptchapub'};
$newpriv = $env{'form.'.$container.'_recaptchapriv'};	$newpriv = $env{'form.'.$container.'_recaptchapriv'};
Line 10326 sub process_captcha {	Line 10757 sub process_captcha {
public => $newpub,	public => $newpub,
private => $newpriv,	private => $newpriv,
};	};
	$newversion = $env{'form.'.$container.'_recaptchaversion'};
	$newversion =~ s/\D//g;
	if ($newversion ne '2') {
	$newversion = 1;
	}
	$newsettings->{'recaptchaversion'} = $newversion;
}	}
if (ref($current->{'recaptchakeys'}) eq 'HASH') {	if (ref($current->{'recaptchakeys'}) eq 'HASH') {
$currpub = $current->{'recaptchakeys'}{'public'};	$currpub = $current->{'recaptchakeys'}{'public'};
Line 10337 sub process_captcha {	Line 10774 sub process_captcha {
}	}
}	}
}	}
	if ($current->{'captcha'} eq 'recaptcha') {
	$currversion = $current->{'recaptchaversion'};
	if ($currversion ne '2') {
	$currversion = 1;
	}
	}
	if ($currversion ne $newversion) {
	if ($container eq 'cancreate') {
	if (ref($changes->{'cancreate'}) eq 'ARRAY') {
	push(@{$changes->{'cancreate'}},'recaptchaversion');
	} elsif (!defined($changes->{'cancreate'})) {
	$changes->{'cancreate'} = ['recaptchaversion'];
	}
	} else {
	$changes->{'recaptchaversion'} = 1;
	}
	}
if (($newpub ne $currpub) \|\| ($newpriv ne $currpriv)) {	if (($newpub ne $currpub) \|\| ($newpriv ne $currpriv)) {
if ($container eq 'cancreate') {	if ($container eq 'cancreate') {
if (ref($changes->{'cancreate'}) eq 'ARRAY') {	if (ref($changes->{'cancreate'}) eq 'ARRAY') {
Line 10802 sub modify_coursecategories {	Line 11256 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 10816 sub modify_coursecategories {	Line 11279 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 10838 sub modify_coursecategories {	Line 11305 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 10900 sub modify_coursecategories {	Line 11370 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 11235 sub modify_coursedefaults {	Line 11719 sub modify_coursedefaults {
);	);
my @toggles = ('canuse_pdfforms','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');	'uploadquota_community','uploadquota_textbook','uploadquota_placement',
my @types = ('official','unofficial','community','textbook');	'mysqltables_official','mysqltables_unofficial','mysqltables_community',
	'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,
postsubmit => 60,	postsubmit => 60,
	mysqltables => 172800,
);	);

$defaultshash{'coursedefaults'} = {};	$defaultshash{'coursedefaults'} = {};
Line 11281 sub modify_coursedefaults {	Line 11768 sub modify_coursedefaults {
}	}
$defaultshash{'coursedefaults'}{$item} = $newdef;	$defaultshash{'coursedefaults'}{$item} = $newdef;
} else {	} else {
my ($type) = ($item =~ /^\Quploadquota_\E(\w+)$/);	my ($setting,$type) = ($item =~ /^(uploadquota\|mysqltables)_(\w+)$/);
if (ref($domconfig{'coursedefaults'}{'uploadquota'}) eq 'HASH') {	if (ref($domconfig{'coursedefaults'}{$setting}) eq 'HASH') {
$currdef = $domconfig{'coursedefaults'}{'uploadquota'}{$type};	$currdef = $domconfig{'coursedefaults'}{$setting}{$type};
}	}
$newdef =~ s/[^\w.\-]//g;	$newdef =~ s/[^\w.\-]//g;
$defaultshash{'coursedefaults'}{'uploadquota'}{$type} = $newdef;	$defaultshash{'coursedefaults'}{$setting}{$type} = $newdef;
}	}
if ($currdef ne $newdef) {	if ($currdef ne $newdef) {
my $staticdef;	my $staticdef;
Line 11294 sub modify_coursedefaults {	Line 11781 sub modify_coursedefaults {
unless (($currdef eq '') && ($newdef == $staticdefaults{$item})) {	unless (($currdef eq '') && ($newdef == $staticdefaults{$item})) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
} else {	} elsif ($item =~ /^(uploadquota\|mysqltables)_/) {
unless (($currdef eq '') && ($newdef == $staticdefaults{'uploadquota'})) {	my $setting = $1;
$changes{'uploadquota'} = 1;	unless (($currdef eq '') && ($newdef == $staticdefaults{$setting})) {
	$changes{$setting} = 1;
}	}
}	}
}	}
Line 11421 sub modify_coursedefaults {	Line 11909 sub modify_coursedefaults {
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (($changes{'canuse_pdfforms'}) \|\| ($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{'canclone'}) \|\| ($changes{'mysqltables'})) {
foreach my $item ('canuse_pdfforms','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 11499 sub modify_coursedefaults {	Line 11987 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>';
} else {	} else {
$resulttext .= '<li>'.&mt('Default quota for content uploaded via Course Editor remains default: [_1] MB',$staticdefaults{'uploadquota'}).'</li>';	$resulttext .= '<li>'.&mt('Default quota for content uploaded via Course Editor remains default: [_1] MB',$staticdefaults{'uploadquota'}).'</li>';
}	}
	} elsif ($item eq 'mysqltables') {
	if (ref($defaultshash{'coursedefaults'}{'mysqltables'}) eq 'HASH') {
	$resulttext .= '<li>'.&mt('Lifetime of "Temporary" MySQL tables (student performance data) on homeserver').'<ul>'.
	'<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('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>'.
	'</ul>'.
	'</li>';
	} else {
	$resulttext .= '<li>'.&mt('Lifetime of "Temporary" MySQL tables (student performance data) on homeserver remains default: [_1] s',$staticdefaults{'uploadquota'}).'</li>';
	}
} elsif ($item eq 'postsubmit') {	} elsif ($item eq 'postsubmit') {
if ($domdefaults{'postsubmit'} eq 'off') {	if ($domdefaults{'postsubmit'} eq 'off') {
$resulttext .= '<li>'.&mt('Submit button(s) remain enabled on page after student makes submission.');	$resulttext .= '<li>'.&mt('Submit button(s) remain enabled on page after student makes submission.');
Line 11535 sub modify_coursedefaults {	Line 12036 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 11586 sub modify_coursedefaults {	Line 12089 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 11833 sub modify_usersessions {	Line 12336 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 12148 sub modify_usersessions {	Line 12651 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 = ('connect','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 = (
	connect => \@connecttypes,
	replication => \@reptypes,
	);
	my $action = 'ssl';
	foreach my $prefix (sort(keys(%types))) {
	foreach my $type (@{$types{$prefix}}) {
	if ($prefix eq 'connect') {
	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}{'connect'}) eq 'HASH') {
	$domdefaults{'connect'} = $domconfig{$action}{'connect'};
	}
	}
	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 'connect') {
	$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_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 13024 function updateCaptcha(caller,context) {	Line 13692 function updateCaptcha(caller,context) {
var pubitem;	var pubitem;
var privtext;	var privtext;
var pubtext;	var pubtext;
	var versionitem;
	var versiontext;
if (document.getElementById(context+'_recaptchapub')) {	if (document.getElementById(context+'_recaptchapub')) {
pubitem = document.getElementById(context+'_recaptchapub');	pubitem = document.getElementById(context+'_recaptchapub');
} else {	} else {
Line 13044 function updateCaptcha(caller,context) {	Line 13714 function updateCaptcha(caller,context) {
} else {	} else {
return;	return;
}	}
	if (document.getElementById(context+'_recaptchaversion')) {
	versionitem = document.getElementById(context+'_recaptchaversion');
	} else {
	return;
	}
	if (document.getElementById(context+'_recaptchavertxt')) {
	versiontext = document.getElementById(context+'_recaptchavertxt');
	} else {
	return;
	}
if (caller.checked) {	if (caller.checked) {
if (caller.value == 'recaptcha') {	if (caller.value == 'recaptcha') {
pubitem.type = 'text';	pubitem.type = 'text';
Line 13052 function updateCaptcha(caller,context) {	Line 13732 function updateCaptcha(caller,context) {
privitem.size = '40';	privitem.size = '40';
pubtext.innerHTML = "$lt{'pub'}";	pubtext.innerHTML = "$lt{'pub'}";
privtext.innerHTML = "$lt{'priv'}";	privtext.innerHTML = "$lt{'priv'}";
	versionitem.type = 'text';
	versionitem.size = '3';
	versiontext.innerHTML = "$lt{'ver'}";
} else {	} else {
pubitem.type = 'hidden';	pubitem.type = 'hidden';
privitem.type = 'hidden';	privitem.type = 'hidden';
	versionitem.type = 'hidden';
pubtext.innerHTML = '';	pubtext.innerHTML = '';
privtext.innerHTML = '';	privtext.innerHTML = '';
	versiontext.innerHTML = '';
}	}
}	}
return;	return;
Line 13122 sub captcha_phrases {	Line 13807 sub captcha_phrases {
original => 'original (CAPTCHA)',	original => 'original (CAPTCHA)',
recaptcha => 'successor (ReCAPTCHA)',	recaptcha => 'successor (ReCAPTCHA)',
notused => 'unused',	notused => 'unused',
	ver => 'ReCAPTCHA version (1 or 2)',
);	);
}	}

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

Removed from v.1.268
changed lines
	Added in v.1.278