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.285 and 1.296

version 1.285, 2017/01/02 19:44:06	version 1.296, 2017/04/25 22:18:59
Line 19	Line 19
#	#
# You should have received a copy of the GNU General Public License	# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software	# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA#	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	#
# /home/httpd/html/adm/gpl.txt	# /home/httpd/html/adm/gpl.txt
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
Line 264 sub handler {	Line 265 sub handler {
help => 'Domain_Configuration_LangTZAuth',	help => 'Domain_Configuration_LangTZAuth',
header => [{col1 => 'Setting',	header => [{col1 => 'Setting',
col2 => 'Value'},	col2 => 'Value'},
	{col1 => 'Internal Authentication',
	col2 => 'Value'},
{col1 => 'Institutional user types',	{col1 => 'Institutional user types',
col2 => 'Assignable to e-mail usernames'}],	col2 => 'Assignable to e-mail usernames'}],
print => \&print_defaults,	print => \&print_defaults,
Line 317 sub handler {	Line 320 sub handler {
modify => \&modify_directorysrch,	modify => \&modify_directorysrch,
},	},
'contacts' =>	'contacts' =>
{ text => 'Contact Information',	{ text => 'E-mail addresses and helpform',
help => 'Domain_Configuration_Contact_Info',	help => 'Domain_Configuration_Contact_Info',
header => [{col1 => 'Setting',	header => [{col1 => 'Default e-mail addresses',
col2 => 'Value',}],	col2 => 'Value',},
	{col1 => 'Recipient(s) for notifications',
	col2 => 'Value',},
	{col1 => 'Ask helpdesk form settings',
	col2 => 'Value',},],
print => \&print_contacts,	print => \&print_contacts,
modify => \&modify_contacts,	modify => \&modify_contacts,
},	},
Line 481 sub handler {	Line 488 sub handler {
},	},
'ltitools' =>	'ltitools' =>
{text => 'External Tools (LTI)',	{text => 'External Tools (LTI)',
help => 'Domain_configuration_LTI_Tools',	help => 'Domain_Configuration_LTI_Tools',
header => [{col1 => 'Setting',	header => [{col1 => 'Setting',
col2 => 'Value',}],	col2 => 'Value',}],
print => \&print_ltitools,	print => \&print_ltitools,
Line 494 sub handler {	Line 501 sub handler {
col2 => 'Certificate Status'},	col2 => 'Certificate Status'},
{col1 => 'Connections to other servers',	{col1 => 'Connections to other servers',
col2 => 'Rules'},	col2 => 'Rules'},
	{col1 => 'Connections from other servers',
	col2 => 'Rules'},
{col1 => "Replicating domain's published content",	{col1 => "Replicating domain's published content",
col2 => 'Rules'}],	col2 => 'Rules'}],
print => \&print_ssl,	print => \&print_ssl,
Line 576 $javascript_validations	Line 585 $javascript_validations
$coursebrowserjs	$coursebrowserjs
END	END
}	}
	if (grep(/^contacts$/,@actions)) {
	$js .= &contacts_javascript();
	}
