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

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.56 and 1.58

version 1.56, 2022/02/01 23:13:19 version 1.58, 2022/02/14 02:48:46
Line 237  $jscript Line 237  $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)) {              if (grep(/^ltitools$/,@actions)) {
                 $onload .= "toggleLTITools(document.display,'passback','add');".                  $onload .= "toggleLTITools(document.display,'passback','add');".
Line 291  $jscript Line 296  $jscript
             if (grep(/^linkprotection$/,@actions)) {              if (grep(/^linkprotection$/,@actions)) {
                 if (ref($values) eq 'HASH') {                  if (ref($values) eq 'HASH') {
                     if (ref($values->{'linkprotection'}) eq 'HASH') {                      if (ref($values->{'linkprotection'}) eq 'HASH') {
                           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($dom);
                               $ltiauth = $domdefs{'crsltiauth'};
                           }
                         my $posslti = scalar(keys(%{$values->{'linkprotection'}}));                          my $posslti = scalar(keys(%{$values->{'linkprotection'}}));
                         for (my $i=0; $i<$posslti; $i++) {                          for (my $i=0; $i<=$posslti; $i++) {
                             if ($values->{'linkprotection'}->{'usable'}) {                              my $num = $i;
                                 $onload .= "toggleLTI(document.display,'$i','secret');";                              if ($i == $posslti) {
                                   $num = 'add';
                               }
                               if (ref($values->{'linkprotection'}->{$i}) eq 'HASH') {
                                   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');";
                             }                              }
                         }                          }
                     }                      }
Line 506  sub display_settings { Line 528  sub display_settings {
                                     $settings = $inststatus;                                      $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}) =                          ($output{$item},$rowtotal{$item}) =
                             &Apache::domainprefs::print_config_box($r,$dom,$confname,                              &Apache::domainprefs::print_config_box($r,$dom,$confname,
Removed from v.1.56  
changed lines
  Added in v.1.58

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