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.321 and 1.333

version 1.321, 2017/12/06 23:41:19	version 1.333, 2018/07/06 13:43:14
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 1436 sub print_login {	Line 1436 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 1596 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 1605 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 1620 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 1738 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 1766 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 1852 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 1891 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 2355 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 2712 function toggleLTITools(form,setting,ite	Line 2710 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 2804 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[
Line 2870 function toggleLTI(form,setting,item) {	Line 2885 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 3024 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 4106 sub print_ltitools {	Line 4172 sub print_ltitools {
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++) {
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
my $item = $ordered{$items[$i]};	my $item = $ordered{$items[$i]};
my ($title,$key,$secret,$url,$imgsrc);	my ($title,$key,$secret,$url,$lifetime,$imgsrc,%sigsel);
if (ref($settings->{$item}) eq 'HASH') {	if (ref($settings->{$item}) eq 'HASH') {
$title = $settings->{$item}->{'title'};	$title = $settings->{$item}->{'title'};
$url = $settings->{$item}->{'url'};	$url = $settings->{$item}->{'url'};
$key = $settings->{$item}->{'key'};	$key = $settings->{$item}->{'key'};
$secret = $settings->{$item}->{'secret'};	$secret = $settings->{$item}->{'secret'};
	$lifetime = $settings->{$item}->{'lifetime'};
my $image = $settings->{$item}->{'image'};	my $image = $settings->{$item}->{'image'};
if ($image ne '') {	if ($image ne '') {
$imgsrc = '<img src="'.$image.'" alt="'.&mt('Tool Provider icon').'" />';	$imgsrc = '<img src="'.$image.'" alt="'.&mt('Tool Provider icon').'" />';
}	}
	if ($settings->{$item}->{'sigmethod'} eq 'HMAC-256') {
	$sigsel{'HMAC-256'} = ' selected="selected"';
	} else {
	$sigsel{'HMAC-SHA1'} = ' selected="selected"';
	}
}	}
my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_".$item."'".');"';	my $chgstr = ' onchange="javascript:reorderLTITools(this.form,'."'ltitools_".$item."'".');"';
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'	$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'
Line 4139 sub print_ltitools {	Line 4211 sub print_ltitools {
&mt('Delete?').'</label></span></td>'.	&mt('Delete?').'</label></span></td>'.
'<td colspan="2">'.	'<td colspan="2">'.
'<fieldset><legend>'.&mt('Required settings').'</legend>'.	'<fieldset><legend>'.&mt('Required settings').'</legend>'.
'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="30" name="ltitools_title_'.$i.'" value="'.$title.'" /></span> '.	'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="20" name="ltitools_title_'.$i.'" value="'.$title.'" /></span> '.
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_version_'.$i.'">'.	'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_version_'.$i.'">'.
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '.	'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '.
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_msgtype_'.$i.'">'.	'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_msgtype_'.$i.'">'.
'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.	'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.
	(' 'x2).
	'<span class="LC_nobreak">'.$lt{'sigmethod'}.':<select name="ltitools_sigmethod_'.$i.'">'.
	'<option value="HMAC-SHA1"'.$sigsel{'HMAC-SHA1'}.'>HMAC-SHA1</option>'.
	'<option value="HMAC-SHA256"'.$sigsel{'HMAC-SHA256'}.'>HMAC-SHA256</option></select></span>'.
'<br /><br />'.	'<br /><br />'.
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="30" name="ltitools_url_'.$i.'"'.	'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_url_'.$i.'"'.
' value="'.$url.'" /></span>'.	' value="'.$url.'" /></span>'.
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'key'}.':'.	'<span class="LC_nobreak">'.$lt{'key'}.':'.
'<input type="text" size="25" name="ltitools_key_'.$i.'" value="'.$key.'" /></span> '.	'<input type="text" size="25" name="ltitools_key_'.$i.'" value="'.$key.'" /></span> '.
(' 'x2).	(' 'x2).
	'<span class="LC_nobreak">'.$lt{'lifetime'}.':'.
	'<input type="text" size="5" name="ltitools_lifetime_'.$i.'" value="'.$lifetime.'" /></span> '.
	(' 'x2).
'<span class="LC_nobreak">'.$lt{'secret'}.':'.	'<span class="LC_nobreak">'.$lt{'secret'}.':'.
'<input type="password" size="20" name="ltitools_secret_'.$i.'" value="'.$secret.'" />'.	'<input type="password" size="20" name="ltitools_secret_'.$i.'" value="'.$secret.'" />'.
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_secret_'.$i.'.type='."'text'".' } else { this.form.ltitools_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'.	'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_secret_'.$i.'.type='."'text'".' } else { this.form.ltitools_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'.
Line 4240 sub print_ltitools {	Line 4319 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 4252 sub print_ltitools {	Line 4332 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 4341 sub print_ltitools {	Line 4445 sub print_ltitools {
'<input type="checkbox" name="ltitools_add" value="1" />'.&mt('Add').'</td>'."\n".	'<input type="checkbox" name="ltitools_add" value="1" />'.&mt('Add').'</td>'."\n".
'<td colspan="2">'.	'<td colspan="2">'.
'<fieldset><legend>'.&mt('Required settings').'</legend>'.	'<fieldset><legend>'.&mt('Required settings').'</legend>'.
'<span class="LC_nobreak">'.$lt{'title'}.':<input type="text" size="30" 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".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_add_version">'.	'<span class="LC_nobreak">'.$lt{'version'}.':<select name="ltitools_add_version">'.
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".	'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_add_msgtype">'.	'<span class="LC_nobreak">'.$lt{'msgtype'}.':<select name="ltitools_add_msgtype">'.
'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.	'<option value="basic-lti-launch-request" selected="selected">Launch</option></select></span> '.
	'<span class="LC_nobreak">'.$lt{'sigmethod'}.':<select name="ltitools_add_sigmethod">'.
	'<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'.
	'<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'.
'<br />'.	'<br />'.
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="30" name="ltitools_add_url" value="" /></span> '."\n".	'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_add_url" value="" /></span> '."\n".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="ltitools_add_key" value="" /></span> '."\n".	'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="ltitools_add_key" value="" /></span> '."\n".
(' 'x2).	(' 'x2).
	'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="ltitools_add_lifetime" value="300" /></span> '."\n".
	(' 'x2).
'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="ltitools_add_secret" value="" />'.	'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="ltitools_add_secret" value="" />'.
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_add_secret.type='."'text'".' } else { this.form.ltitools_add_secret.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n".	'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.ltitools_add_secret.type='."'text'".' } else { this.form.ltitools_add_secret.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n".
'</fieldset>'.	'</fieldset>'.
Line 4382 sub print_ltitools {	Line 4491 sub print_ltitools {
);	);
my %defaulttimes = (	my %defaulttimes = (
'passback' => '7',	'passback' => '7',
'roster' => '300',	'roster' => '300',
);	);
foreach my $extra ('passback','roster') {	foreach my $extra ('passback','roster') {
my $onclick = ' onclick="toggleLTITools(this.form,'."'$extra','add'".');"';	my $onclick = ' onclick="toggleLTITools(this.form,'."'$extra','add'".');"';
Line 4408 sub print_ltitools {	Line 4517 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 4451 sub ltitools_names {	Line 4574 sub ltitools_names {
'title' => 'Title',	'title' => 'Title',
'version' => 'Version',	'version' => 'Version',
'msgtype' => 'Message Type',	'msgtype' => 'Message Type',
	'sigmethod' => 'Signature Method',
'url' => 'URL',	'url' => 'URL',
'key' => 'Key',	'key' => 'Key',
	'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 4542 sub print_lti {	Line 4667 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 4569 sub print_lti {	Line 4694 sub print_lti {
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="lti_version_add">'.	'<span class="LC_nobreak">'.$lt{'version'}.':<select name="lti_version_add">'.
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".	'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".
(' 'x2).	(' 'x2).
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="lti_lifetime_add" value="" /></span> '."\n".	'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="lti_lifetime_add" value="300" /></span> '."\n".
'<br /><br />'.	'<br /><br />'.
'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="lti_key_add" value="" /></span> '."\n".	'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="lti_key_add" value="" /></span> '."\n".
(' '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 4587 sub lti_names {	Line 4712 sub lti_names {
'version' => 'LTI Version',	'version' => 'LTI Version',
'url' => 'URL',	'url' => 'URL',
'key' => 'Key',	'key' => 'Key',
'lifetime' => 'Nonce lifetime (seconds)',	'lifetime' => 'Nonce lifetime (s)',
'consumer' => 'LTI Consumer',	'consumer' => 'LTI Consumer',
'secret' => 'Secret',	'secret' => 'Secret',
'email' => 'Email address',	'email' => 'Email address',
Line 4595 sub lti_names {	Line 4720 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 4610 sub lti_options {	Line 4737 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 $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 4644 sub lti_options {	Line 4781 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 4671 sub lti_options {	Line 4820 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 4690 sub lti_options {	Line 4874 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 4731 sub lti_options {	Line 4917 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 4793 sub lti_options {	Line 5002 sub lti_options {
'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="1"'.$checkedon.' />'.	'<label><input type="radio" name="lti_'.$extra.'_'.$num.'" value="1"'.$checkedon.' />'.
&mt('Yes').'</label><br />';	&mt('Yes').'</label><br />';
}	}
	$output .= '</span></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></fieldset>';	$output .= '</span></fieldset>';
# '<fieldset><legend>'.&mt('Assigning author roles').'</legend>';	# '<fieldset><legend>'.&mt('Assigning author roles').'</legend>';
#	#
Line 4801 sub lti_options {	Line 5031 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 6373 sub courserequest_titles {	Line 6613 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 6486 sub print_usercreation {	Line 6727 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 7226 sub authtype_names {	Line 7467 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 7294 sub print_defaults {	Line 7536 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 7387 sub print_defaults {	Line 7630 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 7717 sub print_coursecategories {	Line 7960 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 7803 sub print_coursecategories {	Line 8046 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 7960 sub print_coursecategories {	Line 8203 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 8236 sub initialize_categories {	Line 8479 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 8264 sub initialize_categories {	Line 8510 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 8321 sub build_category_rows {	Line 8569 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 8344 sub build_category_rows {	Line 8592 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 8375 sub modifiable_userdata_row {	Line 8623 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 8417 sub modifiable_userdata_row {	Line 8667 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 8460 sub modifiable_userdata_row {	Line 8712 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 8470 sub modifiable_userdata_row {	Line 8722 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 8480 sub modifiable_userdata_row {	Line 8733 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 9896 sub modify_quotas {	Line 10152 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 9945 sub modify_quotas {	Line 10201 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 10644 sub modify_ltitools {	Line 10900 sub modify_ltitools {
$allpos[$position] = $newid;	$allpos[$position] = $newid;
}	}
$changes{$newid} = 1;	$changes{$newid} = 1;
foreach my $item ('title','url','key','secret') {	foreach my $item ('title','url','key','secret','lifetime') {
$env{'form.ltitools_add_'.$item} =~ s/(`)/'/g;	$env{'form.ltitools_add_'.$item} =~ s/(`)/'/g;
	if ($item eq 'lifetime') {
	$env{'form.ltitools_add_'.$item} =~ s/[^\d.]//g;
	}
if ($env{'form.ltitools_add_'.$item}) {	if ($env{'form.ltitools_add_'.$item}) {
if (($item eq 'key') \|\| ($item eq 'secret')) {	if (($item eq 'key') \|\| ($item eq 'secret')) {
$encconfig{$newid}{$item} = $env{'form.ltitools_add_'.$item};	$encconfig{$newid}{$item} = $env{'form.ltitools_add_'.$item};
Line 10660 sub modify_ltitools {	Line 10919 sub modify_ltitools {
if ($env{'form.ltitools_add_msgtype'} eq 'basic-lti-launch-request') {	if ($env{'form.ltitools_add_msgtype'} eq 'basic-lti-launch-request') {
$confhash{$newid}{'msgtype'} = $env{'form.ltitools_add_msgtype'};	$confhash{$newid}{'msgtype'} = $env{'form.ltitools_add_msgtype'};
}	}
	if ($env{'form.ltitools_add_sigmethod'} eq 'HMAC-SHA256') {
	$confhash{$newid}{'sigmethod'} = $env{'form.ltitools_add_sigmethod'};
	} else {
	$confhash{$newid}{'sigmethod'} = 'HMAC-SHA1';
	}
foreach my $item ('width','height','linktext','explanation') {	foreach my $item ('width','height','linktext','explanation') {
$env{'form.ltitools_add_'.$item} =~ s/^\s+//;	$env{'form.ltitools_add_'.$item} =~ s/^\s+//;
$env{'form.ltitools_add_'.$item} =~ s/\s+$//;	$env{'form.ltitools_add_'.$item} =~ s/\s+$//;
Line 10722 sub modify_ltitools {	Line 10986 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 10768 sub modify_ltitools {	Line 11039 sub modify_ltitools {
} else {	} else {
my $newpos = $env{'form.ltitools_'.$itemid};	my $newpos = $env{'form.ltitools_'.$itemid};
$newpos =~ s/\D+//g;	$newpos =~ s/\D+//g;
foreach my $item ('title','url') {	foreach my $item ('title','url','lifetime') {
$confhash{$itemid}{$item} = $env{'form.ltitools_'.$item.'_'.$i};	$confhash{$itemid}{$item} = $env{'form.ltitools_'.$item.'_'.$i};
if ($domconfig{$action}{$itemid}{$item} ne $confhash{$itemid}{$item}) {	if ($domconfig{$action}{$itemid}{$item} ne $confhash{$itemid}{$item}) {
$changes{$itemid} = 1;	$changes{$itemid} = 1;
Line 10786 sub modify_ltitools {	Line 11057 sub modify_ltitools {
if ($env{'form.ltitools_msgtype_'.$i} eq 'basic-lti-launch-request') {	if ($env{'form.ltitools_msgtype_'.$i} eq 'basic-lti-launch-request') {
$confhash{$itemid}{'msgtype'} = $env{'form.ltitools_msgtype_'.$i};	$confhash{$itemid}{'msgtype'} = $env{'form.ltitools_msgtype_'.$i};
}	}
	if ($env{'form.ltitools_sigmethod_'.$i} eq 'HMAC-SHA256') {
	$confhash{$itemid}{'sigmethod'} = $env{'form.ltitools_sigmethod_'.$i};
	} else {
	$confhash{$itemid}{'sigmethod'} = 'HMAC-SHA1';
	}
	if ($domconfig{$action}{$itemid}{'sigmethod'} eq '') {
	if ($confhash{$itemid}{'sigmethod'} ne 'HMAC-SHA1') {
	$changes{$itemid} = 1;
	}
	} elsif ($domconfig{$action}{$itemid}{'sigmethod'} ne $confhash{$itemid}{'sigmethod'}) {
	$changes{$itemid} = 1;
	}
foreach my $size ('width','height') {	foreach my $size ('width','height') {
$env{'form.ltitools_'.$size.'_'.$i} =~ s/^\s+//;	$env{'form.ltitools_'.$size.'_'.$i} =~ s/^\s+//;
$env{'form.ltitools_'.$size.'_'.$i} =~ s/\s+$//;	$env{'form.ltitools_'.$size.'_'.$i} =~ s/\s+$//;
Line 10899 sub modify_ltitools {	Line 11182 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 11032 sub modify_ltitools {	Line 11325 sub modify_ltitools {
$resulttext .= '</li><ul>';	$resulttext .= '</li><ul>';
my $position = $pos + 1;	my $position = $pos + 1;
$resulttext .= '<li>'.&mt('Order: [_1]',$position).'</li>';	$resulttext .= '<li>'.&mt('Order: [_1]',$position).'</li>';
foreach my $item ('version','msgtype','url') {	foreach my $item ('version','msgtype','sigmethod','url','lifetime') {
if ($confhash{$itemid}{$item} ne '') {	if ($confhash{$itemid}{$item} ne '') {
$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{$item}.'</li>';	$resulttext .= '<li>'.$lt{$item}.': '.$confhash{$itemid}{$item}.'</li>';
}	}
Line 11109 sub modify_ltitools {	Line 11402 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 11245 sub modify_lti {	Line 11545 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 11337 sub modify_lti {	Line 11640 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 11377 sub modify_lti {	Line 11704 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_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') {	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 11534 sub modify_lti {	Line 11874 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 11576 sub modify_lti {	Line 11940 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');
} else {	} else {
Line 11585 sub modify_lti {	Line 11949 sub modify_lti {
}	}
$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 12722 sub modify_usercreation {	Line 13094 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 13904 sub modify_defaults {	Line 14276 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 14096 sub modify_defaults {	Line 14468 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') {

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

Removed from v.1.321
changed lines
	Added in v.1.333