&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);	&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);
} else {	} else {
# check if domconfig user exists for the domain.	# check if domconfig user exists for the domain.
Line 665 sub process_changes {	Line 677 sub process_changes {
} elsif ($action eq 'autocreate') {	} elsif ($action eq 'autocreate') {
$output = &modify_autocreate($dom,%domconfig);	$output = &modify_autocreate($dom,%domconfig);
} elsif ($action eq 'directorysrch') {	} elsif ($action eq 'directorysrch') {
$output = &modify_directorysrch($dom,%domconfig);	$output = &modify_directorysrch($dom,$lastactref,%domconfig);
} elsif ($action eq 'usercreation') {	} elsif ($action eq 'usercreation') {
$output = &modify_usercreation($dom,%domconfig);	$output = &modify_usercreation($dom,%domconfig);
} elsif ($action eq 'selfcreation') {	} elsif ($action eq 'selfcreation') {
Line 766 sub print_config_box {	Line 778 sub print_config_box {
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 'ssl') \|\|	($action eq 'selfenrollment') \|\| ($action eq 'usersessions') \|\| ($action eq 'ssl') \|\|
($action eq 'directorysrch') \|\| ($action eq 'trust') \|\| ($action eq 'helpsettings')) {	($action eq 'directorysrch') \|\| ($action eq 'trust') \|\| ($action eq 'helpsettings') \|\|
	($action eq 'contacts')) {
$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);
} elsif ($action eq 'coursecategories') {	} elsif ($action eq 'coursecategories') {
$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);	$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);
Line 797 sub print_config_box {	Line 810 sub print_config_box {
if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\|	if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\|
($action eq 'selfcreation') \|\| ($action eq 'selfenrollment') \|\|	($action eq 'selfcreation') \|\| ($action eq 'selfenrollment') \|\|
($action eq 'usersessions') \|\| ($action eq 'coursecategories') \|\|	($action eq 'usersessions') \|\| ($action eq 'coursecategories') \|\|
($action eq 'ssl') \|\| ($action eq 'trust')) {	($action eq 'trust') \|\| ($action eq 'contacts') \|\| ($action eq 'defaults')) {
if ($action eq 'coursecategories') {	if ($action eq 'coursecategories') {
$output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal);	$output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal);
$colspan = ' colspan="2"';	$colspan = ' colspan="2"';
Line 857 sub print_config_box {	Line 870 sub print_config_box {
($action eq 'defaults') \|\| ($action eq 'directorysrch') \|\|	($action eq 'defaults') \|\| ($action eq 'directorysrch') \|\|
($action eq 'helpsettings')) {	($action eq 'helpsettings')) {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
	} elsif ($action eq 'ssl') {
	$output .= $item->{'print'}->('connto',$dom,$settings,\$rowtotal).'
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td></tr>'.
	$item->{'print'}->('connfrom',$dom,$settings,\$rowtotal).'
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col2'}).'</td></tr>'.
	$item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
} elsif ($action eq 'login') {	} elsif ($action eq 'login') {
if ($numheaders == 4) {	if ($numheaders == 4) {
$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal).'	$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal).'
Line 1013 sub print_config_box {	Line 1048 sub print_config_box {
if ($action eq 'quotas') {	if ($action eq 'quotas') {
$output .= &print_quotas($dom,$settings,\$rowtotal,$action);	$output .= &print_quotas($dom,$settings,\$rowtotal,$action);
} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\|	} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\|
($action eq 'contacts') \|\| ($action eq 'serverstatuses') \|\|	($action eq 'serverstatuses') \|\| ($action eq 'loadbalancing') \|\|
($action eq 'loadbalancing') \|\| ($action eq 'ltitools')) {	($action eq 'ltitools')) {
$output .= $item->{'print'}->($dom,$settings,\$rowtotal);	$output .= $item->{'print'}->($dom,$settings,\$rowtotal);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);	$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);
Line 2944 sub print_directorysrch {	Line 2979 sub print_directorysrch {
}	}

sub print_contacts {	sub print_contacts {
my ($dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my $datatable;	my $datatable;
my @contacts = ('adminemail','supportemail');	my @contacts = ('adminemail','supportemail');
my (%checked,%to,%otheremails,%bccemails);	my (%checked,%to,%otheremails,%bccemails,%includestr,%includeloc,%currfield,
my @mailings = ('errormail','packagesmail','lonstatusmail','helpdeskmail',	$maxsize,$fields,$fieldtitles,$fieldoptions,$possoptions,@mailings);
'requestsmail','updatesmail','idconflictsmail');	if ($position eq 'top') {
foreach my $type (@mailings) {	if (ref($settings) eq 'HASH') {
$otheremails{$type} = '';	foreach my $item (@contacts) {
}	if (exists($settings->{$item})) {
$bccemails{'helpdeskmail'} = '';	$to{$item} = $settings->{$item};
if (ref($settings) eq 'HASH') {	}
foreach my $item (@contacts) {
if (exists($settings->{$item})) {
$to{$item} = $settings->{$item};
}	}
}	}
	} elsif ($position eq 'middle') {
	@mailings = ('errormail','packagesmail','lonstatusmail','requestsmail',
	'updatesmail','idconflictsmail');
foreach my $type (@mailings) {	foreach my $type (@mailings) {
if (exists($settings->{$type})) {	$otheremails{$type} = '';
if (ref($settings->{$type}) eq 'HASH') {	}
foreach my $item (@contacts) {	} else {
if ($settings->{$type}{$item}) {	@mailings = ('helpdeskmail','otherdomsmail');
$checked{$type}{$item} = ' checked="checked" ';	foreach my $type (@mailings) {
	$otheremails{$type} = '';
	}
	$bccemails{'helpdeskmail'} = '';
	$bccemails{'otherdomsmail'} = '';
	$includestr{'helpdeskmail'} = '';
	$includestr{'otherdomsmail'} = '';
	($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields();
	}
	if (ref($settings) eq 'HASH') {
	unless ($position eq 'top') {
	foreach my $type (@mailings) {
	if (exists($settings->{$type})) {
	if (ref($settings->{$type}) eq 'HASH') {
	foreach my $item (@contacts) {
	if ($settings->{$type}{$item}) {
	$checked{$type}{$item} = ' checked="checked" ';
	}
	}
	$otheremails{$type} = $settings->{$type}{'others'};
	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
	$bccemails{$type} = $settings->{$type}{'bcc'};
	if ($settings->{$type}{'include'} ne '') {
	($includeloc{$type},$includestr{$type}) = split(/:/,$settings->{$type}{'include'},2);
	$includestr{$type} = &unescape($includestr{$type});
	}
}	}
}	}
$otheremails{$type} = $settings->{$type}{'others'};	} elsif ($type eq 'lonstatusmail') {
if ($type eq 'helpdeskmail') {	$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';
$bccemails{$type} = $settings->{$type}{'bcc'};	}
	}
	}
	if ($position eq 'bottom') {
	foreach my $type (@mailings) {
	$bccemails{$type} = $settings->{$type}{'bcc'};
	if ($settings->{$type}{'include'} ne '') {
	($includeloc{$type},$includestr{$type}) = split(/:/,$settings->{$type}{'include'},2);
	$includestr{$type} = &unescape($includestr{$type});
	}
	}
	if (ref($settings->{'helpform'}) eq 'HASH') {
	if (ref($fields) eq 'ARRAY') {
	foreach my $field (@{$fields}) {
	$currfield{$field} = $settings->{'helpform'}{$field};
}	}
}	}
} elsif ($type eq 'lonstatusmail') {	if (exists($settings->{'helpform'}{'maxsize'})) {
$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';	$maxsize = $settings->{'helpform'}{'maxsize'};
	} else {
	$maxsize = '1.0';
	}
	} else {
	if (ref($fields) eq 'ARRAY') {
	foreach my $field (@{$fields}) {
	$currfield{$field} = 'yes';
	}
	}
	$maxsize = '1.0';
}	}
}	}
} else {	} else {
$to{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'};	if ($position eq 'top') {
$to{'adminemail'} = $Apache::lonnet::perlvar{'lonAdmEMail'};	$to{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'};
$checked{'errormail'}{'adminemail'} = ' checked="checked" ';	$to{'adminemail'} = $Apache::lonnet::perlvar{'lonAdmEMail'};
$checked{'packagesmail'}{'adminemail'} = ' checked="checked" ';	$checked{'errormail'}{'adminemail'} = ' checked="checked" ';
$checked{'helpdeskmail'}{'supportemail'} = ' checked="checked" ';	$checked{'packagesmail'}{'adminemail'} = ' checked="checked" ';
$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';	$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';
$checked{'requestsmail'}{'adminemail'} = ' checked="checked" ';	$checked{'requestsmail'}{'adminemail'} = ' checked="checked" ';
$checked{'updatesmail'}{'adminemail'} = ' checked="checked" ';	$checked{'updatesmail'}{'adminemail'} = ' checked="checked" ';
$checked{'idconflictsmail'}{'adminemail'} = ' checked="checked" ';	$checked{'idconflictsmail'}{'adminemail'} = ' checked="checked" ';
	} elsif ($position eq 'bottom') {
	$checked{'helpdeskmail'}{'supportemail'} = ' checked="checked" ';
	$checked{'otherdomsmail'}{'supportemail'} = ' checked="checked" ';
	if (ref($fields) eq 'ARRAY') {
	foreach my $field (@{$fields}) {
	$currfield{$field} = 'yes';
	}
	}
	$maxsize = '1.0';
	}
}	}
my ($titles,$short_titles) = &contact_titles();	my ($titles,$short_titles) = &contact_titles();
my $rownum = 0;	my $rownum = 0;
my $css_class;	my $css_class;
foreach my $item (@contacts) {	if ($position eq 'top') {
$css_class = $rownum%2?' class="LC_odd_row"':'';	foreach my $item (@contacts) {
$datatable .= '<tr'.$css_class.'>'.	$css_class = $rownum%2?' class="LC_odd_row"':'';
'<td><span class="LC_nobreak">'.$titles->{$item}.	$datatable .= '<tr'.$css_class.'>'.
'</span></td><td class="LC_right_item">'.	'<td><span class="LC_nobreak">'.$titles->{$item}.
'<input type="text" name="'.$item.'" value="'.	'</span></td><td class="LC_right_item">'.
$to{$item}.'" /></td></tr>';	'<input type="text" name="'.$item.'" value="'.
$rownum ++;	$to{$item}.'" /></td></tr>';
	$rownum ++;
	}
	} else {
	foreach my $type (@mailings) {
	$css_class = $rownum%2?' class="LC_odd_row"':'';
	$datatable .= '<tr'.$css_class.'>'.
	'<td><span class="LC_nobreak">'.
	$titles->{$type}.': </span></td>'.
	'<td class="LC_left_item">';
	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
	$datatable .= '<fieldset><legend>'.&mt('E-mail recipient(s)').'</legend>';
	}
	$datatable .= '<span class="LC_nobreak">';
	foreach my $item (@contacts) {
	$datatable .= '<label>'.
	'<input type="checkbox" name="'.$type.'"'.
	$checked{$type}{$item}.
	' value="'.$item.'" />'.$short_titles->{$item}.
	'</label> ';
	}
	$datatable .= '</span><br />'.&mt('Others').':  '.
	'<input type="text" name="'.$type.'_others" '.
	'value="'.$otheremails{$type}.'" />';
	my %locchecked;
	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
	foreach my $loc ('s','b') {
	if ($includeloc{$type} eq $loc) {
	$locchecked{$loc} = ' checked="checked"';
	last;
	}
	}
	$datatable .= '<br />'.&mt('Bcc:').(' 'x6).
	'<input type="text" name="'.$type.'_bcc" '.
	'value="'.$bccemails{$type}.'" /></fieldset>'.
	'<fieldset><legend>'.&mt('Optional added text').'</legend>'.
	&mt('Text automatically added to e-mail:').' '.
	'<input type="text" name="'.$type.'_includestr" value="'.$includestr{$type}.'" /><br >'.
	'<span class="LC_nobreak">'.&mt('Location:').' '.
	'<label><input type="radio" name="'.$type.'_includeloc" value="s"'.$locchecked{'s'}.' />'.&mt('in subject').'</label>'.
	(' 'x2).
	'<label><input type="radio" name="'.$type.'_includeloc" value="b"'.$locchecked{'b'}.' />'.&mt('in body').'</label>'.
	'</span></fieldset>';
	}
	$datatable .= '</td></tr>'."\n";
	$rownum ++;
	}
}	}
foreach my $type (@mailings) {	if ($position eq 'middle') {
	my %choices;
	$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500));
	$choices{'reportupdates'} = &mt('E-mail record of completed LON-CAPA updates to [_1]',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500));
	my @toggles = ('reporterrors','reportupdates');
	my %defaultchecked = ('reporterrors' => 'on',
	'reportupdates' => 'on');
	(my $reports,$rownum) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
	\%choices,$rownum);
	$datatable .= $reports;
	} elsif ($position eq 'bottom') {
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td><span class="LC_nobreak">'.	'<td>'.&mt('Extra helpdesk form fields:').'<br />'.
$titles->{$type}.': </span></td>'.	&mt('(e-mail, subject, and description always shown)').
'<td class="LC_left_item">'.	'</td><td class="LC_left_item">';
'<span class="LC_nobreak">';	if ((ref($fields) eq 'ARRAY') && (ref($fieldtitles) eq 'HASH') &&
foreach my $item (@contacts) {	(ref($fieldoptions) eq 'HASH') && (ref($possoptions) eq 'HASH')) {
$datatable .= '<label>'.	$datatable .= '<table><tr><th>'.&mt('Field').'</th><th>'.&mt('Status').'</th></tr>';
'<input type="checkbox" name="'.$type.'"'.	foreach my $field (@{$fields}) {
$checked{$type}{$item}.	$datatable .= '<tr><td>'.$fieldtitles->{$field};
' value="'.$item.'" />'.$short_titles->{$item}.	if (($field eq 'screenshot') \|\| ($field eq 'cc')) {
'</label> ';	$datatable .= ' '.&mt('(logged-in users)');
}	}
$datatable .= '</span><br />'.&mt('Others').':  '.	$datatable .='</td><td>';
'<input type="text" name="'.$type.'_others" '.	my $clickaction;
'value="'.$otheremails{$type}.'" />';	if ($field eq 'screenshot') {
if ($type eq 'helpdeskmail') {	$clickaction = ' onclick="screenshotSize(this);"';
$datatable .= '<br />'.&mt('Bcc:').(' 'x6).	}
'<input type="text" name="'.$type.'_bcc" '.	if (ref($possoptions->{$field}) eq 'ARRAY') {
'value="'.$bccemails{$type}.'" />';	foreach my $option (@{$possoptions->{$field}}) {
	my $checked;
	if ($currfield{$field} eq $option) {
	$checked = ' checked="checked"';
	}
	$datatable .= '<span class="LC_nobreak"><label>'.
	'<input type="radio" name="helpform_'.$field.'" '.
	'value="'.$option.'"'.$checked.$clickaction.' />'.$fieldoptions->{$option}.
	'</label></span>'.(' 'x2);
	}
	}
	if ($field eq 'screenshot') {
	my $display;
	if ($currfield{$field} eq 'no') {
	$display = ' style="display:none"';
	}
	$datatable .= '</td></tr><tr id="help_screenshotsize"'.$display.' />'.
	'<td>'.&mt('Maximum size for upload (MB)').'</td><td>'.
	'<input type="text" size="5" name="helpform_maxsize" value="'.$maxsize.'" />';
	}
	$datatable .= '</td></tr>';
	}
	$datatable .= '</table>';
}	}
$datatable .= '</td></tr>'."\n";	$datatable .= '</td></tr>'."\n";
$rownum ++;	$rownum ++;
}	}
my %choices;
$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',
&Apache::loncommon::modal_link('http://loncapa.org/core.html',
&mt('LON-CAPA core group - MSU'),600,500));
$choices{'reportupdates'} = &mt('E-mail record of completed LON-CAPA updates to [_1]',
&Apache::loncommon::modal_link('http://loncapa.org/core.html',
&mt('LON-CAPA core group - MSU'),600,500));
my @toggles = ('reporterrors','reportupdates');
my %defaultchecked = ('reporterrors' => 'on',
'reportupdates' => 'on');
(my $reports,$rownum) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$rownum);
$datatable .= $reports;
$$rowtotal += $rownum;	$$rowtotal += $rownum;
return $datatable;	return $datatable;
}	}

	sub contacts_javascript {
	return <<"ENDSCRIPT";

	<script type="text/javascript">
	// <![CDATA[

	function screenshotSize(field) {
	if (document.getElementById('help_screenshotsize')) {
	if (field.value == 'no') {
	document.getElementById('help_screenshotsize').style.display="none";
	} else {
	document.getElementById('help_screenshotsize').style.display="";
	}
	}
	return;
	}

	// ]]>
	</script>

	ENDSCRIPT
	}

