Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.160.6.49 and 1.160.6.70

version 1.160.6.49, 2014/05/23 09:00:22	version 1.160.6.70, 2016/09/16 23:53:01
Line 250 sub handler {	Line 250 sub handler {
header => [{col1 => 'Log-in Page Items',	header => [{col1 => 'Log-in Page Items',
col2 => '',},	col2 => '',},
{col1 => 'Log-in Help',	{col1 => 'Log-in Help',
	col2 => 'Value'},
	{col1 => 'Custom HTML in document head',
col2 => 'Value'}],	col2 => 'Value'}],
print => \&print_login,	print => \&print_login,
modify => \&modify_login,	modify => \&modify_login,
Line 412 sub handler {	Line 414 sub handler {
'coursedefaults' =>	'coursedefaults' =>
{text => 'Course/Community defaults',	{text => 'Course/Community defaults',
help => 'Domain_Configuration_Course_Defaults',	help => 'Domain_Configuration_Course_Defaults',
header => [{col1 => 'Defaults which can be overridden for each course by a DC',	header => [{col1 => 'Defaults which can be overridden in each course by a CC',
	col2 => 'Value',},
	{col1 => 'Defaults which can be overridden for each course by a DC',
col2 => 'Value',},],	col2 => 'Value',},],
print => \&print_coursedefaults,	print => \&print_coursedefaults,
modify => \&modify_coursedefaults,	modify => \&modify_coursedefaults,
Line 461 sub handler {	Line 465 sub handler {
{col1 => 'Log-in Page Items',	{col1 => 'Log-in Page Items',
col2 => ''},	col2 => ''},
{col1 => 'Log-in Help',	{col1 => 'Log-in Help',
	col2 => 'Value'},
	{col1 => 'Custom HTML in document head',
col2 => 'Value'}],	col2 => 'Value'}],
print => \&print_login,	print => \&print_login,
modify => \&modify_login,	modify => \&modify_login,
Line 650 sub print_config_box {	Line 656 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 'login') && ($numheaders < 3))) {	(($action eq 'login') && ($numheaders < 4))) {
$colspan = ' colspan="2"';	$colspan = ' colspan="2"';
}	}
if ($action eq 'usersessions') {	if ($action eq 'usersessions') {
Line 666 sub print_config_box {	Line 672 sub print_config_box {
</tr>';	</tr>';
$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 'usermodification') \|\| ($action eq 'defaults') \|\| ($action eq 'coursedefaults') \|\|
($action eq 'selfenrollment') \|\| ($action eq 'usersessions')) {	($action eq 'selfenrollment') \|\| ($action eq 'usersessions')) {
$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);
} elsif ($action eq 'login') {	} elsif ($action eq 'login') {
if ($numheaders == 3) {	if ($numheaders == 4) {
$colspan = ' colspan="2"';	$colspan = ' colspan="2"';
$output .= &print_login('service',$dom,$confname,$phase,$settings,\$rowtotal);	$output .= &print_login('service',$dom,$confname,$phase,$settings,\$rowtotal);
} else {	} else {
Line 721 sub print_config_box {	Line 727 sub print_config_box {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
}	}
$rowtotal ++;	$rowtotal ++;
} elsif (($action eq 'usermodification') \|\| ($action eq 'defaults')) {	} elsif (($action eq 'usermodification') \|\| ($action eq 'coursedefaults') \|\|
	($action eq 'defaults')) {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
} elsif ($action eq 'login') {	} elsif ($action eq 'login') {
if ($numheaders == 3) {	if ($numheaders == 4) {
$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal).'	$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal).'
</table>	</table>
</td>	</td>
Line 740 sub print_config_box {	Line 747 sub print_config_box {
} else {	} else {
$output .= &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);	$output .= &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);
}	}
	$output .= '
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">';
	if ($numheaders == 4) {
	$output .= '
	<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>';
	} else {
	$output .= '
	<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>';
	}
	$rowtotal ++;
	$output .= &print_login('headtag',$dom,$confname,$phase,$settings,\$rowtotal);
} elsif ($action eq 'requestcourses') {	} elsif ($action eq 'requestcourses') {
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal).	$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);
&print_studentcode($settings,\$rowtotal).'	$rowtotal ++;
	$output .= &print_studentcode($settings,\$rowtotal).'
</table>	</table>
</td>	</td>
</tr>	</tr>
Line 777 sub print_config_box {	Line 806 sub print_config_box {
&print_validation_rows('requestcourses',$dom,$settings,\$rowtotal);	&print_validation_rows('requestcourses',$dom,$settings,\$rowtotal);
} elsif ($action eq 'requestauthor') {	} elsif ($action eq 'requestauthor') {
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);	$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);
	$rowtotal ++;
} elsif ($action eq 'rolecolors') {	} elsif ($action eq 'rolecolors') {
$output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'	$output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'
</table>	</table>
Line 862 sub print_config_box {	Line 892 sub print_config_box {
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);	$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);
} elsif ($action eq 'helpsettings') {	} elsif ($action eq 'helpsettings') {
$output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);	$output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);
} elsif ($action eq 'coursedefaults') {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
}	}
}	}
$output .= '	$output .= '
Line 1160 sub print_login {	Line 1188 sub print_login {
$itemcount ++;	$itemcount ++;
}	}
$datatable .= &captcha_choice('login',$settings,$itemcount);	$datatable .= &captcha_choice('login',$settings,$itemcount);
	} elsif ($caller eq 'headtag') {
	my %domservers = &Apache::lonnet::get_servers($dom);
	my $choice = $choices{'headtag'};
	$css_class = ' class="LC_odd_row"';
	$datatable .= '<tr'.$css_class.'><td colspan="2">'.$choice.'</td>'.
	'<td align="left"><table><tr><th>'.$choices{'hostid'}.'</th>'.
	'<th>'.$choices{'current'}.'</th>'.
	'<th>'.$choices{'action'}.'</th>'.
	'<th>'.$choices{'exempt'}.'</th></tr>'."\n";
	my (%currurls,%currexempt);
	if (ref($settings) eq 'HASH') {
	if (ref($settings->{'headtag'}) eq 'HASH') {
	foreach my $lonhost (keys(%{$settings->{'headtag'}})) {
	if (ref($settings->{'headtag'}{$lonhost}) eq 'HASH') {
	$currurls{$lonhost} = $settings->{'headtag'}{$lonhost}{'url'};
	$currexempt{$lonhost} = $settings->{'headtag'}{$lonhost}{'exempt'};
	}
	}
	}
	}
	my %lt = &Apache::lonlocal::texthash(
	del => 'Delete?',
	rep => 'Replace:',
	upl => 'Upload:',
	curr => 'View contents',
	none => 'None',
	);
	my $switchserver = &check_switchserver($dom,$confname);
	foreach my $lonhost (sort(keys(%domservers))) {
	my $exempt = &check_exempt_addresses($currexempt{$lonhost});
	$datatable .= '<tr><td>'.$domservers{$lonhost}.'</td>';
	if ($currurls{$lonhost}) {
	$datatable .= '<td class="LC_right_item"><a href="'.
	"javascript:void(open('$currurls{$lonhost}?inhibitmenu=yes','Custom_HeadTag',
	'menubar=0,toolbar=1,scrollbars=1,width=600,height=500,resizable=yes'))".
	'">'.$lt{'curr'}.'</a></td>'.
	'<td><span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="loginheadtag_del" value="'.$lonhost.'" />'.
	$lt{'del'}.'</label> '.$lt{'rep'}.'</span>';
	} else {
	$datatable .= '<td class="LC_right_item">'.$lt{'none'}.'</td><td>'.$lt{'upl'};
	}
	$datatable .='<br />';
	if ($switchserver) {
	$datatable .= &mt('Upload to library server: [_1]',$switchserver);
	} else {
	$datatable .= '<input type="file" name="loginheadtag_'.$lonhost.'" />';
	}
	$datatable .= '</td><td><input type="textbox" name="loginheadtagexempt_'.$lonhost.'" value="'.$exempt.'" /></td></tr>';
	}
	$datatable .= '</table></td></tr>';
}	}
return $datatable;	return $datatable;
}	}
Line 1193 sub login_choices {	Line 1272 sub login_choices {
link => "Link",	link => "Link",
alink => "Active link",	alink => "Active link",
vlink => "Visited link",	vlink => "Visited link",
	headtag => "Custom markup",
	action => "Action",
	current => "Current",
);	);
return %choices;	return %choices;
}	}
Line 2055 sub print_requestmail {	Line 2137 sub print_requestmail {
$datatable .= &mt('There are no active Domain Coordinators');	$datatable .= &mt('There are no active Domain Coordinators');
}	}
$datatable .='</td></tr>';	$datatable .='</td></tr>';
$$rowtotal += $rows;
return $datatable;	return $datatable;
}	}

