version 1.91, 2020/10/29 23:24:13
|
version 1.100, 2022/02/06 21:36:59
|
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 %lti=&Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1); |
|
my %ltienc = &Apache::lonnet::dump('nohist_ltienc',$cdom,$cnum,undef,undef,undef,1); |
|
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'}); |
|
} |
my @prefs_order = ('courseinfo','localization','feedback','discussion', |
my @prefs_order = ('courseinfo','localization','feedback','discussion', |
'classlists','appearance','grading','printouts', |
'classlists','appearance','grading','printouts', |
'menuitems','spreadsheet','bridgetasks','lti','other'); |
'menuitems','linkprotection','spreadsheet','bridgetasks', |
|
'lti','other'); |
|
|
my %prefs = ( |
my %prefs = ( |
'courseinfo' => |
'courseinfo' => |
Line 467 sub handler {
|
Line 487 sub handler {
|
help => 'Course_Prefs_Display', |
help => 'Course_Prefs_Display', |
ordered => ['default_xml_style','pageseparators', |
ordered => ['default_xml_style','pageseparators', |
'disable_receipt_display','texengine', |
'disable_receipt_display','texengine', |
'tthoptions','uselcmath','usejsme'], |
'tthoptions','uselcmath','usejsme','inline_chem'], |
itemtext => { |
itemtext => { |
default_xml_style => 'Default XML style file', |
default_xml_style => 'Default XML style file', |
pageseparators => 'Visibly Separate Items on Pages', |
pageseparators => 'Visibly Separate Items on Pages', |
Line 476 sub handler {
|
Line 496 sub handler {
|
tthoptions => 'Default set of options to pass to tth/m when converting TeX', |
tthoptions => 'Default set of options to pass to tth/m when converting TeX', |
uselcmath => 'Student formula entry uses inline preview, not DragMath pop-up', |
uselcmath => 'Student formula entry uses inline preview, not DragMath pop-up', |
usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)', |
usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)', |
|
inline_chem => 'Chemical reaction response uses inline preview, not pop-up', |
}, |
}, |
}, |
}, |
'grading' => |
'grading' => |
Line 557 sub handler {
|
Line 578 sub handler {
|
menucollections => 'Menu collections', |
menucollections => 'Menu collections', |
}, |
}, |
}, |
}, |
|
'linkprotection' => |
|
{ |
|
text => 'Link protection', |
|
help => 'Course_Prefs_Linkprotection', |
|
header => [{col1 => 'Item', |
|
col2 => 'Settings', |
|
}], |
|
}, |
'other' => |
'other' => |
{ text => 'Other settings', |
{ text => 'Other settings', |
help => 'Course_Prefs_Other', |
help => 'Course_Prefs_Other', |
Line 581 sub handler {
|
Line 610 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 663 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 764 sub print_config_box {
|
Line 793 sub print_config_box {
|
$output .= &print_lti($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit); |
$output .= &print_lti($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit); |
} 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') { |
|
$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 776 sub print_config_box {
|
Line 807 sub print_config_box {
|
} |
} |
|
|
sub process_changes { |
sub process_changes { |
my ($cdom,$action,$values,$item,$changes,$allitems,$disallowed,$crstype) = @_; |
my ($cdom,$cnum,$action,$values,$item,$changes,$allitems,$disallowed,$crstype) = @_; |
my %newvalues; |
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 794 sub process_changes {
|
Line 825 sub process_changes {
|
} |
} |
} |
} |
} |
} |
|
} elsif ($action eq 'linkprotection') { |
|
if (ref($values->{$action}) eq 'HASH') { |
|
foreach my $id (keys(%{$values->{$action}})) { |
|
if ($id =~ /^\d+$/) { |
|
push(@ordered,$id); |
|
unless (ref($values->{$action}->{$id}) eq 'HASH') { |
|
$lti{$id} = ''; |
|
} |
|
} |
|
} |
|
} |
|
@ordered = sort { $a <=> $b } @ordered; |
|
if (($env{'form.linkprot_add'}) && ($env{'form.linkprot_maxnum'} =~ /^\d+$/)) { |
|
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 884 sub process_changes {
|
Line 936 sub process_changes {
|
my $currdef = $values->{'menudefault'}; |
my $currdef = $values->{'menudefault'}; |
my $possdef = $env{'form.menudefault'}; |
my $possdef = $env{'form.menudefault'}; |
if (($possdef =~ /^\d+$/) && (grep(/^$possdef$/,@colls))) { |
if (($possdef =~ /^\d+$/) && (grep(/^$possdef$/,@colls))) { |
if ($values->{'menudefault'} ne $possdef) { |
if ($currdef ne $possdef) { |
$changes->{'menudefault'} = $possdef; |
$changes->{'menudefault'} = $possdef; |
} |
} |
} elsif ($values->{'menudefault'}) { |
} elsif ($currdef) { |
$changes->{'menudefault'} = ''; |
$changes->{'menudefault'} = ''; |
} |
} |
my $menucoll; |
my $menucoll; |
Line 931 sub process_changes {
|
Line 983 sub process_changes {
|
} elsif ($values->{'menucollections'}) { |
} elsif ($values->{'menucollections'}) { |
$changes->{'menucollections'} = ''; |
$changes->{'menucollections'} = ''; |
} |
} |
|
} elsif ($action eq 'linkprotection') { |
|
my %menutitles = <imenu_titles(); |
|
my $switchserver = &check_switchserver($cdom,$cnum); |
|
my (@items,%deletions,%itemids,%haschanges); |
|
if ($env{'form.linkprot_add'}) { |
|
my $name = $env{'form.linkprot_name_add'}; |
|
$name =~ s/(`)/'/g; |
|
my ($newid,$error) = &get_courselti_id($cdom,$cnum,$name); |
|
if ($newid) { |
|
$itemids{'add'} = $newid; |
|
push(@items,'add'); |
|
$haschanges{$newid} = 1; |
|
} else { |
|
$errors .= '<span class="LC_error">'. |
|
&mt('Failed to acquire unique ID for link protection'). |
|
'</span>'; |
|
} |
|
} |
|
if (ref($values->{$action}) eq 'HASH') { |
|
my @todelete = &Apache::loncommon::get_env_multiple('form.linkprot_del'); |
|
my $maxnum = $env{'form.linkprot_maxnum'}; |
|
for (my $i=0; $i<=$maxnum; $i++) { |
|
my $itemid = $env{'form.linkprot_id_'.$i}; |
|
$itemid =~ s/\D+//g; |
|
if ($itemid) { |
|
if (ref($values->{$action}->{$itemid}) eq 'HASH') { |
|
push(@items,$i); |
|
$itemids{$i} = $itemid; |
|
if ((@todelete > 0) && (grep(/^$i$/,@todelete))) { |
|
$deletions{$itemid} = $values->{$action}->{$itemid}->{'name'}; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
|
|
foreach my $idx (@items) { |
|
my $itemid = $itemids{$idx}; |
|
next unless ($itemid); |
|
if (exists($deletions{$itemid})) { |
|
$lti{$itemid} = $deletions{$itemid}; |
|
$haschanges{$itemid} = 1; |
|
next; |
|
} |
|
my %current; |
|
if (ref($values->{$action}) eq 'HASH') { |
|
if (ref($values->{$action}->{$itemid}) eq 'HASH') { |
|
foreach my $key (keys(%{$values->{$action}->{$itemid}})) { |
|
$current{$key} = $values->{$action}->{$itemid}->{$key}; |
|
} |
|
} |
|
} |
|
foreach my $inner ('name','lifetime','version') { |
|
my $formitem = 'form.linkprot_'.$inner.'_'.$idx; |
|
$env{$formitem} =~ s/(`)/'/g; |
|
if ($inner eq 'lifetime') { |
|
$env{$formitem} =~ s/[^\d.]//g; |
|
} |
|
unless ($idx eq 'add') { |
|
if ($current{$inner} ne $env{$formitem}) { |
|
$haschanges{$itemid} = 1; |
|
} |
|
} |
|
if ($env{$formitem} ne '') { |
|
$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)) { |
|
foreach my $entry (keys(%haschanges)) { |
|
$changes->{$entry} = $lti{$entry}; |
|
} |
|
} |
} else { |
} else { |
foreach my $entry (@ordered) { |
foreach my $entry (@ordered) { |
if ($entry eq 'cloners') { |
if ($entry eq 'cloners') { |
Line 971 sub process_changes {
|
Line 1163 sub process_changes {
|
my $clonedom = $env{'form.cloners_newdom'}; |
my $clonedom = $env{'form.cloners_newdom'}; |
if (&check_clone($clonedom,$disallowed) eq 'ok') { |
if (&check_clone($clonedom,$disallowed) eq 'ok') { |
my $newdom = '*:'.$env{'form.cloners_newdom'}; |
my $newdom = '*:'.$env{'form.cloners_newdom'}; |
if (@clonedoms) { |
if (@clonedoms) { |
if (!grep(/^\Q$newdom\E$/,@clonedoms)) { |
if (!grep(/^\Q$newdom\E$/,@clonedoms)) { |
$newvalues{$entry} .= ','.$newdom; |
$newvalues{$entry} .= ','.$newdom; |
} |
} |
Line 1060 sub process_changes {
|
Line 1252 sub process_changes {
|
$autocoowner = $domconf{'autoenroll'}{'co-owners'}; |
$autocoowner = $domconf{'autoenroll'}{'co-owners'}; |
} |
} |
} |
} |
unless ($autocoowner) { |
if ($autocoowner) { |
|
$newvalues{'co-owners'} = $values->{'internal.co-owners'}; |
|
} else { |
my @keepcoowners = &Apache::loncommon::get_env_multiple('form.coowners'); |
my @keepcoowners = &Apache::loncommon::get_env_multiple('form.coowners'); |
my @pendingcoowners = &Apache::loncommon::get_env_multiple('form.pendingcoowners'); |
my @pendingcoowners = &Apache::loncommon::get_env_multiple('form.pendingcoowners'); |
my @invitecoowners = &Apache::loncommon::get_env_multiple('form.invitecoowners'); |
my @invitecoowners = &Apache::loncommon::get_env_multiple('form.invitecoowners'); |
Line 1105 sub process_changes {
|
Line 1299 sub process_changes {
|
if ($pendingcoowners ne '') { |
if ($pendingcoowners ne '') { |
@newpending = @pendingcoown; |
@newpending = @pendingcoown; |
} |
} |
|
} else { |
|
@newcoown = @currcoown; |
} |
} |
$newvalues{'pendingco-owners'} = join(',',sort(@newpending)); |
$newvalues{'pendingco-owners'} = join(',',sort(@newpending)); |
$newvalues{'co-owners'} = join(',',sort(@newcoown)); |
$newvalues{'co-owners'} = join(',',sort(@newcoown)); |
Line 1417 sub process_changes {
|
Line 1613 sub process_changes {
|
} |
} |
} |
} |
} |
} |
return; |
return $errors; |
|
} |
|
|
|
sub get_courselti_id { |
|
my ($cdom,$cnum,$name) = @_; |
|
# get lock on lti db in course |
|
my $lockhash = { |
|
lock => $env{'user.name'}. |
|
':'.$env{'user.domain'}, |
|
}; |
|
my $tries = 0; |
|
my $gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum); |
|
my ($id,$error); |
|
while (($gotlock ne 'ok') && ($tries<10)) { |
|
$tries ++; |
|
sleep (0.1); |
|
$gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum); |
|
} |
|
if ($gotlock eq 'ok') { |
|
my %currids = &Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1); |
|
if ($currids{'lock'}) { |
|
delete($currids{'lock'}); |
|
if (keys(%currids)) { |
|
my @curr = sort { $a <=> $b } keys(%currids); |
|
if ($curr[-1] =~ /^\d+$/) { |
|
$id = 1 + $curr[-1]; |
|
} else { |
|
$id = 1; |
|
} |
|
} else { |
|
$id = 1; |
|
} |
|
if ($id) { |
|
unless (&Apache::lonnet::newput('lti',{ $id => $name },$cdom,$cnum) eq 'ok') { |
|
$error = 'nostore'; |
|
} |
|
} else { |
|
$error = 'nonumber'; |
|
} |
|
} |
|
my $dellockoutcome = &Apache::lonnet::del('lti',['lock'],$cdom,$cnum); |
|
} else { |
|
$error = 'nolock'; |
|
} |
|
return ($id,$error); |
} |
} |
|
|
sub get_sec_str { |
sub get_sec_str { |
Line 1462 sub check_clone {
|
Line 1702 sub check_clone {
|
sub store_changes { |
sub store_changes { |
my ($cdom,$cnum,$prefs_order,$actions,$prefs,$values,$changes,$crstype) = @_; |
my ($cdom,$cnum,$prefs_order,$actions,$prefs,$values,$changes,$crstype) = @_; |
my ($chome,$output); |
my ($chome,$output); |
my (%storehash,@delkeys,@need_env_update,@oldcloner); |
my (%storehash,@delkeys,@need_env_update,@oldcloner,%oldlinkprot); |
if ((ref($values) eq 'HASH') && (ref($changes) eq 'HASH')) { |
if ((ref($values) eq 'HASH') && (ref($changes) eq 'HASH')) { |
|
if (ref($values->{'linkprotection'}) eq 'HASH') { |
|
%oldlinkprot = %{$values->{'linkprotection'}}; |
|
} |
|
delete($values->{'linkprotection'}); |
%storehash = %{$values}; |
%storehash = %{$values}; |
} else { |
} else { |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
Line 1473 sub store_changes {
|
Line 1717 sub store_changes {
|
} |
} |
return $output; |
return $output; |
} |
} |
|
my ($numchanges,$skipstore); |
|
if (ref($changes) eq 'HASH') { |
|
$numchanges = scalar(keys(%{$changes})); |
|
if (($numchanges == 1) && (exists($changes->{'linkprotection'}))) { |
|
$skipstore = 1; |
|
} elsif (!$numchanges) { |
|
if ($crstype eq 'Community') { |
|
$output = &mt('No changes made to community settings.'); |
|
} else { |
|
$output = &mt('No changes made to course settings.'); |
|
} |
|
return $output; |
|
} |
|
} |
my %yesno = ( |
my %yesno = ( |
hidefromcat => '1', |
hidefromcat => '1', |
problem_stream_switch => '1', |
problem_stream_switch => '1', |
Line 1498 sub store_changes {
|
Line 1756 sub store_changes {
|
"'$storehash{$key}'")).'</li>'; |
"'$storehash{$key}'")).'</li>'; |
} |
} |
} |
} |
|
} elsif ($item eq 'linkprotection') { |
|
my ($ltiauth,%ltienc,$lti_save_error); |
|
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'}; |
|
} |
|
if (ref($changes->{$item}) eq 'HASH') { |
|
foreach my $id (sort { $a <=> $b } keys(%{$changes->{$item}})) { |
|
if (ref($changes->{$item}->{$id}) eq 'HASH') { |
|
if (exists($changes->{$item}->{$id}->{'key'})) { |
|
$ltienc{$id}{'key'} = $changes->{$item}->{$id}->{'key'}; |
|
delete($changes->{$item}->{$id}->{'key'}); |
|
} |
|
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').', '; |
|
} |
|
} |
|
} |
|
$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>'; |
|
} |
|
} |
|
} else { |
|
$lti_save_error = 1; |
|
} |
|
} |
|
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>'. |
|
'<span class="LC_error">'. |
|
&mt('An error occurred when saving changes to link protection settings, which remain unchanged.'). |
|
'</span>'. |
|
'</li>'; |
|
} |
} else { |
} else { |
if (ref($prefs->{$item}->{'ordered'}) eq 'ARRAY') { |
if (ref($prefs->{$item}->{'ordered'}) eq 'ARRAY') { |
my @settings = @{$prefs->{$item}->{'ordered'}}; |
my @settings = @{$prefs->{$item}->{'ordered'}}; |
Line 1652 sub store_changes {
|
Line 2031 sub store_changes {
|
$displayval = &Apache::lonlocal::locallocaltime($displayval); |
$displayval = &Apache::lonlocal::locallocaltime($displayval); |
} elsif ($key eq 'categories') { |
} elsif ($key eq 'categories') { |
$displayval = $env{'form.categories_display'}; |
$displayval = $env{'form.categories_display'}; |
} elsif (($key eq 'canuse_pdfforms') || ($key eq 'usejsme') || ($key eq 'uselcmath')) { |
} elsif (($key eq 'canuse_pdfforms') || ($key eq 'usejsme') || |
|
($key eq 'uselcmath') || ($key eq 'inline_chem')) { |
if ($changes->{$item}{$key} eq '1') { |
if ($changes->{$item}{$key} eq '1') { |
$displayval = &mt('Yes'); |
$displayval = &mt('Yes'); |
} elsif ($changes->{$item}{$key} eq '0') { |
} elsif ($changes->{$item}{$key} eq '0') { |
Line 1785 sub store_changes {
|
Line 2165 sub store_changes {
|
} |
} |
} |
} |
} |
} |
|
if ($skipstore) { |
|
return $output; |
|
} |
if (&Apache::lonnet::put('environment',\%storehash,$cdom,$cnum) eq 'ok') { |
if (&Apache::lonnet::put('environment',\%storehash,$cdom,$cnum) eq 'ok') { |
if (ref($changes) eq 'HASH') { |
if (ref($changes) eq 'HASH') { |
if (ref($changes->{'courseinfo'}) eq 'HASH') { |
if (ref($changes->{'courseinfo'}) eq 'HASH') { |
Line 2166 function toggleAddmenucoll() {
|
Line 2549 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 3601 sub coowner_invitations {
|
Line 4043 sub coowner_invitations {
|
@pendingcoown = split(',',$pendingcoowners); |
@pendingcoown = split(',',$pendingcoowners); |
} |
} |
if (ref($currcoownref) eq 'ARRAY') { |
if (ref($currcoownref) eq 'ARRAY') { |
@currcoown == @{$currcoownref}; |
@currcoown = @{$currcoownref}; |
} |
} |
my $disabled; |
my $disabled; |
if ($noedit) { |
if ($noedit) { |
Line 3665 sub manage_coownership {
|
Line 4107 sub manage_coownership {
|
@pendingcoown = split(',',$pendingcoowners); |
@pendingcoown = split(',',$pendingcoowners); |
} |
} |
if (ref($currcoownref) eq 'ARRAY') { |
if (ref($currcoownref) eq 'ARRAY') { |
@currcoown == @{$currcoownref}; |
@currcoown = @{$currcoownref}; |
} |
} |
my $disabled; |
my $disabled; |
if ($noedit) { |
if ($noedit) { |
Line 3873 sub print_feedback {
|
Line 4315 sub print_feedback {
|
} |
} |
if ($position eq 'top') { |
if ($position eq 'top') { |
my $includeempty = 0; |
my $includeempty = 0; |
$datatable .= '</td><td align="right">'. |
$datatable .= '</td><td align="right">'. |
&user_table($cdom,$item,\@sections, |
&user_table($cdom,$item,\@sections, |
$settings->{$item},\%lt,$noedit); |
$settings->{$item},\%lt,$noedit); |
} else { |
} else { |
$datatable .= &Apache::lonhtmlcommon::textbox($item.'.text', |
$datatable .= &Apache::lonhtmlcommon::textbox($item.'.text', |
Line 4097 sub print_discussion {
|
Line 4539 sub print_discussion {
|
'<table>'.&role_checkboxes($cdom,$cnum,$item,$settings,undef,undef,$noedit). |
'<table>'.&role_checkboxes($cdom,$cnum,$item,$settings,undef,undef,$noedit). |
'</table>'; |
'</table>'; |
} elsif ($item eq 'plc.users.denied') { |
} elsif ($item eq 'plc.users.denied') { |
$datatable .= '</td><td align="right">'. |
$datatable .= '</td><td align="right">'. |
&user_table($cdom,$item,undef, |
&user_table($cdom,$item,undef, |
$settings->{$item},\%lt,$noedit); |
$settings->{$item},\%lt,$noedit); |
} elsif ($item eq 'pch.roles.denied') { |
} elsif ($item eq 'pch.roles.denied') { |
$datatable .= '</td><td align="right">'. |
$datatable .= '</td><td align="right">'. |
Line 4468 sub print_appearance {
|
Line 4910 sub print_appearance {
|
text => '<b>'.&mt($itemtext->{'usejsme'}).'</b>', |
text => '<b>'.&mt($itemtext->{'usejsme'}).'</b>', |
input => 'radio', |
input => 'radio', |
}, |
}, |
|
'inline_chem' => { |
|
text => '<b>'.&mt($itemtext->{'inline_chem'}).'</b>', |
|
input => 'radio', |
|
}, |
); |
); |
return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'appearance',$noedit); |
return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'appearance',$noedit); |
} |
} |
Line 4861 sub print_menuitems {
|
Line 5307 sub print_menuitems {
|
my %checked; |
my %checked; |
my $on = ' checked="checked"'; |
my $on = ' checked="checked"'; |
foreach my $key (keys(%{$menu{$num}})) { |
foreach my $key (keys(%{$menu{$num}})) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'foot') || ($key eq 'main')) { |
if ($menu{$num}{$key} eq 'y') { |
if ($menu{$num}{$key} eq 'y') { |
$checked{$key} = $on; |
$checked{$key} = $on; |
} |
} |
Line 4878 sub print_menuitems {
|
Line 5324 sub print_menuitems {
|
foreach my $category (@order) { |
foreach my $category (@order) { |
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
$datatable .= '<fieldset style="vertical-align:top; display:inline-block"><legend>'.$menutitles{$category}.'</legend>'."\n"; |
$datatable .= '<fieldset style="vertical-align:top; display:inline-block"><legend>'.$menutitles{$category}.'</legend>'."\n"; |
|
if ($category eq 'text') { |
|
$datatable .= '<i>'.&mt('Header').'</i><br />'; |
|
} |
foreach my $field (@{$categories{$category}}) { |
foreach my $field (@{$categories{$category}}) { |
|
if ($field eq 'disc') { |
|
$datatable .= '<br /><i>'.&mt('Footer').'</i><br />'; |
|
} |
$datatable .= '<label><input type="checkbox" name="menucollections_'.$num.'" value="'.$field.'"'.$checked{$field}.$disabled.' />'. |
$datatable .= '<label><input type="checkbox" name="menucollections_'.$num.'" value="'.$field.'"'.$checked{$field}.$disabled.' />'. |
$menufields{$field}.'</label><br />'; |
$menufields{$field}.'</label><br />'; |
} |
} |
Line 4928 sub menuitems_abbreviations {
|
Line 5380 sub menuitems_abbreviations {
|
sub menuitems_categories { |
sub menuitems_categories { |
my @order = ('shown','text','links','list','inline'); |
my @order = ('shown','text','links','list','inline'); |
my %categories = ( |
my %categories = ( |
shown => ['top','inline','main'], |
shown => ['top','inline','foot','main'], |
text => ['name','role','crs'], |
text => ['name','role','crs','disc','fdbk'], |
links => ['personal','menu','comm','roles','help','logout'], |
links => ['pers','logo','menu','comm','roles','help','logout'], |
list => ['about','prefs','port','wish','anno','rss'], |
list => ['about','prefs','port','wish','anno','rss'], |
inline => ['cont','grades','chat','people','groups','resv','syll','feeds'], |
inline => ['cont','grades','chat','people','groups','resv','syll','feeds'], |
); |
); |
Line 4940 sub menuitems_categories {
|
Line 5392 sub menuitems_categories {
|
sub menuitems_titles { |
sub menuitems_titles { |
return &Apache::lonlocal::texthash ( |
return &Apache::lonlocal::texthash ( |
shown => 'Hierarchy', |
shown => 'Hierarchy', |
text => 'Header text', |
text => 'Text', |
links => 'Header links', |
links => 'Header links', |
list => 'Drop-down list', |
list => 'Drop-down list', |
inline => 'Inline links', |
inline => 'Inline links', |
Line 4951 sub menuitems_fields {
|
Line 5403 sub menuitems_fields {
|
return &Apache::lonlocal::texthash ( |
return &Apache::lonlocal::texthash ( |
top => 'Display header', |
top => 'Display header', |
inline => 'Display inline menu', |
inline => 'Display inline menu', |
|
foot => 'Display footer', |
main => 'Access to main menu', |
main => 'Access to main menu', |
personal => 'Personal', |
pers => 'Personal', |
|
logo => 'LON-CAPA', |
menu => 'Home', |
menu => 'Home', |
comm => 'Messages', |
comm => 'Messages', |
roles => 'Roles/Courses', |
roles => 'Roles/Courses', |
Line 4961 sub menuitems_fields {
|
Line 5415 sub menuitems_fields {
|
name => 'Fullname', |
name => 'Fullname', |
crs => 'Course Title', |
crs => 'Course Title', |
role => 'Current Role', |
role => 'Current Role', |
|
disc => 'Discussion', |
|
fdbk => 'Feedback', |
about => 'Information', |
about => 'Information', |
prefs => 'Preferences', |
prefs => 'Preferences', |
port => 'Portfolio', |
port => 'Portfolio', |
Line 5002 sub menucollections_display {
|
Line 5458 sub menucollections_display {
|
foreach my $num (@current) { |
foreach my $num (@current) { |
my %checked; |
my %checked; |
foreach my $key (keys(%{$menu{$num}})) { |
foreach my $key (keys(%{$menu{$num}})) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'foot') || ($key eq 'main')) { |
if ($menu{$num}{$key} eq 'y') { |
if ($menu{$num}{$key} eq 'y') { |
$checked{$key} = 1; |
$checked{$key} = 1; |
} |
} |
Line 5020 sub menucollections_display {
|
Line 5476 sub menucollections_display {
|
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
$output .= '<fieldset style="vertical-align:top; display:inline-block">'. |
$output .= '<fieldset style="vertical-align:top; display:inline-block">'. |
'<legend>'.$menutitles{$category}.'</legend>'."\n"; |
'<legend>'.$menutitles{$category}.'</legend>'."\n"; |
|
if ($category eq 'text') { |
|
$output .= '<b>'.&mt('Header Text').'</b><br /><br />'; |
|
} |
foreach my $field (@{$categories{$category}}) { |
foreach my $field (@{$categories{$category}}) { |
|
if ($field eq 'disc') { |
|
$output .= '<br /><b>'.&mt('Footer Text').'</b><br /><br />'; |
|
} |
if ($checked{$field}) { |
if ($checked{$field}) { |
$output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field}); |
$output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field}); |
} else { |
} else { |
Line 5038 sub menucollections_display {
|
Line 5500 sub menucollections_display {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub print_linkprotection { |
|
my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit) = @_; |
|
unless (ref($settings) eq 'HASH') { |
|
return; |
|
} |
|
|
|
my %linkprotection; |
|
my $count = 0; |
|
my $next = 1; |
|
my ($datatable,$disabled,$css_class); |
|
if ($noedit) { |
|
$disabled = ' disabled="disabled"'; |
|
} |
|
my %desc = &linkprot_names(); |
|
my %lt = &Apache::lonlocal::texthash ( |
|
'requ' => 'Required settings', |
|
'opti' => 'Optional settings', |
|
); |
|
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 (keys(%{$settings->{'linkprotection'}})) { |
|
my @current = sort { $a <=> $b } keys(%{$settings->{'linkprotection'}}); |
|
$next += $current[-1]; |
|
for (my $i=0; $i<@current; $i++) { |
|
my $num = $current[$i]; |
|
my %values; |
|
if (ref($settings->{'linkprotection'}->{$num}) eq 'HASH') { |
|
%values = %{$settings->{'linkprotection'}->{$num}}; |
|
} else { |
|
next; |
|
} |
|
my $selected; |
|
if (($values{'version'} eq 'LTI-1p0') || ($values{'version'} eq '')) { |
|
$selected = ' selected="selected"'; |
|
} |
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
$datatable .= |
|
'<tr '.$css_class.'><td><span class="LC_nobreak">'. |
|
'<label><input type="checkbox" name="linkprot_del" value="'.$i.'"'.$disabled.' />'. |
|
&mt('Delete?').'</label></span></td><td>'; |
|
my ($usersty,$onclickrequser,%checkedrequser); |
|
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). |
|
'<span class="LC_nobreak">'.$desc{'version'}.':<select name="linkprot_version_'.$i.'"'.$disabled.'>'. |
|
'<option value="LTI-1p0" '.$selected.'>1.1</option></select></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" name="linkprot_lifetime_'.$i.'"'. |
|
' value="'.$values{'lifetime'}.'" size="3"'.$disabled.' /></span>'; |
|
if ($ltiauth) { |
|
$datatable .= (' 'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'. |
|
'<label><input type="radio" name="linkprot_requser_'.$i.'" value="0"'. |
|
$onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label> '. |
|
'<label><input type="radio" name="linkprot_requser_'.$i.'" value="1"'. |
|
$onclickrequser.$checkedrequser{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'. |
|
'<br /><br />'; |
|
} |
|
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 ++; |
|
} |
|
} |
|
} |
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n". |
|
'<input type="hidden" name="linkprot_maxnum" value="'.$next.'" />'."\n". |
|
'<input type="checkbox" name="linkprot_add" value="1"'.$disabled.' />'.&mt('Add').'</span></td>'."\n". |
|
'<td>'; |
|
my ($usersty,$onclickrequser,%checkedrequser); |
|
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). |
|
'<span class="LC_nobreak">'.$desc{'version'}.':<select name="linkprot_version_add"'.$disabled.'>'. |
|
'<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n". |
|
(' 'x2). |
|
'<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" size="3" name="linkprot_lifetime_add" value="300"'.$disabled.' /></span> '."\n"; |
|
if ($ltiauth) { |
|
$datatable .= (' 'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'. |
|
'<label><input type="radio" name="linkprot_requser_add" value="0"'. |
|
$onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label> '. |
|
'<label><input type="radio" name="linkprot_requser_add" value="1"'. |
|
$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 ++; |
|
return $datatable;; |
|
} |
|
|
|
sub linkprot_names { |
|
return &Apache::lonlocal::texthash( |
|
'version' => 'LTI Version', |
|
'key' => 'Key', |
|
'lifetime' => 'Nonce lifetime (s)', |
|
'name' => 'Launcher Application', |
|
'secret' => 'Secret', |
|
'requser' => 'Use identity', |
|
'email' => 'Email address', |
|
'sourcedid' => 'User ID', |
|
'other' => 'Other', |
|
'auth' => 'Display LON-CAPA login page', |
|
'reject' => 'Discontinue launch process', |
|
); |
|
} |
|
|
|
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 { |
my ($cdom,$settings,$allitems,$rowtotal,$crstype,$noedit) = @_; |
my ($cdom,$settings,$allitems,$rowtotal,$crstype,$noedit) = @_; |
unless ((ref($settings) eq 'HASH') && (ref($allitems) eq 'ARRAY')) { |
unless ((ref($settings) eq 'HASH') && (ref($allitems) eq 'ARRAY')) { |
Line 5060 sub print_other {
|
Line 5801 sub print_other {
|
input => 'textbox', |
input => 'textbox', |
size => '30', |
size => '30', |
}; |
}; |
my $output = &make_item_rows($cdom,\%items,\@ordered,$settings,$rowtotal,$crstype,'other',$noedit); |
return &make_item_rows($cdom,\%items,\@ordered,$settings,$rowtotal,$crstype,'other',$noedit); |
} |
} |
|
|
sub get_other_items { |
sub get_other_items { |
Line 5241 sub make_item_rows {
|
Line 5982 sub make_item_rows {
|
$settings->{$item},$disabled); |
$settings->{$item},$disabled); |
} elsif ($items->{$item}{input} eq 'radio') { |
} elsif ($items->{$item}{input} eq 'radio') { |
my ($unsetdefault,$valueyes,$valueno); |
my ($unsetdefault,$valueyes,$valueno); |
if (($item eq 'usejsme') || ($item eq 'uselcmath')) { |
if (($item eq 'usejsme') || ($item eq 'uselcmath') || ($item eq 'inline_chem')) { |
my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); |
my %domdefs = &Apache::lonnet::get_domain_defaults($cdom); |
unless ($domdefs{$item} eq '0') { |
unless ($domdefs{$item} eq '0') { |
$unsetdefault = 1; |
$unsetdefault = 1; |