sub print_helpsettings {	sub print_helpsettings {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my $confname = $dom.'-domainconfig';	my $confname = $dom.'-domainconfig';
Line 3090 sub print_helpsettings {	Line 3276 sub print_helpsettings {
my $context = 'domprefs';	my $context = 'domprefs';
my $crstype = 'Course';	my $crstype = 'Course';
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
my @accesstypes = ('all','none');	my @accesstypes = ('all','dh','da','none');
my ($numstatustypes,@jsarray);	my ($numstatustypes,@jsarray);
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
if (@{$types} > 0) {	if (@{$types} > 0) {
Line 3099 sub print_helpsettings {	Line 3285 sub print_helpsettings {
@jsarray = ('bystatus');	@jsarray = ('bystatus');
}	}
}	}
my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh']);	my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh','da']);
if (keys(%domhelpdesk)) {	if (keys(%domhelpdesk)) {
push(@accesstypes,('inc','exc'));	push(@accesstypes,('inc','exc'));
push(@jsarray,('notinc','notexc'));	push(@jsarray,('notinc','notexc'));
Line 3308 function helpdeskAccess(num) {	Line 3494 function helpdeskAccess(num) {
shown = Array('notinc');	shown = Array('notinc');
hidden = Array('notexc','bystatus');	hidden = Array('notexc','bystatus');
}	}
if (curraccess == 'all') {	if ((curraccess == 'all') \|\| (curraccess == 'dh') \|\| (curraccess == 'da')) {
hidden = Array('notinc','notexc','bystatus');	hidden = Array('notinc','notexc','bystatus');
}	}
}	}
Line 3337 function helpdeskAccess(num) {	Line 3523 function helpdeskAccess(num) {
function toggleHelpdeskItem(num,field) {	function toggleHelpdeskItem(num,field) {
if (document.getElementById('helproles_'+num+'_'+field)) {	if (document.getElementById('helproles_'+num+'_'+field)) {
if (document.getElementById('helproles_'+num+'_'+field).className.match(/(?:^\|\\s)LC_hidden(?!\\S)/)) {	if (document.getElementById('helproles_'+num+'_'+field).className.match(/(?:^\|\\s)LC_hidden(?!\\S)/)) {
document.getElementById('helproles_'+num+'_'+field).className =	document.getElementById('helproles_'+num+'_'+field).className =
document.getElementById('helproles_'+num+'_'+field).className.replace(/(?:^\|\\s)LC_hidden(?!\\S)/g ,'');	document.getElementById('helproles_'+num+'_'+field).className.replace(/(?:^\|\\s)LC_hidden(?!\\S)/g ,'');
if (document.getElementById('helproles_'+num+'_'+field+'_vis')) {	if (document.getElementById('helproles_'+num+'_'+field+'_vis')) {
document.getElementById('helproles_'+num+'_'+field+'_vis').value = '$html_js_lt{hide}';	document.getElementById('helproles_'+num+'_'+field+'_vis').value = '$html_js_lt{hide}';
Line 3365 sub helpdeskroles_access {	Line 3551 sub helpdeskroles_access {
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'rou' => 'Role usage',	'rou' => 'Role usage',
'whi' => 'Which helpdesk personnel may use this role?',	'whi' => 'Which helpdesk personnel may use this role?',
'all' => 'All',	'all' => 'All with domain helpdesk or helpdesk assistant role',
	'dh' => 'All with domain helpdesk role',
	'da' => 'All with domain helpdesk assistant role',
'none' => 'None',	'none' => 'None',
'status' => 'Determined based on institutional status',	'status' => 'Determined based on institutional status',
'inc' => 'Include all, but exclude specific personnel',	'inc' => 'Include all, but exclude specific personnel',
Line 3463 sub radiobutton_prefs {	Line 3651 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 3566 sub print_ltitools {	Line 3754 sub print_ltitools {
if ($settings->{$item}->{'display'}->{'height'} =~ /^(\d+)$/) {	if ($settings->{$item}->{'display'}->{'height'} =~ /^(\d+)$/) {
$currdisp{'height'} = $1;	$currdisp{'height'} = $1;
}	}
	$currdisp{'linktext'} = $settings->{$item}->{'display'}->{'linktext'};
	$currdisp{'explanation'} = $settings->{$item}->{'display'}->{'explanation'};
} else {	} else {
$currdisp{'iframe'} = ' checked="checked"';	$currdisp{'iframe'} = ' checked="checked"';
}	}
Line 3579 sub print_ltitools {	Line 3769 sub print_ltitools {
'<input type="text" name="ltitools_'.$dimen.'_'.$i.'" size="5" value="'.$currdisp{$dimen}.'" /></label>'.	'<input type="text" name="ltitools_'.$dimen.'_'.$i.'" size="5" value="'.$currdisp{$dimen}.'" /></label>'.
(' 'x2);	(' 'x2);
}	}
	$datatable .= '<br />'.
	'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.
	'<input type="text" name="ltitools_linktext_'.$i.'" size="25" value="'.$currdisp{'linktext'}.'" /></label></div>'.
	'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.
	'<textarea name="ltitools_explanation_'.$i.'" rows="5" cols="40">'.$currdisp{'explanation'}.
	'</textarea></div><div style=""></div><br />';
$datatable .= '<br />';	$datatable .= '<br />';
foreach my $extra ('passback','roster') {	foreach my $extra ('passback','roster') {
my $checkedon = '';	my $checkedon = '';
Line 3660 sub print_ltitools {	Line 3856 sub print_ltitools {
}	}
}	}
$datatable .= '<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">';	$datatable .= '<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">';
foreach my $item ('label','title','target') {	foreach my $item ('label','title','target','linktext','explanation') {
my $checked;	my $checked;
if ($courseconfig{$item}) {	if ($courseconfig{$item}) {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
Line 3738 sub print_ltitools {	Line 3934 sub print_ltitools {
'<input type="text" name="ltitools_add_'.$dimen.'" size="5" /></label>'.	'<input type="text" name="ltitools_add_'.$dimen.'" size="5" /></label>'.
(' 'x2);	(' 'x2);
}	}
$datatable .= '<br />';	$datatable .= '<br />'.
	'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.
	'<input type="text" name="ltitools_add_linktext" size="5" /></label></div>'.
	'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.
	'<textarea name=ltitools_add_explanation" rows="5" cols="40"></textarea>'.
	'</div><div style=""></div><br />';
foreach my $extra ('passback','roster') {	foreach my $extra ('passback','roster') {
$datatable .= $lt{$extra}.' '.	$datatable .= $lt{$extra}.' '.
'<label><input type="radio" name="ltitools_add_'.$extra.'" value="1" />'.	'<label><input type="radio" name="ltitools_add_'.$extra.'" value="1" />'.
Line 3776 sub print_ltitools {	Line 3977 sub print_ltitools {
}	}
$datatable .= '</tr></table></fieldset>'.	$datatable .= '</tr></table></fieldset>'.
'<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">';	'<fieldset><legend>'.&mt('Configurable in course').'</legend><span class="LC_nobreak">';
foreach my $item ('label','title','target') {	foreach my $item ('label','title','target','linktext','explanation') {
$datatable .= '<label>'.	$datatable .= '<label>'.
'<input type="checkbox" name="ltitools_courseconfig" value="'.$item.'" checked="checked" />'.	'<input type="checkbox" name="ltitools_courseconfig" value="'.$item.'" checked="checked" />'.
$lt{'crs'.$item}.'</label>'.(' ' x2)."\n";	$lt{'crs'.$item}.'</label>'.(' ' x2)."\n";
}	}
$datatable .= '</span></fieldset>'.	$datatable .= '</span></fieldset>'.
'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'.	'<fieldset><legend>'.&mt('Custom items sent on launch').'</legend>'.
Line 3797 sub print_ltitools {	Line 3998 sub print_ltitools {

sub ltitools_names {	sub ltitools_names {
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'title' => 'Title',	'title' => 'Title',
'version' => 'Version',	'version' => 'Version',
'msgtype' => 'Message Type',	'msgtype' => 'Message Type',
'url' => 'URL',	'url' => 'URL',
'key' => 'Key',	'key' => 'Key',
'secret' => 'Secret',	'secret' => 'Secret',
'icon' => 'Icon',	'icon' => 'Icon',
'user' => 'Username:domain',	'user' => 'Username:domain',
'fullname' => 'Full Name',	'fullname' => 'Full Name',
'firstname' => 'First Name',	'firstname' => 'First Name',
'lastname' => 'Last Name',	'lastname' => 'Last Name',
'email' => 'E-mail',	'email' => 'E-mail',
'roles' => 'Role',	'roles' => 'Role',
'window' => 'Window/Tab',	'window' => 'Window/Tab',
'iframe' => 'iFrame',	'iframe' => 'iFrame',
'height' => 'Height',	'height' => 'Height',
'width' => 'Width',	'width' => 'Width',
'passback' => 'Tool can return grades:',	'linktext' => 'Default Link Text',
'roster' => 'Tool can retrieve roster:',	'explanation' => 'Default Explanation',
'crstarget' => 'Display target',	'passback' => 'Tool can return grades:',
'crslabel' => 'Course label',	'roster' => 'Tool can retrieve roster:',
'crstitle' => 'Course title',	'crstarget' => 'Display target',
	'crslabel' => 'Course label',
	'crstitle' => 'Course title',
	'crslinktext' => 'Link Text',
	'crsexplanation' => 'Explanation',
);	);
return %lt;	return %lt;
}	}
Line 3849 sub print_coursedefaults {	Line 4054 sub print_coursedefaults {
'canuse_pdfforms' => 'off',	'canuse_pdfforms' => 'off',
'uselcmath' => 'on',	'uselcmath' => 'on',
'usejsme' => 'on',	'usejsme' => 'on',
'canclone' => 'none',	'canclone' => 'none',
);	);
@toggles = ('canuse_pdfforms','uselcmath','usejsme');	@toggles = ('canuse_pdfforms','uselcmath','usejsme');
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
Line 3888 sub print_coursedefaults {	Line 4093 sub print_coursedefaults {
$currcanclone = $settings->{'canclone'};	$currcanclone = $settings->{'canclone'};
}	}
}	}
}	}
foreach my $option (@cloneoptions) {	foreach my $option (@cloneoptions) {
my ($checked,$additional);	my ($checked,$additional);
if ($currcanclone eq $option) {	if ($currcanclone eq $option) {
Line 3957 sub print_coursedefaults {	Line 4162 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 4073 sub print_coursedefaults {	Line 4278 sub print_coursedefaults {
foreach my $type (@types) {	foreach my $type (@types) {
$datatable .= '<td align="center">'.&mt($type).'<br />'.	$datatable .= '<td align="center">'.&mt($type).'<br />'.
'<input type="text" name="mysqltables_'.$type.'"'.	'<input type="text" name="mysqltables_'.$type.'"'.
' value="'.$currmysql{$type}.'" size="5" /></td>';	' value="'.$currmysql{$type}.'" size="8" /></td>';
}	}
$datatable .= '</tr></table></td></tr>'."\n";	$datatable .= '</tr></table></td></tr>'."\n";
$itemcount ++;	$itemcount ++;
Line 4495 sub print_ssl {	Line 4700 sub print_ssl {
my @domservers = &Apache::lonnet::get_servers($dom);	my @domservers = &Apache::lonnet::get_servers($dom);
my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
my %altids = &id_for_thisdom(%servers);	my %altids = &id_for_thisdom(%servers);
if ($position eq 'middle') {	if (($position eq 'connto') \|\| ($position eq 'connfrom')) {
	my $legacy;
	unless (ref($settings) eq 'HASH') {
	my $name;
	if ($position eq 'connto') {
	$name = 'loncAllowInsecure';
	} else {
	$name = 'londAllowInsecure';
	}
	my $primarylibserv = &Apache::lonnet::domain($dom,'primary');
	my @ids=&Apache::lonnet::current_machine_ids();
	if (($primarylibserv ne '') && (!grep(/^\Q$primarylibserv\E$/,@ids))) {
	my %what = (
	$name => 1,
	);
	my ($result,$returnhash) =
	&Apache::lonnet::get_remote_globals($primarylibserv,\%what);
	if ($result eq 'ok') {
	if (ref($returnhash) eq 'HASH') {
	$legacy = $returnhash->{$name};
	}
	}
	} else {
	$legacy = $Apache::lonnet::perlvar{$name};
	}
	}
foreach my $type ('dom','intdom','other') {	foreach my $type ('dom','intdom','other') {
my %checked;	my %checked;
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
Line 4522 sub print_ssl {	Line 4752 sub print_ssl {
unless ($skip) {	unless ($skip) {
$checked{'yes'} = ' checked="checked"';	$checked{'yes'} = ' checked="checked"';
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'connect'}) eq 'HASH') {	if (ref($settings->{$position}) eq 'HASH') {
if ($settings->{'connect'}->{$type} =~ /^(no\|req)$/) {	if ($settings->{$position}->{$type} =~ /^(no\|req)$/) {
$checked{$1} = $checked{'yes'};	$checked{$1} = $checked{'yes'};
delete($checked{'yes'});	delete($checked{'yes'});
}	}
}	}
	} else {
	if ($legacy == 0) {
	$checked{'req'} = $checked{'yes'};
	delete($checked{'yes'});
	}
}	}
foreach my $option ('no','yes','req') {	foreach my $option ('no','yes','req') {
$datatable .= '<span class="LC_nobreak"><label>'.	$datatable .= '<span class="LC_nobreak"><label>'.
'<input type="radio" name="connect_'.$type.'" '.	'<input type="radio" name="'.$position.'_'.$type.'" '.
'value="'.$option.'"'.$checked{$option}.' />'.$titles{$option}.	'value="'.$option.'"'.$checked{$option}.' />'.$titles{$option}.
'</label></span>'.(' 'x2);	'</label></span>'.(' 'x2);
}	}
Line 4562 sub ssl_titles {	Line 4797 sub ssl_titles {
dom => 'LON-CAPA servers/VMs from same domain',	dom => 'LON-CAPA servers/VMs from same domain',
intdom => 'LON-CAPA servers/VMs from same "internet" domain',	intdom => 'LON-CAPA servers/VMs from same "internet" domain',
other => 'External LON-CAPA servers/VMs',	other => 'External LON-CAPA servers/VMs',
connect => 'Connections to other servers',	connto => 'Connections to other servers',
	connfrom => 'Connections from other servers',
replication => 'Replicating content to other institutions',	replication => 'Replicating content to other institutions',
certreq => 'Client certificate required, but specific domains exempt',	certreq => 'Client certificate required, but specific domains exempt',
nocertreq => 'No client certificate required, except for specific domains',	nocertreq => 'No client certificate required, except for specific domains',
Line 4772 sub spares_row {	Line 5008 sub spares_row {
<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><br />'.
'<span class="LC_nobreak">'."\n".	'<span class="LC_nobreak">'."\n".
'<label><input type="checkbox" name="offloadnow" value="'.$server.'"'.$checkednow.' />'.	'<label><input type="checkbox" name="offloadnow" value="'.$server.'"'.$checkednow.' />'.
' '.&mt('Switch active users on next access').'</label></span>'.	' '.&mt('Switch active users on next access').'</label></span>'.
"\n";	"\n";
Line 5261 sub sparestype_titles {	Line 5497 sub sparestype_titles {

sub contact_titles {	sub contact_titles {
my %titles = &Apache::lonlocal::texthash (	my %titles = &Apache::lonlocal::texthash (
'supportemail' => 'Support E-mail address',	'supportemail' => 'Support E-mail address',
'adminemail' => 'Default Server Admin E-mail address',	'adminemail' => 'Default Server Admin E-mail address',
'errormail' => 'Error reports to be e-mailed to',	'errormail' => 'Error reports to be e-mailed to',
'packagesmail' => 'Package update alerts to be e-mailed to',	'packagesmail' => 'Package update alerts to be e-mailed to',
'helpdeskmail' => 'Helpdesk requests to be e-mailed to',	'helpdeskmail' => "Helpdesk requests for this domain's users",
'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)',	'otherdomsmail' => 'Helpdesk requests for other (unconfigured) domains',
'requestsmail' => 'E-mail from course requests requiring approval',	'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)',
'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates',	'requestsmail' => 'E-mail from course requests requiring approval',
	'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates',
'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID',	'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID',
);	);
my %short_titles = &Apache::lonlocal::texthash (	my %short_titles = &Apache::lonlocal::texthash (
Line 5278 sub contact_titles {	Line 5515 sub contact_titles {
return (\%titles,\%short_titles);	return (\%titles,\%short_titles);
}	}

	sub helpform_fields {
	my %titles = &Apache::lonlocal::texthash (
	'username' => 'Name',
	'user' => 'Username/domain',
	'phone' => 'Phone',
	'cc' => 'Cc e-mail',
	'course' => 'Course Details',
	'section' => 'Sections',
	'screenshot' => 'File upload',
	);
	my @fields = ('username','phone','user','course','section','cc','screenshot');
	my %possoptions = (
	username => ['yes','no','req'],
	phone => ['yes','no','req'],
	user => ['yes','no'],
	cc => ['yes','no'],
	course => ['yes','no'],
	section => ['yes','no'],
	screenshot => ['yes','no'],
	);
	my %fieldoptions = &Apache::lonlocal::texthash (
	'yes' => 'Optional',
	'req' => 'Required',
	'no' => "Not shown",
	);
	return (\@fields,\%titles,\%fieldoptions,\%possoptions);
	}

sub tool_titles {	sub tool_titles {
my %titles = &Apache::lonlocal::texthash (	my %titles = &Apache::lonlocal::texthash (
aboutme => 'Personal web page',	aboutme => 'Personal web page',
Line 5885 sub print_usermodification {	Line 6150 sub print_usermodification {
sub print_defaults {	sub print_defaults {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my $rownum = 0;	my $rownum = 0;
my ($datatable,$css_class);	my ($datatable,$css_class,$titles);
	unless ($position eq 'bottom') {
	$titles = &defaults_titles($dom);
	}
if ($position eq 'top') {	if ($position eq 'top') {
my @items = ('auth_def','auth_arg_def','lang_def','timezone_def',	my @items = ('auth_def','auth_arg_def','lang_def','timezone_def',
'datelocale_def','portal_def');	'datelocale_def','portal_def');
Line 5898 sub print_defaults {	Line 6166 sub print_defaults {
$defaults{$item} = $domdefaults{$item};	$defaults{$item} = $domdefaults{$item};
}	}
}	}
my $titles = &defaults_titles($dom);
foreach my $item (@items) {	foreach my $item (@items) {
if ($rownum%2) {	if ($rownum%2) {
$css_class = '';	$css_class = '';
Line 5946 sub print_defaults {	Line 6213 sub print_defaults {
$datatable .= '</td></tr>';	$datatable .= '</td></tr>';
$rownum ++;	$rownum ++;
}	}
	} elsif ($position eq 'middle') {
	my @items = ('intauth_cost','intauth_check','intauth_switch');
	my %defaults;
	if (ref($settings) eq 'HASH') {
	%defaults = %{$settings};
	if ($defaults{'intauth_cost'} !~ /^\d+$/) {
	$defaults{'intauth_cost'} = 10;
	}
	if ($defaults{'intauth_check'} !~ /^(0\|1\|2)$/) {
	$defaults{'intauth_check'} = 0;
	}
	if ($defaults{'intauth_switch'} !~ /^(0\|1\|2)$/) {
	$defaults{'intauth_switch'} = 0;
	}
	} else {
	%defaults = (
	'intauth_cost' => 10,
	'intauth_check' => 0,
	'intauth_switch' => 0,
	);
	}
	foreach my $item (@items) {
	if ($rownum%2) {
	$css_class = '';
	} else {
	$css_class = ' class="LC_odd_row" ';
	}
	$datatable .= '<tr'.$css_class.'>'.
	'<td><span class="LC_nobreak">'.$titles->{$item}.
	'</span></td><td class="LC_left_item" colspan="3">';
	if ($item eq 'intauth_switch') {
	my @options = (0,1,2);
	my %optiondesc = &Apache::lonlocal::texthash (
	0 => 'No',
	1 => 'Yes',
	2 => 'Yes, and copy existing passwd file to passwd.bak file',
	);
	$datatable .= '<table width="100%">';
	foreach my $option (@options) {
	my $checked = ' ';
	if ($defaults{$item} eq $option) {
	$checked = ' checked="checked"';
	}
	$datatable .= '<tr><td class="LC_left_item"><span class="LC_nobreak">'.
	'<label><input type="radio" name="'.$item.
	'" value="'.$option.'"'.$checked.' />'.
	$optiondesc{$option}.'</label></span></td></tr>';
	}
	$datatable .= '</table>';
	} elsif ($item eq 'intauth_check') {
	my @options = (0,1,2);
	my %optiondesc = &Apache::lonlocal::texthash (
	0 => 'No',
	1 => 'Yes, allow login then update passwd file using default cost (if higher)',
	2 => 'Yes, disallow login if stored cost is less than domain default',
	);
	$datatable .= '<table wisth="100%">';
	foreach my $option (@options) {
	my $checked = ' ';
	my $onclick;
	if ($defaults{$item} eq $option) {
	$checked = ' checked="checked"';
	}
	if ($option == 2) {
	$onclick = ' onclick="javascript:warnIntAuth(this);"';
	}
	$datatable .= '<tr><td class="LC_left_item"><span class="LC_nobreak">'.
	'<label><input type="radio" name="'.$item.
	'" value="'.$option.'"'.$checked.$onclick.' />'.
	$optiondesc{$option}.'</label></span></td></tr>';
	}
	$datatable .= '</table>';
	} else {
	$datatable .= '<input type="text" name="'.$item.'" value="'.
	$defaults{$item}.'" size="3" onblur="javascript:warnIntAuth(this);" />';
	}
	$datatable .= '</td></tr>';
	$rownum ++;
	}
} else {	} else {
my (%defaults);	my %defaults;
if (ref($settings) eq 'HASH') {	if (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') &&
(ref($settings->{'inststatusguest'}) eq 'ARRAY')) {	(ref($settings->{'inststatusguest'}) eq 'ARRAY')) {
Line 6042 sub defaults_titles {	Line 6388 sub defaults_titles {
'timezone_def' => 'Default timezone',	'timezone_def' => 'Default timezone',
'datelocale_def' => 'Default locale for dates',	'datelocale_def' => 'Default locale for dates',
'portal_def' => 'Portal/Default URL',	'portal_def' => 'Portal/Default URL',
	'intauth_cost' => 'Encryption cost for bcrypt (positive integer)',
	'intauth_check' => 'Check bcrypt cost if authenticated',
	'intauth_switch' => 'Existing crypt-based switched to bcrypt on authentication',
);	);
if ($dom) {	if ($dom) {
my $uprimary_id = &Apache::lonnet::domain($dom,'primary');	my $uprimary_id = &Apache::lonnet::domain($dom,'primary');
Line 6577 sub serverstatus_pages {	Line 6926 sub serverstatus_pages {

sub defaults_javascript {	sub defaults_javascript {
my ($settings) = @_;	my ($settings) = @_;
return unless (ref($settings) eq 'HASH');	my $intauthcheck = &mt('Warning: disallowing login for an authenticated user if the stored cost is less than the default will require a password reset by/for the user.');
	my $intauthcost = &mt('Warning: bcrypt encryption cost for internal authentication must be an integer.');
	&js_escape(\$intauthcheck);
	&js_escape(\$intauthcost);
	my $intauthjs = <<"ENDSCRIPT";

	function warnIntAuth(field) {
	if (field.name == 'intauth_check') {
	if (field.value == '2') {
	alert('$intauthcheck');
	}
	}
	if (field.name == 'intauth_cost') {
	field.value.replace(/\s/g,'');
	if (field.value != '') {
	var regexdigit=/^\\d+\$/;
	if (!regexdigit.test(field.value)) {
	alert('$intauthcost');
	}
	}
	}
	return;
	}

	ENDSCRIPT

	if (ref($settings) ne 'HASH') {
	return &Apache::lonhtmlcommon::scripttag($intauthjs);
	}
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 6631 $jstext	Line 7008 $jstext
return;	return;
}	}

	$intauthjs

// ]]>	// ]]>
</script>	</script>

ENDSCRIPT	ENDSCRIPT
	} else {
	return &Apache::lonhtmlcommon::scripttag($intauthjs);
}	}
}	}

Line 7368 sub modify_login {	Line 7749 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 7600 sub modify_login {	Line 7981 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 8511 sub modify_quotas {	Line 8891 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 8680 sub modify_quotas {	Line 9060 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 {	} else {
if (ref($domconfig{'requestcourses'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'validation'}) eq 'HASH') {
Line 9120 sub modify_ltitools {	Line 9500 sub modify_ltitools {
if ($env{'form.ltitools_add_msgtype'} eq 'basic-lti-launch-request') {	if ($env{'form.ltitools_add_msgtype'} eq 'basic-lti-launch-request') {
$confhash{$newid}{'msgtype'} = $env{'form.ltitools_add_msgtype'};	$confhash{$newid}{'msgtype'} = $env{'form.ltitools_add_msgtype'};
}	}
foreach my $item ('width','height') {	foreach my $item ('width','height','linktext','explanation') {
$env{'form.ltitools_add_'.$item} =~ s/^\s+//;	$env{'form.ltitools_add_'.$item} =~ s/^\s+//;
$env{'form.ltitools_add_'.$item} =~ s/\s+$//;	$env{'form.ltitools_add_'.$item} =~ s/\s+$//;
if ($env{'form.ltitools_add_'.$item} =~ /^\d+$/) {	if (($item eq 'width') \|\| ($item eq 'height')) {
$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item};	if ($env{'form.ltitools_add_'.$item} =~ /^\d+$/) {
	$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item};
	}
	} else {
	if ($env{'form.ltitools_add_'.$item} ne '') {
	$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item};
	}
}	}
}	}
if ($env{'form.ltitools_add_target'} eq 'window') {	if ($env{'form.ltitools_add_target'} eq 'window') {
Line 9236 sub modify_ltitools {	Line 9622 sub modify_ltitools {
} else {	} else {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
}	}
	} elsif (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') {
	if ($domconfig{$action}{$itemid}{'display'}{$size} ne '') {
	$changes{$itemid} = 1;
	}
	}
	}
	foreach my $item ('linktext','explanation') {
	$env{'form.ltitools_'.$item.'_'.$i} =~ s/^\s+//;
	$env{'form.ltitools_'.$item.'_'.$i} =~ s/\s+$//;
	if ($env{'form.ltitools_'.$item.'_'.$i} ne '') {
	$confhash{$itemid}{'display'}{$item} = $env{'form.ltitools_'.$item.'_'.$i};
	if (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') {
	if ($domconfig{$action}{$itemid}{'display'}{$item} ne $confhash{$itemid}{'display'}{$item}) {
	$changes{$itemid} = 1;
	}
	} else {
	$changes{$itemid} = 1;
	}
	} elsif (ref($domconfig{$action}{$itemid}{'display'}) eq 'HASH') {
	if ($domconfig{$action}{$itemid}{'display'}{$item} ne '') {
	$changes{$itemid} = 1;
	}
}	}
}	}
if ($env{'form.ltitools_target_'.$i} eq 'window') {	if ($env{'form.ltitools_target_'.$i} eq 'window') {
Line 9259 sub modify_ltitools {	Line 9667 sub modify_ltitools {
}	}
}	}
my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig_'.$i);	my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig_'.$i);
foreach my $item ('label','title','target') {	foreach my $item ('label','title','target','linktext','explanation') {
if (grep(/^\Q$item\E$/,@courseconfig)) {	if (grep(/^\Q$item\E$/,@courseconfig)) {
$confhash{$itemid}{'crsconf'}{$item} = 1;	$confhash{$itemid}{'crsconf'}{$item} = 1;
if (ref($domconfig{$action}{$itemid}{'crsconf'}) eq 'HASH') {	if (ref($domconfig{$action}{$itemid}{'crsconf'}) eq 'HASH') {
Line 9435 sub modify_ltitools {	Line 9843 sub modify_ltitools {
$resulttext .= ('*'x$num).'</li>';	$resulttext .= ('*'x$num).'</li>';
}	}
$resulttext .= '<li>'.&mt('Configurable in course:');	$resulttext .= '<li>'.&mt('Configurable in course:');
my @possconfig = ('label','title','target');	my @possconfig = ('label','title','target','linktext','explanation');
my $numconfig = 0;	my $numconfig = 0;
if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') {	if (ref($confhash{$itemid}{'crsconf'}) eq 'HASH') {
foreach my $item (@possconfig) {	foreach my $item (@possconfig) {
if ($confhash{$itemid}{'crsconf'}{$item}) {	if ($confhash{$itemid}{'crsconf'}{$item}) {
$numconfig ++;	$numconfig ++;
$resulttext .= ' '.$lt{'crs'.$item};	$resulttext .= ' "'.$lt{'crs'.$item}.'"';
}	}
}	}
}	}
Line 9474 sub modify_ltitools {	Line 9882 sub modify_ltitools {
$displaylist =~ s/,$//;	$displaylist =~ s/,$//;
$resulttext .= '<li>'.$displaylist.'</li>';	$resulttext .= '<li>'.$displaylist.'</li>';
}	}
}	foreach my $item ('linktext','explanation') {
	if ($confhash{$itemid}{'display'}{$item}) {
	$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{'display'}{$item}.'</li>';
	}
	}
	}
if (ref($confhash{$itemid}{'fields'}) eq 'HASH') {	if (ref($confhash{$itemid}{'fields'}) eq 'HASH') {
my $fieldlist;	my $fieldlist;
foreach my $field (@allfields) {	foreach my $field (@allfields) {
Line 9970 sub modify_autocreate {	Line 10383 sub modify_autocreate {
}	}

sub modify_directorysrch {	sub modify_directorysrch {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,%changes);	my ($resulttext,%changes);
my %currdirsrch;	my %currdirsrch;
if (ref($domconfig{'directorysrch'}) eq 'HASH') {	if (ref($domconfig{'directorysrch'}) eq 'HASH') {
Line 9981 sub modify_directorysrch {	Line 10394 sub modify_directorysrch {
my %title = ( available => 'Institutional directory search available',	my %title = ( available => 'Institutional directory search available',
localonly => 'Other domains can search institution',	localonly => 'Other domains can search institution',
lcavailable => 'LON-CAPA directory search available',	lcavailable => 'LON-CAPA directory search available',
lclocalonly => 'Other domains can search LON-CAPA domain',	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 10075 sub modify_directorysrch {	Line 10488 sub modify_directorysrch {
}	}
}	}
if (exists($currdirsrch{'lcavailable'})) {	if (exists($currdirsrch{'lcavailable'})) {
if ($currdirsrch{'lcavailable'} ne $env{'form.dirsrch_domavailable'}) {	if ($currdirsrch{'lcavailable'} ne $env{'form.dirsrch_domavailable'}) {
$changes{'lcavailable'} = 1;	$changes{'lcavailable'} = 1;
}	}
} else {	} else {
if ($env{'form.dirsrch_lcavailable'} eq '1') {	if ($env{'form.dirsrch_lcavailable'} eq '1') {
$changes{'lcavailable'} = 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_instlocalonly'}) {
$changes{'localonly'} = 1;	$changes{'localonly'} = 1;
}	}
} else {	} else {
if ($env{'form.dirsrch_instlocalonly'} eq '1') {	if ($env{'form.dirsrch_instlocalonly'} eq '1') {
$changes{'localonly'} = 1;	$changes{'localonly'} = 1;
}	}
}	}
if (exists($currdirsrch{'lclocalonly'})) {	if (exists($currdirsrch{'lclocalonly'})) {
if ($currdirsrch{'lclocalonly'} ne $env{'form.dirsrch_domlocalonly'}) {	if ($currdirsrch{'lclocalonly'} ne $env{'form.dirsrch_domlocalonly'}) {
$changes{'lclocalonly'} = 1;	$changes{'lclocalonly'} = 1;
}	}
} else {	} else {
if ($env{'form.dirsrch_domlocalonly'} eq '1') {	if ($env{'form.dirsrch_domlocalonly'} eq '1') {
$changes{'lclocalonly'} = 1;	$changes{'lclocalonly'} = 1;
Line 10114 sub modify_directorysrch {	Line 10527 sub modify_directorysrch {
}	}
if ($changes{'lclocalonly'}) {	if ($changes{'lclocalonly'}) {
$resulttext .= '<li>'.&mt("$title{'lclocalonly'} set to: $otherdoms[$env{'form.dirsrch_domlocalonly'}]").'</li>';	$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 10164 sub modify_directorysrch {	Line 10577 sub modify_directorysrch {
$resulttext .= '<li>'.&mt($title{'searchtypes'}.' set to: "[_1]"',$chgtext).'</li>';	$resulttext .= '<li>'.&mt($title{'searchtypes'}.' set to: "[_1]"',$chgtext).'</li>';
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
	&Apache::lonnet::do_cache_new('directorysrch',$dom,$dirsrch_hash{'directorysrch'},3600);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'directorysrch'} = 1;
	}
} else {	} else {
$resulttext = &mt('No changes made to directory search settings');	$resulttext = &mt('No changes made to directory search settings');
}	}
Line 10182 sub modify_contacts {	Line 10599 sub modify_contacts {
$currsetting{$key} = $domconfig{'contacts'}{$key};	$currsetting{$key} = $domconfig{'contacts'}{$key};
}	}
}	}
my (%others,%to,%bcc);	my (%others,%to,%bcc,%includestr,%includeloc);
my @contacts = ('supportemail','adminemail');	my @contacts = ('supportemail','adminemail');
my @mailings = ('errormail','packagesmail','helpdeskmail','lonstatusmail',	my @mailings = ('errormail','packagesmail','helpdeskmail','otherdomsmail',
'requestsmail','updatesmail','idconflictsmail');	'lonstatusmail','requestsmail','updatesmail','idconflictsmail');
my @toggles = ('reporterrors','reportupdates');	my @toggles = ('reporterrors','reportupdates');
	my ($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields();
foreach my $type (@mailings) {	foreach my $type (@mailings) {
@{$newsetting{$type}} =	@{$newsetting{$type}} =
&Apache::loncommon::get_env_multiple('form.'.$type);	&Apache::loncommon::get_env_multiple('form.'.$type);
Line 10196 sub modify_contacts {	Line 10614 sub modify_contacts {
} else {	} else {
$contacts_hash{contacts}{$type}{$item} = 0;	$contacts_hash{contacts}{$type}{$item} = 0;
}	}
}	}
$others{$type} = $env{'form.'.$type.'_others'};	$others{$type} = $env{'form.'.$type.'_others'};
$contacts_hash{contacts}{$type}{'others'} = $others{$type};	$contacts_hash{contacts}{$type}{'others'} = $others{$type};
if ($type eq 'helpdeskmail') {	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
$bcc{$type} = $env{'form.'.$type.'_bcc'};	$bcc{$type} = $env{'form.'.$type.'_bcc'};
$contacts_hash{contacts}{$type}{'bcc'} = $bcc{$type};	$contacts_hash{contacts}{$type}{'bcc'} = $bcc{$type};
	if (($env{'form.'.$type.'_includestr'} ne '') && ($env{'form.'.$type.'_includeloc'} =~ /^s\|b$/)) {
	$includestr{$type} = $env{'form.'.$type.'_includestr'};
	$includeloc{$type} = $env{'form.'.$type.'_includeloc'};
	$contacts_hash{contacts}{$type}{'include'} = $includeloc{$type}.':'.&escape($includestr{$type});
	}
}	}
}	}
foreach my $item (@contacts) {	foreach my $item (@contacts) {
Line 10213 sub modify_contacts {	Line 10636 sub modify_contacts {
$contacts_hash{'contacts'}{$item} = $env{'form.'.$item};	$contacts_hash{'contacts'}{$item} = $env{'form.'.$item};
}	}
}	}
	if ((ref($fields) eq 'ARRAY') && (ref($possoptions) eq 'HASH')) {
	foreach my $field (@{$fields}) {
	if (ref($possoptions->{$field}) eq 'ARRAY') {
	my $value = $env{'form.helpform_'.$field};
	$value =~ s/^\s+\|\s+$//g;
	if (grep(/^\Q$value\E$/,@{$possoptions->{$field}})) {
	$contacts_hash{contacts}{'helpform'}{$field} = $value;
	if ($field eq 'screenshot') {
	$env{'form.helpform_maxsize'} =~ s/^\s+\|\s+$//g;
	if ($env{'form.helpform_maxsize'} =~ /^\d+\.?\d*$/) {
	$contacts_hash{contacts}{'helpform'}{'maxsize'} = $env{'form.helpform_maxsize'};
	}
	}
	}
	}
	}
	}
if (keys(%currsetting) > 0) {	if (keys(%currsetting) > 0) {
foreach my $item (@contacts) {	foreach my $item (@contacts) {
if ($to{$item} ne $currsetting{$item}) {	if ($to{$item} ne $currsetting{$item}) {
Line 10232 sub modify_contacts {	Line 10672 sub modify_contacts {
if ($others{$type} ne $currsetting{$type}{'others'}) {	if ($others{$type} ne $currsetting{$type}{'others'}) {
push(@{$changes{$type}},'others');	push(@{$changes{$type}},'others');
}	}
if ($type eq 'helpdeskmail') {	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
if ($bcc{$type} ne $currsetting{$type}{'bcc'}) {	if ($bcc{$type} ne $currsetting{$type}{'bcc'}) {
push(@{$changes{$type}},'bcc');	push(@{$changes{$type}},'bcc');
}	}
	my ($currloc,$currstr) = split(/:/,$currsetting{$type}{'include'},2);
	if (($includeloc{$type} ne $currloc) \|\| (&escape($includestr{$type}) ne $currstr)) {
	push(@{$changes{$type}},'include');
	}
	}
	}
	if (ref($fields) eq 'ARRAY') {
	if (ref($currsetting{'helpform'}) eq 'HASH') {
	foreach my $field (@{$fields}) {
	if ($currsetting{'helpform'}{$field} ne $contacts_hash{'contacts'}{'helpform'}{$field}) {
	push(@{$changes{'helpform'}},$field);
	}
	if (($field eq 'screenshot') && ($contacts_hash{'contacts'}{'helpform'}{'screenshot'} ne 'no')) {
	if ($currsetting{'helpform'}{'maxsize'} ne $contacts_hash{'contacts'}{'helpform'}{'maxsize'}) {
	push(@{$changes{'helpform'}},'maxsize');
	}
	}
	}
	} else {
	foreach my $field (@{$fields}) {
	if ($contacts_hash{'contacts'}{'helpform'}{$field} ne 'yes') {
	push(@{$changes{'helpform'}},$field);
	}
	if (($field eq 'screenshot') && ($contacts_hash{'contacts'}{'helpform'}{'screenshot'} ne 'no')) {
	if ($contacts_hash{'contacts'}{'helpform'}{'maxsize'} != 1) {
	push(@{$changes{'helpform'}},'maxsize');
	}
	}
	}
}	}
}	}
} else {	} else {
Line 10245 sub modify_contacts {	Line 10714 sub modify_contacts {
$default{'errormail'} = 'adminemail';	$default{'errormail'} = 'adminemail';
$default{'packagesmail'} = 'adminemail';	$default{'packagesmail'} = 'adminemail';
$default{'helpdeskmail'} = 'supportemail';	$default{'helpdeskmail'} = 'supportemail';
	$default{'otherdomsmail'} = 'supportemail';
$default{'lonstatusmail'} = 'adminemail';	$default{'lonstatusmail'} = 'adminemail';
$default{'requestsmail'} = 'adminemail';	$default{'requestsmail'} = 'adminemail';
$default{'updatesmail'} = 'adminemail';	$default{'updatesmail'} = 'adminemail';
foreach my $item (@contacts) {	foreach my $item (@contacts) {
if ($to{$item} ne $default{$item}) {	if ($to{$item} ne $default{$item}) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
}	}
foreach my $type (@mailings) {	foreach my $type (@mailings) {
if ((@{$newsetting{$type}} != 1) \|\| ($newsetting{$type}[0] ne $default{$type})) {	if ((@{$newsetting{$type}} != 1) \|\| ($newsetting{$type}[0] ne $default{$type})) {

push(@{$changes{$type}},@{$newsetting{$type}});	push(@{$changes{$type}},@{$newsetting{$type}});
}	}
if ($others{$type} ne '') {	if ($others{$type} ne '') {
push(@{$changes{$type}},'others');	push(@{$changes{$type}},'others');
}	}
if ($type eq 'helpdeskmail') {	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
if ($bcc{$type} ne '') {	if ($bcc{$type} ne '') {
push(@{$changes{$type}},'bcc');	push(@{$changes{$type}},'bcc');
}	}
	if (($includeloc{$type} =~ /^b\|s$/) && ($includestr{$type} ne '')) {
	push(@{$changes{$type}},'include');
	}
	}
	}
	if (ref($fields) eq 'ARRAY') {
	foreach my $field (@{$fields}) {
	if ($contacts_hash{'contacts'}{'helpform'}{$field} ne 'yes') {
	push(@{$changes{'helpform'}},$field);
	}
	if (($field eq 'screenshot') && ($contacts_hash{'contacts'}{'helpform'}{'screenshot'} ne 'no')) {
	if ($contacts_hash{'contacts'}{'helpform'}{'maxsize'} != 1) {
	push(@{$changes{'helpform'}},'maxsize');
	}
	}
}	}
}	}
}	}
Line 10296 sub modify_contacts {	Line 10780 sub modify_contacts {
}	}
foreach my $type (@mailings) {	foreach my $type (@mailings) {
if (ref($changes{$type}) eq 'ARRAY') {	if (ref($changes{$type}) eq 'ARRAY') {
$resulttext .= '<li>'.$titles->{$type}.': ';	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
	$resulttext .= '<li>'.$titles->{$type}.' -- '.&mt('sent to').': ';
	} else {
	$resulttext .= '<li>'.$titles->{$type}.': ';
	}
my @text;	my @text;
foreach my $item (@{$newsetting{$type}}) {	foreach my $item (@{$newsetting{$type}}) {
push(@text,$short_titles->{$item});	push(@text,$short_titles->{$item});
Line 10304 sub modify_contacts {	Line 10792 sub modify_contacts {
if ($others{$type} ne '') {	if ($others{$type} ne '') {
push(@text,$others{$type});	push(@text,$others{$type});
}	}
$resulttext .= '<span class="LC_cusr_emph">'.	if (@text) {
join(', ',@text).'</span>';	$resulttext .= '<span class="LC_cusr_emph">'.
if ($type eq 'helpdeskmail') {	join(', ',@text).'</span>';
	}
	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
if ($bcc{$type} ne '') {	if ($bcc{$type} ne '') {
$resulttext .= ' '.&mt('with Bcc to').': <span class="LC_cusr_emph">'.$bcc{$type}.'</span>';	my $bcctext;
	if (@text) {
	$bcctext = ' '.&mt('with Bcc to');
	} else {
	$bcctext = '(Bcc)';
	}
	$resulttext .= $bcctext.': <span class="LC_cusr_emph">'.$bcc{$type}.'</span>';
	} elsif (!@text) {
	$resulttext .= &mt('No one');
	}
	if ($includestr{$type} ne '') {
	if ($includeloc{$type} eq 'b') {
	$resulttext .= '<br />'.&mt('Text automatically added to e-mail body:').' '.$includestr{$type};
	} elsif ($includeloc{$type} eq 's') {
	$resulttext .= '<br />'.&mt('Text automatically added to e-mail subject:').' '.$includestr{$type};
	}
}	}
	} elsif (!@text) {
	$resulttext .= &mt('No recipients');
}	}
$resulttext .= '</li>';	$resulttext .= '</li>';
}	}
Line 10331 sub modify_contacts {	Line 10838 sub modify_contacts {
&mt('LON-CAPA core group - MSU'),600,500)).	&mt('LON-CAPA core group - MSU'),600,500)).
'</li>';	'</li>';
}	}
	if ((ref($changes{'helpform'}) eq 'ARRAY') && (ref($fields) eq 'ARRAY')) {
	my (@optional,@required,@unused,$maxsizechg);
	foreach my $field (@{$changes{'helpform'}}) {
	if ($field eq 'maxsize') {
	$maxsizechg = 1;
	next;
	}
	if ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'yes') {
	push(@optional,$field);
	} elsif ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'no') {
	push(@unused,$field);
	} elsif ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'req') {
	push(@required,$field);
	}
	}
	if (@optional) {
	$resulttext .= '<li>'.
	&mt('Help form fields changed to "Optional": [_1].',
	'<span class="LC_cusr_emph">'.join(', ',map { $fieldtitles->{$_}; } @optional)).'</span>'.
	'</li>';
	}
	if (@required) {
	$resulttext .= '<li>'.
	&mt('Help form fields changed to "Required": [_1].',
	'<span class="LC_cusr_emph">'.join(', ',map { $fieldtitles->{$_}; } @required)).'</span>'.
	'</li>';
	}
	if (@unused) {
	$resulttext .= '<li>'.
	&mt('Help form fields changed to "Not shown": [_1].',
	'<span class="LC_cusr_emph">'.join(', ',map { $fieldtitles->{$_}; } @unused)).'</span>'.
	'</li>';
	}
	if ($maxsizechg) {
	$resulttext .= '<li>'.
	&mt('Max size for file uploaded to help form by logged-in user set to [_1] MB.',
	$contacts_hash{'contacts'}{'helpform'}{'maxsize'}).
	'</li>';

	}
	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
$resulttext = &mt('No changes made to contact information');	$resulttext = &mt('No changes made to contacts and form settings');
}	}
} else {	} else {
$resulttext = '<span class="LC_error">'.	$resulttext = '<span class="LC_error">'.
Line 11358 sub modify_defaults {	Line 11906 sub modify_defaults {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$mailmsgtxt,%newvalues,%changes,@errors);	my ($resulttext,$mailmsgtxt,%newvalues,%changes,@errors);
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
my @items = ('auth_def','auth_arg_def','lang_def','timezone_def','datelocale_def','portal_def');	my @items = ('auth_def','auth_arg_def','lang_def','timezone_def','datelocale_def',
	'portal_def','intauth_cost','intauth_check','intauth_switch');
my @authtypes = ('internal','krb4','krb5','localauth');	my @authtypes = ('internal','krb4','krb5','localauth');
foreach my $item (@items) {	foreach my $item (@items) {
$newvalues{$item} = $env{'form.'.$item};	$newvalues{$item} = $env{'form.'.$item};
Line 11400 sub modify_defaults {	Line 11949 sub modify_defaults {
push(@errors,$item);	push(@errors,$item);
}	}
}	}
	} elsif ($item eq 'intauth_cost') {
	if ($newvalues{$item} ne '') {
	if ($newvalues{$item} =~ /\D/) {
	push(@errors,$item);
	}
	}
	} elsif ($item eq 'intauth_check') {
	if ($newvalues{$item} ne '') {
	unless ($newvalues{$item} =~ /^(0\|1\|2)$/) {
	push(@errors,$item);
	}
	}
	} elsif ($item eq 'intauth_switch') {
	if ($newvalues{$item} ne '') {
	unless ($newvalues{$item} =~ /^(0\|1\|2)$/) {
	push(@errors,$item);
	}
	}
}	}
if (grep(/^\Q$item\E$/,@errors)) {	if (grep(/^\Q$item\E$/,@errors)) {
$newvalues{$item} = $domdefaults{$item};	$newvalues{$item} = $domdefaults{$item};
Line 11554 sub modify_defaults {	Line 12121 sub modify_defaults {
localauth => 'loc',	localauth => 'loc',
);	);
$value = $authnames{$shortauth{$value}};	$value = $authnames{$shortauth{$value}};
	} elsif ($item eq 'intauth_switch') {
	my %optiondesc = &Apache::lonlocal::texthash (
	0 => 'No',
	1 => 'Yes',
	2 => 'Yes, and copy existing passwd file to passwd.bak file',
	);
	if ($value =~ /^(0\|1\|2)$/) {
	$value = $optiondesc{$value};
	} else {
	$value = &mt('none -- defaults to No');
	}
	} elsif ($item eq 'intauth_check') {
	my %optiondesc = &Apache::lonlocal::texthash (
	0 => 'No',
	1 => 'Yes, allow login then update passwd file using default cost (if higher)',
	2 => 'Yes, disallow login if stored cost is less than domain default',
	);
	if ($value =~ /^(0\|1\|2)$/) {
	$value = $optiondesc{$value};
	} else {
	$value = &mt('none -- defaults to No');
	}
}	}
$resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$title->{$item},$value).'</li>';	$resulttext .= '<li>'.&mt('[_1] set to "[_2]"',$title->{$item},$value).'</li>';
$mailmsgtext .= "$title->{$item} set to $value\n";	$mailmsgtext .= "$title->{$item} set to $value\n";
Line 12138 sub modify_helpsettings {	Line 12727 sub modify_helpsettings {
my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');	my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');
my (@allpos,%newsettings,%changedprivs,$newrole);	my (@allpos,%newsettings,%changedprivs,$newrole);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
my @accesstypes = ('all','none','status','inc','exc');	my @accesstypes = ('all','dh','da','none','status','inc','exc');
my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh']);	my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh','da']);
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
s => 'system',	s => 'system',
d => 'domain',	d => 'domain',
order => 'Display order',	order => 'Display order',
access => 'Role usage',	access => 'Role usage',
all => 'All',	all => 'All with domain helpdesk or helpdesk assistant role',
	dh => 'All with domain helpdesk role',
	da => 'All with domain helpdesk assistant role',
none => 'None',	none => 'None',
status => 'Determined based on institutional status',	status => 'Determined based on institutional status',
inc => 'Include all, but exclude specific personnel',	inc => 'Include all, but exclude specific personnel',
Line 12181 sub modify_helpsettings {	Line 12772 sub modify_helpsettings {
$identifier = 'custhelp'.$num;	$identifier = 'custhelp'.$num;
my %newprivs = &Apache::lonuserutils::custom_role_update($rolename,$identifier);	my %newprivs = &Apache::lonuserutils::custom_role_update($rolename,$identifier);
my %currprivs;	my %currprivs;
($currprivs{'s'},$currprivs{'d'},$currprivs{'c'}) =	($currprivs{'s'},$currprivs{'d'},$currprivs{'c'}) =
split(/\_/,$existing{'rolesdef_'.$rolename});	split(/\_/,$existing{'rolesdef_'.$rolename});
foreach my $level ('c','d','s') {	foreach my $level ('c','d','s') {
if ($newprivs{$level} ne $currprivs{$level}) {	if ($newprivs{$level} ne $currprivs{$level}) {
Line 12223 sub modify_helpsettings {	Line 12814 sub modify_helpsettings {
if ($access eq 'status') {	if ($access eq 'status') {
my @statuses = &Apache::loncommon::get_env_multiple('form.'.$prefix.'_status');	my @statuses = &Apache::loncommon::get_env_multiple('form.'.$prefix.'_status');
if (scalar(@statuses) == 0) {	if (scalar(@statuses) == 0) {
$helphash{'helpsettings'}{'adhoc'}{$rolename}{'access'} = 'none';	$helphash{'helpsettings'}{'adhoc'}{$rolename}{'access'} = 'none';
} else {	} else {
my (@shownstatus,$numtypes);	my (@shownstatus,$numtypes);
$helphash{'helpsettings'}{'adhoc'}{$rolename}{$access} = [];	$helphash{'helpsettings'}{'adhoc'}{$rolename}{$access} = [];
Line 12296 sub modify_helpsettings {	Line 12887 sub modify_helpsettings {
if (ref($current{'adhoc'}{$rolename}) eq 'HASH') {	if (ref($current{'adhoc'}{$rolename}) eq 'HASH') {
if ($current{'adhoc'}{$rolename}{'order'} ne $idx) {	if ($current{'adhoc'}{$rolename}{'order'} ne $idx) {
$changes{'customrole'}{$rolename}{'order'} = 1;	$changes{'customrole'}{$rolename}{'order'} = 1;
$newsettings{$rolename}{'order'} = $idx+1;	$newsettings{$rolename}{'order'} = $idx+1;
}	}
}	}
}	}
Line 12494 sub modify_coursedefaults {	Line 13085 sub modify_coursedefaults {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
} elsif ($item =~ /^(uploadquota\|mysqltables)_/) {	} elsif ($item =~ /^(uploadquota\|mysqltables)_/) {
my $setting = $1;	my $setting = $1;
unless (($currdef eq '') && ($newdef == $staticdefaults{$setting})) {	unless (($currdef eq '') && ($newdef == $staticdefaults{$setting})) {
$changes{$setting} = 1;	$changes{$setting} = 1;
}	}
Line 12509 sub modify_coursedefaults {	Line 13100 sub modify_coursedefaults {
}	}
}	}
my $newclone;	my $newclone;
if ($env{'form.canclone'} =~ /^(none\|domain\|instcode)$/) {	if ($env{'form.canclone'} =~ /^(none\|domain\|instcode)$/) {
$newclone = $env{'form.canclone'};	$newclone = $env{'form.canclone'};
}	}
if ($newclone eq 'instcode') {	if ($newclone eq 'instcode') {
Line 12532 sub modify_coursedefaults {	Line 13123 sub modify_coursedefaults {
$newclone eq '';	$newclone eq '';
}	}
} elsif ($newclone ne '') {	} elsif ($newclone ne '') {
$defaultshash{'coursedefaults'}{'canclone'} = $newclone;	$defaultshash{'coursedefaults'}{'canclone'} = $newclone;
}	}
if ($newclone ne $currclone) {	if ($newclone ne $currclone) {
$changes{'canclone'} = 1;	$changes{'canclone'} = 1;
}	}
Line 12551 sub modify_coursedefaults {	Line 13142 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 12597 sub modify_coursedefaults {	Line 13188 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 12626 sub modify_coursedefaults {	Line 13217 sub modify_coursedefaults {
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 12689 sub modify_coursedefaults {	Line 13280 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 12724 sub modify_coursedefaults {	Line 13315 sub modify_coursedefaults {
$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 12755 sub modify_coursedefaults {	Line 13346 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 12783 sub modify_coursedefaults {	Line 13374 sub modify_coursedefaults {
} elsif ($defaultshash{'coursedefaults'}{'canclone'} eq 'domain') {	} elsif ($defaultshash{'coursedefaults'}{'canclone'} eq 'domain') {
$resulttext .= '<li>'.&mt('By default, a course requester can clone any course from his/her domain.').'</li>';	$resulttext .= '<li>'.&mt('By default, a course requester can clone any course from his/her domain.').'</li>';
} else {	} else {
$resulttext .= '<li>'.&mt('By default, only course owner and coordinators may clone a course.').'</li>';	$resulttext .= '<li>'.&mt('By default, only course owner and coordinators may clone a course.').'</li>';
}	}
}	}
}	}
Line 13238 sub modify_usersessions {	Line 13829 sub modify_usersessions {
}	}
}	}
unless ($changes{'offloadnow'}) {	unless ($changes{'offloadnow'}) {
foreach my $lonhost (keys(%{$defaultshash{'usersessions'}{'offloadnow'}})) {	foreach my $lonhost (keys(%{$defaultshash{'usersessions'}{'offloadnow'}})) {
unless ($domconfig{'usersessions'}{'offloadnow'}{$lonhost}) {	unless ($domconfig{'usersessions'}{'offloadnow'}{$lonhost}) {
$changes{'offloadnow'} = 1;	$changes{'offloadnow'} = 1;
last;	last;
Line 13269 sub modify_usersessions {	Line 13860 sub modify_usersessions {
}	}
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	&Apache::lonnet::do_cache_new('usersessions',$dom,$defaultshash{'usersessions'},3600);
if (ref($lastactref) eq 'HASH') {	if (ref($lastactref) eq 'HASH') {
$lastactref->{'domdefaults'} = 1;	$lastactref->{'domdefaults'} = 1;
	$lastactref->{'usersessions'} = 1;
}	}
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my %lt = &usersession_titles();	my %lt = &usersession_titles();
Line 13371 sub modify_ssl {	Line 13964 sub modify_ssl {
my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
my (%defaultshash,%changes);	my (%defaultshash,%changes);
my $action = 'ssl';	my $action = 'ssl';
my @prefixes = ('connect','replication');	my @prefixes = ('connto','connfrom','replication');
foreach my $prefix (@prefixes) {	foreach my $prefix (@prefixes) {
$defaultshash{$action}{$prefix} = {};	$defaultshash{$action}{$prefix} = {};
}	}
Line 13381 sub modify_ssl {	Line 13974 sub modify_ssl {
my @reptypes = ('certreq','nocertreq');	my @reptypes = ('certreq','nocertreq');
my @connecttypes = ('dom','intdom','other');	my @connecttypes = ('dom','intdom','other');
my %types = (	my %types = (
connect => \@connecttypes,	connto => \@connecttypes,
replication => \@reptypes,	connfrom => \@connecttypes,
	replication => \@reptypes,
);	);
foreach my $prefix (sort(keys(%types))) {	foreach my $prefix (sort(keys(%types))) {
foreach my $type (@{$types{$prefix}}) {	foreach my $type (@{$types{$prefix}}) {
if ($prefix eq 'connect') {	if (($prefix eq 'connto') \|\| ($prefix eq 'connfrom')) {
my $value = 'yes';	my $value = 'yes';
if ($env{'form.'.$prefix.'_'.$type} =~ /^(no\|req)$/) {	if ($env{'form.'.$prefix.'_'.$type} =~ /^(no\|req)$/) {
$value = $env{'form.'.$prefix.'_'.$type};	$value = $env{'form.'.$prefix.'_'.$type};
Line 13475 sub modify_ssl {	Line 14069 sub modify_ssl {
if (ref($defaultshash{$action}{'replication'}) eq 'HASH') {	if (ref($defaultshash{$action}{'replication'}) eq 'HASH') {
$domdefaults{'replication'} = $defaultshash{$action}{'replication'};	$domdefaults{'replication'} = $defaultshash{$action}{'replication'};
}	}
if (ref($defaultshash{$action}{'connect'}) eq 'HASH') {	if (ref($defaultshash{$action}{'connto'}) eq 'HASH') {
$domdefaults{'connect'} = $domconfig{$action}{'connect'};	$domdefaults{'connto'} = $domconfig{$action}{'connto'};
	}
	if (ref($defaultshash{$action}{'connfrom'}) eq 'HASH') {
	$domdefaults{'connfrom'} = $domconfig{$action}{'connfrom'};
}	}
}	}
my $cachetime = 246060;	my $cachetime = 246060;
Line 13495 sub modify_ssl {	Line 14092 sub modify_ssl {
my $newvalue;	my $newvalue;
if (ref($defaultshash{$action}) eq 'HASH') {	if (ref($defaultshash{$action}) eq 'HASH') {
if (ref($defaultshash{$action}{$prefix})) {	if (ref($defaultshash{$action}{$prefix})) {
if ($prefix eq 'connect') {	if (($prefix eq 'connto') \|\| ($prefix eq 'connfrom')) {
$newvalue = $titles{$defaultshash{$action}{$prefix}{$type}};	$newvalue = $titles{$defaultshash{$action}{$prefix}{$type}};
} elsif (ref($defaultshash{$action}{$prefix}{$type}) eq 'ARRAY') {	} elsif (ref($defaultshash{$action}{$prefix}{$type}) eq 'ARRAY') {
if (@{$defaultshash{$action}{$prefix}{$type}} > 0) {	if (@{$defaultshash{$action}{$prefix}{$type}} > 0) {
Line 13756 sub modify_loadbalancing {	Line 14353 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 13832 sub modify_loadbalancing {	Line 14429 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 13953 sub recurse_cat_deletes {	Line 14550 sub recurse_cat_deletes {

sub active_dc_picker {	sub active_dc_picker {
my ($dom,$numinrow,$inputtype,$name,%currhash) = @_;	my ($dom,$numinrow,$inputtype,$name,%currhash) = @_;
my %domcoords = &get_active_dcs($dom);	my %domcoords = &Apache::lonnet::get_active_domroles($dom,['dc']);
my @domcoord = keys(%domcoords);	my @domcoord = keys(%domcoords);
if (keys(%currhash)) {	if (keys(%currhash)) {
foreach my $dc (keys(%currhash)) {	foreach my $dc (keys(%currhash)) {
Line 14559 function updateCaptcha(caller,context) {	Line 15156 function updateCaptcha(caller,context) {
privtext.innerHTML = "$lt{'priv'}";	privtext.innerHTML = "$lt{'priv'}";
versionitem.type = 'text';	versionitem.type = 'text';
versionitem.size = '3';	versionitem.size = '3';
versiontext.innerHTML = "$lt{'ver'}";	versiontext.innerHTML = "$lt{'ver'}";
} else {	} else {
pubitem.type = 'hidden';	pubitem.type = 'hidden';
privitem.type = 'hidden';	privitem.type = 'hidden';
Line 14632 sub captcha_phrases {	Line 15229 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)',	ver => 'ReCAPTCHA version (1 or 2)',
);	);
}	}

Line 14642 sub devalidate_remote_domconfs {	Line 15239 sub devalidate_remote_domconfs {
my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
my %thismachine;	my %thismachine;
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();	map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
my @posscached = ('domainconfig','domdefaults','ltitools');	my @posscached = ('domainconfig','domdefaults','ltitools','usersessions','directorysrch');
if (keys(%servers)) {	if (keys(%servers)) {
foreach my $server (keys(%servers)) {	foreach my $server (keys(%servers)) {
next if ($thismachine{$server});	next if ($thismachine{$server});

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

Removed from v.1.285
changed lines
	Added in v.1.296