--- loncom/interface/lonconfigsettings.pm 2022/02/06 21:36:59 1.57 +++ loncom/interface/lonconfigsettings.pm 2022/02/14 02:48:46 1.58 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: lonconfigsettings.pm,v 1.57 2022/02/06 21:36:59 raeburn Exp $ +# $Id: lonconfigsettings.pm,v 1.58 2022/02/14 02:48:46 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -237,6 +237,11 @@ $jscript } } } + my %servers = &Apache::lonnet::get_servers($dom,'library'); + foreach my $server (keys(%servers)) { + $onload .= "togglePrivKey(document.display,'$server');"; + } + $onload .= "toggleLTIEncKey(document.display);"; } if (grep(/^ltitools$/,@actions)) { $onload .= "toggleLTITools(document.display,'passback','add');". @@ -308,7 +313,7 @@ $jscript if ($values->{'linkprotection'}->{$i}->{'usable'}) { $onload .= "toggleLTI(document.display,'$num','secret');"; } - } + } if ($ltiauth) { $onload .= "toggleLTIReqUser(document.display,'requser','optional','1','block','$num');". "toggleLTIReqUser(document.display,'mapuser','userfield','other','inline-block','$num');"; @@ -523,6 +528,16 @@ sub display_settings { $settings = $inststatus; } } + } elsif ($item eq 'lti') { + if (ref($values->{'ltisec'}) eq 'HASH') { + if (ref($values->{'lti'}) eq 'HASH') { + $settings = {%{$values->{'lti'}},%{$values->{'ltisec'}}}; + } else { + $settings = $values->{'ltisec'}; + } + } elsif (ref($values->{'lti'}) eq 'HASH') { + $settings = $values->{'lti'}; + } } ($output{$item},$rowtotal{$item}) = &Apache::domainprefs::print_config_box($r,$dom,$confname,