loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.160.6.76 and 1.259

version 1.160.6.76, 2017/01/21 21:51:56	version 1.259, 2015/03/16 13:16:27
Line 220 sub handler {	Line 220 sub handler {
'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',
'selfenrollment','usersessions');	'coursedefaults','selfenrollment','usersessions');
my %existing;	my %existing;
if (ref($domconfig{'loadbalancing'}) eq 'HASH') {	if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
%existing = %{$domconfig{'loadbalancing'}};	%existing = %{$domconfig{'loadbalancing'}};
Line 304 sub handler {	Line 304 sub handler {
modify => \&modify_autocreate,	modify => \&modify_autocreate,
},	},
'directorysrch' =>	'directorysrch' =>
{ text => 'Directory searches',	{ text => 'Institutional directory searches',
help => 'Domain_Configuration_InstDirectory_Search',	help => 'Domain_Configuration_InstDirectory_Search',
header => [{col1 => 'Institutional Directory Setting',	header => [{col1 => '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 414 sub handler {	Line 412 sub handler {
modify => \&modify_serverstatuses,	modify => \&modify_serverstatuses,
},	},
'helpsettings' =>	'helpsettings' =>
{text => 'Support settings',	{text => 'Help page settings',
help => 'Domain_Configuration_Help_Settings',	help => 'Domain_Configuration_Help_Settings',
header => [{col1 => 'Help Page Settings (logged-in users)',	header => [{col1 => 'Help Settings (logged-in users)',
col2 => 'Value'},	col2 => 'Value'}],
{col1 => 'Helpdesk Roles',
col2 => 'Settings'},],
print => \&print_helpsettings,	print => \&print_helpsettings,
modify => \&modify_helpsettings,	modify => \&modify_helpsettings,
},	},
Line 445 sub handler {	Line 441 sub handler {
print => \&print_selfenrollment,	print => \&print_selfenrollment,
modify => \&modify_selfenrollment,	modify => \&modify_selfenrollment,
},	},
	'privacy' =>
	{text => 'User Privacy',
	help => 'Domain_Configuration_User_Privacy',
	header => [{col1 => 'Setting',
	col2 => 'Value',}],
	print => \&print_privacy,
	modify => \&modify_privacy,
	},
'usersessions' =>	'usersessions' =>
{text => 'User session hosting/offloading',	{text => 'User session hosting/offloading',
help => 'Domain_Configuration_User_Sessions',	help => 'Domain_Configuration_User_Sessions',
Line 653 sub print_config_box {	Line 657 sub print_config_box {
$output = &coursecategories_javascript($settings);	$output = &coursecategories_javascript($settings);
} elsif ($action eq 'defaults') {	} elsif ($action eq 'defaults') {
$output = &defaults_javascript($settings);	$output = &defaults_javascript($settings);
} elsif ($action eq 'helpsettings') {
my (%privs,%levelscurrent);
my %full=();
my %levels=(
course => {},
domain => {},
system => {},
);
my $context = 'domain';
my $crstype = 'Course';
my $formname = 'display';
&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
$output =
&Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,\%full,
\@templateroles);
}	}
$output .=	$output .=
'<table class="LC_nested_outer">	'<table class="LC_nested_outer">
Line 686 sub print_config_box {	Line 674 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 691 sub print_config_box {
$rowtotal ++;	$rowtotal ++;
if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\| ($action eq 'selfcreation') \|\|	if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\| ($action eq 'selfcreation') \|\|
($action eq 'usermodification') \|\| ($action eq 'defaults') \|\| ($action eq 'coursedefaults') \|\|	($action eq 'usermodification') \|\| ($action eq 'defaults') \|\| ($action eq 'coursedefaults') \|\|
($action eq 'selfenrollment') \|\| ($action eq 'usersessions') \|\| ($action eq 'directorysrch') \|\|	($action eq 'selfenrollment') \|\| ($action eq 'usersessions')) {
($action eq 'helpsettings')) {
$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 760 sub print_config_box {	Line 746 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 'directorysrch') \|\|	($action eq 'defaults')) {
($action eq 'helpsettings')) {
$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 874 sub print_config_box {	Line 859 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') {	if (($action eq 'login') \|\| ($action eq 'directorysrch')) {
$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 918 sub print_config_box {	Line 903 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') \|\|	} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\| ($action eq 'directorysrch') \|\|
($action eq 'contacts') \|\| ($action eq 'serverstatuses') \|\|	($action eq 'contacts') \|\| ($action eq 'serverstatuses') \|\| ($action eq 'loadbalancing')) {
($action eq 'loadbalancing')) {
$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);
	} elsif ($action eq 'helpsettings') {
	$output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);
}	}
}	}
$output .= '	$output .= '
Line 2430 ENDSCRIPT	Line 2416 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,$failsafe);	my ($defdom,$runon,$runoff,$coownerson,$coownersoff);
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 2464 sub print_autoenroll {	Line 2450 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 2502 sub print_autoenroll {	Line 2485 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>';
'<td>'.&mt('Failsafe for no drops when institutional data missing').'</td>'.	$$rowtotal += 3;
'<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 2636 sub print_autocreate {	Line 2615 sub print_autocreate {
}	}

sub print_directorysrch {	sub print_directorysrch {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($dom,$settings,$rowtotal) = @_;
my $datatable;	my $srchon = ' ';
if ($position eq 'top') {	my $srchoff = ' checked="checked" ';
my $instsrchon = ' ';	my ($exacton,$containson,$beginson);
my $instsrchoff = ' checked="checked" ';	my $localon = ' ';
my ($exacton,$containson,$beginson);	my $localoff = ' checked="checked" ';
my $instlocalon = ' ';	if (ref($settings) eq 'HASH') {
my $instlocaloff = ' checked="checked" ';	if ($settings->{'available'} eq '1') {
if (ref($settings) eq 'HASH') {	$srchon = $srchoff;
if ($settings->{'available'} eq '1') {	$srchoff = ' ';
$instsrchon = $instsrchoff;	}
$instsrchoff = ' ';	if ($settings->{'localonly'} eq '1') {
}	$localon = $localoff;
if ($settings->{'localonly'} eq '1') {	$localoff = ' ';
$instlocalon = $instlocaloff;	}
$instlocaloff = ' ';	if (ref($settings->{'searchtypes'}) eq 'ARRAY') {
}	foreach my $type (@{$settings->{'searchtypes'}}) {
if (ref($settings->{'searchtypes'}) eq 'ARRAY') {	if ($type eq 'exact') {
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 {
my ($searchtitles,$titleorder) = &sorted_searchtitles();	if ($settings->{'searchtypes'} eq 'exact') {
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	$exacton = ' checked="checked" ';
	} elsif ($settings->{'searchtypes'} eq 'contains') {
my $numinrow = 4;	$containson = ' checked="checked" ';
my $cansrchrow = 0;	} elsif ($settings->{'searchtypes'} eq 'specify') {
$datatable='<tr class="LC_odd_row">'.	$exacton = ' checked="checked" ';
'<td colspan="2"><span class ="LC_nobreak">'.&mt('Institutional directory search available?').'</span></td>'.	$containson = ' checked="checked" ';
'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
'<input type="radio" name="dirsrch_available"'.
$instsrchon.' value="1" />'.&mt('Yes').'</label> '.
'<label><input type="radio" name="dirsrch_available"'.
$instsrchoff.' value="0" />'.&mt('No').'</label></span></td>'.
'</tr><tr>'.
'<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>'.
'<input type="radio" name="dirsrch_instlocalonly"'.
$instlocaloff.' value="0" />'.&mt('Yes').'</label> '.
'<label><input type="radio" name="dirsrch_instlocalonly"'.
$instlocalon.' value="1" />'.&mt('No').'</label></span></td>'.
'</tr>';
$$rowtotal += 2;
if (ref($usertypes) eq 'HASH') {
if (keys(%{$usertypes}) > 0) {
$datatable .= &insttypes_row($settings,$types,$usertypes,$dom,
$numinrow,$othertitle,'cansearch');
$cansrchrow = 1;
}	}
}	}
if ($cansrchrow) {	}
$$rowtotal ++;	my ($searchtitles,$titleorder) = &sorted_searchtitles();
$datatable .= '<tr>';	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
} else {
$datatable .= '<tr class="LC_odd_row">';	my $numinrow = 4;
	my $cansrchrow = 0;
	my $datatable='<tr class="LC_odd_row">'.
	'<td colspan="2"><span class ="LC_nobreak">'.&mt('Directory search available?').'</span></td>'.
	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
	'<input type="radio" name="dirsrch_available"'.
	$srchon.' value="1" />'.&mt('Yes').'</label> '.
	'<label><input type="radio" name="dirsrch_available"'.
	$srchoff.' value="0" />'.&mt('No').'</label></span></td>'.
	'</tr><tr>'.
	'<td colspan="2"><span class ="LC_nobreak">'.&mt('Other domains can search?').'</span></td>'.
	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
	'<input type="radio" name="dirsrch_localonly"'.
	$localoff.' value="0" />'.&mt('Yes').'</label> '.
	'<label><input type="radio" name="dirsrch_localonly"'.
	$localon.' value="1" />'.&mt('No').'</label></span></td>'.
	'</tr>';
	$$rowtotal += 2;
	if (ref($usertypes) eq 'HASH') {
	if (keys(%{$usertypes}) > 0) {
	$datatable .= &insttypes_row($settings,$types,$usertypes,$dom,
	$numinrow,$othertitle,'cansearch');
	$cansrchrow = 1;
}	}
$datatable .= '<td><span class ="LC_nobreak">'.&mt('Supported search methods').	}
'</span></td><td class="LC_left_item" colspan="2"><table><tr>';	if ($cansrchrow) {
foreach my $title (@{$titleorder}) {	$$rowtotal ++;
if (defined($searchtitles->{$title})) {	$datatable .= '<tr>';
my $check = ' ';	} else {
if (ref($settings) eq 'HASH') {	$datatable .= '<tr class="LC_odd_row">';
if (ref($settings->{'searchby'}) eq 'ARRAY') {	}
if (grep(/^\Q$title\E$/,@{$settings->{'searchby'}})) {	$datatable .= '<td><span class ="LC_nobreak">'.&mt('Supported search methods').
$check = ' checked="checked" ';	'</span></td><td class="LC_left_item" colspan="2"><table><tr>';
}	foreach my $title (@{$titleorder}) {
	if (defined($searchtitles->{$title})) {
	my $check = ' ';
	if (ref($settings) eq 'HASH') {
	if (ref($settings->{'searchby'}) eq 'ARRAY') {
	if (grep(/^\Q$title\E$/,@{$settings->{'searchby'}})) {
	$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>';	}
$$rowtotal ++;	$datatable .= '</tr></table></td></tr>';
if ($cansrchrow) {	$$rowtotal ++;
$datatable .= '<tr class="LC_odd_row">';	if ($cansrchrow) {
} else {	$datatable .= '<tr class="LC_odd_row">';
$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 {
my $domsrchon = ' checked="checked" ';	$datatable .= '<tr>';
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 2882 sub print_contacts {	Line 2827 sub print_contacts {
}	}

sub print_helpsettings {	sub print_helpsettings {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($dom,$confname,$settings,$rowtotal) = @_;
my $confname = $dom.'-domainconfig';
my ($datatable,$itemcount);	my ($datatable,$itemcount);
if ($position eq 'top') {	$itemcount = 1;
$itemcount = 1;	my (%choices,%defaultchecked,@toggles);
my (%choices,%defaultchecked,@toggles);	$choices{'submitbugs'} = &mt('Display link to: [_1]?',
$choices{'submitbugs'} = &mt('Display link to: [_1]?',	&Apache::loncommon::modal_link('http://bugs.loncapa.org',
&Apache::loncommon::modal_link('http://bugs.loncapa.org',	&mt('LON-CAPA bug tracker'),600,500));
&mt('LON-CAPA bug tracker'),600,500));	%defaultchecked = ('submitbugs' => 'on');
%defaultchecked = ('submitbugs' => 'on');	@toggles = ('submitbugs',);
@toggles = ('submitbugs');
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$itemcount);	\%choices,$itemcount);
$$rowtotal ++;
} else {
my $css_class;
my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');
my %customroles;
foreach my $key (keys(%existing)) {
if ($key=~/^rolesdef\_(\w+)$/) {
my $rolename = $1;
my %privs;
($privs{'system'},$privs{'domain'},$privs{'course'}) = split(/\_/,$existing{$key});
$customroles{$rolename} = \%privs;
}
}
my $count = 0;
my $context = 'domprefs';
my $crstype = 'Course';
foreach my $role (sort(keys(%customroles))) {
my $prefix = 'custhelp'.$count;
my %full=();
my %levels= (
course => {},
domain => {},
system => {},
);
my %levelscurrent=(
course => {},
domain => {},
system => {},
);
&Apache::lonuserutils::custom_role_privs($customroles{$role},\%full,\%levels,\%levelscurrent);
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
$css_class = $itemcount%2?' class="LC_odd_row"':'';
$datatable .= '<tr '.$css_class.'><td><label>'.
'<input type="checkbox" name="modifycusthelp" value="'.$count.'" />'.
'<input type="hidden" name="custhelprole'.$count.'" value="'.$role.'" />'.
&mt('Modify').'</label></td>'.
'<td>'.&mt('Existing helpdesk role:').' '.
'<b>'.$role.'</b><br />'.
&Apache::lonuserutils::custom_role_header($context,$crstype,
\@templateroles,$prefix).
&Apache::lonuserutils::custom_role_table($crstype,\%full,\%levels,
\%levelscurrent,$prefix).
'<br /></td>';
$count ++;
$itemcount ++;
}
$css_class = $itemcount%2?' class="LC_odd_row"':'';
my $newcust = 'custhelp'.$count;
my (%privs,%levelscurrent);
my %full=();
my %levels= (
course => {},
domain => {},
system => {},
);
&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak"><label>'.
'<input type="checkbox" name="newcusthelp" value="'.$count.'" />'. &mt('Add').
'</label></span></td>'.
'<td><span class="LC_nobreak">'.
'<b>'.&mt('Name of new helpdesk role:').'</b> '.
'<input type="text" size="20" name="newcusthelpname" value="" />'.
'</span><br />'.
&Apache::lonuserutils::custom_role_header($context,$crstype,
\@templateroles,$newcust).
&Apache::lonuserutils::custom_role_table('Course',\%full,\%levels,
\%levelscurrent,$newcust).
'<br /><br />'.
'</td></tr>';
$count ++;
$$rowtotal += $count;
}
return $datatable;	return $datatable;
}	}

Line 3013 sub radiobutton_prefs {	Line 2884 sub radiobutton_prefs {
} else {	} else {
$datatable .= '<td class="LC_right_item">';	$datatable .= '<td class="LC_right_item">';
}	}
$datatable .=	$datatable .=
'<span class="LC_nobreak">'.	'<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').
Line 3032 sub print_coursedefaults {	Line 2903 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)',	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)",
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 = (
	'canuse_pdfforms' => 'off',
'uselcmath' => 'on',	'uselcmath' => 'on',
'usejsme' => 'on',	'usejsme' => 'on',
'canclone' => 'none',
);	);
@toggles = ('uselcmath','usejsme');	@toggles = ('canuse_pdfforms','uselcmath','usejsme');
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$itemcount);	\%choices,$itemcount);
$css_class = $itemcount%2?' class="LC_odd_row"':'';
$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,%defcredits,%curruploadquota,%deftimeout,%currmysql);	my ($currdefresponder,%defcredits,%curruploadquota,%deftimeout);
my $currusecredits = 0;	my $currusecredits = 0;
my $postsubmitclient = 1;	my $postsubmitclient = 1;
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook');
Line 3159 sub print_coursedefaults {	Line 2957 sub print_coursedefaults {
foreach my $type (@types) {	foreach my $type (@types) {
if (ref($settings->{'postsubmit'}->{'timeout'}) eq 'HASH') {	if (ref($settings->{'postsubmit'}->{'timeout'}) eq 'HASH') {
if ($settings->{'postsubmit'}->{'timeout'}->{$type} =~ /^\d+$/) {	if ($settings->{'postsubmit'}->{'timeout'}->{$type} =~ /^\d+$/) {
$deftimeout{$type} = $settings->{'postsubmit'}->{'timeout'}->{$type};	$deftimeout{$type} = $settings->{'postsubmit'}->{'timeout'}->{$type};
} else {	} else {
$deftimeout{$type} = $staticdefaults{'postsubmit'};	$deftimeout{$type} = $staticdefaults{'postsubmit'};
}	}
Line 3173 sub print_coursedefaults {	Line 2971 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 3259 sub print_coursedefaults {	Line 3048 sub print_coursedefaults {
$additional .= '</tr></table></div>'."\n";	$additional .= '</tr></table></div>'."\n";
%defaultchecked = ('postsubmit' => 'on');	%defaultchecked = ('postsubmit' => 'on');
@toggles = ('postsubmit');	@toggles = ('postsubmit');
$current = {	my $current = {
'postsubmit' => $postsubmitclient,	'postsubmit' => $postsubmitclient,
};	};
($table,$itemcount) =	($table,$itemcount) =
&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 3524 sub print_usersessions {	Line 3299 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);
my $curroffloadnow;	$datatable .= &spares_row($dom,\%servers,\%spareid,\%serverhomes,\%altids,$rowtotal);
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 3780 sub current_offloads_to {	Line 3549 sub current_offloads_to {
}	}

sub spares_row {	sub spares_row {
my ($dom,$servers,$spareid,$serverhomes,$altids,$curroffloadnow,$rowtotal) = @_;	my ($dom,$servers,$spareid,$serverhomes,$altids,$rowtotal) = @_;
my $css_class;	my $css_class;
my $numinrow = 4;	my $numinrow = 4;
my $itemcount = 1;	my $itemcount = 1;
Line 3800 sub spares_row {	Line 3569 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>').'</span><br />'.	,'<b>'.$server.'</b>').
'<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 4019 sub print_loadbalancing {	Line 3779 sub print_loadbalancing {
my ($numspares,@spares) = &count_servers($lonhost,%servers);	my ($numspares,@spares) = &count_servers($lonhost,%servers);
my @sparestypes = ('primary','default');	my @sparestypes = ('primary','default');
my %typetitles = &sparestype_titles();	my %typetitles = &sparestype_titles();
my %hostherechecked = (
no => ' checked="checked"',
);
foreach my $sparetype (@sparestypes) {	foreach my $sparetype (@sparestypes) {
my $targettable;	my $targettable;
for (my $i=0; $i<$numspares; $i++) {	for (my $i=0; $i<$numspares; $i++) {
Line 4067 sub print_loadbalancing {	Line 3824 sub print_loadbalancing {
$datatable .= '<i>'.$typetitles{$sparetype}.'</i><br />'.	$datatable .= '<i>'.$typetitles{$sparetype}.'</i><br />'.
'<table><tr>'.$targettable.'</tr></table><br />';	'<table><tr>'.$targettable.'</tr></table><br />';
}	}
$hostherechecked{$sparetype} = '';
if (ref($currtargets{$lonhost}) eq 'HASH') {
if (ref($currtargets{$lonhost}{$sparetype}) eq 'ARRAY') {
if (grep(/^\Q$lonhost\E$/,@{$currtargets{$lonhost}{$sparetype}})) {
$hostherechecked{$sparetype} = ' checked="checked"';
$hostherechecked{'no'} = '';
}
}
}
}
$datatable .= &mt('Hosting on balancer itself').'<br />'.
'<label><input type="radio" name="loadbalancing_target_'.$balnum.'_hosthere" value="no"'.
$hostherechecked{'no'}.' />'.&mt('No').'</label><br />';
foreach my $sparetype (@sparestypes) {
$datatable .= '<label><input type="radio" name="loadbalancing_target_'.$balnum.'_hosthere" '.
'value="'.$sparetype.'"'.$hostherechecked{$sparetype}.' /><i>'.$typetitles{$sparetype}.
'</i></label><br />';
}	}
$datatable .= '</div></td></tr>'.	$datatable .= '</div></td></tr>'.
&loadbalancing_rules($dom,$intdom,$currrules{$lonhost},	&loadbalancing_rules($dom,$intdom,$currrules{$lonhost},
Line 4727 sub email_as_username {	Line 4467 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 4746 sub captcha_choice {	Line 4485 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 4784 sub captcha_choice {	Line 4518 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><br />'.	$currpriv.'" size="40" /></span></td></tr></table>'."\n".
'<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 4971 sub print_defaults {	Line 4701 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 $includeempty = 1;	my %langchoices = &get_languages_hash();
$datatable .= &Apache::loncommon::select_language($item,$defaults{$item},$includeempty);	$langchoices{''} = 'No language preference';
	%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 5041 sub print_defaults {	Line 4774 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="" />'.	'<input type="text" size="10" name="addinststatus" value="" /></span>'.
' '.&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 5578 sub serverstatus_pages {	Line 5311 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','coursecatalog');	'uniquecodes','diskusage');
}	}

sub defaults_javascript {	sub defaults_javascript {
my ($settings) = @_;	my ($settings) = @_;
return unless (ref($settings) eq 'HASH');	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 '') {
Line 5668 sub coursecategories_javascript {	Line 5401 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 6325 sub modify_login {	Line 6055 sub modify_login {
$errors .= '<li><span class="LC_error">'.$puberror.'</span></li>';	$errors .= '<li><span class="LC_error">'.$puberror.'</span></li>';
if ((grep(/^\Q$lang\E$/,@currlangs)) &&	if ((grep(/^\Q$lang\E$/,@currlangs)) &&
(!grep(/^\Q$lang\E$/,@delurls))) {	(!grep(/^\Q$lang\E$/,@delurls))) {

$loginhash{'login'}{'helpurl'}{$lang} = $domconfig{'login'}{'helpurl'}{$lang};	$loginhash{'login'}{'helpurl'}{$lang} = $domconfig{'login'}{'helpurl'}{$lang};
}	}
}	}
Line 6349 sub modify_login {	Line 6078 sub modify_login {
if ($domservers{$lonhost}) {	if ($domservers{$lonhost}) {
if (ref($domconfig{'login'}{'headtag'}{$lonhost}) eq 'HASH') {	if (ref($domconfig{'login'}{'headtag'}{$lonhost}) eq 'HASH') {
$currheadtagurls{$lonhost} = $domconfig{'login'}{'headtag'}{$lonhost}{'url'};	$currheadtagurls{$lonhost} = $domconfig{'login'}{'headtag'}{$lonhost}{'url'};
$currexempt{$lonhost} = $domconfig{'login'}{'headtag'}{$lonhost}{'exempt'};	$currexempt{$lonhost} = $domconfig{'login'}{'headtagexempt'}{$lonhost}{'exempt'}
}	}
}	}
}	}
Line 6368 sub modify_login {	Line 6097 sub modify_login {
} elsif ($currheadtagurls{$lonhost}) {	} elsif ($currheadtagurls{$lonhost}) {
$loginhash{'login'}{'headtag'}{$lonhost}{'url'} = $currheadtagurls{$lonhost};	$loginhash{'login'}{'headtag'}{$lonhost}{'url'} = $currheadtagurls{$lonhost};
if ($currexempt{$lonhost}) {	if ($currexempt{$lonhost}) {
if ((!exists($possexempt{$lonhost})) \|\| ($possexempt{$lonhost} ne $currexempt{$lonhost})) {	if ((!exists($possexempt{$lonhost})) \|\| ($possexempt{$lonhost} ne $currexempt{$lonhost})) {
$changes{'headtag'}{$lonhost} = 1;	$changes{'headtag'}{$lonhost} = 1;
}	}
} elsif ($possexempt{$lonhost}) {	} elsif ($possexempt{$lonhost}) {
Line 6419 sub modify_login {	Line 6148 sub modify_login {
$errors .= '<li><span class="LC_error">'.$error.'</span></li>';	$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 6575 sub modify_login {	Line 6303 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 6601 sub modify_login {	Line 6322 sub modify_login {
return $resulttext;	return $resulttext;
}	}


sub check_exempt_addresses {	sub check_exempt_addresses {
my ($iplist) = @_;	my ($iplist) = @_;
$iplist =~ s/^\s+//;	$iplist =~ s/^\s+//;
Line 7510 sub modify_quotas {	Line 7232 sub modify_quotas {
my $newpos = $env{'form.'.$itemid};	my $newpos = $env{'form.'.$itemid};
$newpos =~ s/\D+//g;	$newpos =~ s/\D+//g;
foreach my $item ('subject','title','publisher','author') {	foreach my $item ('subject','title','publisher','author') {
next if ((($item eq 'author') \|\| ($item eq 'publisher')) &&	next if ((($item eq 'author') \|\| ($item eq 'publisher')) &&
($type eq 'templates'));	($type eq 'templates'));
$confhash{$type}{$key}{$item} = $env{'form.'.$type.'_'.$item.'_'.$i};	$confhash{$type}{$key}{$item} = $env{'form.'.$type.'_'.$item.'_'.$i};
if ($domconfig{$action}{$type}{$key}{$item} ne $confhash{$type}{$key}{$item}) {	if ($domconfig{$action}{$type}{$key}{$item} ne $confhash{$type}{$key}{$item}) {
Line 7607 sub modify_quotas {	Line 7329 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'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'validation'}{$item}) eq 'ARRAY') {
if (ref($domconfig{'requestcourses'}{'validation'}{$item}) eq 'ARRAY') {	@changed = &Apache::loncommon::compare_arrays($confhash{'validation'}{$item},
@changed = &Apache::loncommon::compare_arrays($confhash{'validation'}{$item},	$domconfig{'requestcourses'}{'validation'}{$item});
$domconfig{'requestcourses'}{'validation'}{$item});
} else {
@changed = @{$confhash{'validation'}{$item}};
}
} else {	} else {
@changed = @{$confhash{'validation'}{$item}};	@changed = @{$confhash{'validation'}{$item}};
}	}
Line 7635 sub modify_quotas {	Line 7353 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'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	if ($domconfig{'requestcourses'}{'validation'}{$item} ne $confhash{'validation'}{$item}) {
if ($domconfig{'requestcourses'}{'validation'}{$item} ne $confhash{'validation'}{$item}) {	$changes{'validation'}{$item} = $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 7661 sub modify_quotas {	Line 7373 sub modify_quotas {
}	}
}	}
if (ref($confhash{'validation'}) eq 'HASH') {	if (ref($confhash{'validation'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {
if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {	unless ($confhash{'validation'}{'dc'} eq $domconfig{'requestcourses'}{'validation'}{'dc'}) {
unless ($confhash{'validation'}{'dc'} eq $domconfig{'requestcourses'}{'validation'}{'dc'}) {	if ($confhash{'validation'}{'dc'} eq '') {
if ($confhash{'validation'}{'dc'} eq '') {	$changes{'validation'}{'dc'} = &mt('None');
$changes{'validation'}{'dc'} = &mt('None');	} else {
} else {	$changes{'validation'}{'dc'} = $confhash{'validation'}{'dc'};
$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 7680 sub modify_quotas {	Line 7388 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'};
}	}
} else {	} elsif (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}) eq 'HASH') {	if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	$changes{'validation'}{'dc'} = &mt('None');
if ($domconfig{'requestcourses'}{'validation'}{'dc'}) {
$changes{'validation'}{'dc'} = &mt('None');
}
}
}	}
}	}
}	}
Line 8094 sub modify_autoenroll {	Line 7798 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 8105 sub modify_autoenroll {	Line 7808 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 8142 sub modify_autoenroll {	Line 7839 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 8165 sub modify_autoenroll {	Line 7859 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 8456 sub modify_directorysrch {	Line 8139 sub modify_directorysrch {
$currdirsrch{$key} = $domconfig{'directorysrch'}{$key};	$currdirsrch{$key} = $domconfig{'directorysrch'}{$key};
}	}
}	}
my %title = ( available => 'Institutional directory search available',	my %title = ( available => 'Directory search available',
localonly => 'Other domains can search institution',	localonly => 'Other domains can search',
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 8533 sub modify_directorysrch {	Line 8214 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_instlocalonly'},	localonly => $env{'form.dirsrch_localonly'},
lclocalonly => $env{'form.dirsrch_domlocalonly'},
lcavailable => $env{'form.dirsrch_domavailable'},
searchby => \@searchby,	searchby => \@searchby,
searchtypes => \@searchtypes,	searchtypes => \@searchtypes,
}	}
Line 8552 sub modify_directorysrch {	Line 8231 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_instlocalonly'}) {	if ($currdirsrch{'localonly'} ne $env{'form.dirsrch_localonly'}) {
$changes{'localonly'} = 1;	$changes{'localonly'} = 1;
}	}
} else {	} else {
if ($env{'form.dirsrch_instlocalonly'} eq '1') {	if ($env{'form.dirsrch_localonly'} 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_instlocalonly'}]").'</li>';	$resulttext .= '<li>'.&mt("$title{'localonly'} set to: $otherdoms[$env{'form.dirsrch_localonly'}]").'</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 8643 sub modify_directorysrch {	Line 8299 sub modify_directorysrch {
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
$resulttext = &mt('No changes made to directory search settings');	$resulttext = &mt('No changes made to institution directory search settings');
}	}
} else {	} else {
$resulttext = '<span class="LC_error">'.	$resulttext = '<span class="LC_error">'.
Line 8830 sub modify_usercreation {	Line 8486 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 9055 sub modify_selfcreation {	Line 8710 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 9385 sub modify_selfcreation {	Line 9039 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 9547 sub modify_selfcreation {	Line 9200 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 9671 sub process_captcha {	Line 9320 sub process_captcha {
$changes->{'captcha'} = 1;	$changes->{'captcha'} = 1;
}	}
}	}
my ($newpub,$newpriv,$currpub,$currpriv,$newversion,$currversion);	my ($newpub,$newpriv,$currpub,$currpriv);
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 9681 sub process_captcha {	Line 9330 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 9698 sub process_captcha {	Line 9341 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 10552 sub modify_helpsettings {	Line 10178 sub modify_helpsettings {
my %defaultchecked = ('submitbugs' => 'on');	my %defaultchecked = ('submitbugs' => 'on');
my @offon = ('off','on');	my @offon = ('off','on');
my @toggles = ('submitbugs');	my @toggles = ('submitbugs');
my %current = ('submitbugs' => '');
if (ref($domconfig{'helpsettings'}) eq 'HASH') {	if (ref($domconfig{'helpsettings'}) eq 'HASH') {
%current = %{$domconfig{'helpsettings'}};	foreach my $item (@toggles) {
}	if ($defaultchecked{$item} eq 'on') {
foreach my $item (@toggles) {	if ($domconfig{'helpsettings'}{$item} eq '') {
if ($defaultchecked{$item} eq 'on') {	if ($env{'form.'.$item} eq '0') {
if ($current{$item} eq '') {	$changes{$item} = 1;
if ($env{'form.'.$item} eq '0') {	}
	} elsif ($domconfig{'helpsettings'}{$item} ne $env{'form.'.$item}) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
} elsif ($current{$item} ne $env{'form.'.$item}) {	} elsif ($defaultchecked{$item} eq 'off') {
$changes{$item} = 1;	if ($domconfig{'helpsettings'}{$item} eq '') {
}	if ($env{'form.'.$item} eq '1') {
} elsif ($defaultchecked{$item} eq 'off') {	$changes{$item} = 1;
if ($current{$item} eq '') {	}
if ($env{'form.'.$item} eq '1') {	} elsif ($domconfig{'helpsettings'}{$item} ne $env{'form.'.$item}) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
} elsif ($current{$item} ne $env{'form.'.$item}) {
$changes{$item} = 1;
}	}
}	if (($env{'form.'.$item} eq '0') \|\| ($env{'form.'.$item} eq '1')) {
if (($env{'form.'.$item} eq '0') \|\| ($env{'form.'.$item} eq '1')) {	$helphash{'helpsettings'}{$item} = $env{'form.'.$item};
$helphash{'helpsettings'}{$item} = $env{'form.'.$item};
}
}

my @modify = &Apache::loncommon::get_env_multiple('form.modifycusthelp');
my $confname = $dom.'-domainconfig';
my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');
if (@modify) {
foreach my $num (@modify) {
my $rolename = $env{'form.custhelprole'.$num};
if ($rolename ne '') {
if (exists($existing{'rolesdef_'.$rolename})) {
my $prefix = 'custhelp'.$num;
my %newprivs = &Apache::lonuserutils::custom_role_update($rolename,$prefix);
my %currprivs;
($currprivs{'s'},$currprivs{'d'},$currprivs{'c'}) =
split(/\_/,$existing{'rolesdef_'.$rolename});
foreach my $level ('c','d','s') {
if ($newprivs{$level} ne $currprivs{$level}) {
$changes{'customrole'}{$rolename} = 1;
my $result = &Apache::lonnet::definerole($rolename,$newprivs{'s'},$newprivs{'d'},
$newprivs{'c'},$confname,$dom);
last;
}
}
}
}	}
}	}
}	}
if ($env{'form.newcusthelp'} ne '') {
my $prefix = 'custhelp'.$env{'form.newcusthelp'};
my $rolename = $env{'form.newcusthelpname'};
$rolename=~s/[^A-Za-z0-9]//gs;
if ($rolename ne '') {
unless(exists($existing{'rolesdef_'.$rolename})) {
my %newprivs = &Apache::lonuserutils::custom_role_update($rolename,$prefix);
my $result = &Apache::lonnet::definerole($rolename,$newprivs{'s'},$newprivs{'d'},
$newprivs{'c'},$confname,$dom);
if ($result eq 'ok') {
$changes{'newcustomrole'} = $rolename;
} else {
$errors .= '<li><span class="LC_error">'.
&mt('An error occurred storing the new custom role: [_1]',
$result).'</span></li>';
}
}
}
}

my $putresult;	my $putresult;
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
$putresult = &Apache::lonnet::put_dom('configuration',\%helphash,$dom);	$putresult = &Apache::lonnet::put_dom('configuration',\%helphash,$dom);
Line 10634 sub modify_helpsettings {	Line 10212 sub modify_helpsettings {
$resulttext .= '<li>'.&mt('Display link to: [_1] set to "'.$offon[$env{'form.'.$item}].'".',	$resulttext .= '<li>'.&mt('Display link to: [_1] set to "'.$offon[$env{'form.'.$item}].'".',
&Apache::loncommon::modal_link('http://bugs.loncapa.org',	&Apache::loncommon::modal_link('http://bugs.loncapa.org',
&mt('LON-CAPA bug tracker'),600,500)).'</li>';	&mt('LON-CAPA bug tracker'),600,500)).'</li>';
} elsif ($item eq 'customrole') {
if (ref($changes{'customrole'}) eq 'HASH') {
foreach my $role (sort(keys(%{$changes{'customrole'}}))) {
$resulttext .= '<li>'.&mt('Existing custom role modified: [_1]',
$role).'</li>';
}
}
} elsif ($item eq 'newcustomrole') {
$resulttext .= '<li>'.&mt('New custom role added: [_1]',
$changes{'newcustomrole'}).'</li>';
}	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
Line 10665 sub modify_coursedefaults {	Line 10233 sub modify_coursedefaults {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,%changes,%defaultshash);	my ($resulttext,$errors,%changes,%defaultshash);
my %defaultchecked = (	my %defaultchecked = (
	'canuse_pdfforms' => 'off',
'uselcmath' => 'on',	'uselcmath' => 'on',
'usejsme' => 'on'	'usejsme' => 'on'
);	);
my @toggles = ('uselcmath','usejsme');	my @toggles = ('canuse_pdfforms','uselcmath','usejsme');
my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',	my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',
'uploadquota_community','uploadquota_textbook','mysqltables_official',	'uploadquota_community','uploadquota_textbook');
'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,	postsubmit => 60,
mysqltables => 172800,
);	);

$defaultshash{'coursedefaults'} = {};	$defaultshash{'coursedefaults'} = {};
Line 10718 sub modify_coursedefaults {	Line 10285 sub modify_coursedefaults {
}	}
$defaultshash{'coursedefaults'}{$item} = $newdef;	$defaultshash{'coursedefaults'}{$item} = $newdef;
} else {	} else {
my ($setting,$type) = ($item =~ /^(uploadquota\|mysqltables)_(\w+)$/);	my ($type) = ($item =~ /^\Quploadquota_\E(\w+)$/);
if (ref($domconfig{'coursedefaults'}{$setting}) eq 'HASH') {	if (ref($domconfig{'coursedefaults'}{'uploadquota'}) eq 'HASH') {
$currdef = $domconfig{'coursedefaults'}{$setting}{$type};	$currdef = $domconfig{'coursedefaults'}{'uploadquota'}{$type};
}	}
$newdef =~ s/[^\w.\-]//g;	$newdef =~ s/[^\w.\-]//g;
$defaultshash{'coursedefaults'}{$setting}{$type} = $newdef;	$defaultshash{'coursedefaults'}{'uploadquota'}{$type} = $newdef;
}	}
if ($currdef ne $newdef) {	if ($currdef ne $newdef) {
my $staticdef;	my $staticdef;
Line 10731 sub modify_coursedefaults {	Line 10298 sub modify_coursedefaults {
unless (($currdef eq '') && ($newdef == $staticdefaults{$item})) {	unless (($currdef eq '') && ($newdef == $staticdefaults{$item})) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
} elsif ($item =~ /^(uploadquota\|mysqltables)_/) {	} else {
my $setting = $1;	unless (($currdef eq '') && ($newdef == $staticdefaults{'uploadquota'})) {
unless (($currdef eq '') && ($newdef == $staticdefaults{$setting})) {	$changes{'uploadquota'} = 1;
$changes{$setting} = 1;
}	}
}	}
}	}
}	}
my $currclone = $domconfig{'coursedefaults'}{'canclone'};
my @currclonecode;
if (ref($currclone) eq 'HASH') {
if (ref($currclone->{'instcode'}) eq 'ARRAY') {
@currclonecode = @{$currclone->{'instcode'}};
}
}
my $newclone;
if ($env{'form.canclone'} =~ /^(none\|domain\|instcode)$/) {
$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;	my %credits;
foreach my $type (@types) {	foreach my $type (@types) {
unless ($type eq 'community') {	unless ($type eq 'community') {
Line 10789 sub modify_coursedefaults {	Line 10320 sub modify_coursedefaults {
$defaultshash{'coursedefaults'}{'coursecredits'}{$type} = $credits{$type};	$defaultshash{'coursedefaults'}{'coursecredits'}{$type} = $credits{$type};
}	}
} else {	} else {
if ($env{'form.coursecredits'} eq '1') {	if ($env{'form.coursecredits'} eq '1') {
foreach my $type (@types) {	foreach my $type (@types) {
unless ($type eq 'community') {	unless ($type eq 'community') {
if ($domconfig{'coursedefaults'}{'coursecredits'}{$type} ne $credits{$type}) {	if ($domconfig{'coursedefaults'}{'coursecredits'}{$type} ne $credits{$type}) {
$changes{'coursecredits'} = 1;	$changes{'coursecredits'} = 1;
}	}
$defaultshash{'coursedefaults'}{'coursecredits'}{$type} = $credits{$type};	$defaultshash{'coursedefaults'}{'coursecredits'}{$type} = $credits{$type};
Line 10835 sub modify_coursedefaults {	Line 10366 sub modify_coursedefaults {
}	}
if (exists($currtimeout{$type})) {	if (exists($currtimeout{$type})) {
if ($timeout ne $currtimeout{$type}) {	if ($timeout ne $currtimeout{$type}) {
$changes{'postsubmit'} = 1;	$changes{'postsubmit'} = 1;
}	}
} elsif ($timeout ne '') {	} elsif ($timeout ne '') {
$changes{'postsubmit'} = 1;	$changes{'postsubmit'} = 1;
Line 10857 sub modify_coursedefaults {	Line 10388 sub modify_coursedefaults {
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|	if (($changes{'canuse_pdfforms'}) \|\| ($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|
($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|	($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'})) {
($changes{'canclone'}) \|\| ($changes{'mysqltables'})) {	foreach my $item ('canuse_pdfforms','uselcmath','usejsme') {
foreach my $item ('uselcmath','usejsme') {
if ($changes{$item}) {	if ($changes{$item}) {
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$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') {
foreach my $type (keys(%{$defaultshash{'coursedefaults'}{'coursecredits'}})) {	foreach my $type (keys(%{$defaultshash{'coursedefaults'}{'coursecredits'}})) {
Line 10891 sub modify_coursedefaults {	Line 10421 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 10911 sub modify_coursedefaults {	Line 10429 sub modify_coursedefaults {
}	}
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
foreach my $item (sort(keys(%changes))) {	foreach my $item (sort(keys(%changes))) {
if ($item eq 'uselcmath') {	if ($item eq 'canuse_pdfforms') {
	if ($env{'form.'.$item} eq '1') {
	$resulttext .= '<li>'.&mt("Course/Community users can create/upload PDF forms set to 'on'").'</li>';
	} else {
	$resulttext .= '<li>'.&mt('Course/Community users can create/upload PDF forms set to "off"').'</li>';
	}
	} elsif ($item eq 'uselcmath') {
if ($env{'form.'.$item} eq '1') {	if ($env{'form.'.$item} eq '1') {
$resulttext .= '<li>'.&mt('Math preview uses LON-CAPA previewer (javascript), if supported by browser.').'</li>';	$resulttext .= '<li>'.&mt('Math preview uses LON-CAPA previewer (javascript), if supported by browser.').'</li>';
} else {	} else {
Line 10921 sub modify_coursedefaults {	Line 10445 sub modify_coursedefaults {
if ($env{'form.'.$item} eq '1') {	if ($env{'form.'.$item} eq '1') {
$resulttext .= '<li>'.&mt('Molecule editor uses JSME (HTML5), if supported by browser.').'</li>';	$resulttext .= '<li>'.&mt('Molecule editor uses JSME (HTML5), if supported by browser.').'</li>';
} else {	} else {
$resulttext .= '<li>'.&mt('Molecule editor uses JME (Java), if supported by client OS.').'</li>';	$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 10938 sub modify_coursedefaults {	Line 10462 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') {	} 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.');
} else {	} else {
$resulttext .= '<li>'.&mt('Submit button(s) disabled on page after student makes submission').'; ';	$resulttext .= '<li>'.&mt('Submit button(s) disabled on page after student makes submission').'; ';
if (ref($defaultshash{'coursedefaults'}{'postsubmit'}) eq 'HASH') {	if (ref($defaultshash{'coursedefaults'}{'postsubmit'}) eq 'HASH') {
$resulttext .= &mt('durations:').'<ul>';	$resulttext .= &mt('durations:').'<ul>';
foreach my $type (@types) {	foreach my $type (@types) {
$resulttext .= '<li>';	$resulttext .= '<li>';
Line 10984 sub modify_coursedefaults {	Line 10496 sub modify_coursedefaults {
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
}	}
$resulttext .= '</li>';	$resulttext .= '</li>';
}	}
} elsif ($item eq 'coursecredits') {	} elsif ($item eq 'coursecredits') {
if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {	if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {
Line 11003 sub modify_coursedefaults {	Line 10515 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 11432 sub modify_usersessions {	Line 10933 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 11459 sub modify_usersessions {	Line 10944 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 11492 sub modify_usersessions {	Line 10958 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 11563 sub modify_usersessions {	Line 11026 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 11652 sub modify_loadbalancing {	Line 11100 sub modify_loadbalancing {
push(@offloadto,$target);	push(@offloadto,$target);
}	}
}	}
	$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype} = \@offloadto;
}	}
if ($env{'form.loadbalancing_target_'.$i.'_hosthere'} eq $sparetype) {
unless(grep(/^\Q$balancer\E$/,@offloadto)) {
push(@offloadto,$balancer);
}
}
$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype} = \@offloadto;
}	}
if (ref($currtargets{$balancer}) eq 'HASH') {	if (ref($currtargets{$balancer}) eq 'HASH') {
foreach my $sparetype (@sparestypes) {	foreach my $sparetype (@sparestypes) {
Line 11697 sub modify_loadbalancing {	Line 11140 sub modify_loadbalancing {
}	}
if ($rule eq 'specific') {	if ($rule eq 'specific') {
my $specifiedhost = $env{'form.loadbalancing_singleserver_'.$i.'_'.$type};	my $specifiedhost = $env{'form.loadbalancing_singleserver_'.$i.'_'.$type};
if (exists($servers{$specifiedhost})) {	if (exists($servers{$specifiedhost})) {
$rule = $specifiedhost;	$rule = $specifiedhost;
}	}
}	}
Line 11773 sub modify_loadbalancing {	Line 11216 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') \|\|
($type eq '_LC_ipchange') \|\| ($type eq '_LC_ipchangesso')) {	($type eq '_LC_ipchange') \|\| ($type eq '_LC_ipchangesso')) {
if (($type eq '_LC_ipchange') \|\| ($type eq '_LC_ipchangesso')) {	if (($type eq '_LC_ipchange') \|\| ($type eq '_LC_ipchangesso')) {
foreach my $sparetype (@sparestypes) {	foreach my $sparetype (@sparestypes) {
if (ref($defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}) eq 'ARRAY') {	if (ref($defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}) eq 'ARRAY') {
Line 12473 function updateCaptcha(caller,context) {	Line 11916 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 12495 function updateCaptcha(caller,context) {	Line 11936 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 12513 function updateCaptcha(caller,context) {	Line 11944 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 12545 function toggleDisplay(domForm,caller) {	Line 11971 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') {	if (caller == 'studentsubmission') {
optionsElement = domForm.postsubmit;	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 12564 function toggleDisplay(domForm,caller) {	Line 11984 function toggleDisplay(domForm,caller) {
currval = optionsElement[i].value;	currval = optionsElement[i].value;
}	}
}	}
if (currval == checkval) {	if (currval == 1) {
divitem.style.display = dispval;	divitem.style.display = 'block';
} else {	} else {
divitem.style.display = 'none';	divitem.style.display = 'none';
}	}
Line 12588 sub captcha_phrases {	Line 12008 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 12599 sub devalidate_remote_domconfs {	Line 12018 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)) {	if (keys(%servers) > 1) {
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>

Removed from v.1.160.6.76
changed lines
	Added in v.1.259