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

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.41 and 1.49

version 1.41, 2018/01/01 01:29:38 version 1.49, 2021/07/30 13:48:20
Line 218  $jscript Line 218  $jscript
             if (grep(/^lti$/,@actions)) {              if (grep(/^lti$/,@actions)) {
                 $onload .= "toggleLTI(document.display,'user','add');".                  $onload .= "toggleLTI(document.display,'user','add');".
                            "toggleLTI(document.display,'crs','add');".                             "toggleLTI(document.display,'crs','add');".
                            "toggleLTI(document.display,'sec','add');";                             "toggleLTI(document.display,'sec','add');".
                              "toggleLTI(document.display,'lcauth','add');".
                              "toggleLTI(document.display,'lcmenu','add');".
                              "toggleLTI(document.display,'passback','add');".
                              "toggleLTI(document.display,'callback','add');";
                 if (ref($values) eq 'HASH') {                  if (ref($values) eq 'HASH') {
                     if (ref($values->{'lti'}) eq 'HASH') {                      if (ref($values->{'lti'}) eq 'HASH') {
                         my $numlti = scalar(keys(%{$values->{'lti'}}));                          my $numlti = scalar(keys(%{$values->{'lti'}}));
                         for (my $i=0; $i<$numlti; $i++) {                          for (my $i=0; $i<$numlti; $i++) {
                             $onload .= "toggleLTI(document.display,'user','$i');".                              $onload .= "toggleLTI(document.display,'user','$i');".
                                        "toggleLTI(document.display,'crs','$i');".                                         "toggleLTI(document.display,'crs','$i');".
                                        "toggleLTI(document.display,'sec','$i');";                                         "toggleLTI(document.display,'sec','$i');".
                                          "toggleLTI(document.display,'lcauth','$i');".
                                          "toggleLTI(document.display,'lcmenu','$i');".
                                          "toggleLTI(document.display,'passback','$i');".
                                          "toggleLTI(document.display,'callback','$i');";
                         }                          }
                     }                      }
                 }                  }
Line 245  $jscript Line 253  $jscript
                     }                      }
                 }                  }
             }              }
               if (grep(/^wafproxy$/,@actions)) {
                   $onload .= "toggleWAF();checkWAF();updateWAF();";
               }
               if (grep(/^proctoring$/,@actions)) {
                   $onload .= "toggleProctoring(document.display,'proctorio');".
                              "toggleProctoring(document.display,'examity');";
               }
               if (grep(/^scantron$/,@actions)) {
                   $onload .= "toggleScantron('document.display');";
               }
             if ($onload) {              if ($onload) {
                 my %loaditems = (                  my %loaditems = (
                                   'onload' => $onload,                                    'onload' => $onload,
Line 541  sub display_choices { Line 559  sub display_choices {
                 $thirddiv = 1;                  $thirddiv = 1;
             }              }
         }          }
         $r->print('</div><br clear="all" />');  
     }      }
       $r->print('</div><div style="padding:0;clear:both;margin:0;border:0"></div>');
     $r->print(&print_footer($r,$phase,'display','Display',undef,$container,$parm_permission));      $r->print(&print_footer($r,$phase,'display','Display',undef,$container,$parm_permission));
     $r->print('</form>');      $r->print('</form>');
     if ($container) {      if ($container) {
Removed from v.1.41  
changed lines
  Added in v.1.49

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