[BACK]Return to domainprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.160.6.118.2.5 and 1.160.6.118.2.6

version 1.160.6.118.2.5, 2022/02/21 05:31:41 version 1.160.6.118.2.6, 2022/02/21 13:56:22
Line 219  sub handler { Line 219  sub handler {
                 'coursedefaults','usersessions','loadbalancing',                  'coursedefaults','usersessions','loadbalancing',
                 'requestauthor','selfenrollment','inststatus',                  'requestauthor','selfenrollment','inststatus',
                 'passwords','ltitools','ltisec','wafproxy','ipaccess'],$dom);                  'passwords','ltitools','ltisec','wafproxy','ipaccess'],$dom);
       my %encconfig =
           &Apache::lonnet::get_dom('encconfig',['ltitools','linkprot'],$dom,undef,1);
     if (ref($domconfig{'ltitools'}) eq 'HASH') {      if (ref($domconfig{'ltitools'}) eq 'HASH') {
         my %encconfig =  
             &Apache::lonnet::get_dom('encconfig',['ltitools','linkprot'],$dom,undef,1);  
         if (ref($encconfig{'ltitools'}) eq 'HASH') {          if (ref($encconfig{'ltitools'}) eq 'HASH') {
             foreach my $id (keys(%{$domconfig{'ltitools'}})) {              foreach my $id (keys(%{$domconfig{'ltitools'}})) {
                 if (ref($domconfig{'ltitools'}{$id}) eq 'HASH') {                  if (ref($domconfig{'ltitools'}{$id}) eq 'HASH') {
Line 3155  sub lti_toggle_js { Line 3155  sub lti_toggle_js {
     my %servers = &Apache::lonnet::get_servers($dom,'library');      my %servers = &Apache::lonnet::get_servers($dom,'library');
     my $primary = &Apache::lonnet::domain($dom,'primary');      my $primary = &Apache::lonnet::domain($dom,'primary');
     my $course_servers = "'".join("','",keys(%servers))."'";      my $course_servers = "'".join("','",keys(%servers))."'";
       return <<"ENDSCRIPT";
   <script type="text/javascript">
   // <![CDATA[
 function toggleLTIEncKey(form) {  function toggleLTIEncKey(form) {
     var shownhosts = new Array();      var shownhosts = new Array();
     var hiddenhosts = new Array();      var hiddenhosts = new Array();
Line 13113  sub modify_lti { Line 13116  sub modify_lti {
         $errors .= '<li>'.$proterror.'</li>';          $errors .= '<li>'.$proterror.'</li>';
     }      }
   
     my $putresult;      my ($putresult,%keystore);
     if (keys(%secchanges)) {      if (keys(%secchanges)) {
         my %ltienchash;          my %ltienchash;
         my %ltihash = (          my %ltihash = (
Line 13121  sub modify_lti { Line 13124  sub modify_lti {
                       );                        );
         $putresult = &Apache::lonnet::put_dom('configuration',\%ltihash,$dom);          $putresult = &Apache::lonnet::put_dom('configuration',\%ltihash,$dom);
         if ($putresult eq 'ok') {          if ($putresult eq 'ok') {
             my %keystore;  
             if ($secchanges{'private'}) {              if ($secchanges{'private'}) {
                 my $who = &escape($env{'user.name'}.':'.$env{'user.domain'});                  my $who = &escape($env{'user.name'}.':'.$env{'user.domain'});
                 foreach my $hostid (keys(%newkeyset)) {                  foreach my $hostid (keys(%newkeyset)) {
Removed from v.1.160.6.118.2.5  
changed lines
  Added in v.1.160.6.118.2.6

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