Line 2064 sub print_studentcode {	Line 2145 sub print_studentcode {
my $rownum = 0;	my $rownum = 0;
my ($output,%current);	my ($output,%current);
my @crstypes = ('official','unofficial','community','textbook');	my @crstypes = ('official','unofficial','community','textbook');
if (ref($settings->{'uniquecode'}) eq 'HASH') {	if (ref($settings) eq 'HASH') {
foreach my $type (@crstypes) {	if (ref($settings->{'uniquecode'}) eq 'HASH') {
$current{$type} = $settings->{'uniquecode'}{$type};	foreach my $type (@crstypes) {
	$current{$type} = $settings->{'uniquecode'}{$type};
	}
}	}
}	}
$output .= '<tr>'.	$output .= '<tr>'.
Line 2315 ENDSCRIPT	Line 2398 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 2349 sub print_autoenroll {	Line 2432 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 2384 sub print_autoenroll {	Line 2470 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 2500 sub print_autocreate {	Line 2590 sub print_autocreate {
$createoff{'req'}.' value="0" />'.&mt('No').'</label></span>';	$createoff{'req'}.' value="0" />'.&mt('No').'</label></span>';
my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',	my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',
'autocreate_xmldc',%currhash);	'autocreate_xmldc',%currhash);
	$datatable .= '</td></tr><tr class="LC_odd_row"><td>';
if ($numdc > 1) {	if ($numdc > 1) {
$datatable .= '</td></tr><tr class="LC_odd_row"><td>'.	$datatable .= &mt('Course creation processed as: (choose Dom. Coord.)').
&mt('Course creation processed as: (choose Dom. Coord.)').	'</td><td class="LC_left_item">';
'</td><td class="LC_left_item">'.$dctable.'</td></tr>';
} else {	} else {
$datatable .= $dctable.'</td></tr>';	$datatable .= &mt('Course creation processed as:').
	'</td><td class="LC_right_item">';
}	}
	$datatable .= $dctable.'</td></tr>';
$$rowtotal += $rows;	$$rowtotal += $rows;
return $datatable;	return $datatable;
}	}
Line 2741 sub print_helpsettings {	Line 2833 sub print_helpsettings {

sub radiobutton_prefs {	sub radiobutton_prefs {
my ($settings,$toggles,$defaultchecked,$choices,$itemcount,$onclick,	my ($settings,$toggles,$defaultchecked,$choices,$itemcount,$onclick,
$additional) = @_;	$additional,$align) = @_;
return unless ((ref($toggles) eq 'ARRAY') && (ref($defaultchecked) eq 'HASH') &&	return unless ((ref($toggles) eq 'ARRAY') && (ref($defaultchecked) eq 'HASH') &&
(ref($choices) eq 'HASH'));	(ref($choices) eq 'HASH'));

Line 2775 sub radiobutton_prefs {	Line 2867 sub radiobutton_prefs {
$datatable .=	$datatable .=
'<tr'.$css_class.'><td valign="top">'.	'<tr'.$css_class.'><td valign="top">'.
'<span class="LC_nobreak">'.$choices->{$item}.	'<span class="LC_nobreak">'.$choices->{$item}.
'</span></td>'.	'</span></td>';
'<td class="LC_right_item"><span class="LC_nobreak">'.	if ($align eq 'left') {
	$datatable .= '<td class="LC_left_item">';
	} else {
	$datatable .= '<td class="LC_right_item">';
	}
	$datatable .=
	'<span class="LC_nobreak">'.
'<label><input type="radio" name="'.	'<label><input type="radio" name="'.
$item.'" '.$checkedon{$item}.' value="1"'.$onclick.' />'.&mt('Yes').	$item.'" '.$checkedon{$item}.' value="1"'.$onclick.' />'.&mt('Yes').
'</label> <label><input type="radio" name="'.$item.'" '.	'</label> <label><input type="radio" name="'.$item.'" '.
Line 2794 sub print_coursedefaults {	Line 2892 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',
	uselcmath => 'Math preview uses LON-CAPA previewer (javascript) in place of DragMath (Java)',
	usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',
	postsubmit => 'Disable submit button/keypress following student submission',
	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,
	mysqltables => 172800,
);	);
if ($position eq 'top') {	if ($position eq 'top') {
%defaultchecked = ('canuse_pdfforms' => 'off');	%defaultchecked = (
@toggles = ('canuse_pdfforms');	'uselcmath' => 'on',
	'usejsme' => 'on',
	'canclone' => 'none',
	);
	@toggles = ('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"':'';
	$datatable .=
	'<tr'.$css_class.'><td valign="top">'.
	'<span class="LC_nobreak">'.$choices{'canclone'}.
	'</span></td><td class="LC_left_item">';
	my $currcanclone = 'none';
	my $onclick;
	my @cloneoptions = ('none','domain');
	my %clonetitles = (
	none => 'No additional course requesters',
	domain => "Any course requester in course's domain",
	instcode => 'Course requests for official courses ...',
	);
	my (%codedefaults,@code_order,@posscodes);
	if (&Apache::lonnet::auto_instcode_defaults($dom,\%codedefaults,
	\@code_order) eq 'ok') {
	if (@code_order > 0) {
	push(@cloneoptions,'instcode');
	$onclick = ' onclick="toggleDisplay(this.form,'."'cloneinstcode'".');"';
	}
	}
	if (ref($settings) eq 'HASH') {
	if ($settings->{'canclone'}) {
	if (ref($settings->{'canclone'}) eq 'HASH') {
	if (ref($settings->{'canclone'}{'instcode'}) eq 'ARRAY') {
	if (@code_order > 0) {
	$currcanclone = 'instcode';
	@posscodes = @{$settings->{'canclone'}{'instcode'}};
	}
	}
	} elsif ($settings->{'canclone'} eq 'domain') {
	$currcanclone = $settings->{'canclone'};
	}
	}
	}
	foreach my $option (@cloneoptions) {
	my ($checked,$additional);
	if ($currcanclone eq $option) {
	$checked = ' checked="checked"';
	}
	if ($option eq 'instcode') {
	if (@code_order) {
	my $show = 'none';
	if ($checked) {
	$show = 'block';
	}
	$additional = '<div id="cloneinstcode" style="display:'.$show.'" />'.
	&mt('Institutional codes for new and cloned course have identical:').
	'<br />';
	foreach my $item (@code_order) {
	my $codechk;
	if ($checked) {
	if (grep(/^\Q$item\E$/,@posscodes)) {
	$codechk = ' checked="checked"';
	}
	}
	$additional .= '<label>'.
	'<input type="checkbox" name="clonecode" value="'.$item.'"'.$codechk.' />'.
	$item.'</label>';
	}
	$additional .= (' 'x2).'('.&mt('check as many as needed').')</div>';
	}
	}
	$datatable .=
	'<span class="LC_nobreak"><label><input type="radio" name="canclone"'.$checked.
	' value="'.$option.'"'.$onclick.' />'.$clonetitles{$option}.
	'</label> '.$additional.'</span><br />';
	}
	$datatable .= '</td>'.
	'</tr>';
	$itemcount ++;
} else {	} else {
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
my ($currdefresponder,$def_official_credits,$def_unofficial_credits,$def_textbook_credits,	my ($currdefresponder,%defcredits,%curruploadquota,%deftimeout,%currmysql));
%curruploadquota);
my $currusecredits = 0;	my $currusecredits = 0;
	my $postsubmitclient = 1;
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook');
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
$currdefresponder = $settings->{'anonsurvey_threshold'};	$currdefresponder = $settings->{'anonsurvey_threshold'};
Line 2822 sub print_coursedefaults {	Line 3001 sub print_coursedefaults {
}	}
}	}
if (ref($settings->{'coursecredits'}) eq 'HASH') {	if (ref($settings->{'coursecredits'}) eq 'HASH') {
$def_official_credits = $settings->{'coursecredits'}->{'official'};	foreach my $type (@types) {
$def_unofficial_credits = $settings->{'coursecredits'}->{'unofficial'};	next if ($type eq 'community');
$def_textbook_credits = $settings->{'coursecredits'}->{'textbook'};	$defcredits{$type} = $settings->{'coursecredits'}->{$type};
if (($def_official_credits ne '') \|\| ($def_unofficial_credits ne '') \|\|	if ($defcredits{$type} ne '') {
($def_textbook_credits ne '')) {	$currusecredits = 1;
$currusecredits = 1;	}
	}
	}
	if (ref($settings->{'postsubmit'}) eq 'HASH') {
	if ($settings->{'postsubmit'}->{'client'} eq 'off') {
	$postsubmitclient = 0;
	foreach my $type (@types) {
	$deftimeout{$type} = $staticdefaults{'postsubmit'};
	}
	} else {
	foreach my $type (@types) {
	if (ref($settings->{'postsubmit'}->{'timeout'}) eq 'HASH') {
	if ($settings->{'postsubmit'}->{'timeout'}->{$type} =~ /^\d+$/) {
	$deftimeout{$type} = $settings->{'postsubmit'}->{'timeout'}->{$type};
	} else {
	$deftimeout{$type} = $staticdefaults{'postsubmit'};
	}
	} else {
	$deftimeout{$type} = $staticdefaults{'postsubmit'};
	}
	}
	}
	} else {
	foreach my $type (@types) {
	$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 {
	foreach my $type (@types) {
	$deftimeout{$type} = $staticdefaults{'postsubmit'};
	}
}	}
if (!$currdefresponder) {	if (!$currdefresponder) {
$currdefresponder = $staticdefaults{'anonsurvey_threshold'};	$currdefresponder = $staticdefaults{'anonsurvey_threshold'};
Line 2869 sub print_coursedefaults {	Line 3085 sub print_coursedefaults {
$display = 'block';	$display = 'block';
}	}
my $additional = '<div id="credits" style="display: '.$display.'">'.	my $additional = '<div id="credits" style="display: '.$display.'">'.
'<span class="LC_nobreak">'.	'<i>'.&mt('Default credits').'</i><br /><table><tr>';
&mt('Default credits for official courses [_1]',	foreach my $type (@types) {
'<input type="text" name="official_credits" value="'.	next if ($type eq 'community');
$def_official_credits.'" size="3" />').	$additional .= '<td align="center">'.&mt($type).'<br />'.
'</span><br />'.	'<input type="text" name="'.$type.'_credits"'.
'<span class="LC_nobreak">'.	' value="'.$defcredits{$type}.'" size="3" /></td>';
&mt('Default credits for unofficial courses [_1]',	}
'<input type="text" name="unofficial_credits" value="'.	$additional .= '</tr></table></div>'."\n";
$def_unofficial_credits.'" size="3" />').
'</span><br />'.
'<span class="LC_nobreak">'.
&mt('Default credits for textbook courses [_1]',
'<input type="text" name="textbook_credits" value="'.
$def_textbook_credits.'" size="3" />').
'</span></div>'."\n";
%defaultchecked = ('coursecredits' => 'off');	%defaultchecked = ('coursecredits' => 'off');
@toggles = ('coursecredits');	@toggles = ('coursecredits');
my $current = {	my $current = {
Line 2891 sub print_coursedefaults {	Line 3100 sub print_coursedefaults {
};	};
(my $table,$itemcount) =	(my $table,$itemcount) =
&radiobutton_prefs($current,\@toggles,\%defaultchecked,	&radiobutton_prefs($current,\@toggles,\%defaultchecked,
\%choices,$itemcount,$onclick,$additional);	\%choices,$itemcount,$onclick,$additional,'left');
	$datatable .= $table;
	$onclick = "toggleDisplay(this.form,'studentsubmission');";
	my $display = 'none';
	if ($postsubmitclient) {
	$display = 'block';
	}
	$additional = '<div id="studentsubmission" style="display: '.$display.'">'.
	&mt('Number of seconds submit is disabled').'<br />'.
	'<i>'.&mt('Enter 0 to remain disabled until page reload.').'</i><br />'.
	'<table><tr>';
	foreach my $type (@types) {
	$additional .= '<td align="center">'.&mt($type).'<br />'.
	'<input type="text" name="'.$type.'_timeout" value="'.
	$deftimeout{$type}.'" size="5" /></td>';
	}
	$additional .= '</tr></table></div>'."\n";
	%defaultchecked = ('postsubmit' => 'on');
	@toggles = ('postsubmit');
	$current = {
	'postsubmit' => $postsubmitclient,
	};
	($table,$itemcount) =
	&radiobutton_prefs($current,\@toggles,\%defaultchecked,
	\%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 ++;	$itemcount ++;

}	}
$$rowtotal += $itemcount;	$$rowtotal += $itemcount;
return $datatable;	return $datatable;
Line 3098 sub print_validation_rows {	Line 3344 sub print_validation_rows {
}	}
if ($caller eq 'requestcourses') {	if ($caller eq 'requestcourses') {
my %currhash;	my %currhash;
if (ref($settings->{'validation'}) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if ($settings->{'validation'}{'dc'} ne '') {	if (ref($settings->{'validation'}) eq 'HASH') {
$currhash{$settings->{'validation'}{'dc'}} = 1;	if ($settings->{'validation'}{'dc'} ne '') {
	$currhash{$settings->{'validation'}{'dc'}} = 1;
	}
}	}
}	}
my $numinrow = 2;	my $numinrow = 2;
my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',	my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',
'validationdc',%currhash);	'validationdc',%currhash);
	my $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
	$datatable .= '</td></tr><tr'.$css_class.'><td>';
if ($numdc > 1) {	if ($numdc > 1) {
$datatable .= '</td></tr><tr class="LC_odd_row"><td>'.	$datatable .= &mt('Course creation processed as: (choose Dom. Coord.)');
&mt('Course creation processed as: (choose Dom. Coord.)').
'</td><td class="LC_left_item">'.$dctable.'</td></tr>';
} else {	} else {
$datatable .= $dctable.'</td></tr>';	$datatable .= &mt('Course creation processed as: ');
}	}
	$datatable .= '</td><td class="LC_left_item">'.$dctable.'</td></tr>';
$itemcount ++;	$itemcount ++;
}	}
if (ref($rowtotal)) {	if (ref($rowtotal)) {
Line 3135 sub print_usersessions {	Line 3384 sub print_usersessions {
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);
$datatable .= &spares_row($dom,\%servers,\%spareid,\%serverhomes,\%altids,$rowtotal);	my $curroffloadnow;
	if (ref($settings) eq 'HASH') {
	if (ref($settings->{'offloadnow'}) eq 'HASH') {
	$curroffloadnow = $settings->{'offloadnow'};
	}
	}
	$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.');
Line 3385 sub current_offloads_to {	Line 3640 sub current_offloads_to {
}	}

sub spares_row {	sub spares_row {
my ($dom,$servers,$spareid,$serverhomes,$altids,$rowtotal) = @_;	my ($dom,$servers,$spareid,$serverhomes,$altids,$curroffloadnow,$rowtotal) = @_;
my $css_class;	my $css_class;
my $numinrow = 4;	my $numinrow = 4;
my $itemcount = 1;	my $itemcount = 1;
Line 3405 sub spares_row {	Line 3660 sub spares_row {
}	}
}	}
next unless (ref($spareid->{$server}) eq 'HASH');	next unless (ref($spareid->{$server}) eq 'HASH');
	my $checkednow;
	if (ref($curroffloadnow) eq 'HASH') {
	if ($curroffloadnow->{$server}) {
	$checkednow = ' checked="checked"';
	}
	}
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
$datatable .= '<tr'.$css_class.'>	$datatable .= '<tr'.$css_class.'>
<td rowspan="2">	<td rowspan="2">
<span class="LC_nobreak">'.	<span class="LC_nobreak">'.
&mt('[_1] when busy, offloads to:'	&mt('[_1] when busy, offloads to:'
,'<b>'.$server.'</b>').	,'<b>'.$server.'</b>').'</span><br />'.
	'<span class="LC_nobreak">'."\n".
	'<label><input type="checkbox" name="offloadnow" value="'.$server.'"'.$checkednow.' />'.
	' '.&mt('Switch active users on next access').'</label></span>'.
"\n";	"\n";
my (%current,%canselect);	my (%current,%canselect);
my @choices =	my @choices =
Line 3634 sub print_loadbalancing {	Line 3898 sub print_loadbalancing {
$disabled = ' disabled="disabled"';	$disabled = ' disabled="disabled"';
}	}
$targettable .=	$targettable .=
'<td><label><input type="checkbox" name="loadbalancing_target_'.$balnum.'_'.$sparetype.'"'.	'<td><span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="loadbalancing_target_'.$balnum.'_'.$sparetype.'"'.
$checked.$disabled.' value="'.$chkboxval.'" id="loadbalancing_target_'.$balnum.'_'.$sparetype.'_'.$i.'" onclick="checkOffloads('."this,'$balnum','$sparetype'".');" /><span id="loadbalancing_targettxt_'.$balnum.'_'.$sparetype.'_'.$i.'"> '.$chkboxval.	$checked.$disabled.' value="'.$chkboxval.'" id="loadbalancing_target_'.$balnum.'_'.$sparetype.'_'.$i.'" onclick="checkOffloads('."this,'$balnum','$sparetype'".');" /><span id="loadbalancing_targettxt_'.$balnum.'_'.$sparetype.'_'.$i.'"> '.$chkboxval.
'</span></label></td>';	'</span></label></span></td>';
my $rem = $i%($numinrow);	my $rem = $i%($numinrow);
if ($rem == 0) {	if ($rem == 0) {
if (($i > 0) && ($i < $numspares-1)) {	if (($i > 0) && ($i < $numspares-1)) {
Line 3726 sub loadbalancing_rules {	Line 3991 sub loadbalancing_rules {
if (ref($currrules) eq 'HASH') {	if (ref($currrules) eq 'HASH') {
$current = $currrules->{$type};	$current = $currrules->{$type};
}	}
if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom') \|\| ($type eq '_LC_ipchange')) {	if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {
if ($dom ne &Apache::lonnet::host_domain($lonhost)) {	if ($dom ne &Apache::lonnet::host_domain($lonhost)) {
$current = '';	$current = '';
}	}
Line 3778 sub loadbalance_rule_row {	Line 4043 sub loadbalance_rule_row {
my @rulenames;	my @rulenames;
my %ruletitles = &offloadtype_text();	my %ruletitles = &offloadtype_text();
if (($type eq '_LC_ipchangesso') \|\| ($type eq '_LC_ipchange')) {	if (($type eq '_LC_ipchangesso') \|\| ($type eq '_LC_ipchange')) {
@rulenames = ('balancer','offloadedto');	@rulenames = ('balancer','offloadedto','specific');
} else {	} else {
@rulenames = ('default','homeserver');	@rulenames = ('default','homeserver');
if ($type eq '_LC_external') {	if ($type eq '_LC_external') {
Line 3789 sub loadbalance_rule_row {	Line 4054 sub loadbalance_rule_row {
push(@rulenames,'none');	push(@rulenames,'none');
}	}
my $style = $targets_div_style;	my $style = $targets_div_style;
if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom') \|\| ($type eq '_LC_ipchange')) {	if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {
$style = $homedom_div_style;	$style = $homedom_div_style;
}	}
my $space;	my $space;
Line 3840 sub loadbalance_rule_row {	Line 4105 sub loadbalance_rule_row {
'<input type="radio" name="loadbalancing_rules_'.$balnum.'_'.$type.	'<input type="radio" name="loadbalancing_rules_'.$balnum.'_'.$type.
'" id="loadbalancing_rules_'.$balnum.'_'.$type.'_'.$i.'" value="'.	'" id="loadbalancing_rules_'.$balnum.'_'.$type.'_'.$i.'" value="'.
$rule.'" onclick="balanceruleChange('."this.form,'$balnum','$type'".	$rule.'" onclick="balanceruleChange('."this.form,'$balnum','$type'".
')"'.$checked.' /> '.$ruletitles{$rulenames[$i]}.	')"'.$checked.' /> ';
'</label>'.$extra.'</span><br />'."\n";	if (($rulenames[$i] eq 'specific') && ($type =~ /^_LC_ipchange/)) {
	$output .= $ruletitles{'particular'};
	} else {
	$output .= $ruletitles{$rulenames[$i]};
	}
	$output .= '</label>'.$extra.'</span><br />'."\n";
}	}
$output .= '</div></td></tr>'."\n";	$output .= '</div></td></tr>'."\n";
return $output;	return $output;
Line 3856 sub offloadtype_text {	Line 4126 sub offloadtype_text {
'none' => 'No offload',	'none' => 'No offload',
'balancer' => 'Session hosted on Load Balancer, after re-authentication',	'balancer' => 'Session hosted on Load Balancer, after re-authentication',
'offloadedto' => 'Session hosted on offload server, after re-authentication',	'offloadedto' => 'Session hosted on offload server, after re-authentication',
	'particular' => 'Session hosted (after re-auth) on server:',
);	);
return %ruletitles;	return %ruletitles;
}	}
Line 4138 sub print_selfcreation {	Line 4409 sub print_selfcreation {
$datatable .= '<tr>';	$datatable .= '<tr>';
}	}
my $currval;	my $currval;
if (ref($createsettings->{'shibenv'}) eq 'HASH') {	if (ref($createsettings) eq 'HASH') {
$currval = $createsettings->{'shibenv'}{$fields[$i]};	if (ref($createsettings->{'shibenv'}) eq 'HASH') {
	$currval = $createsettings->{'shibenv'}{$fields[$i]};
	}
}	}
$datatable .= '<td class="LC_left_item">'.	$datatable .= '<td class="LC_left_item">'.
'<span class="LC_nobreak">'.	'<span class="LC_nobreak">'.
Line 4294 sub email_as_username {	Line 4567 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 4312 sub captcha_choice {	Line 4586 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 4345 sub captcha_choice {	Line 4624 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 4528 sub print_defaults {	Line 4811 sub print_defaults {
my $includeempty = 1;	my $includeempty = 1;
$datatable .= &Apache::loncommon::select_datelocale($item,$defaults{$item},undef,$includeempty);	$datatable .= &Apache::loncommon::select_datelocale($item,$defaults{$item},undef,$includeempty);
} elsif ($item eq 'lang_def') {	} elsif ($item eq 'lang_def') {
my %langchoices = &get_languages_hash();	my $includeempty = 1;
$langchoices{''} = 'No language preference';	$datatable .= &Apache::loncommon::select_language($item,$defaults{$item},$includeempty);
%langchoices = &Apache::lonlocal::texthash(%langchoices);
$datatable .= &Apache::loncommon::select_form($defaults{$item},$item,
\%langchoices);
} else {	} else {
my $size;	my $size;
if ($item eq 'portal_def') {	if ($item eq 'portal_def') {
Line 4601 sub print_defaults {	Line 4881 sub print_defaults {
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
$datatable .= '</select> '.&mt('Internal ID:').	$datatable .= '</select> '.&mt('Internal ID:').
'<input type="text" size="10" name="addinststatus" value="" /></span>'.	'<input type="text" size="10" name="addinststatus" value="" />'.
' '.&mt('(new)').	' '.&mt('(new)').
'</span></td><td class="LC_left_item"><span class="LC_nobreak">'.	'</span></td><td class="LC_left_item"><span class="LC_nobreak">'.
&mt('Name displayed:').	&mt('Name displayed:').
Line 5138 sub serverstatus_pages {	Line 5418 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','metadata_keywords','metadata_harvest',
'takeoffline','takeonline','showenv','toggledebug','ping','domconf',	'takeoffline','takeonline','showenv','toggledebug','ping','domconf',
'uniquecodes','diskusage');	'uniquecodes','diskusage','coursecatalog');
}	}

sub defaults_javascript {	sub defaults_javascript {
my ($settings) = @_;	my ($settings) = @_;
my ($output,$jstext);	return unless (ref($settings) eq 'HASH');
if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) {	if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) {
my $maxnum = scalar(@{$settings->{'inststatusorder'}});	my $maxnum = scalar(@{$settings->{'inststatusorder'}});
if ($maxnum eq '') {	if ($maxnum eq '') {
$maxnum = 0;	$maxnum = 0;
}	}
$maxnum ++;	$maxnum ++;
$jstext = ' var inststatuses = Array('."'".join("','",@{$settings->{'inststatusorder'}})."'".');';	my $jstext = ' var inststatuses = Array('."'".join("','",@{$settings->{'inststatusorder'}})."'".');';
return <<"ENDSCRIPT";	return <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 5228 sub coursecategories_javascript {	Line 5508 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 $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(\$communities_reserved);
	&js_escape(\$choose_again);
$output = <<"ENDSCRIPT";	$output = <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 5743 sub modify_login {	Line 6026 sub modify_login {
}	}

my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
	my %domservers = &Apache::lonnet::get_servers($dom);
my @loginvia_attribs = ('serverpath','custompath','exempt');	my @loginvia_attribs = ('serverpath','custompath','exempt');
if (keys(%servers) > 1) {	if (keys(%servers) > 1) {
foreach my $lonhost (keys(%servers)) {	foreach my $lonhost (keys(%servers)) {
Line 5785 sub modify_login {	Line 6069 sub modify_login {
$changes{'loginvia'}{$lonhost} = 1;	$changes{'loginvia'}{$lonhost} = 1;
}	}
if ($item eq 'exempt') {	if ($item eq 'exempt') {
$new =~ s/^\s+//;	$new = &check_exempt_addresses($new);
$new =~ s/\s+$//;
my @poss_ips = split(/\s[,:]\s/,$new);
my @okips;
foreach my $ip (@poss_ips) {
if ($ip =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
if (($1 <= 255) && ($2 <= 255) && ($3 <= 255) && ($4 <= 255)) {
push(@okips,$ip);
}
}
}
if (@okips > 0) {
$new = join(',',@okips);
} else {
$new = '';
}
}	}
$loginhash{login}{loginvia}{$lonhost}{$item} = $new;	$loginhash{login}{loginvia}{$lonhost}{$item} = $new;
}	}
Line 5912 sub modify_login {	Line 6181 sub modify_login {
$errors .= '<li><span class="LC_error">'.$error.'</span></li>';	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
}	}
}	}

	my (%currheadtagurls,%currexempt,@newhosts,%newheadtagurls,%possexempt);
	if (ref($domconfig{'login'}) eq 'HASH') {
	if (ref($domconfig{'login'}{'headtag'}) eq 'HASH') {
	foreach my $lonhost (keys(%{$domconfig{'login'}{'headtag'}})) {
	if ($domservers{$lonhost}) {
	if (ref($domconfig{'login'}{'headtag'}{$lonhost}) eq 'HASH') {
	$currheadtagurls{$lonhost} = $domconfig{'login'}{'headtag'}{$lonhost}{'url'};
	$currexempt{$lonhost} = $domconfig{'login'}{'headtag'}{$lonhost}{'exempt'}
	}
	}
	}
	}
	}
	my @delheadtagurls = &Apache::loncommon::get_env_multiple('form.loginheadtag_del');
	foreach my $lonhost (sort(keys(%domservers))) {
	if (grep(/^\Q$lonhost\E$/,@delheadtagurls)) {
	$changes{'headtag'}{$lonhost} = 1;
	} else {
	if ($env{'form.loginheadtagexempt_'.$lonhost}) {
	$possexempt{$lonhost} = &check_exempt_addresses($env{'form.loginheadtagexempt_'.$lonhost});
	}
	if ($env{'form.loginheadtag_'.$lonhost.'.filename'}) {
	push(@newhosts,$lonhost);
	} elsif ($currheadtagurls{$lonhost}) {
	$loginhash{'login'}{'headtag'}{$lonhost}{'url'} = $currheadtagurls{$lonhost};
	if ($currexempt{$lonhost}) {
	if ((!exists($possexempt{$lonhost})) \|\| ($possexempt{$lonhost} ne $currexempt{$lonhost})) {
	$changes{'headtag'}{$lonhost} = 1;
	}
	} elsif ($possexempt{$lonhost}) {
	$changes{'headtag'}{$lonhost} = 1;
	}
	if ($possexempt{$lonhost}) {
	$loginhash{'login'}{'headtag'}{$lonhost}{'exempt'} = $possexempt{$lonhost};
	}
	}
	}
	}
	if (@newhosts) {
	my $error;
	my ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm);
	if ($configuserok eq 'ok') {
	if ($switchserver) {
	$error = &mt("Upload of custom markup is not permitted to this server: [_1]",$switchserver);
	} elsif ($author_ok eq 'ok') {
	foreach my $lonhost (@newhosts) {
	my $formelem = 'loginheadtag_'.$lonhost;
	(my $result,$newheadtagurls{$lonhost}) = &publishlogo($r,'upload',$formelem,$dom,$confname,
	"login/headtag/$lonhost",'','',
	$env{'form.loginheadtag_'.$lonhost.'.filename'});
	if ($result eq 'ok') {
	$loginhash{'login'}{'headtag'}{$lonhost}{'url'} = $newheadtagurls{$lonhost};
	$changes{'headtag'}{$lonhost} = 1;
	if ($possexempt{$lonhost}) {
	$loginhash{'login'}{'headtag'}{$lonhost}{'exempt'} = $possexempt{$lonhost};
	}
	} else {
	my $puberror = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",
	$newheadtagurls{$lonhost},$result);
	$errors .= '<li><span class="LC_error">'.$puberror.'</span></li>';
	if ((grep(/^\Q$lonhost\E$/,keys(%currheadtagurls))) &&
	(!grep(/^\Q$lonhost\E$/,@delheadtagurls))) {
	$loginhash{'login'}{'headtag'}{$lonhost} = $currheadtagurls{$lonhost};
	}
	}
	}
	} else {
	$error = &mt("Upload of custom markup file(s) failed because an author role could not be assigned to a Domain Configuration user ([_1]) in domain: [_2]. Error was: [_3].",$confname,$dom,$author_ok);
	}
	} else {
	$error = &mt("Upload of custom markup file(s) failed because a Domain Configuration user ([_1]) could not be created in domain: [_2]. Error was: [_3].",$confname,$dom,$configuserok);
	}
	if ($error) {
	&Apache::lonnet::logthis($error);
	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
	}
	}

&process_captcha('login',\%changes,$loginhash{'login'},$domconfig{'login'});	&process_captcha('login',\%changes,$loginhash{'login'},$domconfig{'login'});

my $defaulthelpfile = '/adm/loginproblems.html';	my $defaulthelpfile = '/adm/loginproblems.html';
Line 6012 sub modify_login {	Line 6360 sub modify_login {
}	}
}	}
}	}
	} elsif ($item eq 'headtag') {
	if (ref($changes{$item}) eq 'HASH') {
	foreach my $lonhost (sort(keys(%{$changes{$item}}))) {
	if (grep(/^\Q$lonhost\E$/,@delheadtagurls)) {
	$resulttext .= '<li>'.&mt('custom markup file removed for [_1]',$domservers{$lonhost}).'</li>';
	} elsif (ref($loginhash{'login'}{'headtag'}{$lonhost}) eq 'HASH') {
	$resulttext .= '<li><a href="'.
	"javascript:void(open('$loginhash{'login'}{'headtag'}{$lonhost}{'url'}?inhibitmenu=yes','Custom_HeadTag',
	'menubar=0,toolbar=1,scrollbars=1,width=600,height=500,resizable=yes'))".
	'">'.&mt('custom markup').'</a> '.&mt('(for [_1])',$servers{$lonhost}).' ';
	if ($possexempt{$lonhost}) {
	$resulttext .= &mt('not included for client IP(s): [_1]',$possexempt{$lonhost});
	} else {
	$resulttext .= &mt('included for any client IP');
	}
	$resulttext .= '</li>';
	}
	}
	}
} elsif ($item eq 'captcha') {	} elsif ($item eq 'captcha') {
if (ref($loginhash{'login'}) eq 'HASH') {	if (ref($loginhash{'login'}) eq 'HASH') {
my $chgtxt;	my $chgtxt;
Line 6043 sub modify_login {	Line 6410 sub modify_login {
if (!$privkey) {	if (!$privkey) {
$chgtxt .= '<li>'.&mt('Private key deleted').'</li>';	$chgtxt .= '<li>'.&mt('Private key deleted').'</li>';
} else {	} else {
$chgtxt .= '<li>'.&mt('Private key set to [_1]',$pubkey).'</li>';	$chgtxt .= '<li>'.&mt('Private key set to [_1]',$privkey).'</li>';
}	}
$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 6067 sub modify_login {	Line 6441 sub modify_login {
return $resulttext;	return $resulttext;
}	}

	sub check_exempt_addresses {
	my ($iplist) = @_;
	$iplist =~ s/^\s+//;
	$iplist =~ s/\s+$//;
	my @poss_ips = split(/\s[,:]\s/,$iplist);
	my (@okips,$new);
	foreach my $ip (@poss_ips) {
	if ($ip =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
	if (($1 <= 255) && ($2 <= 255) && ($3 <= 255) && ($4 <= 255)) {
	push(@okips,$ip);
	}
	}
	}
	if (@okips > 0) {
	$new = join(',',@okips);
	} else {
	$new = '';
	}
	return $new;
	}

sub color_font_choices {	sub color_font_choices {
my %choices =	my %choices =
&Apache::lonlocal::texthash (	&Apache::lonlocal::texthash (
Line 7052 sub modify_quotas {	Line 7447 sub modify_quotas {
if (@{$confhash{'validation'}{$item}} > 0) {	if (@{$confhash{'validation'}{$item}} > 0) {
@{$confhash{'validation'}{$item}} = sort(@{$confhash{'validation'}{$item}});	@{$confhash{'validation'}{$item}} = sort(@{$confhash{'validation'}{$item}});
}	}
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'validation'}{$item}) eq 'ARRAY') {	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
@changed = &Apache::loncommon::compare_arrays($confhash{'validation'}{$item},	if (ref($domconfig{'requestcourses'}{'validation'}{$item}) eq 'ARRAY') {
$domconfig{'requestcourses'}{'validation'}{$item});	@changed = &Apache::loncommon::compare_arrays($confhash{'validation'}{$item},
	$domconfig{'requestcourses'}{'validation'}{$item});
	} else {
	@changed = @{$confhash{'validation'}{$item}};
	}
} else {	} else {
@changed = @{$confhash{'validation'}{$item}};	@changed = @{$confhash{'validation'}{$item}};
}	}
Line 7076 sub modify_quotas {	Line 7475 sub modify_quotas {
$env{'form.requestcourses_validation_'.$item} =~ s/[\n\r\f]+/\s/gs;	$env{'form.requestcourses_validation_'.$item} =~ s/[\n\r\f]+/\s/gs;
}	}
}	}
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if ($domconfig{'requestcourses'}{'validation'}{$item} ne $confhash{'validation'}{$item}) {	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
$changes{'validation'}{$item} = $confhash{'validation'}{$item};	if ($domconfig{'requestcourses'}{'validation'}{$item} ne $confhash{'validation'}{$item}) {
	$changes{'validation'}{$item} = $confhash{'validation'}{$item};
	}
	} else {
	if ($confhash{'validation'}{$item} ne '') {
	$changes{'validation'}{$item} = $confhash{'validation'}{$item};
	}
}	}
} else {	} else {
if ($confhash{'validation'}{$item} ne '') {	if ($confhash{'validation'}{$item} ne '') {
Line 7096 sub modify_quotas {	Line 7501 sub modify_quotas {
}	}
}	}
if (ref($confhash{'validation'}) eq 'HASH') {	if (ref($confhash{'validation'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
unless ($confhash{'validation'}{'dc'} eq $domconfig{'requestcourses'}{'validation'}{'dc'}) {	if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {
if ($confhash{'validation'}{'dc'} eq '') {	unless ($confhash{'validation'}{'dc'} eq $domconfig{'requestcourses'}{'validation'}{'dc'}) {
$changes{'validation'}{'dc'} = &mt('None');	if ($confhash{'validation'}{'dc'} eq '') {
} else {	$changes{'validation'}{'dc'} = &mt('None');
$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};	} else {
	$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
	}
}	}
	} elsif ($confhash{'validation'}{'dc'} ne '') {
	$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
}	}
} elsif ($confhash{'validation'}{'dc'} ne '') {	} elsif ($confhash{'validation'}{'dc'} ne '') {
$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};	$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
Line 7111 sub modify_quotas {	Line 7520 sub modify_quotas {
} elsif ($confhash{'validation'}{'dc'} ne '') {	} elsif ($confhash{'validation'}{'dc'} ne '') {
$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};	$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
}	}
} elsif (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	} else {
if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
$changes{'validation'}{'dc'} = &mt('None');	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
	if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {
	$changes{'validation'}{'dc'} = &mt('None');
	}
	}
}	}
}	}
}	}
Line 7521 sub modify_autoenroll {	Line 7934 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 7531 sub modify_autoenroll {	Line 7945 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 7562 sub modify_autoenroll {	Line 7982 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 7582 sub modify_autoenroll {	Line 8005 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 8209 sub modify_usercreation {	Line 8643 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 8433 sub modify_selfcreation {	Line 8868 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 8762 sub modify_selfcreation {	Line 9198 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 8923 sub modify_selfcreation {	Line 9360 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') {
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 as username, 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}) {
$chgtext .= '<li>'.$infotitles->{$field}.'</li>';	$chgtext .= '<li>'.$infotitles->{$field}.'</li>';
}	}
}	}
	$chgtext .= '</ul>';
	} 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 .= '</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 as username, no information besides e-mail address will be provided by [_1].',"'$usertypes->{$type}'").'<br />';
}	}
}	}
}	}
Line 9041 sub process_captcha {	Line 9484 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'};
$newpub =~ s/\W//g;	$newpub =~ s/[^\w\-]//g;
$newpriv =~ s/\W//g;	$newpriv =~ s/[^\w\-]//g;
$newsettings->{'recaptchakeys'} = {	$newsettings->{'recaptchakeys'} = {
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 9062 sub process_captcha {	Line 9511 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 9746 sub modify_coursecategories {	Line 10212 sub modify_coursecategories {
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
if ($changes{'unauth'} \|\| $changes{'auth'}) {	if ($changes{'unauth'} \|\| $changes{'auth'}) {
&Apache::loncommon::devalidate_domconfig_cache($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
	if ($changes{'auth'}) {
	$domdefaults{'catauth'} = $domconfig{'coursecategories'}{'auth'};
	}
	if ($changes{'unauth'}) {
	$domdefaults{'catunauth'} = $domconfig{'coursecategories'}{'unauth'};
	}
	my $cachetime = 246060;
	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
if (ref($lastactref) eq 'HASH') {	if (ref($lastactref) eq 'HASH') {
$lastactref->{'domainconfig'} = 1;	$lastactref->{'domdefaults'} = 1;
}	}
}	}
} else {	} else {
Line 9945 sub modify_helpsettings {	Line 10419 sub modify_helpsettings {
sub modify_coursedefaults {	sub modify_coursedefaults {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,%changes,%defaultshash);	my ($resulttext,$errors,%changes,%defaultshash);
my %defaultchecked = ('canuse_pdfforms' => 'off');	my %defaultchecked = (
my @toggles = ('canuse_pdfforms');	'uselcmath' => 'on',
	'usejsme' => 'on'
	);
	my @toggles = ('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','mysqltables_official',
	'mysqltables_unofficial','mysqltables_community','mysqltables_textbook');
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook');
my %staticdefaults = (	my %staticdefaults = (
anonsurvey_threshold => 10,	anonsurvey_threshold => 10,
uploadquota => 500,	uploadquota => 500,
	postsubmit => 60,
	mysqltables => 172800,
);	);

$defaultshash{'coursedefaults'} = {};	$defaultshash{'coursedefaults'} = {};
Line 9993 sub modify_coursedefaults {	Line 10473 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 10006 sub modify_coursedefaults {	Line 10486 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;
}	}
}	}
}	}
}	}
	my $currclone = $domconfig{'coursedefaults'}{'canclone'};
my $officialcreds = $env{'form.official_credits'};	my @currclonecode;
$officialcreds =~ s/[^\d.]+//g;	if (ref($currclone) eq 'HASH') {
my $unofficialcreds = $env{'form.unofficial_credits'};	if (ref($currclone->{'instcode'}) eq 'ARRAY') {
$unofficialcreds =~ s/[^\d.]+//g;	@currclonecode = @{$currclone->{'instcode'}};
my $textbookcreds = $env{'form.textbook_credits'};	}
$textbookcreds =~ s/[^\d.]+//g;	}
if (ref($domconfig{'coursedefaults'}{'coursecredits'} ne 'HASH') &&	my $newclone;
($env{'form.coursecredits'} eq '1')) {	if ($env{'form.canclone'} =~ /^(none\|domain\|instcode)$/) {
$changes{'coursecredits'} = 1;	$newclone = $env{'form.canclone'};
	}
	if ($newclone eq 'instcode') {
	my @newcodes = &Apache::loncommon::get_env_multiple('form.clonecode');
	my (%codedefaults,@code_order,@clonecode);
	&Apache::lonnet::auto_instcode_defaults($dom,\%codedefaults,
	\@code_order);
	foreach my $item (@code_order) {
	if (grep(/^\Q$item\E$/,@newcodes)) {
	push(@clonecode,$item);
	}
	}
	if (@clonecode) {
	$defaultshash{'coursedefaults'}{'canclone'} = { $newclone => \@clonecode };
	my @diffs = &Apache::loncommon::compare_arrays(\@currclonecode,\@clonecode);
	if (@diffs) {
	$changes{'canclone'} = 1;
	}
	} else {
	$newclone eq '';
	}
	} elsif ($newclone ne '') {
	$defaultshash{'coursedefaults'}{'canclone'} = $newclone;
	}
	if ($newclone ne $currclone) {
	$changes{'canclone'} = 1;
	}
	my %credits;
	foreach my $type (@types) {
	unless ($type eq 'community') {
	$credits{$type} = $env{'form.'.$type.'_credits'};
	$credits{$type} =~ s/[^\d.]+//g;
	}
	}
	if ((ref($domconfig{'coursedefaults'}{'coursecredits'}) ne 'HASH') &&
	($env{'form.coursecredits'} eq '1')) {
	$changes{'coursecredits'} = 1;
	foreach my $type (keys(%credits)) {
	$defaultshash{'coursedefaults'}{'coursecredits'}{$type} = $credits{$type};
	}
} else {	} else {
if (($domconfig{'coursedefaults'}{'coursecredits'}{'official'} ne $officialcreds) \|\|	if ($env{'form.coursecredits'} eq '1') {
($domconfig{'coursedefaults'}{'coursecredits'}{'unofficial'} ne $unofficialcreds) \|\|	foreach my $type (@types) {
($domconfig{'coursedefaults'}{'coursecredits'}{'textbook'} ne $textbookcreds)) {	unless ($type eq 'community') {
$changes{'coursecredits'} = 1;	if ($domconfig{'coursedefaults'}{'coursecredits'}{$type} ne $credits{$type}) {
	$changes{'coursecredits'} = 1;
	}
	$defaultshash{'coursedefaults'}{'coursecredits'}{$type} = $credits{$type};
	}
	}
	} elsif (ref($domconfig{'coursedefaults'}{'coursecredits'}) eq 'HASH') {
	foreach my $type (@types) {
	unless ($type eq 'community') {
	if ($domconfig{'coursedefaults'}{'coursecredits'}{$type}) {
	$changes{'coursecredits'} = 1;
	last;
	}
	}
	}
}	}
}	}
$defaultshash{'coursedefaults'}{'coursecredits'} = {	if ($env{'form.postsubmit'} eq '1') {
official => $officialcreds,	$defaultshash{'coursedefaults'}{'postsubmit'}{'client'} = 'on';
unofficial => $unofficialcreds,	my %currtimeout;
textbook => $textbookcreds,	if (ref($domconfig{'coursedefaults'}{'postsubmit'}) eq 'HASH') {
	if ($domconfig{'coursedefaults'}{'postsubmit'}{'client'} eq 'off') {
	$changes{'postsubmit'} = 1;
	}
	if (ref($domconfig{'coursedefaults'}{'postsubmit'}{'timeout'}) eq 'HASH') {
	%currtimeout = %{$domconfig{'coursedefaults'}{'postsubmit'}{'timeout'}};
	}
	} else {
	$changes{'postsubmit'} = 1;
	}
	foreach my $type (@types) {
	my $timeout = $env{'form.'.$type.'_timeout'};
	$timeout =~ s/\D//g;
	if ($timeout == $staticdefaults{'postsubmit'}) {
	$timeout = '';
	} elsif (($timeout eq '') \|\| ($timeout =~ /^0+$/)) {
	$timeout = '0';
	}
	unless ($timeout eq '') {
	$defaultshash{'coursedefaults'}{'postsubmit'}{'timeout'}{$type} = $timeout;
	}
	if (exists($currtimeout{$type})) {
	if ($timeout ne $currtimeout{$type}) {
	$changes{'postsubmit'} = 1;
	}
	} elsif ($timeout ne '') {
	$changes{'postsubmit'} = 1;
	}
	}
	} else {
	$defaultshash{'coursedefaults'}{'postsubmit'}{'client'} = 'off';
	if (ref($domconfig{'coursedefaults'}{'postsubmit'}) eq 'HASH') {
	if ($domconfig{'coursedefaults'}{'postsubmit'}{'client'} eq 'on') {
	$changes{'postsubmit'} = 1;
	}
	} else {
	$changes{'postsubmit'} = 1;
	}
}	}
}	}
my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,
Line 10041 sub modify_coursedefaults {	Line 10612 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{'canuse_pdfforms'}) \|\| ($changes{'coursecredits'}) \|\|	if (($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|
($changes{'uploadquota'})) {	($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|
if ($changes{'canuse_pdfforms'}) {	($changes{'canclone'}) \|\| ($changes{'mysqltables'})) {
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'};	foreach my $item ('uselcmath','usejsme') {
	if ($changes{$item}) {
	$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item};
	}
}	}
if ($changes{'coursecredits'}) {	if ($changes{'coursecredits'}) {
if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {	if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {
$domdefaults{'officialcredits'} =	foreach my $type (keys(%{$defaultshash{'coursedefaults'}{'coursecredits'}})) {
$defaultshash{'coursedefaults'}{'coursecredits'}{'official'};	$domdefaults{$type.'credits'} =
$domdefaults{'unofficialcredits'} =	$defaultshash{'coursedefaults'}{'coursecredits'}{$type};
$defaultshash{'coursedefaults'}{'coursecredits'}{'unofficial'};	}
$domdefaults{'textbookcredits'} =	}
$domdefaults{'coursedefaults'}{'coursecredits'}{'textbook'};	}
	if ($changes{'postsubmit'}) {
	if (ref($defaultshash{'coursedefaults'}{'postsubmit'}) eq 'HASH') {
	$domdefaults{'postsubmit'} = $defaultshash{'coursedefaults'}{'postsubmit'}{'client'};
	if (ref($defaultshash{'coursedefaults'}{'postsubmit'}{'timeout'}) eq 'HASH') {
	foreach my $type (keys(%{$defaultshash{'coursedefaults'}{'postsubmit'}{'timeout'}})) {
	$domdefaults{$type.'postsubtimeout'} =
	$defaultshash{'coursedefaults'}{'postsubmit'}{'timeout'}{$type};
	}
	}
}	}
}	}
if ($changes{'uploadquota'}) {	if ($changes{'uploadquota'}) {
Line 10063 sub modify_coursedefaults {	Line 10646 sub modify_coursedefaults {
}	}
}	}
}	}
	if ($changes{'canclone'}) {
	if (ref($defaultshash{'coursedefaults'}{'canclone'}) eq 'HASH') {
	if (ref($defaultshash{'coursedefaults'}{'canclone'}{'instcode'}) eq 'ARRAY') {
	my @clonecodes = @{$defaultshash{'coursedefaults'}{'canclone'}{'instcode'}};
	if (@clonecodes) {
	$domdefaults{'canclone'} = join('+',@clonecodes);
	}
	}
	} else {
	$domdefaults{'canclone'}=$defaultshash{'coursedefaults'}{'canclone'};
	}
	}
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
if (ref($lastactref) eq 'HASH') {	if (ref($lastactref) eq 'HASH') {
Line 10071 sub modify_coursedefaults {	Line 10666 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 'canuse_pdfforms') {	if ($item eq 'uselcmath') {
if ($env{'form.'.$item} eq '1') {	if ($env{'form.'.$item} eq '1') {
$resulttext .= '<li>'.&mt("Course/Community users can create/upload PDF forms set to 'on'").'</li>';	$resulttext .= '<li>'.&mt('Math preview uses LON-CAPA previewer (javascript), if supported by browser.').'</li>';
} else {	} else {
$resulttext .= '<li>'.&mt('Course/Community users can create/upload PDF forms set to "off"').'</li>';	$resulttext .= '<li>'.&mt('Math preview uses DragMath (Java), if supported by client OS.').'</li>';
	}
	} elsif ($item eq 'usejsme') {
	if ($env{'form.'.$item} eq '1') {
	$resulttext .= '<li>'.&mt('Molecule editor uses JSME (HTML5), if supported by browser.').'</li>';
	} else {
	$resulttext .= '<li>'.&mt('Molecule editor uses JME (Java), if supported by client OS.').'</li>';
}	}
} elsif ($item eq 'anonsurvey_threshold') {	} elsif ($item eq 'anonsurvey_threshold') {
$resulttext .= '<li>'.&mt('Responder count required for display of anonymous survey submissions set to [_1].',$defaultshash{'coursedefaults'}{'anonsurvey_threshold'}).'</li>';	$resulttext .= '<li>'.&mt('Responder count required for display of anonymous survey submissions set to [_1].',$defaultshash{'coursedefaults'}{'anonsurvey_threshold'}).'</li>';
Line 10092 sub modify_coursedefaults {	Line 10693 sub modify_coursedefaults {
} 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('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') {
	if ($domdefaults{'postsubmit'} eq 'off') {
	$resulttext .= '<li>'.&mt('Submit button(s) remain enabled on page after student makes submission.');
	} else {
	$resulttext .= '<li>'.&mt('Submit button(s) disabled on page after student makes submission').'; ';
	if (ref($defaultshash{'coursedefaults'}{'postsubmit'}) eq 'HASH') {
	$resulttext .= &mt('durations:').'<ul>';
	foreach my $type (@types) {
	$resulttext .= '<li>';
	my $timeout;
	if (ref($defaultshash{'coursedefaults'}{'postsubmit'}{'timeout'}) eq 'HASH') {
	$timeout = $defaultshash{'coursedefaults'}{'postsubmit'}{'timeout'}{$type};
	}
	my $display;
	if ($timeout eq '0') {
	$display = &mt('unlimited');
	} elsif ($timeout eq '') {
	$display = &mt('[quant,_1,second] (default)',$staticdefaults{'postsubmit'});
	} else {
	$display = &mt('[quant,_1,second]',$timeout);
	}
	if ($type eq 'community') {
	$resulttext .= &mt('Communities');
	} elsif ($type eq 'official') {
	$resulttext .= &mt('Official courses');
	} elsif ($type eq 'unofficial') {
	$resulttext .= &mt('Unofficial courses');
	} elsif ($type eq 'textbook') {
	$resulttext .= &mt('Textbook courses');
	}
	$resulttext .= ' -- '.$display.'</li>';
	}
	$resulttext .= '</ul>';
	}
	$resulttext .= '</li>';
	}
} elsif ($item eq 'coursecredits') {	} elsif ($item eq 'coursecredits') {
if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {	if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {
if (($domdefaults{'officialcredits'} eq '') &&	if (($domdefaults{'officialcredits'} eq '') &&
Line 10109 sub modify_coursedefaults {	Line 10758 sub modify_coursedefaults {
} else {	} else {
$resulttext .= '<li>'.&mt('Student credits not in use for courses in this domain').'</li>';	$resulttext .= '<li>'.&mt('Student credits not in use for courses in this domain').'</li>';
}	}
	} elsif ($item eq 'canclone') {
	if (ref($defaultshash{'coursedefaults'}{'canclone'}) eq 'HASH') {
	if (ref($defaultshash{'coursedefaults'}{'canclone'}{'instcode'}) eq 'ARRAY') {
	my $clonecodes = join(' '.&mt('and').' ',@{$defaultshash{'coursedefaults'}{'canclone'}{'instcode'}});
	$resulttext .= '<li>'.&mt('By default, official courses can be cloned from existing courses with the same: [_1]','<b>'.$clonecodes.'</b>').'</li>';
	}
	} elsif ($defaultshash{'coursedefaults'}{'canclone'} eq 'domain') {
	$resulttext .= '<li>'.&mt('By default, a course requester can clone any course from his/her domain.').'</li>';
	} else {
	$resulttext .= '<li>'.&mt('By default, only course owner and coordinators may clone a course.').'</li>';
	}
}	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
Line 10527 sub modify_usersessions {	Line 11187 sub modify_usersessions {
$changes{'spares'}{$lonhost} = \%spareschg;	$changes{'spares'}{$lonhost} = \%spareschg;
}	}
}	}
	$defaultshash{'usersessions'}{'offloadnow'} = {};
	my @offloadnow = &Apache::loncommon::get_env_multiple('form.offloadnow');
	my @okoffload;
	if (@offloadnow) {
	foreach my $server (@offloadnow) {
	if (&Apache::lonnet::hostname($server) ne '') {
	unless (grep(/^\Q$server\E$/,@okoffload)) {
	push(@okoffload,$server);
	}
	}
	}
	if (@okoffload) {
	foreach my $lonhost (@okoffload) {
	$defaultshash{'usersessions'}{'offloadnow'}{$lonhost} = 1;
	}
	}
	}
if (ref($domconfig{'usersessions'}) eq 'HASH') {	if (ref($domconfig{'usersessions'}) eq 'HASH') {
if (ref($domconfig{'usersessions'}{'spares'}) eq 'HASH') {	if (ref($domconfig{'usersessions'}{'spares'}) eq 'HASH') {
if (ref($changes{'spares'}) eq 'HASH') {	if (ref($changes{'spares'}) eq 'HASH') {
Line 10538 sub modify_usersessions {	Line 11214 sub modify_usersessions {
} else {	} else {
$savespares = 1;	$savespares = 1;
}	}
	if (ref($domconfig{'usersessions'}{'offloadnow'}) eq 'HASH') {
	foreach my $lonhost (keys(%{$domconfig{'usersessions'}{'offloadnow'}})) {
	unless ($defaultshash{'usersessions'}{'offloadnow'}{$lonhost}) {
	$changes{'offloadnow'} = 1;
	last;
	}
	}
	unless ($changes{'offloadnow'}) {
	foreach my $lonhost (keys(%{$defaultshash{'usersessions'}{'offloadnow'}})) {
	unless ($domconfig{'usersessions'}{'offloadnow'}{$lonhost}) {
	$changes{'offloadnow'} = 1;
	last;
	}
	}
	}
	} elsif (@okoffload) {
	$changes{'offloadnow'} = 1;
	}
	} elsif (@okoffload) {
	$changes{'offloadnow'} = 1;
}	}

my $nochgmsg = &mt('No changes made to settings for user session hosting/offloading.');	my $nochgmsg = &mt('No changes made to settings for user session hosting/offloading.');
if ((keys(%changes) > 0) \|\| ($savespares)) {	if ((keys(%changes) > 0) \|\| ($savespares)) {
my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,
Line 10552 sub modify_usersessions {	Line 11247 sub modify_usersessions {
if (ref($defaultshash{'usersessions'}{'hosted'}) eq 'HASH') {	if (ref($defaultshash{'usersessions'}{'hosted'}) eq 'HASH') {
$domdefaults{'hostedsessions'} = $defaultshash{'usersessions'}{'hosted'};	$domdefaults{'hostedsessions'} = $defaultshash{'usersessions'}{'hosted'};
}	}
	if (ref($defaultshash{'usersessions'}{'offloadnow'}) eq 'HASH') {
	$domdefaults{'offloadnow'} = $defaultshash{'usersessions'}{'offloadnow'};
	}
}	}
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
Line 10620 sub modify_usersessions {	Line 11318 sub modify_usersessions {
$resulttext .= '</ul>';	$resulttext .= '</ul>';
}	}
}	}
	if ($changes{'offloadnow'}) {
	if (ref($defaultshash{'usersessions'}{'offloadnow'}) eq 'HASH') {
	if (keys(%{$defaultshash{'usersessions'}{'offloadnow'}}) > 0) {
	$resulttext .= '<li>'.&mt('Switch active users on next access, for server(s):').'<ul>';
	foreach my $lonhost (sort(keys(%{$defaultshash{'usersessions'}{'offloadnow'}}))) {
	$resulttext .= '<li>'.$lonhost.'</li>';
	}
	$resulttext .= '</ul>';
	} else {
	$resulttext .= '<li>'.&mt('No servers now set to switch active users on next access.');
	}
	} else {
	$resulttext .= '<li>'.&mt('No servers now set to switch active users on next access.').'</li>';
	}
	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
$resulttext = $nochgmsg;	$resulttext = $nochgmsg;
Line 10641 sub modify_loadbalancing {	Line 11354 sub modify_loadbalancing {
my ($othertitle,$usertypes,$types) =	my ($othertitle,$usertypes,$types) =
&Apache::loncommon::sorted_inst_types($dom);	&Apache::loncommon::sorted_inst_types($dom);
my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
	my %libraryservers = &Apache::lonnet::get_servers($dom,'library');
my @sparestypes = ('primary','default');	my @sparestypes = ('primary','default');
my %typetitles = &sparestype_titles();	my %typetitles = &sparestype_titles();
my $resulttext;	my $resulttext;
Line 10732 sub modify_loadbalancing {	Line 11446 sub modify_loadbalancing {
$rule = $env{'form.loadbalancing_rules_'.$i.'_'.$type};	$rule = $env{'form.loadbalancing_rules_'.$i.'_'.$type};
}	}
if ($rule eq 'specific') {	if ($rule eq 'specific') {
$rule = $env{'form.loadbalancing_singleserver_'.$i.'_'.$type};	my $specifiedhost = $env{'form.loadbalancing_singleserver_'.$i.'_'.$type};
	if (exists($servers{$specifiedhost})) {
	$rule = $specifiedhost;
	}
}	}
$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type} = $rule;	$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type} = $rule;
if (ref($currrules{$balancer}) eq 'HASH') {	if (ref($currrules{$balancer}) eq 'HASH') {
Line 10754 sub modify_loadbalancing {	Line 11471 sub modify_loadbalancing {
\%defaultshash,$dom);	\%defaultshash,$dom);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
	my %toupdate;
if (ref($changes{'delete'}) eq 'ARRAY') {	if (ref($changes{'delete'}) eq 'ARRAY') {
foreach my $balancer (sort(@{$changes{'delete'}})) {	foreach my $balancer (sort(@{$changes{'delete'}})) {
$resulttext .= '<li>'.&mt('Load Balancing discontinued for: [_1]',$balancer).'</li>';	$resulttext .= '<li>'.&mt('Load Balancing discontinued for: [_1]',$balancer).'</li>';
my $cachekey = &escape('loadbalancing').':'.&escape($dom);	$toupdate{$balancer} = 1;
&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]);
}	}
}	}
if (ref($changes{'add'}) eq 'ARRAY') {	if (ref($changes{'add'}) eq 'ARRAY') {
foreach my $balancer (sort(@{$changes{'add'}})) {	foreach my $balancer (sort(@{$changes{'add'}})) {
$resulttext .= '<li>'.&mt('Load Balancing enabled for: [_1]',$balancer);	$resulttext .= '<li>'.&mt('Load Balancing enabled for: [_1]',$balancer);
	$toupdate{$balancer} = 1;
}	}
}	}
if (ref($changes{'curr'}) eq 'HASH') {	if (ref($changes{'curr'}) eq 'HASH') {
foreach my $balancer (sort(keys(%{$changes{'curr'}}))) {	foreach my $balancer (sort(keys(%{$changes{'curr'}}))) {
	$toupdate{$balancer} = 1;
if (ref($changes{'curr'}{$balancer}) eq 'HASH') {	if (ref($changes{'curr'}{$balancer}) eq 'HASH') {
if ($changes{'curr'}{$balancer}{'targets'}) {	if ($changes{'curr'}{$balancer}{'targets'}) {
my %offloadstr;	my %offloadstr;
Line 10804 sub modify_loadbalancing {	Line 11523 sub modify_loadbalancing {
if ($rule eq '') {	if ($rule eq '') {
$balancetext = $ruletitles{'default'};	$balancetext = $ruletitles{'default'};
} elsif (($rule eq 'homeserver') \|\| ($rule eq 'externalbalancer') \|\|	} elsif (($rule eq 'homeserver') \|\| ($rule eq 'externalbalancer') \|\|
($rule eq 'balancer') \|\| ($rule eq 'offloadedto')) {	($type eq '_LC_ipchange') \|\| ($type eq '_LC_ipchangesso')) {
$balancetext = $ruletitles{$rule};	if (($type eq '_LC_ipchange') \|\| ($type eq '_LC_ipchangesso')) {
	foreach my $sparetype (@sparestypes) {
	if (ref($defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}) eq 'ARRAY') {
	map { $toupdate{$_} = 1; } (@{$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}});
	}
	}
	foreach my $item (@{$alltypes}) {
	next if ($item =~ /^_LC_ipchange/);
	my $hasrule = $defaultshash{'loadbalancing'}{$balancer}{'rules'}{$item};
	if ($hasrule eq 'homeserver') {
	map { $toupdate{$_} = 1; } (keys(%libraryservers));
	} else {
	unless (($hasrule eq 'default') \|\| ($hasrule eq 'none') \|\| ($hasrule eq 'externalbalancer')) {
	if ($servers{$hasrule}) {
	$toupdate{$hasrule} = 1;
	}
	}
	}
	}
	if (($rule eq 'balancer') \|\| ($rule eq 'offloadedto')) {
	$balancetext = $ruletitles{$rule};
	} else {
	my $receiver = $defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type};
	$balancetext = $ruletitles{'particular'}.' '.$receiver;
	if ($receiver) {
	$toupdate{$receiver};
	}
	}
	} else {
	$balancetext = $ruletitles{$rule};
	}
} else {	} else {
$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type});	$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type});
}	}
Line 10814 sub modify_loadbalancing {	Line 11563 sub modify_loadbalancing {
}	}
}	}
}	}
my $cachekey = &escape('loadbalancing').':'.&escape($dom);	if (keys(%toupdate)) {
&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]);	my %thismachine;
	my $updatedhere;
	my $cachetime = 606024;
	map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
	foreach my $lonhost (keys(%toupdate)) {
	if ($thismachine{$lonhost}) {
	unless ($updatedhere) {
	&Apache::lonnet::do_cache_new('loadbalancing',$dom,
	$defaultshash{'loadbalancing'},
	$cachetime);
	$updatedhere = 1;
	}
	} else {
	my $cachekey = &escape('loadbalancing').':'.&escape($dom);
	&Apache::lonnet::remote_devalidate_cache($lonhost,[$cachekey]);
	}
	}
	}
}	}
}	}
if ($resulttext ne '') {	if ($resulttext ne '') {
Line 10956 sub active_dc_picker {	Line 11722 sub active_dc_picker {
my ($dcname,$dcdom) = split(':',$domcoord[0]);	my ($dcname,$dcdom) = split(':',$domcoord[0]);
my $user = &Apache::loncommon::plainname($dcname,$dcdom);	my $user = &Apache::loncommon::plainname($dcname,$dcdom);
if ($inputtype eq 'radio') {	if ($inputtype eq 'radio') {
$table .= '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />'.$user;	$table = '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />'.$user;
if ($user ne $dcname.':'.$dcdom) {	if ($user ne $dcname.':'.$dcdom) {
$table .= ' ('.$dcname.':'.$dcdom.')';	$table .= ' ('.$dcname.':'.$dcdom.')';
}	}
Line 10965 sub active_dc_picker {	Line 11731 sub active_dc_picker {
if (exists($currhash{$domcoord[0]})) {	if (exists($currhash{$domcoord[0]})) {
$check = ' checked="checked"';	$check = ' checked="checked"';
}	}
$table .= '<span class="LC_nobreak"><label>'.	$table = '<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="'.$name.'" '.	'<input type="checkbox" name="'.$name.'" '.
'value="'.$domcoord[0].'"'.$check.' />'.$user;	'value="'.$domcoord[0].'"'.$check.' />'.$user;
if ($user ne $dcname.':'.$dcdom) {	if ($user ne $dcname.':'.$dcdom) {
$table .= ' ('.$dcname.':'.$dcdom.')';	$table .= ' ('.$dcname.':'.$dcdom.')';
}	}
Line 11457 function updateCaptcha(caller,context) {	Line 12223 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 11477 function updateCaptcha(caller,context) {	Line 12245 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 11485 function updateCaptcha(caller,context) {	Line 12263 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 11512 function toggleDisplay(domForm,caller) {	Line 12295 function toggleDisplay(domForm,caller) {
if (document.getElementById(caller)) {	if (document.getElementById(caller)) {
var divitem = document.getElementById(caller);	var divitem = document.getElementById(caller);
var optionsElement = domForm.coursecredits;	var optionsElement = domForm.coursecredits;
	var checkval = 1;
	var dispval = 'block';
if (caller == 'emailoptions') {	if (caller == 'emailoptions') {
optionsElement = domForm.cancreate_email;	optionsElement = domForm.cancreate_email;
}	}
	if (caller == 'studentsubmission') {
	optionsElement = domForm.postsubmit;
	}
	if (caller == 'cloneinstcode') {
	optionsElement = domForm.canclone;
	checkval = 'instcode';
	}
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++) {
Line 11522 function toggleDisplay(domForm,caller) {	Line 12314 function toggleDisplay(domForm,caller) {
currval = optionsElement[i].value;	currval = optionsElement[i].value;
}	}
}	}
if (currval == 1) {	if (currval == checkval) {
divitem.style.display = 'block';	divitem.style.display = dispval;
} else {	} else {
divitem.style.display = 'none';	divitem.style.display = 'none';
}	}
Line 11546 sub captcha_phrases {	Line 12338 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)',
);	);
}	}

Line 11556 sub devalidate_remote_domconfs {	Line 12349 sub devalidate_remote_domconfs {
my %thismachine;	my %thismachine;
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();	map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
my @posscached = ('domainconfig','domdefaults');	my @posscached = ('domainconfig','domdefaults');
if (keys(%servers) > 1) {	if (keys(%servers)) {
foreach my $server (keys(%servers)) {	foreach my $server (keys(%servers)) {
next if ($thismachine{$server});	next if ($thismachine{$server});
my @cached;	my @cached;

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.160.6.49
changed lines
	Added in v.1.160.6.70