version 1.322, 2017/12/07 01:36:11
|
version 1.325, 2018/03/23 01:01:20
|
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 1893 sub print_quotas {
|
Line 1893 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 2357 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 2712 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 2806 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 2887 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'}"; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
} |
} |
return; |
return; |
} |
} |
Line 4106 sub print_ltitools {
|
Line 4145 sub print_ltitools {
|
my %lt = <itools_names(); |
my %lt = <itools_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,$lifetime,$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'}; |
Line 4123 sub print_ltitools {
|
Line 4162 sub print_ltitools {
|
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 4140 sub print_ltitools {
|
Line 4184 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'}.':'. |
Line 4244 sub print_ltitools {
|
Line 4292 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 4256 sub print_ltitools {
|
Line 4305 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 4345 sub print_ltitools {
|
Line 4418 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). |
Line 4414 sub print_ltitools {
|
Line 4490 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 ltitools_names {
|
Line 4547 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)', |
'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 4549 sub print_lti {
|
Line 4640 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>'.<i_options($i,$current,%lt).'</td></tr>'; |
'</fieldset>'.<i_options($i,$current,$itemcount,%lt).'</td></tr>'; |
$itemcount ++; |
$itemcount ++; |
} |
} |
} |
} |
Line 4582 sub print_lti {
|
Line 4673 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>'.<i_options('add',undef,%lt). |
'</fieldset>'.<i_options('add',undef,$itemcount,%lt). |
'</td>'."\n". |
'</td>'."\n". |
'</tr>'."\n"; |
'</tr>'."\n"; |
$$rowtotal ++; |
$$rowtotal ++; |
Line 4607 sub lti_names {
|
Line 4698 sub lti_names {
|
} |
} |
|
|
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 4617 sub lti_options {
|
Line 4708 sub lti_options {
|
$checked{'selfenroll'} = {}; |
$checked{'selfenroll'} = {}; |
$checked{'crssec'} = {}; |
$checked{'crssec'} = {}; |
$checked{'crssecsrc'} = {}; |
$checked{'crssecsrc'} = {}; |
|
$checked{'lcauth'} = {}; |
|
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 $numinrow = 4; |
|
|
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 4657 sub lti_options {
|
Line 4755 sub lti_options {
|
$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 4681 sub lti_options {
|
Line 4791 sub lti_options {
|
} else { |
} else { |
$checked{'makecrs'}{'N'} = ' checked="checked"'; |
$checked{'makecrs'}{'N'} = ' checked="checked"'; |
$checked{'crssec'}{'N'} = ' checked="checked"'; |
$checked{'crssec'}{'N'} = ' checked="checked"'; |
|
#FIXME |
} |
} |
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 4697 sub lti_options {
|
Line 4817 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 $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 4738 sub lti_options {
|
Line 4859 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 6380 sub courserequest_titles {
|
Line 6524 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 6493 sub print_usercreation {
|
Line 6638 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 7233 sub authtype_names {
|
Line 7378 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 7301 sub print_defaults {
|
Line 7447 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 8382 sub modifiable_userdata_row {
|
Line 8529 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 8424 sub modifiable_userdata_row {
|
Line 8573 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 8467 sub modifiable_userdata_row {
|
Line 8618 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 8477 sub modifiable_userdata_row {
|
Line 8628 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 8487 sub modifiable_userdata_row {
|
Line 8639 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 9903 sub modify_quotas {
|
Line 10058 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 9952 sub modify_quotas {
|
Line 10107 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 10670 sub modify_ltitools {
|
Line 10825 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 10732 sub modify_ltitools {
|
Line 10892 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 10796 sub modify_ltitools {
|
Line 10963 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 10909 sub modify_ltitools {
|
Line 11088 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 11042 sub modify_ltitools {
|
Line 11231 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','lifetime') { |
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 11119 sub modify_ltitools {
|
Line 11308 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 11255 sub modify_lti {
|
Line 11451 sub modify_lti {
|
textbook => 'Textbook', |
textbook => 'Textbook', |
placement => 'Placement Test', |
placement => 'Placement Test', |
); |
); |
|
my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles(); |
my %lt = <i_names(); |
my %lt = <i_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; |
|
|
|
#FIXME |
|
|
my (@items,%deletions,%itemids); |
my (@items,%deletions,%itemids); |
if ($env{'form.lti_add'}) { |
if ($env{'form.lti_add'}) { |
Line 11347 sub modify_lti {
|
Line 11546 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 11393 sub modify_lti {
|
Line 11616 sub modify_lti {
|
} |
} |
} |
} |
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') { |
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') { |
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 11544 sub modify_lti {
|
Line 11767 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 12732 sub modify_usercreation {
|
Line 12979 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 13914 sub modify_defaults {
|
Line 14161 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 14106 sub modify_defaults {
|
Line 14353 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') { |