version 1.49.2.28.2.2, 2022/01/16 23:34:19
|
version 1.49.2.28.2.3, 2022/02/07 11:58:40
|
Line 365 sub handler {
|
Line 365 sub handler {
|
} |
} |
|
|
my %values=&Apache::lonnet::dump('environment',$cdom,$cnum); |
my %values=&Apache::lonnet::dump('environment',$cdom,$cnum); |
my %courselti=&Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1); |
my %lti=&Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1); |
if ($courselti{'lock'}) { |
my %ltienc = &Apache::lonnet::dump('nohist_ltienc',$cdom,$cnum,undef,undef,undef,1); |
delete($courselti{'lock'}); |
foreach my $id (keys(%lti)) { |
|
if (ref($lti{$id}) eq 'HASH') { |
|
if (ref($ltienc{$id}) eq 'HASH') { |
|
$values{'linkprotection'}{$id} = { %{$lti{$id}}, %{$ltienc{$id}} }; |
|
} else { |
|
$values{'linkprotection'}{$id} = $lti{$id}; |
|
} |
|
} |
|
unless ($phase eq 'process') { |
|
if (ref($values{'linkprotection'}{$id}) eq 'HASH') { |
|
delete($values{'linkprotection'}{$id}{'secret'}); |
|
} |
|
} |
|
} |
|
if ($lti{'lock'}) { |
|
delete($lti{'lock'}); |
} |
} |
$values{'linkprotection'} = \%courselti; |
|
my @prefs_order = ('courseinfo','localization','feedback','discussion', |
my @prefs_order = ('courseinfo','localization','feedback','discussion', |
'classlists','appearance','grading','printouts', |
'classlists','appearance','grading','printouts', |
'menuitems','linkprotection','spreadsheet','bridgetasks', |
'menuitems','linkprotection','spreadsheet','bridgetasks', |
Line 581 sub handler {
|
Line 595 sub handler {
|
my $jscript = &get_jscript($cid,$cdom,$phase,$crstype,\%values,$noedit); |
my $jscript = &get_jscript($cid,$cdom,$phase,$crstype,\%values,$noedit); |
my @allitems = &get_allitems(%prefs); |
my @allitems = &get_allitems(%prefs); |
&Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context, |
&Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context, |
\@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype, |
\@prefs_order,\%prefs,\%values,$cnum,$jscript,\@allitems,$crstype, |
'coursepref',$parm_permission); |
'coursepref',$parm_permission); |
} else { |
} else { |
&Apache::lonconfigsettings::display_choices($r,$phase,$context, |
&Apache::lonconfigsettings::display_choices($r,$phase,$context, |
Line 634 sub get_allitems {
|
Line 648 sub get_allitems {
|
} |
} |
|
|
sub print_config_box { |
sub print_config_box { |
my ($r,$cdom,$phase,$action,$item,$settings,$allitems,$crstype,$parm_permission) = @_; |
my ($r,$cdom,$cnum,$phase,$action,$item,$settings,$allitems,$crstype,$parm_permission) = @_; |
my $ordered = $item->{'ordered'}; |
my $ordered = $item->{'ordered'}; |
my $itemtext = $item->{'itemtext'}; |
my $itemtext = $item->{'itemtext'}; |
my $noedit; |
my $noedit; |
Line 763 sub print_config_box {
|
Line 777 sub print_config_box {
|
} elsif ($action eq 'menuitems') { |
} elsif ($action eq 'menuitems') { |
$output .= &print_menuitems('bottom',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit); |
$output .= &print_menuitems('bottom',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit); |
} elsif ($action eq 'linkprotection') { |
} elsif ($action eq 'linkprotection') { |
$output .= &print_linkprotection($cdom,$settings,\$rowtotal,$crstype,$noedit); |
$output .= &print_linkprotection($cdom,$cnum,$settings,\$rowtotal,$crstype,$noedit); |
} elsif ($action eq 'other') { |
} elsif ($action eq 'other') { |
$output .= &print_other($cdom,$settings,$allitems,\$rowtotal,$crstype,$noedit); |
$output .= &print_other($cdom,$settings,$allitems,\$rowtotal,$crstype,$noedit); |
} |
} |
Line 777 sub print_config_box {
|
Line 791 sub print_config_box {
|
|
|
sub process_changes { |
sub process_changes { |
my ($cdom,$cnum,$action,$values,$item,$changes,$allitems,$disallowed,$crstype) = @_; |
my ($cdom,$cnum,$action,$values,$item,$changes,$allitems,$disallowed,$crstype) = @_; |
my (%newvalues,%courselti,$errors); |
my (%newvalues,%lti,%ltienc,$ltiauth,$errors); |
if (ref($item) eq 'HASH') { |
if (ref($item) eq 'HASH') { |
if (ref($changes) eq 'HASH') { |
if (ref($changes) eq 'HASH') { |
my @ordered; |
my @ordered; |
Line 795 sub process_changes {
|
Line 809 sub process_changes {
|
} |
} |
} |
} |
} elsif ($action eq 'linkprotection') { |
} elsif ($action eq 'linkprotection') { |
if (ref($values->{'linkprotection'}) eq 'HASH') { |
if (ref($values->{$action}) eq 'HASH') { |
foreach my $id (keys(%{$values->{'linkprotection'}})) { |
foreach my $id (keys(%{$values->{$action}})) { |
if ($id =~ /^\d+$/) { |
if ($id =~ /^\d+$/) { |
push(@ordered,$id); |
push(@ordered,$id); |
unless (ref($values->{'linkprotection'}->{$id}) eq 'HASH') { |
unless (ref($values->{$action}->{$id}) eq 'HASH') { |
$courselti{$id} = ''; |
$lti{$id} = ''; |
} |
} |
} |
} |
} |
} |
Line 809 sub process_changes {
|
Line 823 sub process_changes {
|
if (($env{'form.linkprot_add'}) && ($env{'form.linkprot_maxnum'} =~ /^\d+$/)) { |
if (($env{'form.linkprot_add'}) && ($env{'form.linkprot_maxnum'} =~ /^\d+$/)) { |
push(@ordered,$env{'form.linkprot_maxnum'}); |
push(@ordered,$env{'form.linkprot_maxnum'}); |
} |
} |
|
if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) { |
|
$ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'}; |
|
} else { |
|
my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); |
|
$ltiauth = $domdefs{'crsltiauth'}; |
|
} |
} elsif (ref($item->{'ordered'}) eq 'ARRAY') { |
} elsif (ref($item->{'ordered'}) eq 'ARRAY') { |
if ($action eq 'courseinfo') { |
if ($action eq 'courseinfo') { |
my ($can_toggle_cat,$can_categorize) = |
my ($can_toggle_cat,$can_categorize) = |
Line 948 sub process_changes {
|
Line 968 sub process_changes {
|
} |
} |
} elsif ($action eq 'linkprotection') { |
} elsif ($action eq 'linkprotection') { |
my %menutitles = <imenu_titles(); |
my %menutitles = <imenu_titles(); |
|
my $switchserver = &check_switchserver($cdom,$cnum); |
my (@items,%deletions,%itemids,%haschanges); |
my (@items,%deletions,%itemids,%haschanges); |
if ($env{'form.linkprot_add'}) { |
if ($env{'form.linkprot_add'}) { |
my $name = $env{'form.linkprot_name_add'}; |
my $name = $env{'form.linkprot_name_add'}; |
Line 963 sub process_changes {
|
Line 984 sub process_changes {
|
'</span>'; |
'</span>'; |
} |
} |
} |
} |
if (ref($values->{'linkprotection'}) eq 'HASH') { |
if (ref($values->{$action}) eq 'HASH') { |
my @todelete = &Apache::loncommon::get_env_multiple('form.linkprot_del'); |
my @todelete = &Apache::loncommon::get_env_multiple('form.linkprot_del'); |
my $maxnum = $env{'form.linkprot_maxnum'}; |
my $maxnum = $env{'form.linkprot_maxnum'}; |
for (my $i=0; $i<=$maxnum; $i++) { |
for (my $i=0; $i<=$maxnum; $i++) { |
my $itemid = $env{'form.linkprot_id_'.$i}; |
my $itemid = $env{'form.linkprot_id_'.$i}; |
$itemid =~ s/\D+//g; |
$itemid =~ s/\D+//g; |
if ($itemid) { |
if ($itemid) { |
if (ref($values->{'linkprotection'}->{$itemid}) eq 'HASH') { |
if (ref($values->{$action}->{$itemid}) eq 'HASH') { |
push(@items,$i); |
push(@items,$i); |
$itemids{$i} = $itemid; |
$itemids{$i} = $itemid; |
if ((@todelete > 0) && (grep(/^$i$/,@todelete))) { |
if ((@todelete > 0) && (grep(/^$i$/,@todelete))) { |
$deletions{$itemid} = $values->{'linkprotection'}->{$itemid}->{'name'}; |
$deletions{$itemid} = $values->{$action}->{$itemid}->{'name'}; |
} |
} |
} |
} |
} |
} |
Line 984 sub process_changes {
|
Line 1005 sub process_changes {
|
my $itemid = $itemids{$idx}; |
my $itemid = $itemids{$idx}; |
next unless ($itemid); |
next unless ($itemid); |
if (exists($deletions{$itemid})) { |
if (exists($deletions{$itemid})) { |
$courselti{$itemid} = $deletions{$itemid}; |
$lti{$itemid} = $deletions{$itemid}; |
$haschanges{$itemid} = 1; |
$haschanges{$itemid} = 1; |
next; |
next; |
} |
} |
my %current; |
my %current; |
if (ref($values->{'linkprotection'}) eq 'HASH') { |
if (ref($values->{$action}) eq 'HASH') { |
if (ref($values->{'linkprotection'}->{$itemid}) eq 'HASH') { |
if (ref($values->{$action}->{$itemid}) eq 'HASH') { |
foreach my $key (keys(%{$values->{'linkprotection'}->{$itemid}})) { |
foreach my $key (keys(%{$values->{$action}->{$itemid}})) { |
$current{$key} = $values->{'linkprotection'}->{$itemid}->{$key}; |
$current{$key} = $values->{$action}->{$itemid}->{$key}; |
} |
} |
} |
} |
} |
} |
foreach my $inner ('name','key','secret','lifetime','version') { |
foreach my $inner ('name','lifetime','version') { |
my $formitem = 'form.linkprot_'.$inner.'_'.$idx; |
my $formitem = 'form.linkprot_'.$inner.'_'.$idx; |
$env{$formitem} =~ s/(`)/'/g; |
$env{$formitem} =~ s/(`)/'/g; |
if ($inner eq 'lifetime') { |
if ($inner eq 'lifetime') { |
Line 1008 sub process_changes {
|
Line 1029 sub process_changes {
|
} |
} |
} |
} |
if ($env{$formitem} ne '') { |
if ($env{$formitem} ne '') { |
$courselti{$itemid}{$inner} = $env{$formitem}; |
$lti{$itemid}{$inner} = $env{$formitem}; |
|
} |
|
} |
|
if ($ltiauth) { |
|
my $reqitem = 'form.linkprot_requser_'.$idx; |
|
$env{$reqitem} =~ s/(`)/'/g; |
|
unless ($idx eq 'add') { |
|
if ($current{'requser'} ne $env{$reqitem}) { |
|
$haschanges{$itemid} = 1; |
|
} |
|
} |
|
if ($env{$reqitem} ne '') { |
|
$lti{$itemid}{'requser'} = $env{$reqitem}; |
|
foreach my $inner ('mapuser','notstudent') { |
|
my $formitem = 'form.linkprot_'.$inner.'_'.$idx; |
|
$env{$formitem} =~ s/(`)/'/g; |
|
if ($inner eq 'mapuser') { |
|
if ($env{$formitem} eq 'other') { |
|
my $mapuser = $env{'form.linkprot_customuser_'.$idx}; |
|
$mapuser =~ s/(`)/'/g; |
|
$mapuser =~ s/^\s+|\s+$//g; |
|
if ($mapuser ne '') { |
|
$lti{$itemid}{$inner} = $mapuser; |
|
} else { |
|
delete($lti{$itemid}{'requser'}); |
|
last; |
|
} |
|
} elsif ($env{$formitem} eq 'sourcedid') { |
|
$lti{$itemid}{$inner} = 'lis_person_sourcedid'; |
|
} elsif ($env{$formitem} eq 'email') { |
|
$lti{$itemid}{$inner} = 'lis_person_contact_email_primary'; |
|
} |
|
} else { |
|
$lti{$itemid}{$inner} = $env{$formitem}; |
|
} |
|
unless ($idx eq 'add') { |
|
if ($current{$inner} ne $lti{$itemid}{$inner}) { |
|
$haschanges{$itemid} = 1; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
unless ($switchserver) { |
|
my $keyitem = 'form.linkprot_key_'.$idx; |
|
$env{$keyitem} =~ s/(`)/'/g; |
|
unless ($idx eq 'add') { |
|
if ($current{'key'} ne $env{$keyitem}) { |
|
$haschanges{$itemid} = 1; |
|
} |
|
} |
|
if ($env{$keyitem} ne '') { |
|
$lti{$itemid}{'key'} = $env{$keyitem}; |
|
} |
|
my $secretitem = 'form.linkprot_secret_'.$idx; |
|
$env{$secretitem} =~ s/(`)/'/g; |
|
if ($current{'usable'}) { |
|
if ($env{'form.linkprot_changesecret_'.$idx}) { |
|
if ($env{$secretitem} ne '') { |
|
$lti{$itemid}{'secret'} = $env{$secretitem}; |
|
$haschanges{$itemid} = 1; |
|
} |
|
} else { |
|
$lti{$itemid}{'secret'} = $current{'secret'}; |
|
} |
|
} elsif ($env{$secretitem} ne '') { |
|
$lti{$itemid}{'secret'} = $env{$secretitem}; |
|
$haschanges{$itemid} = 1; |
} |
} |
} |
} |
} |
} |
if (keys(%haschanges)) { |
if (keys(%haschanges)) { |
foreach my $entry (keys(%haschanges)) { |
foreach my $entry (keys(%haschanges)) { |
$changes->{$entry} = $courselti{$entry}; |
$changes->{$entry} = $lti{$entry}; |
} |
} |
} |
} |
} else { |
} else { |
Line 1603 sub store_changes {
|
Line 1691 sub store_changes {
|
if (grep(/^\Q$item\E$/,@{$actions})) { |
if (grep(/^\Q$item\E$/,@{$actions})) { |
$output .= '<h3>'.&mt($prefs->{$item}{'text'}).'</h3>'; |
$output .= '<h3>'.&mt($prefs->{$item}{'text'}).'</h3>'; |
if (ref($changes->{$item}) eq 'HASH') { |
if (ref($changes->{$item}) eq 'HASH') { |
if ((keys(%{$changes->{$item}}) > 0) || ($item eq 'linkprotection')) { |
if (keys(%{$changes->{$item}}) > 0) { |
$output .= &mt('Changes made:').'<ul style="list-style:none;">'; |
$output .= &mt('Changes made:').'<ul style="list-style:none;">'; |
if ($item eq 'other') { |
if ($item eq 'other') { |
foreach my $key (sort(keys(%{$changes->{$item}}))) { |
foreach my $key (sort(keys(%{$changes->{$item}}))) { |
Line 1617 sub store_changes {
|
Line 1705 sub store_changes {
|
} |
} |
} |
} |
} elsif ($item eq 'linkprotection') { |
} elsif ($item eq 'linkprotection') { |
if (&Apache::lonnet::put('lti',$changes->{'linkprotection'},$cdom,$cnum,1) eq 'ok') { |
my ($ltiauth,%ltienc,$lti_save_error); |
my $hashid=$cdom.'_'.$cnum; |
if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) { |
&Apache::lonnet::devalidate_cache_new('courselti',$hashid); |
$ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'}; |
foreach my $itemid (sort { $a <=> $b } %{$changes->{'linkprotection'}}) { |
} else { |
if (ref($changes->{'linkprotection'}->{$itemid}) eq 'HASH') { |
my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); |
my %values = %{$changes->{'linkprotection'}->{$itemid}}; |
$ltiauth = $domdefs{'crsltiauth'}; |
my %desc = &linkprot_names(); |
} |
my $display; |
if (ref($changes->{$item}) eq 'HASH') { |
foreach my $title ('name','lifetime','version','key','secret') { |
foreach my $id (sort { $a <=> $b } keys(%{$changes->{$item}})) { |
if ($title eq 'secret') { |
if (ref($changes->{$item}->{$id}) eq 'HASH') { |
my $length = length($values{$title}); |
if (exists($changes->{$item}->{$id}->{'key'})) { |
$display .= $desc{$title}.': '.('*' x $length); |
$ltienc{$id}{'key'} = $changes->{$item}->{$id}->{'key'}; |
} elsif ($title eq 'version') { |
delete($changes->{$item}->{$id}->{'key'}); |
if ($values{$title} eq 'LTI-1p0') { |
} |
$display .= $desc{$title}.': 1.1, '; |
if (exists($changes->{$item}->{$id}->{'secret'})) { |
|
$ltienc{$id}{'secret'} = $changes->{$item}->{$id}->{'secret'}; |
|
delete($changes->{$item}->{$id}->{'secret'}); |
|
} elsif (ref($oldlinkprot{$id}) eq 'HASH') { |
|
if (exists($oldlinkprot{$id}{'usable'})) { |
|
$changes->{$item}->{$id}->{'usable'} = 1; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
if (keys(%ltienc) > 0) { |
|
if (&Apache::lonnet::put('nohist_ltienc',\%ltienc,$cdom,$cnum,1) eq 'ok') { |
|
foreach my $id (keys(%ltienc)) { |
|
if (exists($ltienc{$id}{'secret'})) { |
|
$changes->{$item}->{$id}->{'usable'} = 1; |
|
} |
|
} |
|
} else { |
|
$lti_save_error = 1; |
|
} |
|
} |
|
unless ($lti_save_error) { |
|
if (&Apache::lonnet::put('lti',$changes->{$item},$cdom,$cnum,1) eq 'ok') { |
|
my $hashid=$cdom.'_'.$cnum; |
|
&Apache::lonnet::devalidate_cache_new('courselti',$hashid); |
|
$chome = &Apache::lonnet::homeserver($cnum,$cdom); |
|
unless (($chome eq 'no_host') || ($chome eq '')) { |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
if (grep(/^\Q$chome\E$/,@ids)) { |
|
&Apache::lonnet::devalidate_cache_new('courseltienc',$hashid); |
|
} |
|
} |
|
foreach my $id (sort { $a <=> $b } %{$changes->{$item}}) { |
|
if (ref($changes->{$item}->{$id}) eq 'HASH') { |
|
my %values = %{$changes->{$item}->{$id}}; |
|
my %desc = &linkprot_names(); |
|
my $display; |
|
foreach my $title ('name','lifetime','version','key','secret') { |
|
if (($title eq 'key') || ($title eq 'secret')) { |
|
if (ref($ltienc{$id}) eq 'HASH') { |
|
if (exists($ltienc{$id}{$title})) { |
|
if ($title eq 'secret') { |
|
my $length = length($ltienc{$id}{$title}); |
|
$display .= $desc{$title}.': '.('*' x $length).', '; |
|
} else { |
|
$display .= $desc{$title}.': '.$ltienc{$id}{$title}.', '; |
|
} |
|
} |
|
} |
|
} elsif ($title eq 'version') { |
|
if ($values{$title} eq 'LTI-1p0') { |
|
$display .= $desc{$title}.': 1.1, '; |
|
} |
|
} else { |
|
$display .= $desc{$title}.': '.$values{$title}.', '; |
|
} |
|
} |
|
if ($ltiauth) { |
|
if (($values{'requser'}) && ($values{'mapuser'} ne '')) { |
|
if ($values{'mapuser'} eq 'lis_person_contact_email_primary') { |
|
$display .= &mt('Source of username: Email address [_1]', |
|
'(lis_person_contact_email_primary)').', '; |
|
} elsif ($values{'mapuser'} eq 'lis_person_sourcedid') { |
|
$display .= &mt('Source of username: User ID [_1]', |
|
'(lis_person_sourcedid)').', '; |
|
} else { |
|
$display .= &mt('Source of username: [_1]',$values{'mapuser'}).', '; |
|
} |
|
if ($values{'notstudent'} eq 'auth') { |
|
$display .= &mt('Display LON-CAPA login page if no match').', '; |
|
} elsif ($values{'notstudent'} eq 'reject') { |
|
$display .= &mt('Discontinue launch if no match').', '; |
|
} |
} |
} |
} else { |
|
$display .= $desc{$title}.': '.$values{$title}.', '; |
|
} |
} |
|
$display =~ s/, $//; |
|
$output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.$id.'</i>', |
|
"'$display'")).'</li>'; |
|
} elsif (ref($oldlinkprot{$id}) eq 'HASH') { |
|
my $oldname = $oldlinkprot{$id}{'name'}; |
|
$output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]','<i>'."$id ($oldname)".'</i>')).'</li>'; |
} |
} |
$output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.$itemid.'</i>', |
|
"'$display'")).'</li>'; |
|
} elsif (ref($oldlinkprot{$itemid}) eq 'HASH') { |
|
my $oldname = $oldlinkprot{$itemid}{'name'}; |
|
$output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]','<i>'."$itemid ($oldname)".'</i>')).'</li>'; |
|
} |
} |
|
} else { |
|
$lti_save_error = 1; |
} |
} |
} else { |
} |
|
unless ($lti_save_error) { |
|
my @deletions; |
|
foreach my $id (sort { $a <=> $b } keys(%{$changes->{$item}})) { |
|
unless (ref($changes->{$item}->{$id}) eq 'HASH') { |
|
push (@deletions,$id); |
|
} |
|
} |
|
if (@deletions) { |
|
&Apache::lonnet::del('nohist_ltienc',\@deletions,$cdom,$cnum); |
|
} |
|
} |
|
if ($lti_save_error) { |
$output .= '<li>'. |
$output .= '<li>'. |
'<span class="LC_error">'. |
'<span class="LC_error">'. |
&mt('An error occurred when saving changes to link protection settings, which remain unchanged.'). |
&mt('An error occurred when saving changes to link protection settings, which remain unchanged.'). |
Line 2290 function toggleAddmenucoll() {
|
Line 2464 function toggleAddmenucoll() {
|
} |
} |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
|
my $linkprotector_js = <<"ENDSCRIPT"; |
|
function toggleLTI(form,num,item) { |
|
var radioname = ''; |
|
var currdivid = ''; |
|
var newdivid = ''; |
|
if ((document.getElementById('linkprot_divcurr'+item+'_'+num)) && |
|
(document.getElementById('linkprot_divchg'+item+'_'+num))) { |
|
currdivid = document.getElementById('linkprot_divcurr'+item+'_'+num); |
|
newdivid = document.getElementById('linkprot_divchg'+item+'_'+num); |
|
radioname = form.elements['linkprot_change'+item+'_'+num]; |
|
if (radioname) { |
|
if (radioname.length > 0) { |
|
var setvis; |
|
for (var i=0; i<radioname.length; i++) { |
|
if (radioname[i].checked == true) { |
|
if (radioname[i].value == 1) { |
|
newdivid.style.display = 'inline-block'; |
|
currdivid.style.display = 'none'; |
|
setvis = 1; |
|
} |
|
break; |
|
} |
|
} |
|
if (!setvis) { |
|
newdivid.style.display = 'none'; |
|
currdivid.style.display = 'inline-block'; |
|
} |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
|
function toggleLTIReqUser(form,item,extra,valon,styleon,num) { |
|
if (document.getElementById('linkprot_'+extra+'_'+num)) { |
|
var extraid = document.getElementById('linkprot_'+extra+'_'+num); |
|
var itemname = form.elements['linkprot_'+item+'_'+num]; |
|
if (itemname) { |
|
if (itemname.length > 0) { |
|
var setvis; |
|
for (var i=0; i<itemname.length; i++) { |
|
if (itemname[i].checked == true) { |
|
if (itemname[i].value == valon) { |
|
extraid.style.display = styleon; |
|
setvis = 1; |
|
} |
|
break; |
|
} |
|
} |
|
if (!setvis) { |
|
extraid.style.display = 'none'; |
|
} |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
ENDSCRIPT |
$jscript = '<script type="text/javascript" language="Javascript">'."\n". |
$jscript = '<script type="text/javascript" language="Javascript">'."\n". |
'// <![CDATA['."\n". |
'// <![CDATA['."\n". |
$browse_js."\n".$categorize_js."\n".$loncaparev_js."\n". |
$browse_js."\n".$categorize_js."\n".$loncaparev_js."\n". |
$cloners_js."\n".$instcode_js. |
$cloners_js."\n".$instcode_js. |
$syllabus_js."\n".$menuitems_js."\n".'//]]>'."\n". |
$syllabus_js."\n".$menuitems_js."\n". |
|
$linkprotector_js."\n".'//]]>'."\n". |
'</script>'."\n".$stubrowse_js."\n"; |
'</script>'."\n".$stubrowse_js."\n"; |
return $jscript; |
return $jscript; |
} |
} |
Line 4890 sub menucollections_display {
|
Line 5123 sub menucollections_display {
|
} |
} |
|
|
sub print_linkprotection { |
sub print_linkprotection { |
my ($cdom,$settings,$rowtotal,$crstype,$noedit) = @_; |
my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit) = @_; |
unless (ref($settings) eq 'HASH') { |
unless (ref($settings) eq 'HASH') { |
return; |
return; |
} |
} |
Line 4902 sub print_linkprotection {
|
Line 5135 sub print_linkprotection {
|
if ($noedit) { |
if ($noedit) { |
$disabled = ' disabled="disabled"'; |
$disabled = ' disabled="disabled"'; |
} |
} |
my %lt = &linkprot_names(); |
my %desc = &linkprot_names(); |
|
my %lt = &Apache::lonlocal::texthash ( |
|
'requ' => 'Required settings', |
|
'opti' => 'Optional settings', |
|
); |
my $itemcount = 0; |
my $itemcount = 0; |
|
|
|
my $ltiauth; |
|
if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) { |
|
$ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'}; |
|
} else { |
|
my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); |
|
$ltiauth = $domdefs{'crsltiauth'}; |
|
} |
|
my $switchserver = &check_switchserver($cdom,$cnum); |
|
|
if (ref($settings->{'linkprotection'}) eq 'HASH') { |
if (ref($settings->{'linkprotection'}) eq 'HASH') { |
if (keys(%{$settings->{'linkprotection'}})) { |
if (keys(%{$settings->{'linkprotection'}})) { |
my @current = sort { $a <=> $b } keys(%{$settings->{'linkprotection'}}); |
my @current = sort { $a <=> $b } keys(%{$settings->{'linkprotection'}}); |
Line 4925 sub print_linkprotection {
|
Line 5171 sub print_linkprotection {
|
$datatable .= |
$datatable .= |
'<tr '.$css_class.'><td><span class="LC_nobreak">'. |
'<tr '.$css_class.'><td><span class="LC_nobreak">'. |
'<label><input type="checkbox" name="linkprot_del" value="'.$i.'"'.$disabled.' />'. |
'<label><input type="checkbox" name="linkprot_del" value="'.$i.'"'.$disabled.' />'. |
&mt('Delete?').'</label></span></td>'. |
&mt('Delete?').'</label></span></td><td>'; |
'<td><span class="LC_nobreak">'.$lt{'name'}. |
my ($usersty,$onclickrequser,%checkedrequser); |
':<input type="text" size="15" name="linkprot_name_'.$i.'" value="'.$values{'name'}.'"'.$disabled.' /></span> '. |
if ($ltiauth) { |
|
$usersty = 'display:none'; |
|
$onclickrequser = ' onclick="toggleLTIReqUser(this.form,'."'requser','optional','1','block','$i'".');"'; |
|
%checkedrequser = ( |
|
no => ' checked="checked"', |
|
yes => '', |
|
); |
|
if ($values{'requser'}) { |
|
$checkedrequser{'yes'} = $checkedrequser{'no'}; |
|
$checkedrequser{'no'} = ''; |
|
} |
|
$datatable .= '<fieldset><legend>'.$lt{'requ'}.'</legend>'; |
|
if ($values{'requser'}) { |
|
$usersty = 'display:inline-block'; |
|
} |
|
} |
|
$datatable .= |
|
'<span class="LC_nobreak">'.$desc{'name'}. |
|
':<input type="text" size="15" name="linkprot_name_'.$i.'" value="'.$values{'name'}.'" autocomplete="off"'.$disabled.' /></span> '. |
(' 'x2). |
(' 'x2). |
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="linkprot_version_'.$i.'">'. |
'<span class="LC_nobreak">'.$desc{'version'}.':<select name="linkprot_version_'.$i.'"'.$disabled.'>'. |
'<option value="LTI-1p0" '.$selected.'>1.1</option></select></span> '."\n". |
'<option value="LTI-1p0" '.$selected.'>1.1</option></select></span> '."\n". |
(' 'x2). |
(' 'x2). |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" name="linkprot_lifetime_'.$i.'"'. |
'<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" name="linkprot_lifetime_'.$i.'"'. |
'value="'.$values{'lifetime'}.'" size="3"'.$disabled.' /></span>'. |
' value="'.$values{'lifetime'}.'" size="3"'.$disabled.' /></span>'; |
'<br /><br />'. |
if ($ltiauth) { |
'<span class="LC_nobreak">'.$lt{'key'}. |
$datatable .= (' 'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'. |
':<input type="text" size="25" name="linkprot_key_'.$i.'" value="'.$values{'key'}.'"'.$disabled.' /></span> '. |
'<label><input type="radio" name="linkprot_requser_'.$i.'" value="0"'. |
(' 'x2). |
$onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label> '. |
'<span class="LC_nobreak">'.$lt{'secret'}.':'. |
'<label><input type="radio" name="linkprot_requser_'.$i.'" value="1"'. |
'<input type="password" size="20" name="linkprot_secret_'.$i.'" value="'.$values{'secret'}.'"'.$disabled.' />'. |
$onclickrequser.$checkedrequser{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'; |
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.linkprot_secret_'.$i.'.type='."'text'".' } else { this.form.linkprot_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'. |
} |
'<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span>'. |
$datatable .= '<br /><br />'; |
'</td></tr>'; |
if ($values{'key'} ne '') { |
|
$datatable .= '<span class="LC_nobreak">'.$desc{'key'}; |
|
if ($noedit) { |
|
$datatable .= ': ['.&mt('not shown').']'; |
|
} elsif ($switchserver) { |
|
$datatable .= ': ['.&mt('[_1] to view/edit',$switchserver).']'; |
|
} else { |
|
$datatable .= ':<input type="text" size="25" name="linkprot_key_'.$i.'" value="'.$values{'key'}.'" autocomplete="off"'.$disabled.' />'; |
|
} |
|
$datatable .= '</span> '.(' 'x2); |
|
} elsif (!$switchserver) { |
|
$datatable .= '<span class="LC_nobreak">'.$desc{'key'}.':'. |
|
'<input type="text" size="25" name="linkprot_key_'.$i.'" value="'.$values{'key'}.'" autocomplete="off"'.$disabled.' />'. |
|
'</span> '.(' 'x2); |
|
} |
|
if ($switchserver) { |
|
if ($values{'usable'} ne '') { |
|
$datatable .= '<div id="linkprot_divcurrsecret_'.$i.'" style="display:inline-block" /><span class="LC_nobreak">'. |
|
$desc{'secret'}.': ['.&mt('not shown').'] '.(' 'x2).'</span></div>'. |
|
'<span class="LC_nobreak">'.&mt('Change secret?'). |
|
'<label><input type="radio" value="0" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');" checked="checked"'.$disabled.' />'.&mt('No').'</label>'. |
|
(' 'x2). |
|
'<label><input type="radio" value="1" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');" '.$disabled.' />'.&mt('Yes').'</label>'.(' 'x2). |
|
'</span><div id="linkprot_divchgsecret_'.$i.'" style="display:none" />'. |
|
'<span class="LC_nobreak"> - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'. |
|
'</div>'; |
|
} elsif ($values{'key'} eq '') { |
|
$datatable .= '<span class="LC_nobreak">'.&mt('Key and Secret are required').' - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'."\n"; |
|
} else { |
|
$datatable .= '<span class="LC_nobreak">'.&mt('Secret required').' - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'."\n"; |
|
} |
|
} else { |
|
if ($values{'usable'} ne '') { |
|
$datatable .= '<div id="linkprot_divcurrsecret_'.$i.'" style="display:inline-block" /><span class="LC_nobreak">'. |
|
$desc{'secret'}.': ['.&mt('not shown').'] '.(' 'x2).'</span></div>'. |
|
'<span class="LC_nobreak">'.&mt('Change?'). |
|
'<label><input type="radio" value="0" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');" checked="checked"'.$disabled.' />'.&mt('No').'</label>'. |
|
(' 'x2). |
|
'<label><input type="radio" value="1" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');"'.$disabled.' />'.&mt('Yes'). |
|
'</label> </span><div id="linkprot_divchgsecret_'.$i.'" style="display:none" />'. |
|
'<span class="LC_nobreak">'.&mt('New Secret').':'. |
|
'<input type="password" size="20" name="linkprot_secret_'.$i.'" value="" autocomplete="off"'.$disabled.' />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.linkprot_secret_'.$i.'.type='."'text'".' } else { this.form.linkprot_secret_'.$i.'.type='."'password'".' }"'.$disabled.' />'.&mt('Visible input').'</label>'. |
|
'<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span></div>'; |
|
} else { |
|
$datatable .= |
|
'<span class="LC_nobreak">'.$desc{'secret'}.':'. |
|
'<input type="password" size="20" name="linkprot_secret_'.$i.'" value="" autocomplete="off"'.$disabled.' />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.linkprot_secret_'.$i.'.type='."'text'".' } else { this.form.linkprot_secret_'.$i.'.type='."'password'".' }"'.$disabled.' />'.&mt('Visible input').'</label>'. |
|
'<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span>'; |
|
} |
|
} |
|
if ($ltiauth) { |
|
$datatable .= |
|
'</fieldset>'. |
|
'<fieldset id="linkprot_optional_'.$i.'" style="'.$usersty.'"><legend>'.$lt{'opti'}.'</legend>'. |
|
&linkprot_options($i,$itemcount,$disabled,\%values,\%desc). |
|
'</fieldset>'; |
|
} |
|
$datatable .= '</td></tr>'; |
$itemcount ++; |
$itemcount ++; |
} |
} |
} |
} |
Line 4950 sub print_linkprotection {
|
Line 5273 sub print_linkprotection {
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n". |
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n". |
'<input type="hidden" name="linkprot_maxnum" value="'.$next.'" />'."\n". |
'<input type="hidden" name="linkprot_maxnum" value="'.$next.'" />'."\n". |
'<input type="checkbox" name="linkprot_add" value="1" />'.&mt('Add').'</span></td>'."\n". |
'<input type="checkbox" name="linkprot_add" value="1"'.$disabled.' />'.&mt('Add').'</span></td>'."\n". |
'<td>'. |
'<td>'; |
'<span class="LC_nobreak">'.$lt{'name'}. |
my ($usersty,$onclickrequser,%checkedrequser); |
':<input type="text" size="15" name="linkprot_name_add" value="" /></span> '."\n". |
if ($ltiauth) { |
|
$usersty = 'display:none'; |
|
$onclickrequser = ' onclick="toggleLTIReqUser(this.form,'."'requser','optional','1','block','add'".');"'; |
|
%checkedrequser = ( |
|
no => ' checked="checked"', |
|
yes => '', |
|
); |
|
$datatable .= '<fieldset><legend>'.$lt{'requ'}.'</legend>'; |
|
} |
|
$datatable .= '<span class="LC_nobreak">'.$desc{'name'}. |
|
':<input type="text" size="15" name="linkprot_name_add" value="" autocomplete="off"'.$disabled.' /></span> '."\n". |
(' 'x2). |
(' 'x2). |
'<span class="LC_nobreak">'.$lt{'version'}.':<select name="linkprot_version_add">'. |
'<span class="LC_nobreak">'.$desc{'version'}.':<select name="linkprot_version_add"'.$disabled.'>'. |
'<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="3" name="linkprot_lifetime_add" value="300" /></span> '."\n". |
'<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" size="3" name="linkprot_lifetime_add" value="300"'.$disabled.' /></span> '."\n"; |
'<br /><br />'. |
if ($ltiauth) { |
'<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="linkprot_key_add" value="" /></span> '."\n". |
$datatable .= (' 'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'. |
(' 'x2). |
'<label><input type="radio" name="linkprot_requser_add" value="0"'. |
'<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="linkprot_secret_add" value="" />'. |
$onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label> '. |
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.linkprot_secret_add.type='."'text'".' } else { this.form.linkprot_secret_add.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n". |
'<label><input type="radio" name="linkprot_requser_add" value="1"'. |
'</td></tr>'; |
$onclickrequser.$checkedrequser{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'; |
|
} |
|
$datatable .= '<br /><br />'; |
|
if ($switchserver) { |
|
$datatable .= '<span class="LC_nobreak">'.&mt('Key and Secret are required').' - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'."\n"; |
|
} else { |
|
$datatable .= '<span class="LC_nobreak">'.$desc{'key'}.':<input type="text" size="25" name="linkprot_key_add" value="" autocomplete="off"'.$disabled.' /></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$desc{'secret'}.':<input type="password" size="20" name="linkprot_secret_add" value="" autocomplete="off"'.$disabled.' />'. |
|
'<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.linkprot_secret_add.type='."'text'".' } else { this.form.linkprot_secret_add.type='."'password'".' }"'.$disabled.' />'.&mt('Visible input').'</label></span> '."\n"; |
|
} |
|
if ($ltiauth) { |
|
$datatable .= '</fieldset>'. |
|
'<fieldset id="linkprot_optional_add" style="'.$usersty.'"><legend>'.$lt{'opti'}.'</legend>'. |
|
&linkprot_options('add',$itemcount,$disabled,{},\%desc). |
|
'</fieldset>'; |
|
} |
|
$datatable .= '</td></tr>'; |
$$rowtotal ++; |
$$rowtotal ++; |
return $datatable;; |
return $datatable; |
} |
} |
|
|
sub linkprot_names { |
sub linkprot_names { |
my %lt = &Apache::lonlocal::texthash( |
return &Apache::lonlocal::texthash( |
'version' => 'LTI Version', |
'version' => 'LTI Version', |
'key' => 'Key', |
'key' => 'Key', |
'lifetime' => 'Nonce lifetime (s)', |
'lifetime' => 'Nonce lifetime (s)', |
'name' => 'Launcher Application Name', |
'name' => 'Launcher Application', |
'secret' => 'Secret', |
'secret' => 'Secret', |
|
'requser' => 'Use identity', |
|
'email' => 'Email address', |
|
'sourcedid' => 'User ID', |
|
'other' => 'Other', |
|
'auth' => 'Display LON-CAPA login page', |
|
'reject' => 'Discontinue launch process', |
); |
); |
return %lt; |
} |
|
|
|
sub check_switchserver { |
|
my ($cdom,$cnum) = @_; |
|
my ($allowed,$switchserver); |
|
my $home = &Apache::lonnet::homeserver($cnum,$cdom); |
|
unless ($home eq 'no_host') { |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
|
if (!$allowed) { |
|
$switchserver='<a href="/adm/switchserver?otherserver='.$home.'&role='. |
|
&HTML::Entities::encode($env{'request.role'},'\'<>"&'). |
|
'&destinationurl=/adm/courseprefs">'.&mt('Switch Server').'</a>'; |
|
} |
|
} |
|
return $switchserver; |
|
} |
|
|
|
sub linkprot_options { |
|
my ($num,$itemcount,$disabled,$current,$desc) = @_; |
|
my %lt; |
|
if (ref($desc) eq 'HASH') { |
|
%lt = %{$desc}; |
|
} |
|
my $userfieldsty = 'none'; |
|
my (%checked,$userfield); |
|
$checked{'sourcedid'} = ' checked="checked"'; |
|
$checked{'reject'} = ' checked="checked"'; |
|
if (ref($current) eq 'HASH') { |
|
if (($current->{'mapuser'} ne '') && ($current->{'mapuser'} ne 'lis_person_sourcedid')) { |
|
$checked{'sourcedid'} = ''; |
|
if ($current->{'mapuser'} eq 'lis_person_contact_email_primary') { |
|
$checked{'email'} = ' checked="checked"'; |
|
} else { |
|
$checked{'other'} = ' checked="checked"'; |
|
$userfield = $current->{'mapuser'}; |
|
$userfieldsty = 'inline-block'; |
|
} |
|
} |
|
if (($current->{'notstudent'} ne '') && ($current->{'notstudent'} ne 'reject')) { |
|
$checked{'reject'} = ''; |
|
$checked{'auth'} = ' checked="checked"'; |
|
} |
|
} |
|
my $onclickuser = ' onclick="toggleLTIReqUser(this.form,'."'mapuser','userfield','other','inline-block','$num'".');"'; |
|
my $output = '<div class="LC_floatleft"><span class="LC_nobreak">'. |
|
&mt('Source of LON-CAPA username in LTI request').': '; |
|
foreach my $option ('sourcedid','email','other') { |
|
$output .= '<label><input type="radio" name="linkprot_mapuser_'.$num.'" value="'.$option.'"'. |
|
$checked{$option}.$onclickuser.$disabled.' />'.$lt{$option}.'</label>'. |
|
($option eq 'other' ? '' : (' 'x2) ); |
|
} |
|
$output .= '</span></div>'. |
|
'<div class="LC_floatleft" style="display:'.$userfieldsty.';" id="linkprot_userfield_'.$num.'">'. |
|
'<input type="text" name="linkprot_customuser_'.$num.'" '. |
|
'value="'.$userfield.'"'.$disabled.' /></div>'; |
|
$output .= '<br />'. |
|
'<div class="LC_floatleft"><span class="LC_nobreak">'. |
|
&mt('Action when username is not for an enrolled student').': '; |
|
foreach my $option ('reject','auth') { |
|
$output .= '<label><input type="radio" name="linkprot_notstudent_'.$num.'" value="'.$option.'"'. |
|
$checked{$option}.$disabled.' />'.$lt{$option}.'</label>'. |
|
($option eq 'auth' ? '' : (' 'x2) ); |
|
} |
|
$output .= '</span></div>'; |
|
return $output; |
} |
} |
|
|
sub print_other { |
sub print_other { |