loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.160.6.84.6.2 and 1.288

version 1.160.6.84.6.2, 2020/04/09 20:55:12	version 1.288, 2017/01/23 22:46:44
Line 104 $datatable - HTML containing form eleme	Line 104 $datatable - HTML containing form eleme

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

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

my $registered_cleanup;	my $registered_cleanup;
my $modified_urls;	my $modified_urls;
Line 217 sub handler {	Line 219 sub handler {
'serverstatuses','requestcourses','helpsettings',	'serverstatuses','requestcourses','helpsettings',
'coursedefaults','usersessions','loadbalancing',	'coursedefaults','usersessions','loadbalancing',
'requestauthor','selfenrollment','inststatus',	'requestauthor','selfenrollment','inststatus',
'ltitools'],$dom);	'ltitools','ssl','trust'],$dom);
if (ref($domconfig{'ltitools'}) eq 'HASH') {
my %encconfig =
&Apache::lonnet::get_dom('encconfig',['ltitools'],$dom);
if (ref($encconfig{'ltitools'}) eq 'HASH') {
foreach my $id (keys(%{$domconfig{'ltitools'}})) {
if (ref($domconfig{'ltitools'}{$id}) eq 'HASH') {
foreach my $item ('key','secret') {
$domconfig{'ltitools'}{$id}{$item} = $encconfig{'ltitools'}{$id}{$item};
}
}
}
}
}
my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',	my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',
'autoupdate','autocreate','directorysrch','contacts',	'autoupdate','autocreate','directorysrch','contacts',
'usercreation','selfcreation','usermodification','scantron',	'usercreation','selfcreation','usermodification','scantron',
'requestcourses','requestauthor','coursecategories',	'requestcourses','requestauthor','coursecategories',
'serverstatuses','helpsettings','coursedefaults',	'serverstatuses','helpsettings','coursedefaults',
'ltitools','selfenrollment','usersessions');	'ltitools','selfenrollment','usersessions','ssl','trust');
my %existing;	my %existing;
if (ref($domconfig{'loadbalancing'}) eq 'HASH') {	if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
%existing = %{$domconfig{'loadbalancing'}};	%existing = %{$domconfig{'loadbalancing'}};
Line 276 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 466 sub handler {	Line 453 sub handler {
print => \&print_selfenrollment,	print => \&print_selfenrollment,
modify => \&modify_selfenrollment,	modify => \&modify_selfenrollment,
},	},
	'privacy' =>
	{text => 'User Privacy',
	help => 'Domain_Configuration_User_Privacy',
	header => [{col1 => 'Setting',
	col2 => 'Value',}],
	print => \&print_privacy,
	modify => \&modify_privacy,
	},
'usersessions' =>	'usersessions' =>
{text => 'User session hosting/offloading',	{text => 'User session hosting/offloading',
help => 'Domain_Configuration_User_Sessions',	help => 'Domain_Configuration_User_Sessions',
Line 489 sub handler {	Line 484 sub handler {
print => \&print_loadbalancing,	print => \&print_loadbalancing,
modify => \&modify_loadbalancing,	modify => \&modify_loadbalancing,
},	},
'ltitools' =>	'ltitools' =>
{text => 'External Tools (LTI)',	{text => 'External Tools (LTI)',
help => 'Domain_Configuration_LTI_Tools',	help => 'Domain_configuration_LTI_Tools',
header => [{col1 => 'Setting',	header => [{col1 => 'Setting',
col2 => 'Value',}],	col2 => 'Value',}],
print => \&print_ltitools,	print => \&print_ltitools,
modify => \&modify_ltitools,	modify => \&modify_ltitools,
},	},
	'ssl' =>
	{text => 'LON-CAPA Network (SSL)',
	help => 'Domain_Configuration_Network_SSL',
	header => [{col1 => 'Server',
	col2 => 'Certificate Status'},
	{col1 => 'Connections to other servers',
	col2 => 'Rules'},
	{col1 => "Replicating domain's published content",
	col2 => 'Rules'}],
	print => \&print_ssl,
	modify => \&modify_ssl,
	},
	'trust' =>
	{text => 'Trust Settings',
	help => 'Domain_Configuration_Trust',
	header => [{col1 => "Access to this domain's content by others",
	col2 => 'Rules'},
	{col1 => "Access to other domain's content by this domain",
	col2 => 'Rules'},
	{col1 => "Enrollment in this domain's courses by others",
	col2 => 'Rules',},
	{col1 => "Co-author roles in this domain for others",
	col2 => 'Rules',},
	{col1 => "Co-author roles for this domain's users elsewhere",
	col2 => 'Rules',},
	{col1 => "Domain roles in this domain assignable to others",
	col2 => 'Rules'},
	{col1 => "Course catalog for this domain displayed elsewhere",
	col2 => 'Rules'},
	{col1 => "Requests for creation of courses in this domain by others",
	col2 => 'Rules'},
	{col1 => "Users in other domains can send messages to this domain",
	col2 => 'Rules'},],
	print => \&print_trust,
	modify => \&modify_trust,
	},
);	);
if (keys(%servers) > 1) {	if (keys(%servers) > 1) {
$prefs{'login'} = { text => 'Log-in page options',	$prefs{'login'} = { text => 'Log-in page options',
Line 642 sub process_changes {	Line 673 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,$lastactref,%domconfig);	$output = &modify_directorysrch($dom,%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 675 sub process_changes {	Line 706 sub process_changes {
$output = &modify_loadbalancing($dom,%domconfig);	$output = &modify_loadbalancing($dom,%domconfig);
} elsif ($action eq 'ltitools') {	} elsif ($action eq 'ltitools') {
$output = &modify_ltitools($r,$dom,$action,$lastactref,%domconfig);	$output = &modify_ltitools($r,$dom,$action,$lastactref,%domconfig);
	} elsif ($action eq 'ssl') {
	$output = &modify_ssl($dom,$lastactref,%domconfig);
	} elsif ($action eq 'trust') {
	$output = &modify_trust($dom,$lastactref,%domconfig);
}	}
return $output;	return $output;
}	}
Line 701 sub print_config_box {	Line 736 sub print_config_box {
&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);	&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);	my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
$output =	$output =
&Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,\%full,	&Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,\%full,
\@templateroles);	\@templateroles);
} elsif ($action eq 'ltitools') {
$output .= &ltitools_javascript($settings);
}	}
$output .=	$output .=
'<table class="LC_nested_outer">	'<table class="LC_nested_outer">
Line 740 sub print_config_box {	Line 773 sub print_config_box {
$rowtotal ++;	$rowtotal ++;
if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\| ($action eq 'selfcreation') \|\|	if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\| ($action eq 'selfcreation') \|\|
($action eq 'usermodification') \|\| ($action eq 'defaults') \|\| ($action eq 'coursedefaults') \|\|	($action eq 'usermodification') \|\| ($action eq 'defaults') \|\| ($action eq 'coursedefaults') \|\|
($action eq 'selfenrollment') \|\| ($action eq 'usersessions') \|\| ($action eq 'directorysrch') \|\|	($action eq 'selfenrollment') \|\| ($action eq 'usersessions') \|\| ($action eq 'ssl') \|\|
($action eq 'helpsettings') \|\| ($action eq 'contacts')) {	($action eq 'directorysrch') \|\| ($action eq 'trust') \|\| ($action eq 'helpsettings') \|\|
	($action eq 'contacts')) {
$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal);
} elsif ($action eq 'coursecategories') {	} elsif ($action eq 'coursecategories') {
$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);	$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal);
Line 771 sub print_config_box {	Line 805 sub print_config_box {
$rowtotal ++;	$rowtotal ++;
if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\|	if (($action eq 'autoupdate') \|\| ($action eq 'usercreation') \|\|
($action eq 'selfcreation') \|\| ($action eq 'selfenrollment') \|\|	($action eq 'selfcreation') \|\| ($action eq 'selfenrollment') \|\|
($action eq 'usersessions') \|\| ($action eq 'coursecategories') \|\|	($action eq 'usersessions') \|\| ($action eq 'coursecategories') \|\|
($action eq 'contacts') \|\| ($action eq 'defaults')) {	($action eq 'ssl') \|\| ($action eq 'trust') \|\| ($action eq 'contacts')) {
if ($action eq 'coursecategories') {	if ($action eq 'coursecategories') {
$output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal);	$output .= &print_coursecategories('middle',$dom,$item,$settings,\$rowtotal);
$colspan = ' colspan="2"';	$colspan = ' colspan="2"';
	} elsif ($action eq 'trust') {
	$output .= $item->{'print'}->('shared',$dom,$settings,\$rowtotal);
} else {	} else {
$output .= $item->{'print'}->('middle',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('middle',$dom,$settings,\$rowtotal);
}	}
$output .= '	if ($action eq 'trust') {
	$output .= '
	</table>
	</td>
	</tr>';
	my @trusthdrs = qw(2 3 4 5 6 7);
	my @prefixes = qw(enroll othcoau coaurem domroles catalog reqcrs);
	for (my $i=0; $i<@trusthdrs; $i++) {
	$output .= '
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[$trusthdrs[$i]]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[$trusthdrs[$i]]->{'col2'}).'</td></tr>'.
	$item->{'print'}->($prefixes[$i],$dom,$settings,\$rowtotal).'
	</table>
	</td>
	</tr>';
	}
	$output .= '
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[8]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[8]->{'col2'}).'</td></tr>'.
	$item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
	} else {
	$output .= '
</table>	</table>
</td>	</td>
</tr>	</tr>
Line 790 sub print_config_box {	Line 855 sub print_config_box {
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>	<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>
</tr>'."\n";	</tr>'."\n";
if ($action eq 'coursecategories') {	if ($action eq 'coursecategories') {
$output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal);	$output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal);
} else {	} else {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
	}
}	}
$rowtotal ++;	$rowtotal ++;
} elsif (($action eq 'usermodification') \|\| ($action eq 'coursedefaults') \|\|	} elsif (($action eq 'usermodification') \|\| ($action eq 'coursedefaults') \|\|
Line 956 sub print_config_box {	Line 1022 sub print_config_box {
if ($action eq 'quotas') {	if ($action eq 'quotas') {
$output .= &print_quotas($dom,$settings,\$rowtotal,$action);	$output .= &print_quotas($dom,$settings,\$rowtotal,$action);
} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\|	} elsif (($action eq 'autoenroll') \|\| ($action eq 'autocreate') \|\|
($action eq 'serverstatuses') \|\| ($action eq 'loadbalancing') \|\|	($action eq 'serverstatuses') \|\| ($action eq 'loadbalancing') \|\|
($action eq 'ltitools')) {	($action eq 'ltitools')) {
$output .= $item->{'print'}->($dom,$settings,\$rowtotal);	$output .= $item->{'print'}->($dom,$settings,\$rowtotal);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
Line 1761 sub print_quotas {	Line 1827 sub print_quotas {
my $typecount = 0;	my $typecount = 0;
my ($css_class,%titles);	my ($css_class,%titles);
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
@usertools = ('official','unofficial','community','textbook');	@usertools = ('official','unofficial','community','textbook','placement');
@options =('norequest','approval','validate','autolimit');	@options =('norequest','approval','validate','autolimit');
%validations = &Apache::lonnet::auto_courserequest_checks($dom);	%validations = &Apache::lonnet::auto_courserequest_checks($dom);
%titles = &courserequest_titles();	%titles = &courserequest_titles();
Line 2213 sub print_studentcode {	Line 2279 sub print_studentcode {
my ($settings,$rowtotal) = @_;	my ($settings,$rowtotal) = @_;
my $rownum = 0;	my $rownum = 0;
my ($output,%current);	my ($output,%current);
my @crstypes = ('official','unofficial','community','textbook');	my @crstypes = ('official','unofficial','community','textbook','placement');
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'uniquecode'}) eq 'HASH') {	if (ref($settings->{'uniquecode'}) eq 'HASH') {
foreach my $type (@crstypes) {	foreach my $type (@crstypes) {
Line 2309 sub print_textbookcourses {	Line 2375 sub print_textbookcourses {
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.&mt('Thumbnail:');	'<span class="LC_nobreak">'.&mt('Thumbnail:');
if ($image) {	if ($image) {
$datatable .= '<span class="LC_nobreak">'.	$datatable .= $imgsrc.
$imgsrc.
'<label><input type="checkbox" name="'.$type.'_image_del"'.	'<label><input type="checkbox" name="'.$type.'_image_del"'.
' value="'.$key.'" />'.&mt('Delete?').'</label></span> '.	' value="'.$key.'" />'.&mt('Delete?').'</label></span> '.
'<span class="LC_nobreak"> '.&mt('Replace:').' ';	'<span class="LC_nobreak"> '.&mt('Replace:').' ';
Line 2466 ENDSCRIPT	Line 2531 ENDSCRIPT

sub ltitools_javascript {	sub ltitools_javascript {
my ($settings) = @_;	my ($settings) = @_;
my $togglejs = &ltitools_toggle_js();	return unless(ref($settings) eq 'HASH');
unless (ref($settings) eq 'HASH') {
return $togglejs;
}
my (%ordered,$total,%jstext);	my (%ordered,$total,%jstext);
$total = 0;	$total = 0;
foreach my $item (keys(%{$settings})) {	foreach my $item (keys(%{$settings})) {
Line 2487 sub ltitools_javascript {	Line 2549 sub ltitools_javascript {
return <<"ENDSCRIPT";	return <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
function reorderLTITools(form,item) {	function reorderLTI(form,item) {
var changedVal;	var changedVal;
$jstext	$jstext
var newpos = 'ltitools_add_pos';	var newpos = 'ltitools_add_pos';
Line 2532 $jstext	Line 2594 $jstext
// ]]>	// ]]>
</script>	</script>

$togglejs

ENDSCRIPT
}

sub ltitools_toggle_js {
return <<"ENDSCRIPT";
<script type="text/javascript">
// <![CDATA[

function toggleLTITools(form,setting,item) {
var radioname = '';
var divid = '';
if (setting == 'user') {
divid = 'ltitools_'+setting+'_div_'+item;
var checkid = 'ltitools_'+setting+'_field_'+item;
if (document.getElementById(divid)) {
if (document.getElementById(checkid)) {
if (document.getElementById(checkid).checked) {
document.getElementById(divid).style.display = 'inline-block';
} else {
document.getElementById(divid).style.display = 'none';
}
}
}
}
return;
}
// ]]>
</script>

ENDSCRIPT	ENDSCRIPT
}	}

Line 2993 sub print_contacts {	Line 3024 sub print_contacts {
if (exists($settings->{'helpform'}{'maxsize'})) {	if (exists($settings->{'helpform'}{'maxsize'})) {
$maxsize = $settings->{'helpform'}{'maxsize'};	$maxsize = $settings->{'helpform'}{'maxsize'};
} else {	} else {
$maxsize = '1.0';	$maxsize = '1.0';
}	}
} else {	} else {
if (ref($fields) eq 'ARRAY') {	if (ref($fields) eq 'ARRAY') {
Line 3010 sub print_contacts {	Line 3041 sub print_contacts {
$to{'adminemail'} = $Apache::lonnet::perlvar{'lonAdmEMail'};	$to{'adminemail'} = $Apache::lonnet::perlvar{'lonAdmEMail'};
$checked{'errormail'}{'adminemail'} = ' checked="checked" ';	$checked{'errormail'}{'adminemail'} = ' checked="checked" ';
$checked{'packagesmail'}{'adminemail'} = ' 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" ';
Line 3086 sub print_contacts {	Line 3117 sub print_contacts {
if ($position eq 'middle') {	if ($position eq 'middle') {
my %choices;	my %choices;
$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',	$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',
&Apache::loncommon::modal_link('http://loncapa.org/core.html',	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
&mt('LON-CAPA core group - MSU'),600,500));	&mt('LON-CAPA core group - MSU'),600,500));
$choices{'reportupdates'} = &mt('E-mail record of completed LON-CAPA updates to [_1]',	$choices{'reportupdates'} = &mt('E-mail record of completed LON-CAPA updates to [_1]',
&Apache::loncommon::modal_link('http://loncapa.org/core.html',	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
&mt('LON-CAPA core group - MSU'),600,500));	&mt('LON-CAPA core group - MSU'),600,500));
Line 3103 sub print_contacts {	Line 3134 sub print_contacts {
'<td>'.&mt('Extra helpdesk form fields:').'<br />'.	'<td>'.&mt('Extra helpdesk form fields:').'<br />'.
&mt('(e-mail, subject, and description always shown)').	&mt('(e-mail, subject, and description always shown)').
'</td><td class="LC_left_item">';	'</td><td class="LC_left_item">';
if ((ref($fields) eq 'ARRAY') && (ref($fieldtitles) eq 'HASH') &&	if ((ref($fields) eq 'ARRAY') && (ref($fieldtitles) eq 'HASH') &&
(ref($fieldoptions) eq 'HASH') && (ref($possoptions) eq 'HASH')) {	(ref($fieldoptions) eq 'HASH') && (ref($possoptions) eq 'HASH')) {
$datatable .= '<table><tr><th>'.&mt('Field').'</th><th>'.&mt('Status').'</th></tr>';	$datatable .= '<table><tr><th>'.&mt('Field').'</th><th>'.&mt('Status').'</th></tr>';
foreach my $field (@{$fields}) {	foreach my $field (@{$fields}) {
Line 3157 sub contacts_javascript {	Line 3188 sub contacts_javascript {
function screenshotSize(field) {	function screenshotSize(field) {
if (document.getElementById('help_screenshotsize')) {	if (document.getElementById('help_screenshotsize')) {
if (field.value == 'no') {	if (field.value == 'no') {
document.getElementById('help_screenshotsize').style.display="none";	document.getElementById('help_screenshotsize').style.display="none";
} else {	} else {
document.getElementById('help_screenshotsize').style.display="";	document.getElementById('help_screenshotsize').style.display="";
}	}
Line 3191 sub print_helpsettings {	Line 3222 sub print_helpsettings {
my $css_class;	my $css_class;
my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');	my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');
my (%customroles,%ordered,%current);	my (%customroles,%ordered,%current);
if (ref($settings) eq 'HASH') {	if (ref($settings->{'adhoc'}) eq 'HASH') {
if (ref($settings->{'adhoc'}) eq 'HASH') {	%current = %{$settings->{'adhoc'}};
%current = %{$settings->{'adhoc'}};
}
}	}
my $count = 0;	my $count = 0;
foreach my $key (sort(keys(%existing))) {	foreach my $key (sort(keys(%existing))) {
Line 3221 sub print_helpsettings {	Line 3250 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','dh','da','none');	my @accesstypes = ('all','none');
my ($numstatustypes,@jsarray);	my ($numstatustypes,@jsarray);
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
if (@{$types} > 0) {	if (@{$types} > 0) {
Line 3230 sub print_helpsettings {	Line 3259 sub print_helpsettings {
@jsarray = ('bystatus');	@jsarray = ('bystatus');
}	}
}	}
my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh','da']);	my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh']);
if (keys(%domhelpdesk)) {	if (keys(%domhelpdesk)) {
push(@accesstypes,('inc','exc'));	push(@accesstypes,('inc','exc'));
push(@jsarray,('notinc','notexc'));	push(@jsarray,('notinc','notexc'));
Line 3439 function helpdeskAccess(num) {	Line 3468 function helpdeskAccess(num) {
shown = Array('notinc');	shown = Array('notinc');
hidden = Array('notexc','bystatus');	hidden = Array('notexc','bystatus');
}	}
if ((curraccess == 'all') \|\| (curraccess == 'dh') \|\| (curraccess == 'da')) {	if (curraccess == 'all') {
hidden = Array('notinc','notexc','bystatus');	hidden = Array('notinc','notexc','bystatus');
}	}
}	}
Line 3468 function helpdeskAccess(num) {	Line 3497 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 3496 sub helpdeskroles_access {	Line 3525 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 with domain helpdesk or helpdesk assistant role',	'all' => 'All',
'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 3596 sub radiobutton_prefs {	Line 3623 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 3628 sub print_ltitools {	Line 3655 sub print_ltitools {
my $confname = $dom.'-domainconfig';	my $confname = $dom.'-domainconfig';
my $switchserver = &check_switchserver($dom,$confname);	my $switchserver = &check_switchserver($dom,$confname);
my $maxnum = scalar(keys(%ordered));	my $maxnum = scalar(keys(%ordered));
my $datatable;	my $datatable = &ltitools_javascript($settings);
my %lt = &ltitools_names();	my %lt = &ltitools_names();
my @courseroles = ('cc','in','ta','ep','st');	my @courseroles = ('cc','in','ta','ep','st');
my @ltiroles = qw(Instructor ContentDeveloper TeachingAssistant Learner);	my @ltiroles = qw(Instructor ContentDeveloper TeachingAssistant Learner);
my @fields = ('fullname','firstname','lastname','email','roles','user');	my @fields = ('fullname','firstname','lastname','email','user','roles');
if (keys(%ordered)) {	if (keys(%ordered)) {
my @items = sort { $a <=> $b } keys(%ordered);	my @items = sort { $a <=> $b } keys(%ordered);
for (my $i=0; $i<@items; $i++) {	for (my $i=0; $i<@items; $i++) {
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
my $item = $ordered{$items[$i]};	my $item = $ordered{$items[$i]};
my ($title,$key,$secret,$url,$lifetime,$imgsrc,%sigsel);	my ($title,$key,$secret,$url,$imgsrc,$version);
if (ref($settings->{$item}) eq 'HASH') {	if (ref($settings->{$item}) eq 'HASH') {
$title = $settings->{$item}->{'title'};	$title = $settings->{$item}->{'title'};
$url = $settings->{$item}->{'url'};	$url = $settings->{$item}->{'url'};
$key = $settings->{$item}->{'key'};	$key = $settings->{$item}->{'key'};
$secret = $settings->{$item}->{'secret'};	$secret = $settings->{$item}->{'secret'};
$lifetime = $settings->{$item}->{'lifetime'};
my $image = $settings->{$item}->{'image'};	my $image = $settings->{$item}->{'image'};
if ($image ne '') {	if ($image ne '') {
$imgsrc = '<img src="'.$image.'" alt="'.&mt('Tool Provider icon').'" />';	$imgsrc = '<img src="'.$image.'" alt="'.&mt('Tool Provider icon').'" />';
}	}
if ($settings->{$item}->{'sigmethod'} eq 'HMAC-256') {
$sigsel{'HMAC-256'} = ' selected="selected"';
} else {
$sigsel{'HMAC-SHA1'} = ' selected="selected"';
}
}	}
my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_".$item."'".');"';	my $chgstr = ' onchange="javascript:reorderLTI(this.form,'."'ltitools_".$item."'".');"';
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'	$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'
.'<select name="ltitools_'.$item.'"'.$chgstr.'>';	.'<select name="ltitools_'.$item.'"'.$chgstr.'>';
for (my $k=0; $k<=$maxnum; $k++) {	for (my $k=0; $k<=$maxnum; $k++) {
Line 3671 sub print_ltitools {	Line 3692 sub print_ltitools {
&mt('Delete?').'</label></span></td>'.	&mt('Delete?').'</label></span></td>'.
'<td colspan="2">'.	'<td colspan="2">'.
'<fieldset><legend>'.&mt('Required settings').'</legend>'.	'<fieldset><legend>'.&mt('Required settings').'</legend>'.
'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="20" name="ltitools_title_'.$i.'" value="'.$title.'" /></span> '.	'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="30" name="ltitools_title_'.$i.'" value="'.$title.'" /></span> '.
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_version_'.$i.'">'.	'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_version_'.$i.'">'.
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '.	'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '.
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_msgtype_'.$i.'">'.	'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_msgtype_'.$i.'">'.
'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.	'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.
(' 'x2).
'<span class="LC_nobreak">'.$lt{'sigmethod'}.':<select name="ltitools_sigmethod_'.$i.'">'.
'<option value="HMAC-SHA1"'.$sigsel{'HMAC-SHA1'}.'>HMAC-SHA1</option>'.
'<option value="HMAC-SHA256"'.$sigsel{'HMAC-SHA256'}.'>HMAC-SHA256</option></select></span>'.
'<br /><br />'.	'<br /><br />'.
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_url_'.$i.'"'.	'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="30" name="ltitools_url_'.$i.'"'.
' value="'.$url.'" /></span>'.	' value="'.$url.'" /></span>'.
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'key'}.':'.	'<span class="LC_nobreak">'.$lt{'key'}.
'<input type="text" size="25" name="ltitools_key_'.$i.'" value="'.$key.'" /></span> '.	'<input type="text" size="25" name="ltitools_key_'.$i.'" value="'.$key.'" /></span> '.
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'lifetime'}.':'.
'<input type="text" size="5" name="ltitools_lifetime_'.$i.'" value="'.$lifetime.'" /></span> '.
(' 'x2).
'<span class="LC_nobreak">'.$lt{'secret'}.':'.	'<span class="LC_nobreak">'.$lt{'secret'}.':'.
'<input type="password" size="20" name="ltitools_secret_'.$i.'" value="'.$secret.'" />'.	'<input type="password" size="20" name="ltitools_secret_'.$i.'" value="'.$secret.'" />'.
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_secret_'.$i.'.type='."'text'".' } else { this.form.ltitools_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'.	'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_secret_'.$i.'.type='."'text'".' } else { this.form.ltitools_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'.
Line 3703 sub print_ltitools {	Line 3717 sub print_ltitools {
if (ref($settings->{$item}->{'display'}) eq 'HASH') {	if (ref($settings->{$item}->{'display'}) eq 'HASH') {
if ($settings->{$item}->{'display'}->{'target'} eq 'window') {	if ($settings->{$item}->{'display'}->{'target'} eq 'window') {
$currdisp{'window'} = ' checked="checked"';	$currdisp{'window'} = ' checked="checked"';
} elsif ($settings->{$item}->{'display'}->{'target'} eq 'tab') {
$currdisp{'tab'} = ' checked="checked"';
} else {	} else {
$currdisp{'iframe'} = ' checked="checked"';	$currdisp{'iframe'} = ' checked="checked"';
}	}
Line 3714 sub print_ltitools {	Line 3726 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"';
}	}
foreach my $disp ('iframe','tab','window') {	foreach my $disp ('iframe','window') {
$datatable .= '<label><input type="radio" name="ltitools_target_'.$i.'" value="'.$disp.'"'.$currdisp{$disp}.' />'.	$datatable .= '<label><input type="radio" name="ltitools_target_'.$i.'" value="'.$disp.'"'.$currdisp{$disp}.' />'.
$lt{$disp}.'</label>'.(' 'x2);	$lt{$disp}.'</label>'.(' 'x2);
}	}
Line 3729 sub print_ltitools {	Line 3739 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 .= '</span><br />'.	$datatable .= '<br />';
'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.	foreach my $extra ('passback','roster') {
'<input type="text" name="ltitools_linktext_'.$i.'" size="25" value="'.$currdisp{'linktext'}.'" /></div>'.	my $checkedon = '';
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.	my $checkedoff = ' checked="checked"';
'<textarea name="ltitools_explanation_'.$i.'" rows="5" cols="40">'.$currdisp{'explanation'}.	if ($settings->{$item}->{$extra}) {
'</textarea></div><div style=""></div>'.	$checkedon = $checkedoff;
'<div style="padding:0;clear:both;margin:0;border:0"></div>';	$checkedoff = '';
	}
	$datatable .= $lt{$extra}.' '.
	'<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="1"'.$checkedon.' />'.
	&mt('Yes').'</label>'.(' 'x2).
	'<label><input type="radio" name="ltitools_'.$extra.'_'.$i.'" value="0"'.$checkedoff.' />'.
	&mt('No').'</label>'.(' 'x4);
}	}
$datatable .= '<span class="LC_nobreak">'.$lt{'icon'}.': ';	$datatable .= '<br /><br /><span class="LC_nobreak">'.$lt{'icon'}.': ';
if ($imgsrc) {	if ($imgsrc) {
$datatable .= $imgsrc.	$datatable .= $imgsrc.
'<label><input type="checkbox" name="ltitools_image_del"'.	'<label><input type="checkbox" name="ltitools_image_del"'.
Line 3752 sub print_ltitools {	Line 3768 sub print_ltitools {
$datatable .= '<input type="file" name="ltitools_image_'.$i.'" value="" />';	$datatable .= '<input type="file" name="ltitools_image_'.$i.'" value="" />';
}	}
$datatable .= '</span></fieldset>';	$datatable .= '</span></fieldset>';
my (%checkedfields,%rolemaps,$userincdom);	my (%checkedfields,%rolemaps);
if (ref($settings->{$item}) eq 'HASH') {	if (ref($settings->{$item}) eq 'HASH') {
if (ref($settings->{$item}->{'fields'}) eq 'HASH') {	if (ref($settings->{$item}->{'fields'}) eq 'HASH') {
%checkedfields = %{$settings->{$item}->{'fields'}};	%checkedfields = %{$settings->{$item}->{'fields'}};
}	}
$userincdom = $settings->{$item}->{'incdom'};
if (ref($settings->{$item}->{'roles'}) eq 'HASH') {	if (ref($settings->{$item}->{'roles'}) eq 'HASH') {
%rolemaps = %{$settings->{$item}->{'roles'}};	%rolemaps = %{$settings->{$item}->{'roles'}};
$checkedfields{'roles'} = 1;	$checkedfields{'roles'} = 1;
Line 3765 sub print_ltitools {	Line 3780 sub print_ltitools {
}	}
$datatable .= '<fieldset><legend>'.&mt('User data sent on launch').'</legend>'.	$datatable .= '<fieldset><legend>'.&mt('User data sent on launch').'</legend>'.
'<span class="LC_nobreak">';	'<span class="LC_nobreak">';
my $userfieldstyle = 'display:none;';
my $seluserdom = '';
my $unseluserdom = ' selected="selected"';
foreach my $field (@fields) {	foreach my $field (@fields) {
my ($checked,$onclick,$id,$spacer);	my $checked;
if ($checkedfields{$field}) {	if ($checkedfields{$field}) {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
}	}
if ($field eq 'user') {
$id = ' id="ltitools_user_field_'.$i.'"';
$onclick = ' onclick="toggleLTITools(this.form,'."'$field','$i'".')"';
if ($checked) {
$userfieldstyle = 'display:inline-block';
if ($userincdom) {
$seluserdom = $unseluserdom;
$unseluserdom = '';
}
}
} else {
$spacer = (' ' x2);
}
$datatable .= '<label>'.	$datatable .= '<label>'.
'<input type="checkbox" name="ltitools_fields_'.$i.'" value="'.$field.'"'.$id.$checked.$onclick.' />'.	'<input type="checkbox" name="ltitools_fields_'.$i.'" value="'.$field.'"'.$checked.' />'.
$lt{$field}.'</label>'.$spacer;	$lt{$field}.'</label>'.(' ' x2);
}	}
$datatable .= '</span>';	$datatable .= '</span></fieldset>'.
$datatable .= '<div style="'.$userfieldstyle.'" id="ltitools_user_div_'.$i.'">'.
'<span class="LC_nobreak"> : '.
'<select name="ltitools_userincdom_'.$i.'">'.
'<option value="">'.&mt('Select').'</option>'.
'<option value="0"'.$unseluserdom.'>'.&mt('username').'</option>'.
'<option value="1"'.$seluserdom.'>'.&mt('username:domain').'</option>'.
'</select></span></div>';
$datatable .= '</fieldset>'.
'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>';	'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>';
foreach my $role (@courseroles) {	foreach my $role (@courseroles) {
my ($selected,$selectnone);	my ($selected,$selectnone);
if (!$rolemaps{$role}) {	if (!$rolemaps{$role}) {
$selectnone = ' selected="selected"';	$selectnone = ' selected="selected"';
}	}
$datatable .= '<td align="center">'.	$datatable .= '<td align="center">'.
&Apache::lonnet::plaintext($role,'Course').'<br />'.	&Apache::lonnet::plaintext($role,'Course').'<br />'.
'<select name="ltitools_roles_'.$role.'_'.$i.'">'.	'<select name="ltitools_roles_'.$role.'_'.$i.'">'.
'<option value=""'.$selectnone.'>'.&mt('Select').'</option>';	'<option value=""'.$selectnone.'>'.&mt('Select').'</option>';
Line 3829 sub print_ltitools {	Line 3820 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','linktext','explanation','append') {	foreach my $item ('label','title','target') {
my $checked;	my $checked;
if ($courseconfig{$item}) {	if ($courseconfig{$item}) {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
Line 3862 sub print_ltitools {	Line 3853 sub print_ltitools {
}	}
}	}
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_add_pos'".');"';	my $chgstr = ' onchange="javascript:reorderLTI(this.form,'."'ltitools_add_pos'".');"';
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".	$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".
'<input type="hidden" name="ltitools_maxnum" value="'.$maxnum.'" />'."\n".	'<input type="hidden" name="ltitools_maxnum" value="'.$maxnum.'" />'."\n".
'<select name="ltitools_add_pos"'.$chgstr.'>';	'<select name="ltitools_add_pos"'.$chgstr.'>';
Line 3875 sub print_ltitools {	Line 3866 sub print_ltitools {
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
$datatable .= '</select> '."\n".	$datatable .= '</select> '."\n".
'<input type="checkbox" name="ltitools_add" value="1" />'.&mt('Add').'</span></td>'."\n".	'<input type="checkbox" name="ltitools_add" value="1" />'.&mt('Add').'</td>'."\n".
'<td colspan="2">'.	'<td colspan="2">'.
'<fieldset><legend>'.&mt('Required settings').'</legend>'.	'<fieldset><legend>'.&mt('Required settings').'</legend>'.
'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="20" name="ltitools_add_title" value="" /></span> '."\n".	'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="30" name="ltitools_add_title" value="" /></span> '."\n".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_add_version">'.	'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_add_version">'.
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".	'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_add_msgtype">'.	'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_add_msgtype">'.
'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.	'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.
'<span class="LC_nobreak">'.$lt{'sigmethod'}.':<select name="ltitools_add_sigmethod">'.
'<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'.
'<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'.
'<br />'.	'<br />'.
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_add_url" value="" /></span> '."\n".	'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="30" name="ltitools_add_url" value="" /></span> '."\n".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="ltitools_add_key" value="" /></span> '."\n".	'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="ltitools_add_key" value="" /></span> '."\n".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="ltitools_add_lifetime" value="300" /></span> '."\n".
(' 'x2).
'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="ltitools_add_secret" value="" />'.	'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="ltitools_add_secret" value="" />'.
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_add_secret.type='."'text'".' } else { this.form.ltitools_add_secret.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n".	'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_add_secret.type='."'text'".' } else { this.form.ltitools_add_secret.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n".
'</fieldset>'.	'</fieldset>'.
Line 3902 sub print_ltitools {	Line 3888 sub print_ltitools {
'<span class="LC_nobreak">'.&mt('Display target:');	'<span class="LC_nobreak">'.&mt('Display target:');
my %defaultdisp;	my %defaultdisp;
$defaultdisp{'iframe'} = ' checked="checked"';	$defaultdisp{'iframe'} = ' checked="checked"';
foreach my $disp ('iframe','tab','window') {	foreach my $disp ('iframe','window') {
$datatable .= '<label><input type="radio" name="ltitools_add_target" value="'.$disp.'"'.$defaultdisp{$disp}.' />'.	$datatable .= '<label><input type="radio" name="ltitools_add_target" value="'.$disp.'"'.$defaultdisp{$disp}.' />'.
$lt{$disp}.'</label>'.(' 'x2);	$lt{$disp}.'</label>'.(' 'x2);
}	}
Line 3912 sub print_ltitools {	Line 3898 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 .= '</span><br />'.	$datatable .= '<br />';
'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.	foreach my $extra ('passback','roster') {
'<input type="text" name="ltitools_add_linktext" size="5" /></div>'.	$datatable .= $lt{$extra}.' '.
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.	'<label><input type="radio" name="ltitools_add_'.$extra.'" value="1" />'.
'<textarea name="ltitools_add_explanation" rows="5" cols="40"></textarea>'.	&mt('Yes').'</label>'.(' 'x2).
'</div><div style=""></div>'.	'<label><input type="radio" name="ltitools_add_'.$extra.'" value="0" checked="checked" />'.
'<div style="padding:0;clear:both;margin:0;border:0"></div>';	&mt('No').'</label>'.(' 'x4);
$datatable .= '<span class="LC_nobreak">'.$lt{'icon'}.': '.	}
	$datatable .= '<br /><br /><span class="LC_nobreak">'.$lt{'icon'}.': '.
'('.&mt('if larger than 21x21 pixels, image will be scaled').') ';	'('.&mt('if larger than 21x21 pixels, image will be scaled').') ';
if ($switchserver) {	if ($switchserver) {
$datatable .= &mt('Upload to library server: [_1]',$switchserver);	$datatable .= &mt('Upload to library server: [_1]',$switchserver);
Line 3930 sub print_ltitools {	Line 3917 sub print_ltitools {
'<fieldset><legend>'.&mt('User data sent on launch').'</legend>'.	'<fieldset><legend>'.&mt('User data sent on launch').'</legend>'.
'<span class="LC_nobreak">';	'<span class="LC_nobreak">';
foreach my $field (@fields) {	foreach my $field (@fields) {
my ($id,$onclick,$spacer);
if ($field eq 'user') {
$id = ' id="ltitools_user_field_add"';
$onclick = ' onclick="toggleLTITools(this.form,'."'$field','add'".')"';
} else {
$spacer = (' ' x2);
}
$datatable .= '<label>'.	$datatable .= '<label>'.
'<input type="checkbox" name="ltitools_add_fields" value="'.$field.'"'.$id.$onclick.' />'.	'<input type="checkbox" name="ltitools_add_fields" value="'.$field.'" />'.
$lt{$field}.'</label>'.$spacer;	$lt{$field}.'</label>'.(' ' x2);
}	}
$datatable .= '</span>'.	$datatable .= '</span></fieldset>'.
'<div style="display:none;" id="ltitools_user_div_add">'.	'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>';
'<span class="LC_nobreak"> : '.
'<select name="ltitools_userincdom_add">'.
'<option value="" selected="selected">'.&mt('Select').'</option>'.
'<option value="0">'.&mt('username').'</option>'.
'<option value="1">'.&mt('username:domain').'</option>'.
'</select></span></div></fieldset>';
$datatable .= '<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>';
foreach my $role (@courseroles) {	foreach my $role (@courseroles) {
my ($checked,$checkednone);	my ($checked,$checkednone);
$datatable .= '<td align="center">'.	$datatable .= '<td align="center">'.
Line 3963 sub print_ltitools {	Line 3936 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','linktext','explanation','append') {	foreach my $item ('label','title','target') {
$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 3975 sub print_ltitools {	Line 3948 sub print_ltitools {
'<label><input type="checkbox" name="ltitools_add_custom" value="1" />'.	'<label><input type="checkbox" name="ltitools_add_custom" value="1" />'.
&mt('Add').'</label></span></td><td><input type="text" name="ltitools_add_custom_name" />'.	&mt('Add').'</label></span></td><td><input type="text" name="ltitools_add_custom_name" />'.
'</td><td><input type="text" name="ltitools_add_custom_value" /></td></tr>'.	'</td><td><input type="text" name="ltitools_add_custom_value" /></td></tr>'.
'</table></fieldset>'."\n".	'</table></fieldset></td></tr>'."\n".
'</td>'."\n".	'</td>'."\n".
'</tr>'."\n";	'</tr>'."\n";
$itemcount ++;	$itemcount ++;
Line 3984 sub print_ltitools {	Line 3957 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',
'sigmethod' => 'Signature Method',	'url' => 'URL',
'url' => 'URL',	'key' => 'Key',
'key' => 'Key',	'secret' => 'Secret',
'lifetime' => 'Nonce lifetime (s)',	'icon' => 'Icon',
'secret' => 'Secret',	'user' => 'Username:domain',
'icon' => 'Icon',	'fullname' => 'Full Name',
'user' => 'User',	'firstname' => 'First Name',
'fullname' => 'Full Name',	'lastname' => 'Last Name',
'firstname' => 'First Name',	'email' => 'E-mail',
'lastname' => 'Last Name',	'roles' => 'Role',
'email' => 'E-mail',	'window' => 'Window/Tab',
'roles' => 'Role',	'iframe' => 'iFrame',
'window' => 'Window',	'height' => 'Height',
'tab' => 'Tab',	'width' => 'Width',
'iframe' => 'iFrame',	'passback' => 'Tool can return grades:',
'height' => 'Height',	'roster' => 'Tool can retrieve roster:',
'width' => 'Width',	'crstarget' => 'Display target',
'linktext' => 'Default Link Text',	'crslabel' => 'Course label',
'explanation' => 'Default Explanation',	'crstitle' => 'Course title',
'crstarget' => 'Display target',
'crslabel' => 'Course label',
'crstitle' => 'Course title',
'crslinktext' => 'Link Text',
'crsexplanation' => 'Explanation',
'crsappend' => 'Provider URL',
);	);

return %lt;	return %lt;
}	}

Line 4022 sub print_coursedefaults {	Line 3988 sub print_coursedefaults {
my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);	my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);
my $itemcount = 1;	my $itemcount = 1;
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
	canuse_pdfforms => 'Course/Community users can create/upload PDF forms',
uploadquota => 'Default quota for files uploaded directly to course/community using Course Editor (MB)',	uploadquota => 'Default quota for files uploaded directly to course/community using Course Editor (MB)',
anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',	anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',
coursecredits => 'Credits can be specified for courses',	coursecredits => 'Credits can be specified for courses',
Line 4039 sub print_coursedefaults {	Line 4006 sub print_coursedefaults {
);	);
if ($position eq 'top') {	if ($position eq 'top') {
%defaultchecked = (	%defaultchecked = (
	'canuse_pdfforms' => 'off',
'uselcmath' => 'on',	'uselcmath' => 'on',
'usejsme' => 'on',	'usejsme' => 'on',
'canclone' => 'none',	'canclone' => 'none',
);	);
@toggles = ('uselcmath','usejsme');	@toggles = ('canuse_pdfforms','uselcmath','usejsme');
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$itemcount);	\%choices,$itemcount);
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
Line 4080 sub print_coursedefaults {	Line 4048 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 4122 sub print_coursedefaults {	Line 4090 sub print_coursedefaults {
my ($currdefresponder,%defcredits,%curruploadquota,%deftimeout,%currmysql);	my ($currdefresponder,%defcredits,%curruploadquota,%deftimeout,%currmysql);
my $currusecredits = 0;	my $currusecredits = 0;
my $postsubmitclient = 1;	my $postsubmitclient = 1;
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook','placement');
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
$currdefresponder = $settings->{'anonsurvey_threshold'};	$currdefresponder = $settings->{'anonsurvey_threshold'};
if (ref($settings->{'uploadquota'}) eq 'HASH') {	if (ref($settings->{'uploadquota'}) eq 'HASH') {
Line 4149 sub print_coursedefaults {	Line 4117 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 4265 sub print_coursedefaults {	Line 4233 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="8" /></td>';	' value="'.$currmysql{$type}.'" size="5" /></td>';
}	}
$datatable .= '</tr></table></td></tr>'."\n";	$datatable .= '</tr></table></td></tr>'."\n";
$itemcount ++;	$itemcount ++;
Line 4279 sub print_selfenrollment {	Line 4247 sub print_selfenrollment {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my ($css_class,$datatable);	my ($css_class,$datatable);
my $itemcount = 1;	my $itemcount = 1;
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook','placement');
if (($position eq 'top') \|\| ($position eq 'middle')) {	if (($position eq 'top') \|\| ($position eq 'middle')) {
my ($rowsref,$titlesref) = &Apache::lonuserutils::get_selfenroll_titles();	my ($rowsref,$titlesref) = &Apache::lonuserutils::get_selfenroll_titles();
my %descs = &Apache::lonuserutils::selfenroll_default_descs();	my %descs = &Apache::lonuserutils::selfenroll_default_descs();
Line 4502 sub print_validation_rows {	Line 4470 sub print_validation_rows {

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

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

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

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

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

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

sub build_location_hashes {	sub build_location_hashes {
my ($intdoms,$by_ip,$by_location) = @_;	my ($intdoms,$by_ip,$by_location,$instdoms) = @_;
return unless((ref($intdoms) eq 'ARRAY') && (ref($by_ip) eq 'HASH') &&	return unless((ref($intdoms) eq 'ARRAY') && (ref($by_ip) eq 'HASH') &&
(ref($by_location) eq 'HASH'));	(ref($by_location) eq 'HASH') && (ref($instdoms) eq 'ARRAY'));
my %iphost = &Apache::lonnet::get_iphost();	my %iphost = &Apache::lonnet::get_iphost();
my $primary_id = &Apache::lonnet::domain($env{'request.role.domain'},'primary');	my $primary_id = &Apache::lonnet::domain($env{'request.role.domain'},'primary');
my $primary_ip = &Apache::lonnet::get_host_ip($primary_id);	my $primary_ip = &Apache::lonnet::get_host_ip($primary_id);
Line 4662 sub build_location_hashes {	Line 4786 sub build_location_hashes {
foreach my $id (@{$iphost{$ip}}) {	foreach my $id (@{$iphost{$ip}}) {
my $location = &Apache::lonnet::internet_dom($id);	my $location = &Apache::lonnet::internet_dom($id);
if ($location) {	if ($location) {
next if (grep(/^\Q$location\E$/,@{$intdoms}));	if (grep(/^\Q$location\E$/,@{$intdoms})) {
	my $dom = &Apache::lonnet::host_domain($id);
	unless (grep(/^\Q$dom\E/,@{$instdoms})) {
	push(@{$instdoms},$dom);
	}
	next;
	}
if (ref($by_ip->{$ip}) eq 'ARRAY') {	if (ref($by_ip->{$ip}) eq 'ARRAY') {
unless(grep(/^\Q$location\E$/,@{$by_ip->{$ip}})) {	unless(grep(/^\Q$location\E$/,@{$by_ip->{$ip}})) {
push(@{$by_ip->{$ip}},$location);	push(@{$by_ip->{$ip}},$location);
Line 4802 sub spares_row {	Line 4932 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 5296 sub contact_titles {	Line 5426 sub contact_titles {
'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 for this domain's users",	'helpdeskmail' => "Helpdesk requests for this domain's users",
'otherdomsmail' => 'Helpdesk requests for other (unconfigured) domains',	'otherdomsmail' => 'Helpdesk requests for other (unconfigured) domains',
'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)',	'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)',
'requestsmail' => 'E-mail from course requests requiring approval',	'requestsmail' => 'E-mail from course requests requiring approval',
'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates',	'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates',
Line 5317 sub helpform_fields {	Line 5447 sub helpform_fields {
'cc' => 'Cc e-mail',	'cc' => 'Cc e-mail',
'course' => 'Course Details',	'course' => 'Course Details',
'section' => 'Sections',	'section' => 'Sections',
'screenshot' => 'File upload',	'screenshot' => 'File upload',
);	);
my @fields = ('username','phone','user','course','section','cc','screenshot');	my @fields = ('username','phone','user','course','section','cc','screenshot');
my %possoptions = (	my %possoptions = (
username => ['yes','no','req'],	username => ['yes','no','req'],
phone => ['yes','no','req'],	phone => ['yes','no','req'],
user => ['yes','no'],	user => ['yes','no'],
cc => ['yes','no'],	cc => ['yes','no'],
course => ['yes','no'],	course => ['yes','no'],
section => ['yes','no'],	section => ['yes','no'],
screenshot => ['yes','no'],	screenshot => ['yes','no'],
Line 5347 sub tool_titles {	Line 5477 sub tool_titles {
unofficial => 'Unofficial courses',	unofficial => 'Unofficial courses',
community => 'Communities',	community => 'Communities',
textbook => 'Textbook courses',	textbook => 'Textbook courses',
	placement => 'Placement tests',
);	);
return %titles;	return %titles;
}	}
Line 5357 sub courserequest_titles {	Line 5488 sub courserequest_titles {
unofficial => 'Unofficial',	unofficial => 'Unofficial',
community => 'Communities',	community => 'Communities',
textbook => 'Textbook',	textbook => 'Textbook',
	placement => 'Placement tests',
norequest => 'Not allowed',	norequest => 'Not allowed',
approval => 'Approval by Dom. Coord.',	approval => 'Approval by Dom. Coord.',
validate => 'With validation',	validate => 'With validation',
Line 5747 sub email_as_username {	Line 5879 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);	$vertext,$currver);
my %lt = &captcha_phrases();	my %lt = &captcha_phrases();
$keyentry = 'hidden';	$keyentry = 'hidden';
if ($context eq 'cancreate') {	if ($context eq 'cancreate') {
Line 5942 sub print_usermodification {	Line 6074 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,$titles);	my ($datatable,$css_class);
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 5958 sub print_defaults {	Line 6087 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 6005 sub print_defaults {	Line 6135 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 6180 sub defaults_titles {	Line 6231 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 6425 sub print_coursecategories {	Line 6473 sub print_coursecategories {
my $toggle_catscomm_dom = ' checked="checked" ';	my $toggle_catscomm_dom = ' checked="checked" ';
my $can_catcomm_comm = ' ';	my $can_catcomm_comm = ' ';
my $can_catcomm_dom = ' checked="checked" ';	my $can_catcomm_dom = ' checked="checked" ';
	my $toggle_catsplace_place = ' ';
	my $toggle_catsplace_dom = ' checked="checked" ';
	my $can_catplace_place = ' ';
	my $can_catplace_dom = ' checked="checked" ';

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

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

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

sub defaults_javascript {	sub defaults_javascript {
my ($settings) = @_;	my ($settings) = @_;
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.');	return unless (ref($settings) eq 'HASH');
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 6768 $jstext	Line 6820 $jstext
return;	return;
}	}

$intauthjs

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

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

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

Line 6891 sub initialize_categories {	Line 6945 sub initialize_categories {
my %default_names = (	my %default_names = (
instcode => 'Official courses (with institutional codes)',	instcode => 'Official courses (with institutional codes)',
communities => 'Communities',	communities => 'Communities',
	placement => 'Placement Tests',
);	);
my $select0 = ' selected="selected"';	my $select0 = ' selected="selected"';
my $select1 = '';	my $select1 = '';
foreach my $default ('instcode','communities') {	foreach my $default ('instcode','communities','placement') {
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
$chgstr = ' onchange="javascript:reorderCats(this.form,'."'',$default"."_pos','0'".');"';	$chgstr = ' onchange="javascript:reorderCats(this.form,'."'',$default"."_pos','0'".');"';
if ($default eq 'communities') {	if (($default eq 'communities') \|\| ($default eq 'placement')) {
$select1 = $select0;	$select1 = $select0;
$select0 = '';	$select0 = '';
}	}
Line 7502 sub modify_login {	Line 7557 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 7734 sub modify_login {	Line 7789 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 8206 sub check_authorstatus {	Line 8262 sub check_authorstatus {

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

sub logo_versioning {	sub logo_versioning {
Line 8500 sub modify_quotas {	Line 8557 sub modify_quotas {
$context = $action;	$context = $action;
}	}
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
@usertools = ('official','unofficial','community','textbook');	@usertools = ('official','unofficial','community','textbook','placement');
@options =('norequest','approval','validate','autolimit');	@options =('norequest','approval','validate','autolimit');
%validations = &Apache::lonnet::auto_courserequest_checks($dom);	%validations = &Apache::lonnet::auto_courserequest_checks($dom);
%titles = &courserequest_titles();	%titles = &courserequest_titles();
Line 8549 sub modify_quotas {	Line 8606 sub modify_quotas {
my @approvalnotify = &Apache::loncommon::get_env_multiple('form.'.$context.'notifyapproval');	my @approvalnotify = &Apache::loncommon::get_env_multiple('form.'.$context.'notifyapproval');
@approvalnotify = sort(@approvalnotify);	@approvalnotify = sort(@approvalnotify);
$confhash{'notify'}{'approval'} = join(',',@approvalnotify);	$confhash{'notify'}{'approval'} = join(',',@approvalnotify);
my @crstypes = ('official','unofficial','community','textbook');	my @crstypes = ('official','unofficial','community','textbook','placement');
my @hasuniquecode = &Apache::loncommon::get_env_multiple('form.uniquecode');	my @hasuniquecode = &Apache::loncommon::get_env_multiple('form.uniquecode');
foreach my $type (@hasuniquecode) {	foreach my $type (@hasuniquecode) {
if (grep(/^\Q$type\E$/,@crstypes)) {	if (grep(/^\Q$type\E$/,@crstypes)) {
Line 8643 sub modify_quotas {	Line 8700 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 8812 sub modify_quotas {	Line 8869 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 9218 sub process_textbook_image {	Line 9275 sub process_textbook_image {
sub modify_ltitools {	sub modify_ltitools {
my ($r,$dom,$action,$lastactref,%domconfig) = @_;	my ($r,$dom,$action,$lastactref,%domconfig) = @_;
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
my ($newid,@allpos,%changes,%confhash,%encconfig,$errors,$resulttext);	my ($newid,@allpos,%changes,%confhash,$errors,$resulttext);
my $confname = $dom.'-domainconfig';	my $confname = $dom.'-domainconfig';
my $servadm = $r->dir_config('lonAdmEMail');	my $servadm = $r->dir_config('lonAdmEMail');
my ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm);	my ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm);
Line 9228 sub modify_ltitools {	Line 9285 sub modify_ltitools {
map { $posslti{$_} = 1; } @ltiroles;	map { $posslti{$_} = 1; } @ltiroles;
my @allfields = ('fullname','firstname','lastname','email','user','roles');	my @allfields = ('fullname','firstname','lastname','email','user','roles');
map { $possfield{$_} = 1; } @allfields;	map { $possfield{$_} = 1; } @allfields;
my %lt = &ltitools_names();	my %lt = &ltitools_names();
if ($env{'form.ltitools_add'}) {	if ($env{'form.ltitools_add'}) {
my $title = $env{'form.ltitools_add_title'};	my $title = $env{'form.ltitools_add_title'};
$title =~ s/(`)/'/g;	$title =~ s/(`)/'/g;
Line 9240 sub modify_ltitools {	Line 9297 sub modify_ltitools {
$allpos[$position] = $newid;	$allpos[$position] = $newid;
}	}
$changes{$newid} = 1;	$changes{$newid} = 1;
foreach my $item ('title','url','key','secret','lifetime') {	foreach my $item ('title','url','key','secret') {
$env{'form.ltitools_add_'.$item} =~ s/(`)/'/g;	$env{'form.ltitools_add_'.$item} =~ s/(`)/'/g;
if ($item eq 'lifetime') {
$env{'form.ltitools_add_'.$item} =~ s/[^\d.]//g;
}
if ($env{'form.ltitools_add_'.$item}) {	if ($env{'form.ltitools_add_'.$item}) {
if (($item eq 'key') \|\| ($item eq 'secret')) {	$confhash{$newid}{$item} = $env{'form.ltitools_add_'.$item};
$encconfig{$newid}{$item} = $env{'form.ltitools_add_'.$item};
} else {
$confhash{$newid}{$item} = $env{'form.ltitools_add_'.$item};
}
}	}
}	}
if ($env{'form.ltitools_add_version'} eq 'LTI-1p0') {	if ($env{'form.ltitools_add_version'} eq 'LTI-1p0') {
Line 9259 sub modify_ltitools {	Line 9309 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'};
}	}
if ($env{'form.ltitools_add_sigmethod'} eq 'HMAC-SHA256') {	foreach my $item ('width','height') {
$confhash{$newid}{'sigmethod'} = $env{'form.ltitools_add_sigmethod'};
} else {
$confhash{$newid}{'sigmethod'} = 'HMAC-SHA1';
}
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 (($item eq 'width') \|\| ($item eq 'height')) {	if ($env{'form.ltitools_add_'.$item} =~ /^\d+$/) {
if ($env{'form.ltitools_add_'.$item} =~ /^\d+$/) {	$confhash{$newid}{'display'}{$item} = $env{'form.ltitools_add_'.$item};
$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') {
$confhash{$newid}{'display'}{'target'} = $env{'form.ltitools_add_target'};	$confhash{$newid}{'display'}{'target'} = $env{'form.ltitools_add_target'};
} elsif ($env{'form.ltitools_add_target'} eq 'tab') {
$confhash{$newid}{'display'}{'target'} = $env{'form.ltitools_add_target'};
} else {	} else {
$confhash{$newid}{'display'}{'target'} = 'iframe';	$confhash{$newid}{'display'}{'target'} = 'iframe';
}	}
	foreach my $item ('passback','roster') {
	if ($env{'form.ltitools_add_'.$item}) {
	$confhash{$newid}{$item} = 1;
	}
	}
if ($env{'form.ltitools_add_image.filename'} ne '') {	if ($env{'form.ltitools_add_image.filename'} ne '') {
my ($imageurl,$error) =	my ($imageurl,$error) =
&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$newid,	&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$dom,
$configuserok,$switchserver,$author_ok);	$configuserok,$switchserver,$author_ok);
if ($imageurl) {	if ($imageurl) {
$confhash{$newid}{'image'} = $imageurl;	$confhash{$newid}{'image'} = $imageurl;
Line 9305 sub modify_ltitools {	Line 9347 sub modify_ltitools {
if (($choice ne '') && ($posslti{$choice})) {	if (($choice ne '') && ($posslti{$choice})) {
$confhash{$newid}{'roles'}{$role} = $choice;	$confhash{$newid}{'roles'}{$role} = $choice;
if ($role eq 'cc') {	if ($role eq 'cc') {
$confhash{$newid}{'roles'}{'co'} = $choice;	$confhash{$newid}{'roles'}{'co'} = $choice;
}	}
}	}
}	}
Line 9314 sub modify_ltitools {	Line 9356 sub modify_ltitools {
}	}
}	}
}	}
if (ref($confhash{$newid}{'fields'}) eq 'HASH') {
if ($confhash{$newid}{'fields'}{'user'}) {
if ($env{'form.ltitools_userincdom_add'}) {
$confhash{$newid}{'incdom'} = 1;
}
}
}
my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig');	my @courseconfig = &Apache::loncommon::get_env_multiple('form.ltitools_courseconfig');
foreach my $item (@courseconfig) {	foreach my $item (@courseconfig) {
$confhash{$newid}{'crsconf'}{$item} = 1;	$confhash{$newid}{'crsconf'}{$item} = 1;
Line 9333 sub modify_ltitools {	Line 9368 sub modify_ltitools {
$confhash{$newid}{'custom'}{$name} = $value;	$confhash{$newid}{'custom'}{$name} = $value;
}	}
} else {	} else {
my $error = &mt('Failed to acquire unique ID for new external tool');	my $error = &mt('Failed to acquire unique ID for new external tool');
$errors .= '<li><span class="LC_error">'.$error.'</span></li>';	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
}	}
}	}
Line 9347 sub modify_ltitools {	Line 9382 sub modify_ltitools {
my @newcustom = &Apache::loncommon::get_env_multiple('form.ltitools_customadd');	my @newcustom = &Apache::loncommon::get_env_multiple('form.ltitools_customadd');
if (@newcustom) {	if (@newcustom) {
map { $customadds{$_} = 1; } @newcustom;	map { $customadds{$_} = 1; } @newcustom;
}	}
my %imgdeletions;	my %imgdeletions;
my @todeleteimages = &Apache::loncommon::get_env_multiple('form.ltitools_image_del');	my @todeleteimages = &Apache::loncommon::get_env_multiple('form.ltitools_image_del');
if (@todeleteimages) {	if (@todeleteimages) {
Line 9356 sub modify_ltitools {	Line 9391 sub modify_ltitools {
my $maxnum = $env{'form.ltitools_maxnum'};	my $maxnum = $env{'form.ltitools_maxnum'};
for (my $i=0; $i<=$maxnum; $i++) {	for (my $i=0; $i<=$maxnum; $i++) {
my $itemid = $env{'form.ltitools_id_'.$i};	my $itemid = $env{'form.ltitools_id_'.$i};
$itemid =~ s/\D+//g;
if (ref($domconfig{$action}{$itemid}) eq 'HASH') {	if (ref($domconfig{$action}{$itemid}) eq 'HASH') {
if ($deletions{$itemid}) {	if ($deletions{$itemid}) {
if ($domconfig{$action}{$itemid}{'image'}) {	if ($domconfig{$action}{$itemid}{'image'}) {
Line 9367 sub modify_ltitools {	Line 9401 sub modify_ltitools {
} else {	} else {
my $newpos = $env{'form.ltitools_'.$itemid};	my $newpos = $env{'form.ltitools_'.$itemid};
$newpos =~ s/\D+//g;	$newpos =~ s/\D+//g;
foreach my $item ('title','url','lifetime') {	foreach my $item ('title','url','key','secret') {
$confhash{$itemid}{$item} = $env{'form.ltitools_'.$item.'_'.$i};	$confhash{$itemid}{$item} = $env{'form.ltitools_'.$item.'_'.$i};
if ($domconfig{$action}{$itemid}{$item} ne $confhash{$itemid}{$item}) {	if ($domconfig{$action}{$itemid}{$item} ne $confhash{$itemid}{$item}) {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
}	}
}	}
foreach my $item ('key','secret') {
$encconfig{$itemid}{$item} = $env{'form.ltitools_'.$item.'_'.$i};
if ($domconfig{$action}{$itemid}{$item} ne $encconfig{$itemid}{$item}) {
$changes{$itemid} = 1;
}
}
if ($env{'form.ltitools_version_'.$i} eq 'LTI-1p0') {	if ($env{'form.ltitools_version_'.$i} eq 'LTI-1p0') {
$confhash{$itemid}{'version'} = $env{'form.ltitools_version_'.$i};	$confhash{$itemid}{'version'} = $env{'form.ltitools_version_'.$i};
}	}
if ($env{'form.ltitools_msgtype_'.$i} eq 'basic-lti-launch-request') {	if ($env{'form.ltitools_msgtype_'.$i} eq 'basic-lti-launch-request') {
$confhash{$itemid}{'msgtype'} = $env{'form.ltitools_msgtype_'.$i};	$confhash{$itemid}{'msgtype'} = $env{'form.ltitools_msgtype_'.$i};
}	}
if ($env{'form.ltitools_sigmethod_'.$i} eq 'HMAC-SHA256') {
$confhash{$itemid}{'sigmethod'} = $env{'form.ltitools_sigmethod_'.$i};
} else {
$confhash{$itemid}{'sigmethod'} = 'HMAC-SHA1';
}
if ($domconfig{$action}{$itemid}{'sigmethod'} eq '') {
if ($confhash{$itemid}{'sigmethod'} ne 'HMAC-SHA1') {
$changes{$itemid} = 1;
}
} elsif ($domconfig{$action}{$itemid}{'sigmethod'} ne $confhash{$itemid}{'sigmethod'}) {
$changes{$itemid} = 1;
}
foreach my $size ('width','height') {	foreach my $size ('width','height') {
$env{'form.ltitools_'.$size.'_'.$i} =~ s/^\s+//;	$env{'form.ltitools_'.$size.'_'.$i} =~ s/^\s+//;
$env{'form.ltitools_'.$size.'_'.$i} =~ s/\s+$//;	$env{'form.ltitools_'.$size.'_'.$i} =~ s/\s+$//;
Line 9409 sub modify_ltitools {	Line 9425 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') {
$confhash{$itemid}{'display'}{'target'} = $env{'form.ltitools_target_'.$i};	$confhash{$itemid}{'display'}{'target'} = $env{'form.ltitools_target_'.$i};
} elsif ($env{'form.ltitools_target_'.$i} eq 'tab') {
$confhash{$itemid}{'display'}{'target'} = $env{'form.ltitools_target_'.$i};
} else {	} else {
$confhash{$itemid}{'display'}{'target'} = 'iframe';	$confhash{$itemid}{'display'}{'target'} = 'iframe';
}	}
Line 9447 sub modify_ltitools {	Line 9439 sub modify_ltitools {
} else {	} else {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
}	}
	foreach my $extra ('passback','roster') {
	if ($env{'form.ltitools_'.$extra.'_'.$i}) {
	$confhash{$itemid}{$extra} = 1;
	}
	if ($domconfig{$action}{$itemid}{$extra} ne $confhash{$itemid}{$extra}) {
	$changes{$itemid} = 1;
	}
	}
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','linktext','explanation','append') {	foreach my $item ('label','title','target') {
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 9492 sub modify_ltitools {	Line 9492 sub modify_ltitools {
}	}
}	}
}	}
if (ref($confhash{$itemid}{'fields'}) eq 'HASH') {
if ($confhash{$itemid}{'fields'}{'user'}) {
if ($env{'form.ltitools_userincdom_'.$i}) {
$confhash{$itemid}{'incdom'} = 1;
}
if ($domconfig{$action}{$itemid}{'incdom'} ne $confhash{$itemid}{'incdom'}) {
$changes{$itemid} = 1;
}
}
}
$allpos[$newpos] = $itemid;	$allpos[$newpos] = $itemid;
}	}
if ($imgdeletions{$itemid}) {	if ($imgdeletions{$itemid}) {
Line 9538 sub modify_ltitools {	Line 9528 sub modify_ltitools {
}	}
}	}
my %customdels;	my %customdels;
my @customdeletions = &Apache::loncommon::get_env_multiple('form.ltitools_customdel_'.$i);	my @customdeletions = &Apache::loncommon::get_env_multiple('form.ltitools_customdel_'.$i);
if (@customdeletions) {	if (@customdeletions) {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
}	}
Line 9547 sub modify_ltitools {	Line 9537 sub modify_ltitools {
foreach my $key (keys(%{$domconfig{$action}{$itemid}{'custom'}})) {	foreach my $key (keys(%{$domconfig{$action}{$itemid}{'custom'}})) {
unless ($customdels{$key}) {	unless ($customdels{$key}) {
if ($env{'form.ltitools_customval_'.$key.'_'.$i} ne '') {	if ($env{'form.ltitools_customval_'.$key.'_'.$i} ne '') {
$confhash{$itemid}{'custom'}{$key} = $env{'form.ltitools_customval_'.$key.'_'.$i};	$confhash{$itemid}{'custom'}{$key} = $env{'form.ltitools_customval_'.$key.'_'.$i};
}	}
if ($domconfig{$action}{$itemid}{'custom'}{$key} ne $env{'form.ltitools_customval_'.$key.'_'.$i}) {	if ($domconfig{$action}{$itemid}{'custom'}{$key} ne $env{'form.ltitools_customval_'.$key.'_'.$i}) {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
Line 9597 sub modify_ltitools {	Line 9587 sub modify_ltitools {
my $putresult = &Apache::lonnet::put_dom('configuration',\%ltitoolshash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%ltitoolshash,
$dom);	$dom);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
my %ltienchash = (
$action => { %encconfig }
);
&Apache::lonnet::put_dom('encconfig',\%ltienchash,$dom);
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my $cachetime = 246060;	my $cachetime = 246060;
my %ltiall = %confhash;	&Apache::lonnet::do_cache_new('ltitools',$dom,\%confhash,$cachetime);
foreach my $id (keys(%ltiall)) {
if (ref($encconfig{$id}) eq 'HASH') {
foreach my $item ('key','secret') {
$ltiall{$id}{$item} = $encconfig{$id}{$item};
}
}
}
&Apache::lonnet::do_cache_new('ltitools',$dom,\%ltiall,$cachetime);
if (ref($lastactref) eq 'HASH') {	if (ref($lastactref) eq 'HASH') {
$lastactref->{'ltitools'} = 1;	$lastactref->{'ltitools'} = 1;
}	}
Line 9622 sub modify_ltitools {	Line 9600 sub modify_ltitools {
$bynum{$position} = $itemid;	$bynum{$position} = $itemid;
}	}
foreach my $pos (sort { $a <=> $b } keys(%bynum)) {	foreach my $pos (sort { $a <=> $b } keys(%bynum)) {
my $itemid = $bynum{$pos};	my $itemid = $bynum{$pos};
if (ref($confhash{$itemid}) ne 'HASH') {	if (ref($confhash{$itemid}) ne 'HASH') {
$resulttext .= '<li>'.&mt('Deleted: [_1]',$changes{$itemid}).'</li>';	$resulttext .= '<li>'.&mt('Deleted: [_1]',$changes{$itemid}).'</li>';
} else {	} else {
Line 9635 sub modify_ltitools {	Line 9613 sub modify_ltitools {
$resulttext .= '</li><ul>';	$resulttext .= '</li><ul>';
my $position = $pos + 1;	my $position = $pos + 1;
$resulttext .= '<li>'.&mt('Order: [_1]',$position).'</li>';	$resulttext .= '<li>'.&mt('Order: [_1]',$position).'</li>';
foreach my $item ('version','msgtype','sigmethod','url','lifetime') {	foreach my $item ('version','msgtype','url','key') {
if ($confhash{$itemid}{$item} ne '') {	if ($confhash{$itemid}{$item} ne '') {
$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{$item}.'</li>';	$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{$item}.'</li>';
}	}
}	}
if ($encconfig{$itemid}{'key'} ne '') {	if ($confhash{$itemid}{'secret'} ne '') {
$resulttext .= '<li>'.$lt{'key'}.': '.$encconfig{$itemid}{'key'}.'</li>';
}
if ($encconfig{$itemid}{'secret'} ne '') {
$resulttext .= '<li>'.$lt{'secret'}.': ';	$resulttext .= '<li>'.$lt{'secret'}.': ';
my $num = length($encconfig{$itemid}{'secret'});	my $num = length($confhash{$itemid}{'secret'});
$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','linktext','explanation','append');	my @possconfig = ('label','title','target');
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 9663 sub modify_ltitools {	Line 9638 sub modify_ltitools {
$resulttext .= &mt('None');	$resulttext .= &mt('None');
}	}
$resulttext .= '</li>';	$resulttext .= '</li>';
	foreach my $item ('passback','roster') {
	$resulttext .= '<li>'.$lt{$item}.' ';
	if ($confhash{$itemid}{$item}) {
	$resulttext .= &mt('Yes');
	} else {
	$resulttext .= &mt('No');
	}
	$resulttext .= '</li>';
	}
if (ref($confhash{$itemid}{'display'}) eq 'HASH') {	if (ref($confhash{$itemid}{'display'}) eq 'HASH') {
my $displaylist;	my $displaylist;
if ($confhash{$itemid}{'display'}{'target'}) {	if ($confhash{$itemid}{'display'}{'target'}) {
$displaylist = &mt('Display target').': '.	$displaylist = &mt('Display target').': '.
$confhash{$itemid}{'display'}{'target'}.',';	$confhash{$itemid}{'display'}{'target'}.',';
}	}
foreach my $size ('width','height') {	foreach my $size ('width','height') {
if ($confhash{$itemid}{'display'}{$size}) {	if ($confhash{$itemid}{'display'}{$size}) {
$displaylist .= (' 'x2).$lt{$size}.': '.	$displaylist .= (' 'x2).$lt{$size}.': '.
$confhash{$itemid}{'display'}{$size}.',';	$confhash{$itemid}{'display'}{$size}.',';
Line 9679 sub modify_ltitools {	Line 9663 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 9694 sub modify_ltitools {	Line 9673 sub modify_ltitools {
}	}
if ($fieldlist) {	if ($fieldlist) {
$fieldlist =~ s/,$//;	$fieldlist =~ s/,$//;
if ($confhash{$itemid}{'fields'}{'user'}) {
if ($confhash{$itemid}{'incdom'}) {
$fieldlist .= ' ('.&mt('username:domain').')';
} else {
$fieldlist .= ' ('.&mt('username').')';
}
}
$resulttext .= '<li>'.&mt('Data sent').':'.$fieldlist.'</li>';	$resulttext .= '<li>'.&mt('Data sent').':'.$fieldlist.'</li>';
}	}
}	}
Line 9713 sub modify_ltitools {	Line 9685 sub modify_ltitools {
}	}
}	}
if ($rolemaps) {	if ($rolemaps) {
$rolemaps =~ s/,$//;	$rolemaps =~ s/,$//;
$resulttext .= '<li>'.&mt('Role mapping:').$rolemaps.'</li>';	$resulttext .= '<li>'.&mt('Role mapping:').$rolemaps.'</li>';
}	}
}	}
Line 9722 sub modify_ltitools {	Line 9694 sub modify_ltitools {
if (keys(%{$confhash{$itemid}{'custom'}})) {	if (keys(%{$confhash{$itemid}{'custom'}})) {
foreach my $key (sort(keys(%{$confhash{$itemid}{'custom'}}))) {	foreach my $key (sort(keys(%{$confhash{$itemid}{'custom'}}))) {
$customlist .= $key.':'.$confhash{$itemid}{'custom'}{$key}.(' 'x2);	$customlist .= $key.':'.$confhash{$itemid}{'custom'}{$key}.(' 'x2);
}	}
}	}
if ($customlist) {	if ($customlist) {
$resulttext .= '<li>'.&mt('Custom items').': '.$customlist.'</li>';	$resulttext .= '<li>'.&mt('Custom items').':'.$customlist.'</li>';
}	}
}	}
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
}	}
}	}
Line 9788 sub get_ltitools_id {	Line 9760 sub get_ltitools_id {
my $tries = 0;	my $tries = 0;
my $gotlock = &Apache::lonnet::newput_dom('ltitools',$lockhash,$cdom);	my $gotlock = &Apache::lonnet::newput_dom('ltitools',$lockhash,$cdom);
my ($id,$error);	my ($id,$error);

while (($gotlock ne 'ok') && ($tries<10)) {	while (($gotlock ne 'ok') && ($tries<10)) {
$tries ++;	$tries ++;
sleep (0.1);	sleep (0.1);
Line 9906 sub modify_autoenroll {	Line 9878 sub modify_autoenroll {
}	}
if ($changes{'autofailsafe'}) {	if ($changes{'autofailsafe'}) {
if ($failsafe ne '') {	if ($failsafe ne '') {
$resulttext .= '<li>'.&mt('Failsafe for no drops if institutional data missing for a section set to: [_1]',$failsafe).'</li>';	$resulttext .= '<li>'.&mt("$title{'failsafe'} set to [_1]",$failsafe).'</li>';
} else {	} else {
$resulttext .= '<li>'.&mt('Failsafe for no drops if institutional data missing for a section: deleted');	$resulttext .= '<li>'.&mt("$title{'failsafe'} deleted");
}	}
&Apache::lonnet::get_domain_defaults($dom,1);	&Apache::lonnet::get_domain_defaults($dom,1);
if (ref($lastactref) eq 'HASH') {	if (ref($lastactref) eq 'HASH') {
Line 10187 sub modify_autocreate {	Line 10159 sub modify_autocreate {
}	}

sub modify_directorysrch {	sub modify_directorysrch {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,%domconfig) = @_;
my ($resulttext,%changes);	my ($resulttext,%changes);
my %currdirsrch;	my %currdirsrch;
if (ref($domconfig{'directorysrch'}) eq 'HASH') {	if (ref($domconfig{'directorysrch'}) eq 'HASH') {
Line 10198 sub modify_directorysrch {	Line 10170 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 10292 sub modify_directorysrch {	Line 10264 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 10331 sub modify_directorysrch {	Line 10303 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 10381 sub modify_directorysrch {	Line 10353 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 10418 sub modify_contacts {	Line 10386 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') \|\| ($type eq 'otherdomsmail')) {	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
Line 10476 sub modify_contacts {	Line 10444 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') \|\| ($type eq 'otherdomsmail')) {	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');
}	}
Line 10554 sub modify_contacts {	Line 10522 sub modify_contacts {
}	}
}	}
}	}
}	}
}	}
foreach my $item (@toggles) {	foreach my $item (@toggles) {
if (($env{'form.'.$item} == 1) && ($currsetting{$item} == 0)) {	if (($env{'form.'.$item} == 1) && ($currsetting{$item} == 0)) {
Line 10585 sub modify_contacts {	Line 10553 sub modify_contacts {
foreach my $type (@mailings) {	foreach my $type (@mailings) {
if (ref($changes{$type}) eq 'ARRAY') {	if (ref($changes{$type}) eq 'ARRAY') {
if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {	if (($type eq 'helpdeskmail') \|\| ($type eq 'otherdomsmail')) {
$resulttext .= '<li>'.$titles->{$type}.' -- '.&mt('sent to').': ';	$resulttext .= '<li>'.$titles->{$type}.' -- '.&mt('sent to').': ';
} else {	} else {
$resulttext .= '<li>'.$titles->{$type}.': ';	$resulttext .= '<li>'.$titles->{$type}.': ';
}	}
Line 10604 sub modify_contacts {	Line 10572 sub modify_contacts {
if ($bcc{$type} ne '') {	if ($bcc{$type} ne '') {
my $bcctext;	my $bcctext;
if (@text) {	if (@text) {
$bcctext = ' '.&mt('with Bcc to');	$bcctext = ' '.&mt('with Bcc to');
} else {	} else {
$bcctext = '(Bcc)';	$bcctext = '(Bcc)';
}	}
$resulttext .= $bcctext.': <span class="LC_cusr_emph">'.$bcc{$type}.'</span>';	$resulttext .= $bcctext.': <span class="LC_cusr_emph">'.$bcc{$type}.'</span>';
} elsif (!@text) {	} elsif (!@text) {
$resulttext .= &mt('No one');	$resulttext .= &mt('No one');
}	}
if ($includestr{$type} ne '') {	if ($includestr{$type} ne '') {
if ($includeloc{$type} eq 'b') {	if ($includeloc{$type} eq 'b') {
$resulttext .= '<br />'.&mt('Text automatically added to e-mail body:').' '.$includestr{$type};	$resulttext .= '<br />'.&mt('Text automatically added to e-mail body:').' '.$includestr{$type};
} elsif ($includeloc{$type} eq 's') {	} elsif ($includeloc{$type} eq 's') {
Line 10650 sub modify_contacts {	Line 10618 sub modify_contacts {
next;	next;
}	}
if ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'yes') {	if ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'yes') {
push(@optional,$field);	push(@optional,$field);
} elsif ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'no') {	} elsif ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'no') {
push(@unused,$field);	push(@unused,$field);
} elsif ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'req') {	} elsif ($contacts_hash{'contacts'}{'helpform'}{$field} eq 'req') {
push(@required,$field);	push(@required,$field);
}	}
}	}
if (@optional) {	if (@optional) {
Line 11710 sub modify_defaults {	Line 11678 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',	my @items = ('auth_def','auth_arg_def','lang_def','timezone_def','datelocale_def','portal_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 11753 sub modify_defaults {	Line 11720 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 11925 sub modify_defaults {	Line 11874 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 12095 sub modify_coursecategories {	Line 12022 sub modify_coursecategories {
if ($domconfig{'coursecategories'}{'categorizecomm'} ne $env{'form.categorizecomm'}) {	if ($domconfig{'coursecategories'}{'categorizecomm'} ne $env{'form.categorizecomm'}) {
$changes{'categorizecomm'} = 1;	$changes{'categorizecomm'} = 1;
$domconfig{'coursecategories'}{'categorizecomm'} = $env{'form.categorizecomm'};	$domconfig{'coursecategories'}{'categorizecomm'} = $env{'form.categorizecomm'};

	}
	if ($domconfig{'coursecategories'}{'togglecatsplace'} ne $env{'form.togglecatsplace'}) {
	$changes{'togglecatsplace'} = 1;
	$domconfig{'coursecategories'}{'togglecatsplace'} = $env{'form.togglecatsplace'};
	}
	if ($domconfig{'coursecategories'}{'categorizeplace'} ne $env{'form.categorizeplace'}) {
	$changes{'categorizeplace'} = 1;
	$domconfig{'coursecategories'}{'categorizeplace'} = $env{'form.categorizeplace'};
}	}
foreach my $item (@catitems) {	foreach my $item (@catitems) {
if (grep(/^\Q$env{'form.coursecat_'.$item}\E$/,@cattypes)) {	if (grep(/^\Q$env{'form.coursecat_'.$item}\E$/,@cattypes)) {
Line 12109 sub modify_coursecategories {	Line 12045 sub modify_coursecategories {
$changes{'categorize'} = 1;	$changes{'categorize'} = 1;
$changes{'togglecatscomm'} = 1;	$changes{'togglecatscomm'} = 1;
$changes{'categorizecomm'} = 1;	$changes{'categorizecomm'} = 1;
	$changes{'togglecatsplace'} = 1;
	$changes{'categorizeplace'} = 1;
$domconfig{'coursecategories'} = {	$domconfig{'coursecategories'} = {
togglecats => $env{'form.togglecats'},	togglecats => $env{'form.togglecats'},
categorize => $env{'form.categorize'},	categorize => $env{'form.categorize'},
togglecatscomm => $env{'form.togglecatscomm'},	togglecatscomm => $env{'form.togglecatscomm'},
categorizecomm => $env{'form.categorizecomm'},	categorizecomm => $env{'form.categorizecomm'},
	togglecatsplace => $env{'form.togglecatsplace'},
	categorizeplace => $env{'form.categorizeplace'},
};	};
foreach my $item (@catitems) {	foreach my $item (@catitems) {
if ($env{'form.coursecat_'.$item} ne 'std') {	if ($env{'form.coursecat_'.$item} ne 'std') {
Line 12131 sub modify_coursecategories {	Line 12071 sub modify_coursecategories {
if (($domconfig{'coursecategories'}{'cats'}{'communities::0'} ne '') && ($env{'form.communities'} == 0)) {	if (($domconfig{'coursecategories'}{'cats'}{'communities::0'} ne '') && ($env{'form.communities'} == 0)) {
push(@deletecategory,'communities::0');	push(@deletecategory,'communities::0');
}	}
	if (($domconfig{'coursecategories'}{'cats'}{'placement::0'} ne '') && ($env{'form.placement'} == 0)) {
	push(@deletecategory,'placement::0');
	}
}	}
my (@predelcats,@predeltrails,%predelallitems,%sort_by_deltrail);	my (@predelcats,@predeltrails,%predelallitems,%sort_by_deltrail);
if (ref($cathash) eq 'HASH') {	if (ref($cathash) eq 'HASH') {
Line 12193 sub modify_coursecategories {	Line 12136 sub modify_coursecategories {
$adds{$newitem} = 1;	$adds{$newitem} = 1;
}	}
}	}
	if ($env{'form.placement'} eq '1') {
	if (ref($cathash) eq 'HASH') {
	my $newitem = 'placement::0';
	if ($cathash->{$newitem} eq '') {
	$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.placement_pos'};
	$adds{$newitem} = 1;
	}
	} else {
	my $newitem = 'placement::0';
	$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.placement_pos'};
	$adds{$newitem} = 1;
	}
	}
if ($env{'form.addcategory_name'} ne '') {	if ($env{'form.addcategory_name'} ne '') {
if (($env{'form.addcategory_name'} ne 'instcode') &&	if (($env{'form.addcategory_name'} ne 'instcode') &&
($env{'form.addcategory_name'} ne 'communities')) {	($env{'form.addcategory_name'} ne 'communities') &&
	($env{'form.addcategory_name'} ne 'placement')) {
my $newitem = &escape($env{'form.addcategory_name'}).'::0';	my $newitem = &escape($env{'form.addcategory_name'}).'::0';
$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.addcategory_pos'};	$domconfig{'coursecategories'}{'cats'}{$newitem} = $env{'form.addcategory_pos'};
$adds{$newitem} = 1;	$adds{$newitem} = 1;
Line 12501 sub modify_helpsettings {	Line 12458 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','dh','da','none','status','inc','exc');	my @accesstypes = ('all','none','status','inc','exc');
my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh','da']);	my %domhelpdesk = &Apache::lonnet::get_active_domroles($dom,['dh']);
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 with domain helpdesk or helpdesk assistant role',	all => 'All',
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 12546 sub modify_helpsettings {	Line 12501 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 12588 sub modify_helpsettings {	Line 12543 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 12661 sub modify_helpsettings {	Line 12616 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 12707 sub modify_helpsettings {	Line 12662 sub modify_helpsettings {
order => 'Order',	order => 'Order',
desc => 'Role description',	desc => 'Role description',
access => 'Role usage',	access => 'Role usage',
status => 'Allowed institutional types',	status => 'Allowed instituional types',
exc => 'Allowed personnel',	exc => 'Allowed personnel',
inc => 'Disallowed personnel',	inc => 'Disallowed personnel',
);	);
Line 12790 sub modify_coursedefaults {	Line 12745 sub modify_coursedefaults {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,%changes,%defaultshash);	my ($resulttext,$errors,%changes,%defaultshash);
my %defaultchecked = (	my %defaultchecked = (
	'canuse_pdfforms' => 'off',
'uselcmath' => 'on',	'uselcmath' => 'on',
'usejsme' => 'on'	'usejsme' => 'on'
);	);
my @toggles = ('uselcmath','usejsme');	my @toggles = ('canuse_pdfforms','uselcmath','usejsme');
my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',	my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',
'uploadquota_community','uploadquota_textbook','mysqltables_official',	'uploadquota_community','uploadquota_textbook','uploadquota_placement',
'mysqltables_unofficial','mysqltables_community','mysqltables_textbook');	'mysqltables_official','mysqltables_unofficial','mysqltables_community',
my @types = ('official','unofficial','community','textbook');	'mysqltables_textbook','mysqltables_placement');
	my @types = ('official','unofficial','community','textbook','placement');
my %staticdefaults = (	my %staticdefaults = (
anonsurvey_threshold => 10,	anonsurvey_threshold => 10,
uploadquota => 500,	uploadquota => 500,
Line 12857 sub modify_coursedefaults {	Line 12814 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 12872 sub modify_coursedefaults {	Line 12829 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 12895 sub modify_coursedefaults {	Line 12852 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 12914 sub modify_coursedefaults {	Line 12871 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 12960 sub modify_coursedefaults {	Line 12917 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 12982 sub modify_coursedefaults {	Line 12939 sub modify_coursedefaults {
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|	if (($changes{'canuse_pdfforms'}) \|\| ($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|
($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|	($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|
($changes{'canclone'}) \|\| ($changes{'mysqltables'})) {	($changes{'canclone'}) \|\| ($changes{'mysqltables'})) {
foreach my $item ('uselcmath','usejsme') {	foreach my $item ('canuse_pdfforms','uselcmath','usejsme') {
if ($changes{$item}) {	if ($changes{$item}) {
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item};	$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item};
}	}
}	}
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 13036 sub modify_coursedefaults {	Line 12993 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 13046 sub modify_coursedefaults {	Line 13009 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 13056 sub modify_coursedefaults {	Line 13019 sub modify_coursedefaults {
'<li>'.&mt('Official courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'official'}.'</b>').'</li>'.	'<li>'.&mt('Official courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'official'}.'</b>').'</li>'.
'<li>'.&mt('Unofficial courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'unofficial'}.'</b>').'</li>'.	'<li>'.&mt('Unofficial courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'unofficial'}.'</b>').'</li>'.
'<li>'.&mt('Textbook courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'textbook'}.'</b>').'</li>'.	'<li>'.&mt('Textbook courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'textbook'}.'</b>').'</li>'.
	'<li>'.&mt('Placement tests: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'placement'}.'</b>').'</li>'.
'<li>'.&mt('Communities: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'community'}.'</b>').'</li>'.	'<li>'.&mt('Communities: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'community'}.'</b>').'</li>'.
'</ul>'.	'</ul>'.
'</li>';	'</li>';
Line 13069 sub modify_coursedefaults {	Line 13032 sub modify_coursedefaults {
'<li>'.&mt('Official courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'official'}.'</b>').'</li>'.	'<li>'.&mt('Official courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'official'}.'</b>').'</li>'.
'<li>'.&mt('Unofficial courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'unofficial'}.'</b>').'</li>'.	'<li>'.&mt('Unofficial courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'unofficial'}.'</b>').'</li>'.
'<li>'.&mt('Textbook courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'textbook'}.'</b>').'</li>'.	'<li>'.&mt('Textbook courses: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'textbook'}.'</b>').'</li>'.
	'<li>'.&mt('Placement tests: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'placement'}.'</b>').'</li>'.
'<li>'.&mt('Communities: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'community'}.'</b>').'</li>'.	'<li>'.&mt('Communities: [_1] s','<b>'.$defaultshash{'coursedefaults'}{'mysqltables'}{'community'}.'</b>').'</li>'.
'</ul>'.	'</ul>'.
'</li>';	'</li>';
Line 13080 sub modify_coursedefaults {	Line 13044 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 13104 sub modify_coursedefaults {	Line 13068 sub modify_coursedefaults {
$resulttext .= &mt('Unofficial courses');	$resulttext .= &mt('Unofficial courses');
} elsif ($type eq 'textbook') {	} elsif ($type eq 'textbook') {
$resulttext .= &mt('Textbook courses');	$resulttext .= &mt('Textbook courses');
	} elsif ($type eq 'placement') {
	$resulttext .= &mt('Placement tests');
}	}
$resulttext .= ' -- '.$display.'</li>';	$resulttext .= ' -- '.$display.'</li>';
}	}
$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 13137 sub modify_coursedefaults {	Line 13103 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 13155 sub modify_coursedefaults {	Line 13121 sub modify_coursedefaults {
sub modify_selfenrollment {	sub modify_selfenrollment {
my ($dom,$lastactref,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,%changes,%selfenrollhash,%ordered);	my ($resulttext,$errors,%changes,%selfenrollhash,%ordered);
my @types = ('official','unofficial','community','textbook');	my @types = ('official','unofficial','community','textbook','placement');
my %titles = &tool_titles();	my %titles = &tool_titles();
my %descs = &Apache::lonuserutils::selfenroll_default_descs();	my %descs = &Apache::lonuserutils::selfenroll_default_descs();
($ordered{'admin'},my $titlesref) = &Apache::lonuserutils::get_selfenroll_titles();	($ordered{'admin'},my $titlesref) = &Apache::lonuserutils::get_selfenroll_titles();
Line 13402 sub modify_usersessions {	Line 13368 sub modify_usersessions {
);	);
my @prefixes = ('remote','hosted','spares');	my @prefixes = ('remote','hosted','spares');
my @lcversions = &Apache::lonnet::all_loncaparevs();	my @lcversions = &Apache::lonnet::all_loncaparevs();
my (%by_ip,%by_location,@intdoms);	my (%by_ip,%by_location,@intdoms,@instdoms);
&build_location_hashes(\@intdoms,\%by_ip,\%by_location);	&build_location_hashes(\@intdoms,\%by_ip,\%by_location,\@instdoms);
my @locations = sort(keys(%by_location));	my @locations = sort(keys(%by_location));
my (%defaultshash,%changes);	my (%defaultshash,%changes);
foreach my $prefix (@prefixes) {	foreach my $prefix (@prefixes) {
Line 13592 sub modify_usersessions {	Line 13558 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 13623 sub modify_usersessions {	Line 13589 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 13719 sub modify_usersessions {	Line 13683 sub modify_usersessions {
return $resulttext;	return $resulttext;
}	}

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

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

sub modify_loadbalancing {	sub modify_loadbalancing {
my ($dom,%domconfig) = @_;	my ($dom,%domconfig) = @_;
my $primary_id = &Apache::lonnet::domain($dom,'primary');	my $primary_id = &Apache::lonnet::domain($dom,'primary');
Line 13824 sub modify_loadbalancing {	Line 14076 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 13900 sub modify_loadbalancing {	Line 14152 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 14627 function updateCaptcha(caller,context) {	Line 14879 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 14700 sub captcha_phrases {	Line 14952 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 14710 sub devalidate_remote_domconfs {	Line 14962 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','usersessions','directorysrch');	my @posscached = ('domainconfig','domdefaults','ltitools');
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.160.6.84.6.2
changed lines
	Added in v.1.288