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

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

version 1.42, 2018/03/23 01:01:21 version 1.56, 2022/02/01 23:13:19
Line 219  $jscript Line 219  $jscript
                 $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,'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'}}));
Line 227  $jscript Line 230  $jscript
                             $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,'lcauth','$i');".
                                          "toggleLTI(document.display,'lcmenu','$i');".
                                          "toggleLTI(document.display,'passback','$i');".
                                          "toggleLTI(document.display,'callback','$i');";
                         }                          }
                     }                      }
                 }                  }
Line 247  $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 (grep(/^autoupdate$/,@actions)) {
                   $onload .= "toggleLastActiveDays(document.display);";
               }
               if (grep(/^autoenroll$/,@actions)) {
                   $onload .= "toggleFailsafe(document.display);";
               }
               if (grep(/^login$/,@actions)) {
                   my %domservers = &Apache::lonnet::get_servers($dom);
                   foreach my $server (sort(keys(%domservers))) {
                       $onload .= "toggleSamlOptions(document.display,'$server');";
                   }
               }
             if ($onload) {              if ($onload) {
                 my %loaditems = (                  my %loaditems = (
                                   'onload' => $onload,                                    'onload' => $onload,
Line 254  $jscript Line 282  $jscript
                 $additem = {'add_entries' => \%loaditems,};                  $additem = {'add_entries' => \%loaditems,};
             }              }
         } elsif ($context eq 'course') {          } elsif ($context eq 'course') {
               my $onload;
             if (grep(/^courseinfo$/,@actions)) {              if (grep(/^courseinfo$/,@actions)) {
                 if (@code_order) {                   if (@code_order) {
                     $additem = {                      $onload = "courseSet('','load');toggleCloners(document.display.cloners_instcode);";
                                    add_entries => {'onload' => "courseSet('','load');toggleCloners(document.display.cloners_instcode);"},                  }
                                };              }
               if (grep(/^linkprotection$/,@actions)) {
                   if (ref($values) eq 'HASH') {
                       if (ref($values->{'linkprotection'}) eq 'HASH') {
                           my $posslti = scalar(keys(%{$values->{'linkprotection'}}));
                           for (my $i=0; $i<$posslti; $i++) {
                               if ($values->{'linkprotection'}->{'usable'}) {
                                   $onload .= "toggleLTI(document.display,'$i','secret');";
                               }
                           }
                       }
                 }                  }
             }              }
               if ($onload) {
                   my %loaditems = (
                                     'onload' => $onload,
                                   );
                   $additem = {'add_entries' => \%loaditems,};
               }
         }          }
     }      }
     $r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));      $r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));
Line 339  sub make_changes { Line 384  sub make_changes {
        {href=>"javascript:changePage(document.$phase,'$phase')",         {href=>"javascript:changePage(document.$phase,'$phase')",
         text=>"Updated"});          text=>"Updated"});
     &print_header($r,$phase,$context,undef,$container);      &print_header($r,$phase,$context,undef,$container);
     my ($crstype,%lastact);      my ($crstype,%lastact,$errors);
     if ($context eq 'course') {      if ($context eq 'course') {
         $crstype = &Apache::loncommon::course_type();          $crstype = &Apache::loncommon::course_type();
     }      }
Line 353  sub make_changes { Line 398  sub make_changes {
                                           $confname,$item,$roles,$values,\%lastact));                                            $confname,$item,$roles,$values,\%lastact));
                 } else {                  } else {
                     $changes{$item} = {};                      $changes{$item} = {};
                     &Apache::courseprefs::process_changes($dom,$item,$values,                      $errors =
                                                           $prefs->{$item},$changes{$item},                          &Apache::courseprefs::process_changes($dom,$confname,$item,$values,
                                                           $allitems,\%disallowed,$crstype);                                                                $prefs->{$item},$changes{$item},
                                                                 $allitems,\%disallowed,$crstype);
                     if (keys(%{$changes{$item}}) > 0) {                      if (keys(%{$changes{$item}}) > 0) {
                         $numchanged ++;                          $numchanged ++;
                     }                      }
Line 387  sub make_changes { Line 433  sub make_changes {
             }              }
             $r->print('</p>');              $r->print('</p>');
         }          }
           if ($errors) {
               $r->print('<p>'.$errors.'</p>');
           }
     }      }
     $r->print('<p>');      $r->print('<p>');
     my $footer_text = 'Back to configuration display';      my $footer_text = 'Back to configuration display';
Line 463  sub display_settings { Line 512  sub display_settings {
                                 $phase,$item,$prefs->{$item},$settings);                                  $phase,$item,$prefs->{$item},$settings);
                     } else {                      } else {
                         ($output{$item},$rowtotal{$item}) =                          ($output{$item},$rowtotal{$item}) =
                             &Apache::courseprefs::print_config_box($r,$dom,$phase,                              &Apache::courseprefs::print_config_box($r,$dom,$confname,$phase,
                                 $item,$prefs->{$item},$values,$allitems,$crstype,$parm_permission);                                  $item,$prefs->{$item},$values,$allitems,$crstype,$parm_permission);
                     }                      }
                     $rowsum += $rowtotal{$item};                      $rowsum += $rowtotal{$item};
Line 543  sub display_choices { Line 592  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.42  
changed lines
  Added in v.1.56

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