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

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.21.4.13.2.3 and 1.21.4.13.2.6

version 1.21.4.13.2.3, 2022/02/20 19:43:12 version 1.21.4.13.2.6, 2022/04/05 16:43:34
Line 147  $linkprot_check .= <<ENDJS; Line 147  $linkprot_check .= <<ENDJS;
   
 var linkprotradio = '';  var linkprotradio = '';
 var secretinput = '';  var secretinput = '';
   var posscheck = '';
   
 ENDJS  ENDJS
                     if (@changeable) {                      if (@changeable) {
                         foreach my $num (@changeable) {                          foreach my $num (@changeable) {
                             ($numrules,$intargjs) =                              ($numrules,$intargjs) =
                                 &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);                                  &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);
                             if ($numrules) {                              $linkprot_check .= <<ENDJS;
                                 $linkprot_check .= <<ENDJS;  posscheck = '';
   
 linkprotradio = document.display.elements['linkprot_changesecret_$num'];  linkprotradio = document.display.elements['linkprot_changesecret_$num'];
 secretinput = document.display.elements['linkprot_secret_$num'].value;  
 if (linkprotradio.length) {  if (linkprotradio.length) {
     for (var i=0; i<linkprotradio.length; i++) {      for (var i=0; i<linkprotradio.length; i++) {
         if (linkprotradio[i].checked) {          if (linkprotradio[i].checked) {
             if (linkprotradio[i].value == 1) {              if (linkprotradio[i].value == 1) {
                 $intargjs                  posscheck = 1;
             }              }
         }          }
     }      }
 }  }
   
   ENDJS
                               if ($numrules) {
                                   $linkprot_check .= <<ENDJS;
   if (posscheck) {
       secretinput = document.display.elements['linkprot_secret_$num'].value;
       $intargjs
   }
   
 ENDJS  ENDJS
                             }                              }
                               $linkprot_check .= <<ENDJS;
   if (posscheck) {
       uncheckLinkProtMakeVis('visible','$num');
       document.display.elements['linkprot_secret_$num'].type = 'password';
   }
   
   ENDJS
                         }                          }
                     }                      }
                     if (@settable) {                      if (@settable) {
                         foreach my $num (@changeable) {                          foreach my $num (@settable) {
                             ($numrules,$intargjs) =                              ($numrules,$intargjs) =
                                 &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);                                  &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);
                             if ($numrules) {                              if ($numrules) {
                                 $linkprot_check .= <<ENDJS;                                  $linkprot_check .= <<ENDJS;
 secretinput = document.display.elements['linkprot_secret_$num'].value;  secretinput = document.display.elements['linkprot_secret_$num'].value;
 $intargjs  $intargjs
   
 ENDJS  ENDJS
                             }                              }
                               $linkprot_check .= <<ENDJS;
   uncheckLinkProtMakeVis('visible','$num');
   document.display.elements['linkprot_secret_$num'].type = 'password';
   
   ENDJS
                         }                          }
                     }                      }
                     ($numrules,$intargjs) =                      ($numrules,$intargjs) =
Line 190  secretinput = document.display.elements[ Line 212  secretinput = document.display.elements[
 if (document.display.elements['linkprot_add'].checked) {  if (document.display.elements['linkprot_add'].checked) {
     $intargjs      $intargjs
 }  }
   
 ENDJS  ENDJS
                     }                      }
                       $linkprot_check .= <<ENDJS;
   uncheckLinkProtMakeVis('visible','add');
   document.display.elements['linkprot_secret_add'].type = 'password';
   
   ENDJS
                 }                  }
             }              }
         }          }
Line 293  $jscript Line 321  $jscript
                 my $optionsprefix = 'LC_options_helpdesk_';                  my $optionsprefix = 'LC_options_helpdesk_';
                 $onload .= "toggleHelpdeskRow(document.display,'overrides','$customclass','$optionsprefix');";                  $onload .= "toggleHelpdeskRow(document.display,'overrides','$customclass','$optionsprefix');";
             }              }
               if (grep(/^lti$/,@actions)) {
                   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,'user','add');";                  $onload .= "toggleLTITools(document.display,'user','add');";
                 if (ref($values) eq 'HASH') {                  if (ref($values) eq 'HASH') {
Line 345  $jscript Line 380  $jscript
                             my %domdefs = &Apache::lonnet::get_domain_defaults($dom);                              my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
                             $ltiauth = $domdefs{'crsltiauth'};                              $ltiauth = $domdefs{'crsltiauth'};
                         }                          }
                           my $ishome;
                           my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
                           unless (($chome eq 'no_host') || ($chome eq '')) {
                               my @ids=&Apache::lonnet::current_machine_ids();
                               foreach my $id (@ids) { if ($id eq $chome) { $ishome=1; } }
                           }
                         my $posslti = scalar(keys(%{$values->{'linkprot'}}));                          my $posslti = scalar(keys(%{$values->{'linkprot'}}));
                         for (my $i=0; $i<=$posslti; $i++) {                          for (my $i=0; $i<=$posslti; $i++) {
                             my $num = $i;                              my $num = $i;
Line 360  $jscript Line 401  $jscript
                                 $onload .= "toggleLinkProtReqUser(document.display,'requser','optional','1','block','$num');".                                  $onload .= "toggleLinkProtReqUser(document.display,'requser','optional','1','block','$num');".
                                            "toggleLinkProtReqUser(document.display,'mapuser','userfield','other','inline-block','$num');";                                             "toggleLinkProtReqUser(document.display,'mapuser','userfield','other','inline-block','$num');";
                             }                              }
                               if ($ishome) {
                                   $onload .= "uncheckLinkProtMakeVis('visible','$num');";
                               }
                         }                          }
                     }                      }
                 }                  }
Line 459  sub make_changes { Line 503  sub make_changes {
                     $errors =                      $errors =
                         &Apache::courseprefs::process_changes($dom,$confname,$item,$values,                          &Apache::courseprefs::process_changes($dom,$confname,$item,$values,
                                                               $prefs->{$item},$changes{$item},                                                                $prefs->{$item},$changes{$item},
                                                               $allitems,\%disallowed,$crstype);                                                                $allitems,\%disallowed,$crstype,
                                                                 \%lastact);
                     if (keys(%{$changes{$item}}) > 0) {                      if (keys(%{$changes{$item}}) > 0) {
                         $numchanged ++;                          $numchanged ++;
                     }                      }
Line 561  sub display_settings { Line 606  sub display_settings {
                                     $settings = $inststatus;                                      $settings = $inststatus;
                                 }                                  }
                             }                              }
                           } elsif ($item eq 'lti') {
                               if (ref($values->{'ltisec'}) eq 'HASH') {
                                   $settings = $values->{'ltisec'};
                               }
                         }                          }
                         ($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.21.4.13.2.3  
changed lines
  Added in v.1.21.4.13.2.6

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