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.323 and 1.341

version 1.323, 2017/12/30 14:03:53	version 1.341, 2018/11/18 22:50:52
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, textbook, and placement).	(official, unofficial, community, textbook, placement, and lti).
In each case the radio buttons 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).
Line 352 sub handler {	Line 352 sub handler {
col2 => 'Value',},	col2 => 'Value',},
{col1 => 'Recipient(s) for notifications',	{col1 => 'Recipient(s) for notifications',
col2 => 'Value',},	col2 => 'Value',},
	{col1 => 'Nightly status check e-mail',
	col2 => 'Settings',},
{col1 => 'Ask helpdesk form settings',	{col1 => 'Ask helpdesk form settings',
col2 => 'Value',},],	col2 => 'Value',},],
print => \&print_contacts,	print => \&print_contacts,
Line 781 sub print_config_box {	Line 783 sub print_config_box {
$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);
	} elsif ($action eq 'lti') {
	$output .= &lti_javascript($settings);
}	}
$output .=	$output .=
'<table class="LC_nested_outer">	'<table class="LC_nested_outer">
Line 900 sub print_config_box {	Line 906 sub print_config_box {
</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);
	} elsif ($action eq 'contacts') {
	$output .= $item->{'print'}->('lower',$dom,$settings,\$rowtotal).'
	</tr>
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col1'}).'</td>
	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[3]->{'col2'}).'</td></tr>'.
	$item->{'print'}->('bottom',$dom,$settings,\$rowtotal).'
	</table>
	</td>
	</tr>
	<tr>';
} else {	} else {
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);	$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal);
}	}
Line 1436 sub print_login {	Line 1459 sub print_login {
} else {	} else {
$datatable .= '<input type="file" name="loginheadtag_'.$lonhost.'" />';	$datatable .= '<input type="file" name="loginheadtag_'.$lonhost.'" />';
}	}
$datatable .= '</td><td><input type="textbox" name="loginheadtagexempt_'.$lonhost.'" value="'.$exempt.'" /></td></tr>';	$datatable .= '</td><td><input type="text" name="loginheadtagexempt_'.$lonhost.'" value="'.$exempt.'" /></td></tr>';
}	}
$datatable .= '</table></td></tr>';	$datatable .= '</table></td></tr>';
}	}
Line 1596 sub display_color_options {	Line 1619 sub display_color_options {
my $datatable = '<tr'.$css_class.'>'.	my $datatable = '<tr'.$css_class.'>'.
'<td>'.$choices->{'font'}.'</td>';	'<td>'.$choices->{'font'}.'</td>';
if (!$is_custom->{'font'}) {	if (!$is_custom->{'font'}) {
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>';	$datatable .= '<td>'.&mt('Default in use:').' <span class="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>';
} else {	} else {
$datatable .= '<td> </td>';	$datatable .= '<td> </td>';
}	}
Line 1605 sub display_color_options {	Line 1628 sub display_color_options {
$datatable .= '<td><span class="LC_nobreak">'.	$datatable .= '<td><span class="LC_nobreak">'.
'<input type="text" class="colorchooser" size="10" name="'.$role.'_font"'.	'<input type="text" class="colorchooser" size="10" name="'.$role.'_font"'.
' value="'.$current_color.'" /> '.	' value="'.$current_color.'" /> '.
' </td></tr>';	' </span></td></tr>';
unless ($role eq 'login') {	unless ($role eq 'login') {
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td>'.$choices->{'fontmenu'}.'</td>';	'<td>'.$choices->{'fontmenu'}.'</td>';
if (!$is_custom->{'fontmenu'}) {	if (!$is_custom->{'fontmenu'}) {
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'fontmenu'}.';">'.$defaults->{'fontmenu'}.'</span></td>';	$datatable .= '<td>'.&mt('Default in use:').' <span class="css_default_'.$role.'_font" style="color: '.$defaults->{'fontmenu'}.';">'.$defaults->{'fontmenu'}.'</span></td>';
} else {	} else {
$datatable .= '<td> </td>';	$datatable .= '<td> </td>';
}	}
Line 1620 sub display_color_options {	Line 1643 sub display_color_options {
'<input class="colorchooser" type="text" size="10" name="'	'<input class="colorchooser" type="text" size="10" name="'
.$role.'_fontmenu"'.	.$role.'_fontmenu"'.
' value="'.$current_color.'" /> '.	' value="'.$current_color.'" /> '.
' </td></tr>';	' </span></td></tr>';
}	}
my $switchserver = &check_switchserver($dom,$confname);	my $switchserver = &check_switchserver($dom,$confname);
foreach my $img (@{$images}) {	foreach my $img (@{$images}) {
Line 1738 sub display_color_options {	Line 1761 sub display_color_options {
my $bgs_def;	my $bgs_def;
foreach my $item (@{$bgs}) {	foreach my $item (@{$bgs}) {
if (!$is_custom->{$item}) {	if (!$is_custom->{$item}) {
$bgs_def .= '<td><span class="LC_nobreak">'.$choices->{$item}.'</span> <span id="css_default_'.$role.'_'.$item.'" style="background-color: '.$defaults->{'bgs'}{$item}.';">   </span><br />'.$defaults->{'bgs'}{$item}.'</td>';	$bgs_def .= '<td><span class="LC_nobreak">'.$choices->{$item}.'</span> <span class="css_default_'.$role.'_'.$item.'" style="background-color: '.$defaults->{'bgs'}{$item}.';">   </span><br />'.$defaults->{'bgs'}{$item}.'</td>';
}	}
}	}
if ($bgs_def) {	if ($bgs_def) {
Line 1766 sub display_color_options {	Line 1789 sub display_color_options {
my $links_def;	my $links_def;
foreach my $item (@{$links}) {	foreach my $item (@{$links}) {
if (!$is_custom->{$item}) {	if (!$is_custom->{$item}) {
$links_def .= '<td>'.$choices->{$item}.'<br /><span id="css_default_'.$role.'_'.$item.'" style="color: '.$defaults->{'links'}{$item}.';">'.$defaults->{'links'}{$item}.'</span></td>';	$links_def .= '<td>'.$choices->{$item}.'<br /><span class="css_default_'.$role.'_'.$item.'" style="color: '.$defaults->{'links'}{$item}.';">'.$defaults->{'links'}{$item}.'</span></td>';
}	}
}	}
if ($links_def) {	if ($links_def) {
Line 1852 sub image_changes {	Line 1875 sub image_changes {
my ($is_custom,$alt_text,$img_import,$showfile,$fullsize,$role,$img,$imgfile,$logincolors) = @_;	my ($is_custom,$alt_text,$img_import,$showfile,$fullsize,$role,$img,$imgfile,$logincolors) = @_;
my $output;	my $output;
if ($img eq 'login') {	if ($img eq 'login') {
# suppress image for Log-in header	$output = '</td><td>'.$logincolors; # suppress image for Log-in header
} elsif (!$is_custom) {	} elsif (!$is_custom) {
if ($img ne 'domlogo') {	if ($img ne 'domlogo') {
$output .= &mt('Default image:').'<br />';	$output = &mt('Default image:').'<br />';
} else {	} else {
$output .= &mt('Default in use:').'<br />';	$output = &mt('Default in use:').'<br />';
}	}
}	}
if ($img eq 'login') { # suppress image for Log-in header	if ($img ne 'login') {
$output .= '<td>'.$logincolors;
} else {
if ($img_import) {	if ($img_import) {
$output .= '<input type="hidden" name="'.$role.'_import_'.$img.'" value="'.$imgfile.'" />';	$output .= '<input type="hidden" name="'.$role.'_import_'.$img.'" value="'.$imgfile.'" />';
}	}
Line 1893 sub print_quotas {	Line 1914 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','placement');	@usertools = ('official','unofficial','community','textbook','placement','lti');
@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 2357 sub print_studentcode {	Line 2378 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','placement');	my @crstypes = ('official','unofficial','community','textbook','placement','lti');
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 2484 sub print_textbookcourses {	Line 2505 sub print_textbookcourses {
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
$datatable .= '</select> '."\n".	$datatable .= '</select> '."\n".
'<input type="checkbox" name="'.$type.'_addbook" value="1" />'.&mt('Add').'</td>'."\n".	'<input type="checkbox" name="'.$type.'_addbook" value="1" />'.&mt('Add').'</span></td>'."\n".
'<td colspan="2">'.	'<td colspan="2">'.
'<span class="LC_nobreak">'.&mt('Subject:').'<input type="text" size="15" name="'.$type.'_addbook_subject" value="" /></span> '."\n".	'<span class="LC_nobreak">'.&mt('Subject:').'<input type="text" size="15" name="'.$type.'_addbook_subject" value="" /></span> '."\n".
(' 'x2).	(' 'x2).
Line 2501 sub print_textbookcourses {	Line 2522 sub print_textbookcourses {
} else {	} else {
$datatable .= '<input type="file" name="'.$type.'_addbook_image" value="" />';	$datatable .= '<input type="file" name="'.$type.'_addbook_image" value="" />';
}	}
	$datatable .= '</span>'."\n";
}	}
$datatable .= '</span>'."\n".	$datatable .= '<span class="LC_nobreak">'.&mt('LON-CAPA course:').' '.
'<span class="LC_nobreak">'.&mt('LON-CAPA course:').' '.
&Apache::loncommon::select_dom_form($env{'request.role.domain'},$type.'_addbook_cdom').	&Apache::loncommon::select_dom_form($env{'request.role.domain'},$type.'_addbook_cdom').
'<input type="text" size="25" name="'.$type.'_addbook_cnum" value="" />'.	'<input type="text" size="25" name="'.$type.'_addbook_cnum" value="" />'.
&Apache::loncommon::selectcourse_link	&Apache::loncommon::selectcourse_link
('display',$type.'_addbook_cnum',$type.'_addbook_cdom',undef,undef,undef,'Course');	('display',$type.'_addbook_cnum',$type.'_addbook_cdom',undef,undef,undef,'Course').
'</span></td>'."\n".	'</span></td>'."\n".
'</tr>'."\n";	'</tr>'."\n";
$itemcount ++;	$itemcount ++;
Line 2712 function toggleLTITools(form,setting,ite	Line 2733 function toggleLTITools(form,setting,ite
}	}
}	}
}	}
	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;	return;
}	}
// ]]>	// ]]>
Line 2793 ENDSCRIPT	Line 2827 ENDSCRIPT
}	}

sub lti_toggle_js {	sub lti_toggle_js {
	my %lcauthparmtext = &Apache::lonlocal::texthash (
	localauth => 'Local auth argument',
	krb => 'Kerberos domain',
	);
return <<"ENDSCRIPT";	return <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[

function toggleLTI(form,setting,item) {	function toggleLTI(form,setting,item) {
if ((setting == 'user') \|\| (setting == 'crs')) {	if ((setting == 'user') \|\| (setting == 'crs') \|\| (setting == 'passback')) {
var radioname = '';	var radioname = '';
var divid = '';	var divid = '';
if (setting == 'user') {	if (setting == 'user') {
radioname = 'lti_mapuser_'+item;	radioname = 'lti_mapuser_'+item;
divid = 'lti_userfield_'+item;	divid = 'lti_userfield_'+item;
} else {	} else if (settings == 'crs') {
radioname = 'lti_mapcrs_'+item;	radioname = 'lti_mapcrs_'+item;
divid = 'lti_crsfield_'+item;	divid = 'lti_crsfield_'+item;
	} else {
	radioname = 'lti_passbackformat_'+item;
	divid = 'lti_passback_'+item;
}	}
var num = form.elements[radioname].length;	var num = form.elements[radioname].length;
if (num) {	if (num) {
var setvis = '';	var setvis = '';
for (var i=0; i<num; i++) {	for (var i=0; i<num; i++) {
if (form.elements[radioname][i].checked) {	if (form.elements[radioname][i].checked) {
if (form.elements[radioname][i].value == 'other') {	if (setting == 'passback') {
if (document.getElementById(divid)) {	if (form.elements[radioname][i].value == '1') {
document.getElementById(divid).style.display = 'inline-block';	if (document.getElementById(divid)) {
	document.getElementById(divid).style.display = 'inline-block';
	}
	setvis = 1;
	break;
	}
	} else {
	if (form.elements[radioname][i].value == 'other') {
	if (document.getElementById(divid)) {
	document.getElementById(divid).style.display = 'inline-block';
	}
	setvis = 1;
	break;
}	}
setvis = 1;
break;
}	}
}	}
}	}
Line 2870 function toggleLTI(form,setting,item) {	Line 2921 function toggleLTI(form,setting,item) {
}	}
}	}
}	}
	} else if (setting == 'lcauth') {
	var numauth = form.elements['lti_lcauth_'+item].length;
	if (numauth) {
	for (var i=0; i<numauth; i++) {
	if (form.elements['lti_lcauth_'+item][i].checked) {
	if (document.getElementById('lti_'+setting+'_parmrow_'+item)) {
	if ((form.elements['lti_'+setting+'_'+item][i].value == 'internal') \|\| (form.elements['lti_'+setting+'_'+item][i].value == 'lti')) {
	document.getElementById('lti_'+setting+'_parmrow_'+item).style.display = 'none';
	} else {
	document.getElementById('lti_'+setting+'_parmrow_'+item).style.display = 'table-row';
	if (document.getElementById('lti_'+setting+'_parmtext_'+item)) {
	if (form.elements['lti_'+setting+'_'+item][i].value == 'localauth') {
	document.getElementById('lti_'+setting+'_parmtext_'+item).innerHTML = "$lcauthparmtext{'localauth'}";
	} else {
	document.getElementById('lti_'+setting+'_parmtext_'+item).innerHTML = "$lcauthparmtext{'krb'}";
	}
	}
	}
	}
	}
	}
	}
	} else if (setting == 'lcmenu') {
	var menus = new Array('lti_topmenu_'+item,'lti_inlinemenu_'+item);
	var divid = 'lti_menufield_'+item;
	var setvis = '';
	for (var i=0; i<menus.length; i++) {
	var radioname = menus[i];
	var num = form.elements[radioname].length;
	if (num) {
	for (var j=0; j<num; j++) {
	if (form.elements[radioname][j].checked) {
	if (form.elements[radioname][j].value == '1') {
	if (document.getElementById(divid)) {
	document.getElementById(divid).style.display = 'inline-block';
	}
	setvis = 1;
	break;
	}
	}
	}
	}
	if (setvis == 1) {
	break;
	}
	}
	if (!setvis) {
	if (document.getElementById(divid)) {
	document.getElementById(divid).style.display = 'none';
	}
	}
}	}
return;	return;
}	}
Line 2958 sub print_autoenroll {	Line 3060 sub print_autoenroll {
'<td>'.&mt('Failsafe for no drops when institutional data missing').'</td>'.	'<td>'.&mt('Failsafe for no drops when institutional data missing').'</td>'.
'<td class="LC_right_item"><span class="LC_nobreak">'.	'<td class="LC_right_item"><span class="LC_nobreak">'.
'<input type="text" name="autoenroll_failsafe"'.	'<input type="text" name="autoenroll_failsafe"'.
' value="'.$failsafe.'" size="4" /></td></tr>';	' value="'.$failsafe.'" size="4" /></span></td></tr>';
$$rowtotal += 4;	$$rowtotal += 4;
return $datatable;	return $datatable;
}	}
Line 3240 sub print_contacts {	Line 3342 sub print_contacts {
my $datatable;	my $datatable;
my @contacts = ('adminemail','supportemail');	my @contacts = ('adminemail','supportemail');
my (%checked,%to,%otheremails,%bccemails,%includestr,%includeloc,%currfield,	my (%checked,%to,%otheremails,%bccemails,%includestr,%includeloc,%currfield,
$maxsize,$fields,$fieldtitles,$fieldoptions,$possoptions,@mailings);	$maxsize,$fields,$fieldtitles,$fieldoptions,$possoptions,@mailings,%lonstatus);
if ($position eq 'top') {	if ($position eq 'top') {
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
foreach my $item (@contacts) {	foreach my $item (@contacts) {
Line 3255 sub print_contacts {	Line 3357 sub print_contacts {
foreach my $type (@mailings) {	foreach my $type (@mailings) {
$otheremails{$type} = '';	$otheremails{$type} = '';
}	}
	} elsif ($position eq 'lower') {
	if (ref($settings) eq 'HASH') {
	if (ref($settings->{'lonstatus'}) eq 'HASH') {
	%lonstatus = %{$settings->{'lonstatus'}};
	}
	}
} else {	} else {
@mailings = ('helpdeskmail','otherdomsmail');	@mailings = ('helpdeskmail','otherdomsmail');
foreach my $type (@mailings) {	foreach my $type (@mailings) {
Line 3267 sub print_contacts {	Line 3375 sub print_contacts {
($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields();	($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields();
}	}
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
unless ($position eq 'top') {	unless (($position eq 'top') \|\| ($position eq 'lower')) {
foreach my $type (@mailings) {	foreach my $type (@mailings) {
if (exists($settings->{$type})) {	if (exists($settings->{$type})) {
if (ref($settings->{$type}) eq 'HASH') {	if (ref($settings->{$type}) eq 'HASH') {
Line 3388 sub print_contacts {	Line 3496 sub print_contacts {
if ($currfield{$field} eq 'no') {	if ($currfield{$field} eq 'no') {
$display = ' style="display:none"';	$display = ' style="display:none"';
}	}
$datatable .= '</td></tr><tr id="help_screenshotsize"'.$display.' />'.	$datatable .= '</td></tr><tr id="help_screenshotsize"'.$display.'>'.
'<td>'.&mt('Maximum size for upload (MB)').'</td><td>'.	'<td>'.&mt('Maximum size for upload (MB)').'</td><td>'.
'<input type="text" size="5" name="helpform_maxsize" value="'.$maxsize.'" />';	'<input type="text" size="5" name="helpform_maxsize" value="'.$maxsize.'" />';
}	}
Line 3399 sub print_contacts {	Line 3507 sub print_contacts {
$datatable .= '</td></tr>'."\n";	$datatable .= '</td></tr>'."\n";
$rownum ++;	$rownum ++;
}	}
unless ($position eq 'top') {	unless (($position eq 'top') \|\| ($position eq 'lower')) {
foreach my $type (@mailings) {	foreach my $type (@mailings) {
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
Line 3433 sub print_contacts {	Line 3541 sub print_contacts {
'value="'.$bccemails{$type}.'" /></fieldset>'.	'value="'.$bccemails{$type}.'" /></fieldset>'.
'<fieldset><legend>'.&mt('Optional added text').'</legend>'.	'<fieldset><legend>'.&mt('Optional added text').'</legend>'.
&mt('Text automatically added to e-mail:').' '.	&mt('Text automatically added to e-mail:').' '.
'<input type="text" name="'.$type.'_includestr" value="'.$includestr{$type}.'" /><br >'.	'<input type="text" name="'.$type.'_includestr" value="'.$includestr{$type}.'" /><br />'.
'<span class="LC_nobreak">'.&mt('Location:').' '.	'<span class="LC_nobreak">'.&mt('Location:').' '.
'<label><input type="radio" name="'.$type.'_includeloc" value="s"'.$locchecked{'s'}.' />'.&mt('in subject').'</label>'.	'<label><input type="radio" name="'.$type.'_includeloc" value="s"'.$locchecked{'s'}.' />'.&mt('in subject').'</label>'.
(' 'x2).	(' 'x2).
Line 3446 sub print_contacts {	Line 3554 sub print_contacts {
}	}
if ($position eq 'middle') {	if ($position eq 'middle') {
my %choices;	my %choices;
$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',	my $corelink = &core_link_msu();
&Apache::loncommon::modal_link('http://loncapa.org/core.html',	$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',$corelink);
&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',	$corelink);
&mt('LON-CAPA core group - MSU'),600,500));	$choices{'reportstatus'} = &mt('E-mail status if errors above threshold to [_1]',$corelink);
my @toggles = ('reporterrors','reportupdates');	my @toggles = ('reporterrors','reportupdates','reportstatus');
my %defaultchecked = ('reporterrors' => 'on',	my %defaultchecked = ('reporterrors' => 'on',
'reportupdates' => 'on');	'reportupdates' => 'on',
	'reportstatus' => 'on');
(my $reports,$rownum) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	(my $reports,$rownum) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$rownum);	\%choices,$rownum);
$datatable .= $reports;	$datatable .= $reports;
	} elsif ($position eq 'lower') {
	$css_class = $rownum%2?' class="LC_odd_row"':'';
	my ($threshold,$sysmail,%excluded,%weights);
	my ($defaults,$names) = &Apache::loncommon::lon_status_items();
	if ($lonstatus{'threshold'} =~ /^\d+$/) {
	$threshold = $lonstatus{'threshold'};
	} else {
	$threshold = $defaults->{'threshold'};
	}
	if ($lonstatus{'sysmail'} =~ /^\d+$/) {
	$sysmail = $lonstatus{'sysmail'};
	} else {
	$sysmail = $defaults->{'sysmail'};
	}
	if (ref($lonstatus{'weights'}) eq 'HASH') {
	foreach my $type ('E','W','N','U') {
	if ($lonstatus{'weights'}{$type} =~ /^\d+$/) {
	$weights{$type} = $lonstatus{'weights'}{$type};
	} else {
	$weights{$type} = $defaults->{$type};
	}
	}
	} else {
	foreach my $type ('E','W','N','U') {
	$weights{$type} = $defaults->{$type};
	}
	}
	if (ref($lonstatus{'excluded'}) eq 'ARRAY') {
	if (@{$lonstatus{'excluded'}} > 0) {
	map {$excluded{$_} = 1; } @{$lonstatus{'excluded'}};
	}
	}
	$datatable .= '<tr'.$css_class.'>'.
	'<td class="LC_left_item"><span class="LC_nobreak">'.
	$titles->{'errorthreshold'}.
	'</span></td><td class="LC_left_item">'.
	'<input type="text" name="errorthreshold" value="'.
	$threshold.'" size="5" /></td></tr>';
	$rownum ++;
	$css_class = $rownum%2?' class="LC_odd_row"':'';
	$datatable .= '<tr'.$css_class.'>'.
	'<td class="LC_left_item">'.
	'<span class="LC_nobreak">'.$titles->{'errorweights'}.
	'</span></td><td class="LC_left_item"><table><tr>';
	foreach my $type ('E','W','N','U') {
	$datatable .= '<td>'.$names->{$type}.'<br />'.
	'<input type="text" name="errorweights_'.$type.'" value="'.
	$weights{$type}.'" size="5" /></td>';
	}
	$datatable .= '</tr></table></tr>';
	$rownum ++;
	$css_class = $rownum%2?' class="LC_odd_row"':'';
	$datatable .= '<tr'.$css_class.'><td class="LC_left_item">'.
	$titles->{'errorexcluded'}.'</td>'.
	'<td class="LC_left_item"><table>';
	my $numinrow = 4;
	my @ids = sort(values(%Apache::lonnet::serverhomeIDs));
	for (my $i=0; $i<@ids; $i++) {
	my $rem = $i%($numinrow);
	if ($rem == 0) {
	if ($i > 0) {
	$datatable .= '</tr>';
	}
	$datatable .= '<tr>';
	}
	my $check;
	if ($excluded{$ids[$i]}) {
	$check = ' checked="checked" ';
	}
	$datatable .= '<td class="LC_left_item">'.
	'<span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="errorexcluded" '.
	'value="'.$ids[$i].'"'.$check.' />'.
	$ids[$i].'</label></span></td>';
	}
	my $colsleft = $numinrow - @ids%($numinrow);
	if ($colsleft > 1 ) {
	$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
	' </td>';
	} elsif ($colsleft == 1) {
	$datatable .= '<td class="LC_left_item"> </td>';
	}
	$datatable .= '</tr></table></td></tr>';
	$rownum ++;
	$css_class = $rownum%2?' class="LC_odd_row"':'';
	$datatable .= '<tr'.$css_class.'>'.
	'<td class="LC_left_item"><span class="LC_nobreak">'.
	$titles->{'errorsysmail'}.
	'</span></td><td class="LC_left_item">'.
	'<input type="text" name="errorsysmail" value="'.
	$sysmail.'" size="5" /></td></tr>';
	$rownum ++;
} elsif ($position eq 'bottom') {	} elsif ($position eq 'bottom') {
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
my (@posstypes,%usertypeshash);	my (@posstypes,%usertypeshash);
Line 3531 sub print_contacts {	Line 3731 sub print_contacts {
return $datatable;	return $datatable;
}	}

	sub core_link_msu {
	return &Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500);
	}

sub overridden_helpdesk {	sub overridden_helpdesk {
my ($checked,$otheremails,$bccemails,$includeloc,$includestr,$type,$rowid,	my ($checked,$otheremails,$bccemails,$includeloc,$includestr,$type,$rowid,
$typetitle,$css_class,$rowstyle,$contacts,$short_titles) = @_;	$typetitle,$css_class,$rowstyle,$contacts,$short_titles) = @_;
Line 3581 sub overridden_helpdesk {	Line 3786 sub overridden_helpdesk {
'value="'.$bccemails.'" /></fieldset>'.	'value="'.$bccemails.'" /></fieldset>'.
'<fieldset><legend>'.&mt('Optional added text').'</legend>'.	'<fieldset><legend>'.&mt('Optional added text').'</legend>'.
&mt('Text automatically added to e-mail:').' '.	&mt('Text automatically added to e-mail:').' '.
'<input type="text" name="override_'.$type.'_includestr" value="'.$includestr.'" /><br >'.	'<input type="text" name="override_'.$type.'_includestr" value="'.$includestr.'" /><br />'.
'<span class="LC_nobreak">'.&mt('Location:').' '.	'<span class="LC_nobreak">'.&mt('Location:').' '.
'<label><input type="radio" name="override_'.$type.'_includeloc" value="s"'.$locchecked{'s'}.' />'.&mt('in subject').'</label>'.	'<label><input type="radio" name="override_'.$type.'_includeloc" value="s"'.$locchecked{'s'}.' />'.&mt('in subject').'</label>'.
(' 'x2).	(' 'x2).
Line 3710 sub print_helpsettings {	Line 3915 sub print_helpsettings {
push(@jsarray,('notinc','notexc'));	push(@jsarray,('notinc','notexc'));
}	}
my $hiddenstr = join("','",@jsarray);	my $hiddenstr = join("','",@jsarray);
$datatable .= &helpsettings_javascript(\@roles_by_num,$maxnum,$hiddenstr,$formname);
my $context = 'domprefs';	my $context = 'domprefs';
my $crstype = 'Course';	my $crstype = 'Course';
my $prefix = 'helproles_';	my $prefix = 'helproles_';
Line 3813 sub print_helpsettings {	Line 4017 sub print_helpsettings {
\@templateroles,$newcust).	\@templateroles,$newcust).
&Apache::lonuserutils::custom_role_table('Course',\%full,\%levels,	&Apache::lonuserutils::custom_role_table('Course',\%full,\%levels,
\%levelscurrent,$newcust).	\%levelscurrent,$newcust).
'</fieldset></td></tr>';	'</fieldset>'.
	&helpsettings_javascript(\@roles_by_num,$maxnum,$hiddenstr,$formname).
	'</td></tr>';
$count ++;	$count ++;
$$rowtotal += $count;	$$rowtotal += $count;
}	}
Line 4102 sub print_ltitools {	Line 4308 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 = &ltitools_javascript($settings);	my $datatable;
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','user','roles');	my @fields = ('fullname','firstname','lastname','email','roles','user');
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++) {
Line 4203 sub print_ltitools {	Line 4409 sub print_ltitools {
'<input type="text" name="ltitools_'.$dimen.'_'.$i.'" size="5" value="'.$currdisp{$dimen}.'" /></label>'.	'<input type="text" name="ltitools_'.$dimen.'_'.$i.'" size="5" value="'.$currdisp{$dimen}.'" /></label>'.
(' 'x2);	(' 'x2);
}	}
$datatable .= '<br />'.	$datatable .= '</span><br />'.
'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.	'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.
'<input type="text" name="ltitools_linktext_'.$i.'" size="25" value="'.$currdisp{'linktext'}.'" /></label></div>'.	'<input type="text" name="ltitools_linktext_'.$i.'" size="25" value="'.$currdisp{'linktext'}.'" /></div>'.
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.	'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.
'<textarea name="ltitools_explanation_'.$i.'" rows="5" cols="40">'.$currdisp{'explanation'}.	'<textarea name="ltitools_explanation_'.$i.'" rows="5" cols="40">'.$currdisp{'explanation'}.
'</textarea></div><div style=""></div><br />';	'</textarea></div><div style=""></div><br />';
Line 4253 sub print_ltitools {	Line 4459 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);	my (%checkedfields,%rolemaps,$userincdom);
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 4265 sub print_ltitools {	Line 4472 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;	my ($checked,$onclick,$id,$spacer);
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.'"'.$checked.' />'.	'<input type="checkbox" name="ltitools_fields_'.$i.'" value="'.$field.'"'.$id.$checked.$onclick.' />'.
$lt{$field}.'</label>'.(' ' x2);	$lt{$field}.'</label>'.$spacer;
}	}
$datatable .= '</span></fieldset>'.	$datatable .= '</span>';
	$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);
Line 4351 sub print_ltitools {	Line 4582 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').'</td>'."\n".	'<input type="checkbox" name="ltitools_add" value="1" />'.&mt('Add').'</span></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="20" name="ltitools_add_title" value="" /></span> '."\n".
Line 4388 sub print_ltitools {	Line 4619 sub print_ltitools {
'<input type="text" name="ltitools_add_'.$dimen.'" size="5" /></label>'.	'<input type="text" name="ltitools_add_'.$dimen.'" size="5" /></label>'.
(' 'x2);	(' 'x2);
}	}
$datatable .= '<br />'.	$datatable .= '</span><br />'.
'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.	'<div class="LC_left_float">'.$lt{'linktext'}.'<br />'.
'<input type="text" name="ltitools_add_linktext" size="5" /></label></div>'.	'<input type="text" name="ltitools_add_linktext" size="5" /></div>'.
'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.	'<div class="LC_left_float">'.$lt{'explanation'}.'<br />'.
'<textarea name=ltitools_add_explanation" rows="5" cols="40"></textarea>'.	'<textarea name="ltitools_add_explanation" rows="5" cols="40"></textarea>'.
'</div><div style=""></div><br />';	'</div><div style=""></div><br />';
my %units = (	my %units = (
'passback' => 'days',	'passback' => 'days',
Line 4426 sub print_ltitools {	Line 4657 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.'" />'.	'<input type="checkbox" name="ltitools_add_fields" value="'.$field.'"'.$id.$onclick.' />'.
$lt{$field}.'</label>'.(' ' x2);	$lt{$field}.'</label>'.$spacer;
}	}
$datatable .= '</span></fieldset>'.	$datatable .= '</span>'.
'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>';	'<div style="display:none;" id="ltitools_user_div_add">'.
	'<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 style="text-align: center">'.	$datatable .= '<td style="text-align: center">'.
Line 4457 sub print_ltitools {	Line 4702 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></td></tr>'."\n".	'</table></fieldset>'."\n".
'</td>'."\n".	'</td>'."\n".
'</tr>'."\n";	'</tr>'."\n";
$itemcount ++;	$itemcount ++;
Line 4475 sub ltitools_names {	Line 4720 sub ltitools_names {
'lifetime' => 'Nonce lifetime (s)',	'lifetime' => 'Nonce lifetime (s)',
'secret' => 'Secret',	'secret' => 'Secret',
'icon' => 'Icon',	'icon' => 'Icon',
'user' => 'Username:domain',	'user' => 'User',
'fullname' => 'Full Name',	'fullname' => 'Full Name',
'firstname' => 'First Name',	'firstname' => 'First Name',
'lastname' => 'Last Name',	'lastname' => 'Last Name',
Line 4515 sub print_lti {	Line 4760 sub print_lti {
}	}
}	}
my $maxnum = scalar(keys(%ordered));	my $maxnum = scalar(keys(%ordered));
my $datatable = &lti_javascript($settings);	my $datatable;
my %lt = &lti_names();	my %lt = &lti_names();
if (keys(%ordered)) {	if (keys(%ordered)) {
my @items = sort { $a <=> $b } keys(%ordered);	my @items = sort { $a <=> $b } keys(%ordered);
Line 4562 sub print_lti {	Line 4807 sub print_lti {
'<input type="password" size="20" name="lti_secret_'.$i.'" value="'.$secret.'" />'.	'<input type="password" size="20" name="lti_secret_'.$i.'" value="'.$secret.'" />'.
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.lti_secret_'.$i.'.type='."'text'".' } else { this.form.lti_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'.	'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.lti_secret_'.$i.'.type='."'text'".' } else { this.form.lti_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'.
'<input type="hidden" name="lti_id_'.$i.'" value="'.$item.'" /></span>'.	'<input type="hidden" name="lti_id_'.$i.'" value="'.$item.'" /></span>'.
'</fieldset>'.&lti_options($i,$current,%lt).'</td></tr>';	'</fieldset>'.&lti_options($i,$current,$itemcount,%lt).'</td></tr>';
$itemcount ++;	$itemcount ++;
}	}
}	}
Line 4580 sub print_lti {	Line 4825 sub print_lti {
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
$datatable .= '</select> '."\n".	$datatable .= '</select> '."\n".
'<input type="checkbox" name="lti_add" value="1" />'.&mt('Add').'</td>'."\n".	'<input type="checkbox" name="lti_add" value="1" />'.&mt('Add').'</span></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{'consumer'}.	'<span class="LC_nobreak">'.$lt{'consumer'}.
Line 4595 sub print_lti {	Line 4840 sub print_lti {
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="lti_secret_add" value="" />'.	'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="lti_secret_add" value="" />'.
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.lti_secret_add.type='."'text'".' } else { this.form.lti_secret_add.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n".	'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.lti_secret_add.type='."'text'".' } else { this.form.lti_secret_add.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n".
'</fieldset>'.&lti_options('add',undef,%lt).	'</fieldset>'.&lti_options('add',undef,$itemcount,%lt).
'</td>'."\n".	'</td>'."\n".
'</tr>'."\n";	'</tr>'."\n";
$$rowtotal ++;	$$rowtotal ++;
Line 4615 sub lti_names {	Line 4860 sub lti_names {
'other' => 'Other',	'other' => 'Other',
'passback' => 'Can return grades to Consumer:',	'passback' => 'Can return grades to Consumer:',
'roster' => 'Can retrieve roster from Consumer:',	'roster' => 'Can retrieve roster from Consumer:',
	'topmenu' => 'Display LON-CAPA page header',
	'inlinemenu'=> 'Display LON-CAPA inline menu',
);	);
return %lt;	return %lt;
}	}

sub lti_options {	sub lti_options {
my ($num,$current,%lt) = @_;	my ($num,$current,$itemcount,%lt) = @_;
my (%checked,%rolemaps,$crssecsrc,$userfield,$cidfield);	my (%checked,%rolemaps,$crssecsrc,$userfield,$cidfield);
$checked{'mapuser'}{'sourcedid'} = ' checked="checked"';	$checked{'mapuser'}{'sourcedid'} = ' checked="checked"';
$checked{'mapcrs'}{'course_offering_sourcedid'} = ' checked="checked"';	$checked{'mapcrs'}{'course_offering_sourcedid'} = ' checked="checked"';
Line 4630 sub lti_options {	Line 4877 sub lti_options {
$checked{'selfenroll'} = {};	$checked{'selfenroll'} = {};
$checked{'crssec'} = {};	$checked{'crssec'} = {};
$checked{'crssecsrc'} = {};	$checked{'crssecsrc'} = {};
	$checked{'lcauth'} = {};
	$checked{'menuitem'} = {};
	if ($num eq 'add') {
	$checked{'lcauth'}{'lti'} = ' checked="checked"';
	}
my $userfieldsty = 'none';	my $userfieldsty = 'none';
my $crsfieldsty = 'none';	my $crsfieldsty = 'none';
my $crssecfieldsty = 'none';	my $crssecfieldsty = 'none';
my $secsrcfieldsty = 'none';	my $secsrcfieldsty = 'none';
	my $passbacksty = 'none';
	my $lcauthparm;
	my $lcauthparmstyle = 'display:none';
	my $lcauthparmtext;
	my $menusty;
	my $numinrow = 4;
	my %menutitles = &ltimenu_titles();

if (ref($current) eq 'HASH') {	if (ref($current) eq 'HASH') {
if (($current->{'mapuser'} ne '') && ($current->{'mapuser'} ne 'lis_person_sourcedid')) {	if (($current->{'mapuser'} ne '') && ($current->{'mapuser'} ne 'lis_person_sourcedid')) {
Line 4664 sub lti_options {	Line 4922 sub lti_options {
}	}
if ($current->{'makecrs'}) {	if ($current->{'makecrs'}) {
$checked{'makecrs'}{'Y'} = ' checked="checked"';	$checked{'makecrs'}{'Y'} = ' checked="checked"';
}	}
if (ref($current->{'makeuser'}) eq 'ARRAY') {	if (ref($current->{'makeuser'}) eq 'ARRAY') {
foreach my $role (@{$current->{'makeuser'}}) {	foreach my $role (@{$current->{'makeuser'}}) {
$checked{'makeuser'}{$role} = ' checked="checked"';	$checked{'makeuser'}{$role} = ' checked="checked"';
}	}
}	}
	if ($current->{'lcauth'} =~ /^(internal\|localauth\|krb4\|krb5\|lti)$/) {
	$checked{'lcauth'}{$1} = ' checked="checked"';
	unless (($current->{'lcauth'} eq 'lti') \|\| ($current->{'lcauth'} eq 'internal')) {
	$lcauthparm = $current->{'lcauthparm'};
	$lcauthparmstyle = 'display:table-row';
	if ($current->{'lcauth'} eq 'localauth') {
	$lcauthparmtext = &mt('Local auth argument');
	} else {
	$lcauthparmtext = &mt('Kerberos domain');
	}
	}
	}
if (ref($current->{'selfenroll'}) eq 'ARRAY') {	if (ref($current->{'selfenroll'}) eq 'ARRAY') {
foreach my $role (@{$current->{'selfenroll'}}) {	foreach my $role (@{$current->{'selfenroll'}}) {
$checked{'selfenroll'}{$role} = ' checked="checked"';	$checked{'selfenroll'}{$role} = ' checked="checked"';
Line 4691 sub lti_options {	Line 4961 sub lti_options {
} else {	} else {
$checked{'crssec'}{'N'} = ' checked="checked"';	$checked{'crssec'}{'N'} = ' checked="checked"';
}	}
	if ($current->{'topmenu'}) {
	$checked{'topmenu'}{'Y'} = ' checked="checked"';
	} else {
	$checked{'topmenu'}{'N'} = ' checked="checked"';
	}
	if ($current->{'inlinemenu'}) {
	$checked{'inlinemenu'}{'Y'} = ' checked="checked"';
	} else {
	$checked{'inlinemenu'}{'N'} = ' checked="checked"';
	}
	if (($current->{'topmenu'}) \|\| ($current->{'inlinemenu'})) {
	$menusty = 'inline-block';
	if (ref($current->{'lcmenu'}) eq 'ARRAY') {
	foreach my $item (@{$current->{'lcmenu'}}) {
	if (exists($menutitles{$item})) {
	$checked{'menuitem'}{$item} = ' checked="checked"';
	}
	}
	}
	} else {
	$menusty = 'none';
	}
} else {	} else {
$checked{'makecrs'}{'N'} = ' checked="checked"';	$checked{'makecrs'}{'N'} = ' checked="checked"';
$checked{'crssec'}{'N'} = ' checked="checked"';	$checked{'crssec'}{'N'} = ' checked="checked"';
	$checked{'topmenu'}{'N'} = ' checked="checked"';
	$checked{'inlinemenu'}{'Y'} = ' checked="checked"';
	$checked{'menuitem'}{'grades'} = ' checked="checked"';
	$menusty = 'inline-block';
}	}
my @coursetypes = ('official','unofficial','community','textbook','placement');	my @coursetypes = ('official','unofficial','community','textbook','placement','lti');
my %coursetypetitles = &Apache::lonlocal::texthash (	my %coursetypetitles = &Apache::lonlocal::texthash (
official => 'Official',	official => 'Official',
unofficial => 'Unofficial',	unofficial => 'Unofficial',
community => 'Community',	community => 'Community',
textbook => 'Textbook',	textbook => 'Textbook',
placement => 'Placement Test',	placement => 'Placement Test',
	lti => 'LTI Provider',
);	);
	my @authtypes = ('internal','krb4','krb5','localauth');
	my %shortauth = (
	internal => 'int',
	krb4 => 'krb4',
	krb5 => 'krb5',
	localauth => 'loc'
	);
	my %authnames = &authtype_names();
my @ltiroles = qw(Learner Instructor ContentDeveloper TeachingAssistant Mentor Member Manager Administrator);	my @ltiroles = qw(Learner Instructor ContentDeveloper TeachingAssistant Mentor Member Manager Administrator);
my @lticourseroles = qw(Learner Instructor TeachingAssistant Mentor);	my @lticourseroles = qw(Learner Instructor TeachingAssistant Mentor);
my @courseroles = ('cc','in','ta','ep','st');	my @courseroles = ('cc','in','ta','ep','st');
Line 4710 sub lti_options {	Line 5015 sub lti_options {
my $onclickcrs = ' onclick="toggleLTI(this.form,'."'crs','$num'".');"';	my $onclickcrs = ' onclick="toggleLTI(this.form,'."'crs','$num'".');"';
my $onclicksec = ' onclick="toggleLTI(this.form,'."'sec','$num'".');"';	my $onclicksec = ' onclick="toggleLTI(this.form,'."'sec','$num'".');"';
my $onclicksecsrc = ' onclick="toggleLTI(this.form,'."'secsrc','$num'".')"';	my $onclicksecsrc = ' onclick="toggleLTI(this.form,'."'secsrc','$num'".')"';
	my $onclicklcauth = ' onclick="toggleLTI(this.form,'."'lcauth','$num'".')"';
	my $onclickmenu = ' onclick="toggleLTI(this.form,'."'lcmenu','$num'".');"';
my $output = '<fieldset><legend>'.&mt('Mapping users').'</legend>'.	my $output = '<fieldset><legend>'.&mt('Mapping users').'</legend>'.
'<div class="LC_floatleft"><span class="LC_nobreak">'.&mt('LON-CAPA username').': ';	'<div class="LC_floatleft"><span class="LC_nobreak">'.&mt('LON-CAPA username').': ';
foreach my $option ('sourcedid','email','other') {	foreach my $option ('sourcedid','email','other') {
Line 4751 sub lti_options {	Line 5058 sub lti_options {
$checked{'makeuser'}{$ltirole}.' />'.$ltirole.'</label> </span> ';	$checked{'makeuser'}{$ltirole}.' />'.$ltirole.'</label> </span> ';
}	}
$output .= '</fieldset>'.	$output .= '</fieldset>'.
	'<fieldset><legend>'.&mt('New user accounts created for LTI users').'</legend>'.
	'<table>'.
	&modifiable_userdata_row('lti','instdata_'.$num,$current,$numinrow,$itemcount).
	'</table>'.
	'<table class="LC_nested"><tr><td class="LC_left_item">LON-CAPA Authentication</td>'.
	'<td class="LC_left_item">';
	foreach my $auth ('lti',@authtypes) {
	my $authtext;
	if ($auth eq 'lti') {
	$authtext = &mt('None');
	} else {
	$authtext = $authnames{$shortauth{$auth}};
	}
	$output .= '<span class="LC_nobreak"><label><input type="radio" name="lti_lcauth_'.$num.
	'" value="'.$auth.'"'.$checked{'lcauth'}{$auth}.$onclicklcauth.' />'.
	$authtext.'</label></span>  ';
	}
	$output .= '</td></tr>'.
	'<tr id="lti_lcauth_parmrow_'.$num.'" style="'.$lcauthparmstyle.'">'.
	'<td class="LC_right_item" colspan="2"><span class="LC_nobreak">'.
	'<span id="lti_lcauth_parmtext_'.$num.'">'.$lcauthparmtext.'</span>'.
	'<input type="text" name="lti_lcauthparm_'.$num.'" value="" /></span></td></tr>'.
	'</table></fieldset>'.
'<fieldset><legend>'.&mt('Mapping courses').'</legend>'.	'<fieldset><legend>'.&mt('Mapping courses').'</legend>'.
'<div class="LC_floatleft"><span class="LC_nobreak">'.	'<div class="LC_floatleft"><span class="LC_nobreak">'.
&mt('Unique course identifier').': ';	&mt('Unique course identifier').': ';
Line 4759 sub lti_options {	Line 5089 sub lti_options {
$checked{'mapcrs'}{$option}.$onclickcrs.' />'.$option.'</label>'.	$checked{'mapcrs'}{$option}.$onclickcrs.' />'.$option.'</label>'.
($option eq 'other' ? '' : (' 'x2) );	($option eq 'other' ? '' : (' 'x2) );
}	}
$output .= '</div><div class="LC_floatleft" style="display:'.$crsfieldsty.';" id="lti_crsfield_'.$num.'".>'.	$output .= '</span></div><div class="LC_floatleft" style="display:'.$crsfieldsty.';" id="lti_crsfield_'.$num.'">'.
'<input type="text" name="lti_mapcrsfield_'.$num.'" value="'.$cidfield.'" />'.	'<input type="text" name="lti_mapcrsfield_'.$num.'" value="'.$cidfield.'" />'.
'</div><div style="padding:0;clear:both;margin:0;border:0"></div>'.	'</div><div style="padding:0;clear:both;margin:0;border:0"></div>'.
'<span class="LC_nobreak">'.&mt('LON-CAPA course type(s)').': ';	'<span class="LC_nobreak">'.&mt('LON-CAPA course type(s)').': ';
Line 4787 sub lti_options {	Line 5117 sub lti_options {
'<label><input type="radio" name="lti_crssec_'.$num.'" value="0"'.	'<label><input type="radio" name="lti_crssec_'.$num.'" value="0"'.
$checked{'crssec'}{'N'}.$onclicksec.' />'.&mt('No').'</label>'.(' 'x2).	$checked{'crssec'}{'N'}.$onclicksec.' />'.&mt('No').'</label>'.(' 'x2).
'<label><input type="radio" name="lti_crssec_'.$num.'" value="1"'.	'<label><input type="radio" name="lti_crssec_'.$num.'" value="1"'.
$checked{'crssec'}{'Y'}.$onclicksec.' />'.&mt('Yes').'</label><span></div>'.	$checked{'crssec'}{'Y'}.$onclicksec.' />'.&mt('Yes').'</label></span></div>'.
'<div class="LC_floatleft" style="display:'.$crssecfieldsty.';" id="lti_crssecfield_'.$num.'">'.	'<div class="LC_floatleft" style="display:'.$crssecfieldsty.';" id="lti_crssecfield_'.$num.'">'.
'<span class="LC_nobreak">'.&mt('From').':<label>'.	'<span class="LC_nobreak">'.&mt('From').':<label>'.
'<input type="radio" name="lti_crssecsrc_'.$num.'" value="course_section_sourcedid"'.	'<input type="radio" name="lti_crssecsrc_'.$num.'" value="course_section_sourcedid"'.
Line 4795 sub lti_options {	Line 5125 sub lti_options {
&mt('Standard field').'</label>'.(' 'x2).	&mt('Standard field').'</label>'.(' 'x2).
'<label><input type="radio" name="lti_crssecsrc_'.$num.'" value="other"'.	'<label><input type="radio" name="lti_crssecsrc_'.$num.'" value="other"'.
$checked{'crssecsrc'}{'other'}.$onclicksecsrc.' />'.&mt('Other').	$checked{'crssecsrc'}{'other'}.$onclicksecsrc.' />'.&mt('Other').
'</label></div><div class="LC_floatleft" style="display:'.$secsrcfieldsty.';" id="lti_secsrcfield_'.$num.'">'.	'</label></span></div><div class="LC_floatleft" style="display:'.$secsrcfieldsty.';" id="lti_secsrcfield_'.$num.'">'.
'<input type="text" name="lti_customsection_'.$num.'" value="'.$crssecsrc.'" />'.	'<input type="text" name="lti_customsection_'.$num.'" value="'.$crssecsrc.'" />'.
'</div><div style="padding:0;clear:both;margin:0;border:0"></div>';	'</div><div style="padding:0;clear:both;margin:0;border:0"></div>';
foreach my $extra ('passback','roster') {	my ($pb1p1chk,$pb1p0chk,$onclickpb);
	foreach my $extra ('roster','passback') {
my $checkedon = '';	my $checkedon = '';
my $checkedoff = ' checked="checked"';	my $checkedoff = ' checked="checked"';
	if ($extra eq 'passback') {
	$pb1p1chk = ' checked="checked"';
	$pb1p0chk = '';
	$onclickpb = ' onclick="toggleLTI(this.form,'."'passback','$num'".');"';
	} else {
	$onclickpb = '';
	}
if (ref($current) eq 'HASH') {	if (ref($current) eq 'HASH') {
if (($current->{$extra})) {	if (($current->{$extra})) {
$checkedon = $checkedoff;	$checkedon = $checkedoff;
$checkedoff = '';	$checkedoff = '';
	if ($extra eq 'passback') {
	$passbacksty = 'inline-block';
	}
	if ($current->{'passbackformat'} eq '1.0') {
	$pb1p0chk = ' checked="checked"';
	$pb1p1chk = '';
	}
}	}
}	}
$output .= $lt{$extra}.' '.	$output .= $lt{$extra}.' '.
'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="0"'.$checkedoff.' />'.	'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="0"'.$checkedoff.$onclickpb.' />'.
&mt('No').'</label>'.(' 'x2).	&mt('No').'</label>'.(' 'x2).
'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="1"'.$checkedon.' />'.	'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="1"'.$checkedon.$onclickpb.' />'.
&mt('Yes').'</label><br />';	&mt('Yes').'</label><br />';
}	}
$output .= '</span></fieldset>';	$output .= '<div class="LC_floatleft" style="display:'.$passbacksty.';" id="lti_passback_'.$num.'">'.
	'<span class="LC_nobreak">'.&mt('Grade format').
	'<label><input type="radio" name="lti_passbackformat_'.$num.'" value="1.1"'.$pb1p1chk.' />'.
	&mt('Outcomes Service (1.1)').'</label>'.(' 'x2).
	'<label><input type="radio" name="lti_passbackformat_'.$num.'" value="1.0"'.$pb1p0chk.'/>'.
	&mt('Outcomes Extension (1.0)').'</label></span></div></fieldset>'.
	'<fieldset><legend>'.&mt('Course defaults (Course Coordinator can override)').'</legend>'.
	'<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{'topmenu'}.': '.
	'<label><input type="radio" name="lti_topmenu_'.$num.'" value="0"'.
	$checked{'topmenu'}{'N'}.$onclickmenu.' />'.&mt('No').'</label>'.(' 'x2).
	'<label><input type="radio" name="lti_topmenu_'.$num.'" value="1"'.
	$checked{'topmenu'}{'Y'}.$onclickmenu.' />'.&mt('Yes').'</label></span></div>'.
	'<div style="padding:0;clear:both;margin:0;border:0"></div>'.
	'<div class="LC_floatleft"><span class="LC_nobreak">'.$lt{'inlinemenu'}.': '.
	'<label><input type="radio" name="lti_inlinemenu_'.$num.'" value="0"'.
	$checked{'inlinemenu'}{'N'}.$onclickmenu.' />'.&mt('No').'</label>'.(' 'x2).
	'<label><input type="radio" name="lti_inlinemenu_'.$num.'" value="1"'.
	$checked{'inlinemenu'}{'Y'}.$onclickmenu.' />'.&mt('Yes').'</label></span></div>';
	$output .='<div style="padding:0;clear:both;margin:0;border:0"></div>'.
	'<div class="LC_floatleft" style="display:'.$menusty.';" id="lti_menufield_'.$num.'">'.
	'<span class="LC_nobreak">'.&mt('Menu items').': ';
	foreach my $type ('fullname','coursetitle','role','logout','grades') {
	$output .= '<label><input type="checkbox" name="lti_menuitem_'.$num.'" value="'.$type.'"'.
	$checked{'menuitem'}{$type}.' />'.$menutitles{$type}.'</label>'.
	(' 'x2);
	}
	$output .= '</span></div></fieldset>';
# '<fieldset><legend>'.&mt('Assigning author roles').'</legend>';	# '<fieldset><legend>'.&mt('Assigning author roles').'</legend>';
#	#
# $output .= '</fieldset>'.	# $output .= '</fieldset>'.
Line 4821 sub lti_options {	Line 5192 sub lti_options {
return $output;	return $output;
}	}

	sub ltimenu_titles {
	return &Apache::lonlocal::texthash(
	fullname => 'Full name',
	coursetitle => 'Course title',
	role => 'Role',
	logout => 'Logout',
	grades => 'Grades',
	);
	}

sub print_coursedefaults {	sub print_coursedefaults {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);	my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);
Line 5299 sub print_validation_rows {	Line 5680 sub print_validation_rows {
'</label></span> ';	'</label></span> ';
}	}
} elsif ($item eq 'markup') {	} elsif ($item eq 'markup') {
$datatable .= '<textarea name="'.$caller.'_validation_markup" cols="50" rows="5" wrap="soft">'.	$datatable .= '<textarea name="'.$caller.'_validation_markup" cols="50" rows="5">'.
$currvalidation{$item}.	$currvalidation{$item}.
'</textarea>';	'</textarea>';
}	}
Line 5321 sub print_validation_rows {	Line 5702 sub print_validation_rows {
my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',	my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',
'validationdc',%currhash);	'validationdc',%currhash);
my $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	my $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
$datatable .= '</td></tr><tr'.$css_class.'><td>';	$datatable .= '<tr'.$css_class.'><td>';
if ($numdc > 1) {	if ($numdc > 1) {
$datatable .= &mt('Course creation processed as: (choose Dom. Coord.)');	$datatable .= &mt('Course creation processed as: (choose Dom. Coord.)');
} else {	} else {
Line 6335 sub contact_titles {	Line 6716 sub contact_titles {
'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',
'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID',	'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID',
	'errorthreshold' => 'Error/warning threshold for status e-mail',
	'errorsysmail' => 'Error threshold for e-mail to core group',
	'errorweights' => 'Weights used to compute error count',
	'errorexcluded' => 'Servers with unsent updates excluded from count',
);	);
my %short_titles = &Apache::lonlocal::texthash (	my %short_titles = &Apache::lonlocal::texthash (
adminemail => 'Admin E-mail address',	adminemail => 'Admin E-mail address',
Line 6393 sub courserequest_titles {	Line 6778 sub courserequest_titles {
community => 'Communities',	community => 'Communities',
textbook => 'Textbook',	textbook => 'Textbook',
placement => 'Placement tests',	placement => 'Placement tests',
	lti => 'LTI Provider',
norequest => 'Not allowed',	norequest => 'Not allowed',
approval => 'Approval by Dom. Coord.',	approval => 'Approval by DC',
validate => 'With validation',	validate => 'With validation',
autolimit => 'Numerical limit',	autolimit => 'Numerical limit',
unlimited => '(blank for unlimited)',	unlimited => '(blank for unlimited)',
Line 6506 sub print_usercreation {	Line 6892 sub print_usercreation {
}	}
} else {	} else {
my @contexts = ('author','course','domain');	my @contexts = ('author','course','domain');
my @authtypes = ('int','krb4','krb5','loc');	my @authtypes = ('int','krb4','krb5','loc','lti');
my %checked;	my %checked;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'authtypes'}) eq 'HASH') {	if (ref($settings->{'authtypes'}) eq 'HASH') {
Line 6623 sub print_selfcreation {	Line 7009 sub print_selfcreation {
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td class="LC_left_item">'.&mt('Mapping of Shibboleth environment variable names to user data fields (SSO auth)').'</td>'.	'<td class="LC_left_item">'.&mt('Mapping of Shibboleth environment variable names to user data fields (SSO auth)').'</td>'.
'<td class="LC_left_item">'."\n".	'<td class="LC_left_item">'."\n".
'<table><tr><td>'."\n";	'<table>'."\n";
for (my $i=0; $i<@fields; $i++) {	for (my $i=0; $i<@fields; $i++) {
$rem = $i%($numperrow);	$rem = $i%($numperrow);
if ($rem == 0) {	if ($rem == 0) {
Line 7246 sub authtype_names {	Line 7632 sub authtype_names {
krb4 => 'Kerberos 4',	krb4 => 'Kerberos 4',
krb5 => 'Kerberos 5',	krb5 => 'Kerberos 5',
loc => 'Local',	loc => 'Local',
	lti => 'LTI',
);	);
return %lt;	return %lt;
}	}
Line 7314 sub print_defaults {	Line 7701 sub print_defaults {
'<td><span class="LC_nobreak">'.$titles->{$item}.	'<td><span class="LC_nobreak">'.$titles->{$item}.
'</span></td><td class="LC_right_item" colspan="3">';	'</span></td><td class="LC_right_item" colspan="3">';
if ($item eq 'auth_def') {	if ($item eq 'auth_def') {
my @authtypes = ('internal','krb4','krb5','localauth');	my @authtypes = ('internal','krb4','krb5','localauth','lti');
my %shortauth = (	my %shortauth = (
internal => 'int',	internal => 'int',
krb4 => 'krb4',	krb4 => 'krb4',
krb5 => 'krb5',	krb5 => 'krb5',
localauth => 'loc'	localauth => 'loc',
	lti => 'lti',
);	);
my %authnames = &authtype_names();	my %authnames = &authtype_names();
foreach my $auth (@authtypes) {	foreach my $auth (@authtypes) {
Line 7407 sub print_defaults {	Line 7795 sub print_defaults {
1 => 'Yes, allow login then update passwd file using default cost (if higher)',	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',	2 => 'Yes, disallow login if stored cost is less than domain default',
);	);
$datatable .= '<table wisth="100%">';	$datatable .= '<table width="100%">';
foreach my $option (@options) {	foreach my $option (@options) {
my $checked = ' ';	my $checked = ' ';
my $onclick;	my $onclick;
Line 7737 sub print_coursecategories {	Line 8125 sub print_coursecategories {
'<input type="radio" name="coursecat_'.$item.'" value="'.$type.'"'.$ischecked.	'<input type="radio" name="coursecat_'.$item.'" value="'.$type.'"'.$ischecked.
' />'.$lt{$type}.'</label> ';	' />'.$lt{$type}.'</label> ';
}	}
$datatable .= '</td></tr>';	$datatable .= '</span></td></tr>';
$itemcount ++;	$itemcount ++;
}	}
$$rowtotal += $itemcount;	$$rowtotal += $itemcount;
Line 7823 sub print_coursecategories {	Line 8211 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>'.	'</tr><tr class="LC_odd_row">'.
'<td>'.$title{'togglecatsplace'}.'</td>'.	'<td>'.$title{'togglecatsplace'}.'</td>'.
'<td class="LC_right_item"><span class="LC_nobreak"><label>'.	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
'<input type="radio" name="togglecatsplace"'.	'<input type="radio" name="togglecatsplace"'.
Line 7980 sub print_coursecategories {	Line 8368 sub print_coursecategories {
$datatable .= &initialize_categories($itemcount);	$datatable .= &initialize_categories($itemcount);
}	}
} else {	} else {
$datatable .= '<td class="LC_right_item">'.$hdritem->{'header'}->[1]->{'col2'}.'</td>'	$datatable .= '<tr><td class="LC_right_item">'.$hdritem->{'header'}->[1]->{'col2'}.'</td></tr>'
.&initialize_categories($itemcount);	.&initialize_categories($itemcount);
}	}
$$rowtotal += $itemcount;	$$rowtotal += $itemcount;
Line 8028 sub print_serverstatuses {	Line 8416 sub print_serverstatuses {
'<span class="LC_nobreak">'.	'<span class="LC_nobreak">'.
'<input type="text" name="'.$type.'_machines" '.	'<input type="text" name="'.$type.'_machines" '.
'value="'.$machineaccess{$type}.'" size="10" />'.	'value="'.$machineaccess{$type}.'" size="10" />'.
'</td></tr>'."\n";	'</span></td></tr>'."\n";
}	}
$$rowtotal += $rownum;	$$rowtotal += $rownum;
return $datatable;	return $datatable;
Line 8256 sub initialize_categories {	Line 8644 sub initialize_categories {
communities => 'Communities',	communities => 'Communities',
placement => 'Placement Tests',	placement => 'Placement Tests',
);	);
my $select0 = ' selected="selected"';	my %selnum = (
my $select1 = '';	instcode => '0',
	communities => '1',
	placement => '2',
	);
	my %selected;
foreach my $default ('instcode','communities','placement') {	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') \|\| ($default eq 'placement')) {	map { $selected{$selnum{$_}} = '' } keys(%selnum);
$select1 = $select0;	$selected{$selnum{$default}} = ' selected="selected"';
$select0 = '';
}
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'	$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'
.'<select name="'.$default.'_pos">'	.'<select name="'.$default.'_pos"'.$chgstr.'>'
.'<option value="0"'.$select0.'>1</option>'	.'<option value="0"'.$selected{'0'}.'>1</option>'
.'<option value="1"'.$select1.'>2</option>'	.'<option value="1"'.$selected{'1'}.'>2</option>'
.'<option value="2">3</option></select> '	.'<option value="2"'.$selected{'2'}.'>3</option>'
	.'<option value="3">4</option></select> '
.$default_names{$default}	.$default_names{$default}
.'</span></td><td><span class="LC_nobreak">'	.'</span></td><td><span class="LC_nobreak">'
.'<label><input type="radio" name="'.$default.'" value="1" checked="checked" />'	.'<label><input type="radio" name="'.$default.'" value="1" checked="checked" />'
Line 8284 sub initialize_categories {	Line 8675 sub initialize_categories {
.'<select name="addcategory_pos"'.$chgstr.'>'	.'<select name="addcategory_pos"'.$chgstr.'>'
.'<option value="0">1</option>'	.'<option value="0">1</option>'
.'<option value="1">2</option>'	.'<option value="1">2</option>'
.'<option value="2" selected="selected">3</option></select> '	.'<option value="2">3</option>'
.&mt('Add category').'</td><td>'.&mt('Name:')	.'<option value="3" selected="selected">4</option></select> '
.' <input type="text" size="20" name="addcategory_name" value="" /></td></tr>';	.&mt('Add category').'</span></td><td><span class="LC_nobreak">'.&mt('Name:')
	.' <input type="text" size="20" name="addcategory_name" value="" /></span>'
	.'</td></tr>';
return $datatable;	return $datatable;
}	}

Line 8341 sub build_category_rows {	Line 8734 sub build_category_rows {
pop(@{$path});	pop(@{$path});
}	}
} else {	} else {
$text .= &mt('Add subcategory:').' </span><input type="textbox" size="20" name="addcategory_name_';	$text .= &mt('Add subcategory:').' </span><input type="text" size="20" name="addcategory_name_';
if ($j == $numchildren) {	if ($j == $numchildren) {
$text .= $name;	$text .= $name;
} else {	} else {
Line 8364 sub build_category_rows {	Line 8757 sub build_category_rows {
my $colspan;	my $colspan;
if ($parent ne 'instcode') {	if ($parent ne 'instcode') {
$colspan = $maxdepth - $depth - 1;	$colspan = $maxdepth - $depth - 1;
$text .= '<td colspan="'.$colspan.'">'.&mt('Add subcategory:').'<input type="textbox" size="20" name="subcat_'.$name.'" value="" /></td>';	$text .= '<td colspan="'.$colspan.'">'.&mt('Add subcategory:').'<input type="text" size="20" name="subcat_'.$name.'" value="" /></td>';
}	}
}	}
}	}
Line 8395 sub modifiable_userdata_row {	Line 8788 sub modifiable_userdata_row {
} else {	} else {
$rolename = $role;	$rolename = $role;
}	}
	} elsif ($context eq 'lti') {
	$rolename = &mt('Institutional data used (if available)');
} else {	} else {
if ($role eq 'cr') {	if ($role eq 'cr') {
$rolename = &mt('Custom role');	$rolename = &mt('Custom role');
Line 8437 sub modifiable_userdata_row {	Line 8832 sub modifiable_userdata_row {
'<td class="LC_left_item" colspan="2"><table>';	'<td class="LC_left_item" colspan="2"><table>';
my $rem;	my $rem;
my %checks;	my %checks;
	my %current;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{$context}) eq 'HASH') {	my $hashref;
	if ($context eq 'lti') {
	if (ref($settings) eq 'HASH') {
	$hashref = $settings->{'instdata'};
	}
	} elsif (ref($settings->{$context}) eq 'HASH') {
if (ref($settings->{$context}->{$role}) eq 'HASH') {	if (ref($settings->{$context}->{$role}) eq 'HASH') {
my $hashref = $settings->{$context}->{$role};	$hashref = $settings->{'lti_instdata'};
if ($role eq 'emailusername') {	}
if ($statustype) {	if ($role eq 'emailusername') {
if (ref($settings->{$context}->{$role}->{$statustype}) eq 'HASH') {	if ($statustype) {
$hashref = $settings->{$context}->{$role}->{$statustype};	if (ref($settings->{$context}->{$role}->{$statustype}) eq 'HASH') {
if (ref($hashref) eq 'HASH') {	$hashref = $settings->{$context}->{$role}->{$statustype};
foreach my $field (@fields) {
if ($hashref->{$field}) {
$checks{$field} = $hashref->{$field};
}
}
}
}
}	}
} else {	}
if (ref($hashref) eq 'HASH') {	}
foreach my $field (@fields) {	}
if ($hashref->{$field}) {	if (ref($hashref) eq 'HASH') {
$checks{$field} = ' checked="checked" ';	foreach my $field (@fields) {
}	if ($hashref->{$field}) {
}	if ($role eq 'emailusername') {
	$checks{$field} = $hashref->{$field};
	} else {
	$checks{$field} = ' checked="checked" ';
}	}
}	}
}	}
Line 8480 sub modifiable_userdata_row {	Line 8877 sub modifiable_userdata_row {
unless ($role eq 'emailusername') {	unless ($role eq 'emailusername') {
if (exists($checks{$fields[$i]})) {	if (exists($checks{$fields[$i]})) {
$check = $checks{$fields[$i]}	$check = $checks{$fields[$i]}
} else {	} elsif ($context ne 'lti') {
if ($role eq 'st') {	if ($role eq 'st') {
if (ref($settings) ne 'HASH') {	if (ref($settings) ne 'HASH') {
$check = ' checked="checked" ';	$check = ' checked="checked" ';
Line 8490 sub modifiable_userdata_row {	Line 8887 sub modifiable_userdata_row {
}	}
$output .= '<td class="LC_left_item">'.	$output .= '<td class="LC_left_item">'.
'<span class="LC_nobreak">';	'<span class="LC_nobreak">';
	my $prefix = 'canmodify';
if ($role eq 'emailusername') {	if ($role eq 'emailusername') {
unless ($checks{$fields[$i]} =~ /^(required\|optional)$/) {	unless ($checks{$fields[$i]} =~ /^(required\|optional)$/) {
$checks{$fields[$i]} = 'omit';	$checks{$fields[$i]} = 'omit';
Line 8500 sub modifiable_userdata_row {	Line 8898 sub modifiable_userdata_row {
$checked='checked="checked" ';	$checked='checked="checked" ';
}	}
$output .= '<label>'.	$output .= '<label>'.
'<input type="radio" name="canmodify_'.$item.'_'.$fields[$i].'" value="'.$option.'" '.$checked.'/>'.	'<input type="radio" name="'.$prefix.'_'.$item.'_'.$fields[$i].'" value="'.$option.'" '.$checked.'/>'.
&mt($option).'</label>'.(' ' x2);	&mt($option).'</label>'.(' ' x2);
}	}
$output .= '<i>'.$fieldtitles{$fields[$i]}.'</i>';	$output .= '<i>'.$fieldtitles{$fields[$i]}.'</i>';
} else {	} else {
	if ($context eq 'lti') {
	$prefix = 'lti';
	}
$output .= '<label>'.	$output .= '<label>'.
'<input type="checkbox" name="canmodify_'.$role.'" '.	'<input type="checkbox" name="'.$prefix.'_'.$role.'" '.
'value="'.$fields[$i].'"'.$check.'/>'.$fieldtitles{$fields[$i]}.	'value="'.$fields[$i].'"'.$check.'/>'.$fieldtitles{$fields[$i]}.
'</label>';	'</label>';
}	}
Line 8608 sub insttypes_row {	Line 9009 sub insttypes_row {
}	}
$output .= ' ';	$output .= ' ';
} else {	} else {
if (($rem == 0) && (@{$types} > 0)) {	if ($rem == 0) {
$output .= '<tr>';	$output .= '<tr>';
}	}
if ($colsleft > 1) {	if ($colsleft > 1) {
Line 9916 sub modify_quotas {	Line 10317 sub modify_quotas {
$context = $action;	$context = $action;
}	}
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
@usertools = ('official','unofficial','community','textbook','placement');	@usertools = ('official','unofficial','community','textbook','placement','lti');
@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 9965 sub modify_quotas {	Line 10366 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','placement');	my @crstypes = ('official','unofficial','community','textbook','placement','lti');
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 10750 sub modify_ltitools {	Line 11151 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 10880 sub modify_ltitools {	Line 11288 sub modify_ltitools {
if ($env{'form.ltitools_'.$extra.'_'.$i}) {	if ($env{'form.ltitools_'.$extra.'_'.$i}) {
$confhash{$itemid}{$extra} = 1;	$confhash{$itemid}{$extra} = 1;
if ($env{'form.ltitools_'.$extra.'valid_'.$i} ne '') {	if ($env{'form.ltitools_'.$extra.'valid_'.$i} ne '') {
my $lifetime = $env{'form.ltitools_'.$extra.'valid_add'};	my $lifetime = $env{'form.ltitools_'.$extra.'valid_'.$i};
$lifetime =~ s/^\s+\|\s+$//g;	$lifetime =~ s/^\s+\|\s+$//g;
if ($lifetime =~ /^\d+\.?\d*$/) {	if ($lifetime =~ /^\d+\.?\d*$/) {
$confhash{$itemid}{$extra.'valid'} = $lifetime;	$confhash{$itemid}{$extra.'valid'} = $lifetime;
Line 10939 sub modify_ltitools {	Line 11347 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 11149 sub modify_ltitools {	Line 11567 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 11285 sub modify_lti {	Line 11710 sub modify_lti {
textbook => 'Textbook',	textbook => 'Textbook',
placement => 'Placement Test',	placement => 'Placement Test',
);	);
	my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
my %lt = &lti_names();	my %lt = &lti_names();
map { $posslti{$_} = 1; } @ltiroles;	map { $posslti{$_} = 1; } @ltiroles;
map { $posslticrs{$_} = 1; } @lticourseroles;	map { $posslticrs{$_} = 1; } @lticourseroles;
map { $posscrstype{$_} = 1; } @coursetypes;	map { $posscrstype{$_} = 1; } @coursetypes;

	my %menutitles = &ltimenu_titles();

my (@items,%deletions,%itemids);	my (@items,%deletions,%itemids);
if ($env{'form.lti_add'}) {	if ($env{'form.lti_add'}) {
my $consumer = $env{'form.lti_consumer_add'};	my $consumer = $env{'form.lti_consumer_add'};
Line 11377 sub modify_lti {	Line 11805 sub modify_lti {
}	}
}	}
$confhash{$itemid}{'makeuser'} = \@makeuser;	$confhash{$itemid}{'makeuser'} = \@makeuser;
	if (@makeuser) {
	my $lcauth = $env{'form.lti_lcauth_'.$idx};
	if ($lcauth =~ /^(internal\|krb4\|krb5\|localauth)$/) {
	$confhash{$itemid}{'lcauth'} = $lcauth;
	if ($lcauth ne 'internal') {
	my $lcauthparm = $env{'form.lti_lcauthparm_'.$idx};
	$lcauthparm =~ s/^(\s+\|\s+)$//g;
	$lcauthparm =~ s/`//g;
	if ($lcauthparm ne '') {
	$confhash{$itemid}{'lcauthparm'} = $lcauthparm;
	}
	}
	} else {
	$confhash{$itemid}{'lcauth'} = 'lti';
	}
	}
	my @possinstdata = &Apache::loncommon::get_env_multiple('form.lti_instdata_'.$idx);
	if (@possinstdata) {
	foreach my $field (@possinstdata) {
	if (exists($fieldtitles{$field})) {
	push(@{$confhash{$itemid}{'instdata'}});
	}
	}
	}
if (($env{'form.lti_mapcrs_'.$idx} eq 'course_offering_sourcedid') \|\|	if (($env{'form.lti_mapcrs_'.$idx} eq 'course_offering_sourcedid') \|\|
($env{'form.lti_mapcrs_'.$idx} eq 'context_id')) {	($env{'form.lti_mapcrs_'.$idx} eq 'context_id')) {
$confhash{$itemid}{'mapcrs'} = $env{'form.lti_mapcrs_'.$idx};	$confhash{$itemid}{'mapcrs'} = $env{'form.lti_mapcrs_'.$idx};
Line 11417 sub modify_lti {	Line 11869 sub modify_lti {
}	}
}	}
}	}
foreach my $field ('passback','roster') {	foreach my $field ('passback','roster','topmenu','inlinemenu') {
if ($env{'form.lti_'.$field.'_'.$idx}) {	if ($env{'form.lti_'.$field.'_'.$idx}) {
$confhash{$itemid}{$field} = 1;	$confhash{$itemid}{$field} = 1;
}	}
}	}
	if ($env{'form.lti_passback_'.$idx}) {
	if ($env{'form.lti_passbackformat_'.$idx} eq '1.0') {
	$confhash{$itemid}{'passbackformat'} = '1.0';
	} else {
	$confhash{$itemid}{'passbackformat'} = '1.1';
	}
	}
	if ($env{'form.lti_topmenu_'.$idx} \|\| $env{'form.lti_inlinemenu_'.$idx}) {
	$confhash{$itemid}{lcmenu} = [];
	my @possmenu = &Apache::loncommon::get_env_multiple('form.lti_menuitem_'.$idx);
	foreach my $field (@possmenu) {
	if (exists($menutitles{$field})) {
	if ($field eq 'grades') {
	next unless ($env{'form.lti_inlinemenu_'.$idx});
	}
	push(@{$confhash{$itemid}{lcmenu}},$field);
	}
	}
	}
unless (($idx eq 'add') \|\| ($changes{$itemid})) {	unless (($idx eq 'add') \|\| ($changes{$itemid})) {
foreach my $field ('mapuser','mapcrs','section','passback','roster') {	foreach my $field ('mapuser','mapcrs','makecrs','section','passback','roster','lcauth','lcauthparm','topmenu','inlinemenu') {
if ($domconfig{$action}{$itemid}{$field} ne $confhash{$itemid}{$field}) {	if ($domconfig{$action}{$itemid}{$field} ne $confhash{$itemid}{$field}) {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
}	}
}	}
foreach my $field ('makeuser','mapcrstype','selfenroll') {	unless ($changes{$itemid}) {
	if ($domconfig{$action}{$itemid}{'passback'} eq $confhash{$itemid}{'passback'}) {
	if ($domconfig{$action}{$itemid}{'passbackformat'} ne $confhash{$itemid}{'passbackformat'}) {
	$changes{$itemid} = 1;
	}
	}
	}
	foreach my $field ('makeuser','mapcrstype','selfenroll','instdata','lcmenu') {
unless ($changes{$itemid}) {	unless ($changes{$itemid}) {
if (ref($domconfig{$action}{$itemid}{$field}) eq 'ARRAY') {	if (ref($domconfig{$action}{$itemid}{$field}) eq 'ARRAY') {
if (ref($confhash{$itemid}{$field}) eq 'ARRAY') {	if (ref($confhash{$itemid}{$field}) eq 'ARRAY') {
Line 11574 sub modify_lti {	Line 12052 sub modify_lti {
if (ref($confhash{$itemid}{'makeuser'}) eq 'ARRAY') {	if (ref($confhash{$itemid}{'makeuser'}) eq 'ARRAY') {
if (@{$confhash{$itemid}{'makeuser'}} > 0) {	if (@{$confhash{$itemid}{'makeuser'}} > 0) {
$resulttext .= '<li>'.&mt('Following roles may create user accounts: [_1]',	$resulttext .= '<li>'.&mt('Following roles may create user accounts: [_1]',
join(', ',@{$confhash{$itemid}{'makeuser'}})).'</li>';	join(', ',@{$confhash{$itemid}{'makeuser'}})).'<br />';
	if ($confhash{$itemid}{'lcauth'} eq 'lti') {
	$resulttext .= &mt('New users will only be able to authenticate via LTI').'</li>';
	} else {
	$resulttext .= &mt('New users will be assigned LON-CAPA authentication: [_1]',
	$confhash{$itemid}{'lcauth'});
	if ($confhash{$itemid}{'lcauth'} eq 'internal') {
	$resulttext .= '; '.&mt('a randomly generated password will be created');
	} elsif ($confhash{$itemid}{'lcauth'} eq 'localauth') {
	if ($confhash{$itemid}{'lcauthparm'} ne '') {
	$resulttext .= ' '.&mt('with argument: [_1]',$confhash{$itemid}{'lcauthparm'});
	}
	} else {
	$resulttext .= '; '.&mt('Kerberos domain: [_1]',$confhash{$itemid}{'lcauthparm'});
	}
	}
	$resulttext .= '</li>';
} else {	} else {
$resulttext .= '<li>'.&mt('User account creation not permitted.').'</li>';	$resulttext .= '<li>'.&mt('User account creation not permitted.').'</li>';
}	}
}	}
	if (ref($confhash{$itemid}{'instdata'}) eq 'ARRAY') {
	if (@{$confhash{$itemid}{'instdata'}} > 0) {
	$resulttext .= '<li>'.&mt('Institutional data will be used when creating a new user for: [_1]',
	join(', ',map { $fieldtitles{$_}; } @{$confhash{$itemid}{'instdata'}})).'</li>';
	} else {
	$resulttext .= '<li>'.&mt('No institutional data used when creating a new user.').'</li>';
	}
	}
if ($confhash{$itemid}{'mapcrs'}) {	if ($confhash{$itemid}{'mapcrs'}) {
$resulttext .= '<li>'.&mt('Unique course identifier').': '.$confhash{$itemid}{'mapcrs'}.'</li>';	$resulttext .= '<li>'.&mt('Unique course identifier').': '.$confhash{$itemid}{'mapcrs'}.'</li>';
}	}
Line 11616 sub modify_lti {	Line 12118 sub modify_lti {
} else {	} else {
$resulttext .= '<li>'.&mt('No section assignment').'</li>';	$resulttext .= '<li>'.&mt('No section assignment').'</li>';
}	}
foreach my $item ('passback','roster') {	foreach my $item ('passback','roster','topmenu','inlinemenu') {
$resulttext .= '<li>'.$lt{$item}.' ';	$resulttext .= '<li>'.$lt{$item}.': ';
if ($confhash{$itemid}{$item}) {	if ($confhash{$itemid}{$item}) {
$resulttext .= &mt('Yes');	$resulttext .= &mt('Yes');
	if ($item eq 'passback') {
	if ($confhash{$itemid}{'passbackformat'} eq '1.0') {
	$resulttext .= ' ('.&mt('Outcomes Extension (1.0)').')';
	} elsif ($confhash{$itemid}{'passbackformat'} eq '1.1') {
	$resulttext .= ' ('.&mt('Outcomes Service (1.1)').')';
	}
	}
} else {	} else {
$resulttext .= &mt('No');	$resulttext .= &mt('No');
}	}
$resulttext .= '</li>';	$resulttext .= '</li>';
}	}
	if (ref($confhash{$itemid}{'lcmenu'}) eq 'ARRAY') {
	if (@{$confhash{$itemid}{'lcmenu'}} > 0) {
	$resulttext .= '<li>'.&mt('Menu items:').' '.
	join(', ', map { $menutitles{$_}; } (@{$confhash{$itemid}{'lcmenu'}})).'</li>';
	} else {
	$resulttext .= '<li>'.&mt('No menu items displayed in header or online menu').'</li>';
	}
	}
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
}	}
}	}
Line 12271 sub modify_contacts {	Line 12788 sub modify_contacts {
my @contacts = ('supportemail','adminemail');	my @contacts = ('supportemail','adminemail');
my @mailings = ('errormail','packagesmail','helpdeskmail','otherdomsmail',	my @mailings = ('errormail','packagesmail','helpdeskmail','otherdomsmail',
'lonstatusmail','requestsmail','updatesmail','idconflictsmail');	'lonstatusmail','requestsmail','updatesmail','idconflictsmail');
my @toggles = ('reporterrors','reportupdates');	my @toggles = ('reporterrors','reportupdates','reportstatus');
	my @lonstatus = ('threshold','sysmail','weights','excluded');
my ($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields();	my ($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields();
foreach my $type (@mailings) {	foreach my $type (@mailings) {
@{$newsetting{$type}} =	@{$newsetting{$type}} =
Line 12304 sub modify_contacts {	Line 12822 sub modify_contacts {
$contacts_hash{'contacts'}{$item} = $env{'form.'.$item};	$contacts_hash{'contacts'}{$item} = $env{'form.'.$item};
}	}
}	}
	my ($lonstatus_defs,$lonstatus_names) = &Apache::loncommon::lon_status_items();
	foreach my $item (@lonstatus) {
	if ($item eq 'excluded') {
	my (%serverhomes,@excluded);
	map { $serverhomes{$_} = 1; } values(%Apache::lonnet::serverhomeIDs);
	my @possexcluded = &Apache::loncommon::get_env_multiple('form.errorexcluded');
	if (@possexcluded) {
	foreach my $id (sort(@possexcluded)) {
	if ($serverhomes{$id}) {
	push(@excluded,$id);
	}
	}
	}
	if (@excluded) {
	$contacts_hash{'contacts'}{'lonstatus'}{$item} = \@excluded;
	}
	} elsif ($item eq 'weights') {
	foreach my $type ('E','W','N') {
	$env{'form.error'.$item.'_'.$type} =~ s/^\s+\|\s+$//g;
	if ($env{'form.error'.$item.'_'.$type} =~ /^\d+$/) {
	unless ($env{'form.error'.$item.'_'.$type} == $lonstatus_defs->{$type}) {
	$contacts_hash{'contacts'}{'lonstatus'}{$item}{$type} =
	$env{'form.error'.$item.'_'.$type};
	}
	}
	}
	} elsif (($item eq 'threshold') \|\| ($item eq 'sysmail')) {
	$env{'form.error'.$item} =~ s/^\s+\|\s+$//g;
	if ($env{'form.error'.$item} =~ /^\d+$/) {
	unless ($env{'form.error'.$item} == $lonstatus_defs->{$item}) {
	$contacts_hash{'contacts'}{'lonstatus'}{$item} = $env{'form.error'.$item};
	}
	}
	}
	}
if ((ref($fields) eq 'ARRAY') && (ref($possoptions) eq 'HASH')) {	if ((ref($fields) eq 'ARRAY') && (ref($possoptions) eq 'HASH')) {
foreach my $field (@{$fields}) {	foreach my $field (@{$fields}) {
if (ref($possoptions->{$field}) eq 'ARRAY') {	if (ref($possoptions->{$field}) eq 'ARRAY') {
Line 12442 sub modify_contacts {	Line 12995 sub modify_contacts {
}	}
}	}
}	}
	if (ref($currsetting{'lonstatus'}) eq 'HASH') {
	foreach my $key ('excluded','weights','threshold','sysmail') {
	if ($key eq 'excluded') {
	if ((ref($contacts_hash{contacts}{lonstatus}) eq 'HASH') &&
	(ref($contacts_hash{contacts}{lonstatus}{excluded}) eq 'ARRAY')) {
	if ((ref($currsetting{'lonstatus'}{$key}) eq 'ARRAY') &&
	(@{$currsetting{'lonstatus'}{$key}})) {
	my @diffs =
	&Apache::loncommon::compare_arrays($contacts_hash{contacts}{lonstatus}{excluded},
	$currsetting{'lonstatus'}{$key});
	if (@diffs) {
	push(@{$changes{'lonstatus'}},$key);
	}
	} elsif (@{$contacts_hash{contacts}{lonstatus}{excluded}}) {
	push(@{$changes{'lonstatus'}},$key);
	}
	} elsif ((ref($currsetting{'lonstatus'}{$key}) eq 'ARRAY') &&
	(@{$currsetting{'lonstatus'}{$key}})) {
	push(@{$changes{'lonstatus'}},$key);
	}
	} elsif ($key eq 'weights') {
	if ((ref($contacts_hash{contacts}{lonstatus}) eq 'HASH') &&
	(ref($contacts_hash{contacts}{lonstatus}{$key}) eq 'HASH')) {
	if (ref($currsetting{'lonstatus'}{$key}) eq 'HASH') {
	foreach my $type ('E','W','N','U') {
	unless ($contacts_hash{contacts}{lonstatus}{$key}{$type} eq
	$currsetting{'lonstatus'}{$key}{$type}) {
	push(@{$changes{'lonstatus'}},$key);
	last;
	}
	}
	} else {
	foreach my $type ('E','W','N','U') {
	if ($contacts_hash{contacts}{lonstatus}{$key}{$type} ne '') {
	push(@{$changes{'lonstatus'}},$key);
	last;
	}
	}
	}
	} elsif (ref($currsetting{'lonstatus'}{$key}) eq 'HASH') {
	foreach my $type ('E','W','N','U') {
	if ($currsetting{'lonstatus'}{$key}{$type} ne '') {
	push(@{$changes{'lonstatus'}},$key);
	last;
	}
	}
	}
	} elsif (($key eq 'threshold') \|\| ($key eq 'sysmail')) {
	if (ref($contacts_hash{contacts}{lonstatus}) eq 'HASH') {
	if ($currsetting{'lonstatus'}{$key} =~ /^\d+$/) {
	if ($currsetting{'lonstatus'}{$key} != $contacts_hash{contacts}{lonstatus}{$key}) {
	push(@{$changes{'lonstatus'}},$key);
	}
	} elsif ($contacts_hash{contacts}{lonstatus}{$key} =~ /^\d+$/) {
	push(@{$changes{'lonstatus'}},$key);
	}
	} elsif ($currsetting{'lonstatus'}{$key} =~ /^\d+$/) {
	push(@{$changes{'lonstatus'}},$key);
	}
	}
	}
	} else {
	if (ref($contacts_hash{contacts}{lonstatus}) eq 'HASH') {
	foreach my $key ('excluded','weights','threshold','sysmail') {
	if (exists($contacts_hash{contacts}{lonstatus}{$key})) {
	push(@{$changes{'lonstatus'}},$key);
	}
	}
	}
	}
} else {	} else {
my %default;	my %default;
$default{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'};	$default{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'};
Line 12486 sub modify_contacts {	Line 13109 sub modify_contacts {
}	}
}	}
}	}
	if (ref($contacts_hash{contacts}{lonstatus}) eq 'HASH') {
	foreach my $key ('excluded','weights','threshold','sysmail') {
	if (exists($contacts_hash{contacts}{lonstatus}{$key})) {
	push(@{$changes{'lonstatus'}},$key);
	}
	}
	}
}	}
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 12611 sub modify_contacts {	Line 13241 sub modify_contacts {
}	}
}	}
my @offon = ('off','on');	my @offon = ('off','on');
	my $corelink = &core_link_msu();
if ($changes{'reporterrors'}) {	if ($changes{'reporterrors'}) {
$resulttext .= '<li>'.	$resulttext .= '<li>'.
&mt('E-mail error reports to [_1] set to "'.	&mt('E-mail error reports to [_1] set to "'.
$offon[$env{'form.reporterrors'}].'".',	$offon[$env{'form.reporterrors'}].'".',
&Apache::loncommon::modal_link('http://loncapa.org/core.html',	$corelink).
&mt('LON-CAPA core group - MSU'),600,500)).
'</li>';	'</li>';
}	}
if ($changes{'reportupdates'}) {	if ($changes{'reportupdates'}) {
$resulttext .= '<li>'.	$resulttext .= '<li>'.
&mt('E-mail record of completed LON-CAPA updates to [_1] set to "'.	&mt('E-mail record of completed LON-CAPA updates to [_1] set to "'.
$offon[$env{'form.reportupdates'}].'".',	$offon[$env{'form.reportupdates'}].'".',
&Apache::loncommon::modal_link('http://loncapa.org/core.html',	$corelink).
&mt('LON-CAPA core group - MSU'),600,500)).	'</li>';
	}
	if ($changes{'reportstatus'}) {
	$resulttext .= '<li>'.
	&mt('E-mail status if errors above threshold to [_1] set to "'.
	$offon[$env{'form.reportstatus'}].'".',
	$corelink).
'</li>';	'</li>';
}	}
	if (ref($changes{'lonstatus'}) eq 'ARRAY') {
	$resulttext .= '<li>'.
	&mt('Nightly status check e-mail settings').':<ul>';
	my (%defval,%use_def,%shown);
	$defval{'threshold'} = $lonstatus_defs->{'threshold'};
	$defval{'sysmail'} = $lonstatus_defs->{'sysmail'};
	$defval{'weights'} =
	join(', ',map { $lonstatus_names->{$_}.'='.$lonstatus_defs->{$_}; } ('E','W','N','U'));
	$defval{'excluded'} = &mt('None');
	if (ref($contacts_hash{'contacts'}{'lonstatus'}) eq 'HASH') {
	foreach my $item ('threshold','sysmail','weights','excluded') {
	if (exists($contacts_hash{'contacts'}{'lonstatus'}{$item})) {
	if (($item eq 'threshold') \|\| ($item eq 'sysmail')) {
	$shown{$item} = $contacts_hash{'contacts'}{'lonstatus'}{$item};
	} elsif ($item eq 'weights') {
	if (ref($contacts_hash{'contacts'}{'lonstatus'}{$item}) eq 'HASH') {
	foreach my $type ('E','W','N','U') {
	$shown{$item} .= $lonstatus_names->{$type}.'=';
	if (exists($contacts_hash{'contacts'}{'lonstatus'}{$item}{$type})) {
	$shown{$item} .= $contacts_hash{'contacts'}{'lonstatus'}{$item}{$type};
	} else {
	$shown{$item} .= $lonstatus_defs->{$type};
	}
	$shown{$item} .= ', ';
	}
	$shown{$item} =~ s/, $//;
	} else {
	$shown{$item} = $defval{$item};
	}
	} elsif ($item eq 'excluded') {
	if (ref($contacts_hash{'contacts'}{'lonstatus'}{$item}) eq 'ARRAY') {
	$shown{$item} = join(', ',@{$contacts_hash{'contacts'}{'lonstatus'}{$item}});
	} else {
	$shown{$item} = $defval{$item};
	}
	}
	} else {
	$shown{$item} = $defval{$item};
	}
	}
	} else {
	foreach my $item ('threshold','weights','excluded','sysmail') {
	$shown{$item} = $defval{$item};
	}
	}
	foreach my $item ('threshold','weights','excluded','sysmail') {
	$resulttext .= '<li>'.&mt($titles->{'error'.$item}.' -- [_1]',
	$shown{$item}).'</li>';
	}
	$resulttext .= '</ul></li>';
	}
if ((ref($changes{'helpform'}) eq 'ARRAY') && (ref($fields) eq 'ARRAY')) {	if ((ref($changes{'helpform'}) eq 'ARRAY') && (ref($fields) eq 'ARRAY')) {
my (@optional,@required,@unused,$maxsizechg);	my (@optional,@required,@unused,$maxsizechg);
foreach my $field (@{$changes{'helpform'}}) {	foreach my $field (@{$changes{'helpform'}}) {
Line 12762 sub modify_usercreation {	Line 13449 sub modify_usercreation {
}	}

my @authen_contexts = ('author','course','domain');	my @authen_contexts = ('author','course','domain');
my @authtypes = ('int','krb4','krb5','loc');	my @authtypes = ('int','krb4','krb5','loc','lti');
my %authhash;	my %authhash;
foreach my $item (@authen_contexts) {	foreach my $item (@authen_contexts) {
my @authallowed = &Apache::loncommon::get_env_multiple('form.'.$item.'_auth');	my @authallowed = &Apache::loncommon::get_env_multiple('form.'.$item.'_auth');
Line 13944 sub modify_defaults {	Line 14631 sub modify_defaults {
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','intauth_cost','intauth_check','intauth_switch');	'portal_def','intauth_cost','intauth_check','intauth_switch');
my @authtypes = ('internal','krb4','krb5','localauth');	my @authtypes = ('internal','krb4','krb5','localauth','lti');
foreach my $item (@items) {	foreach my $item (@items) {
$newvalues{$item} = $env{'form.'.$item};	$newvalues{$item} = $env{'form.'.$item};
if ($item eq 'auth_def') {	if ($item eq 'auth_def') {
Line 14136 sub modify_defaults {	Line 14823 sub modify_defaults {
krb4 => 'krb4',	krb4 => 'krb4',
krb5 => 'krb5',	krb5 => 'krb5',
localauth => 'loc',	localauth => 'loc',
	lti => 'lti',
);	);
$value = $authnames{$shortauth{$value}};	$value = $authnames{$shortauth{$value}};
} elsif ($item eq 'intauth_switch') {	} elsif ($item eq 'intauth_switch') {
Line 16025 sub modify_ssl {	Line 16713 sub modify_ssl {
if ($env{'form.'.$prefix.'_'.$type} =~ /^(no\|req)$/) {	if ($env{'form.'.$prefix.'_'.$type} =~ /^(no\|req)$/) {
$value = $env{'form.'.$prefix.'_'.$type};	$value = $env{'form.'.$prefix.'_'.$type};
}	}
if (ref($domconfig{$action}{$prefix}) eq 'HASH') {	if (ref($domconfig{$action}) eq 'HASH') {
if ($domconfig{$action}{$prefix}{$type} ne '') {	if (ref($domconfig{$action}{$prefix}) eq 'HASH') {
if ($value ne $domconfig{$action}{$prefix}{$type}) {	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;	$changes{$prefix}{$type} = 1;
}	}
$defaultshash{$action}{$prefix}{$type} = $value;
} else {	} else {
$defaultshash{$action}{$prefix}{$type} = $value;	$defaultshash{$action}{$prefix}{$type} = $value;
$changes{$prefix}{$type} = 1;	$changes{$prefix}{$type} = 1;
Line 16100 sub modify_ssl {	Line 16793 sub modify_ssl {
}	}
}	}
}	}
	if (keys(%changes)) {
	foreach my $prefix (keys(%changes)) {
	if (ref($changes{$prefix}) eq 'HASH') {
	if (scalar(keys(%{$changes{$prefix}})) == 0) {
	delete($changes{$prefix});
	}
	} else {
	delete($changes{$prefix});
	}
	}
	}
my $nochgmsg = &mt('No changes made to LON-CAPA SSL settings');	my $nochgmsg = &mt('No changes made to LON-CAPA SSL settings');
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,
Line 16110 sub modify_ssl {	Line 16814 sub modify_ssl {
$domdefaults{'replication'} = $defaultshash{$action}{'replication'};	$domdefaults{'replication'} = $defaultshash{$action}{'replication'};
}	}
if (ref($defaultshash{$action}{'connto'}) eq 'HASH') {	if (ref($defaultshash{$action}{'connto'}) eq 'HASH') {
$domdefaults{'connto'} = $domconfig{$action}{'connto'};	$domdefaults{'connto'} = $defaultshash{$action}{'connto'};
}	}
if (ref($defaultshash{$action}{'connfrom'}) eq 'HASH') {	if (ref($defaultshash{$action}{'connfrom'}) eq 'HASH') {
$domdefaults{'connfrom'} = $domconfig{$action}{'connfrom'};	$domdefaults{'connfrom'} = $defaultshash{$action}{'connfrom'};
}	}
}	}
my $cachetime = 246060;	my $cachetime = 246060;

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

Removed from v.1.323
changed lines
	Added in v.1.341