[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 and 1.21.4.13.2.2

version 1.21.4.13, 2021/12/28 02:32:31 version 1.21.4.13.2.2, 2022/02/07 12:00:27
Line 39  use Apache::courseclassifier(); Line 39  use Apache::courseclassifier();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
 sub print_header {  sub print_header {
     my ($r,$phase,$context,$jscript,$container,$instcode,$dom) = @_;      my ($r,$phase,$context,$jscript,$container,$instcode,$dom,$values) = @_;
     my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check,      my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check,
         $crstype,@actions,@code_order);          $crstype,@actions,@code_order);
     if ($phase eq 'display') {      if ($phase eq 'display') {
Line 214  $jscript Line 214  $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(/^ltitools$/,@actions)) {
                   $onload .= "toggleLTITools(document.display,'user','add');";
                   if (ref($values) eq 'HASH') {
                       if (ref($values->{'ltitools'}) eq 'HASH') {
                           my $numltitools = scalar(keys(%{$values->{'ltitools'}}));
                           for (my $i=0; $i<$numltitools; $i++) {
                               $onload .= "toggleLTITools(document.display,'user','$i');";
                           }
                       }
                   }
               }
             if (grep(/^wafproxy$/,@actions)) {              if (grep(/^wafproxy$/,@actions)) {
                 $onload .= "toggleWAF();checkWAF();updateWAF();";                  $onload .= "toggleWAF();checkWAF();updateWAF();";
             }              }
Line 239  $jscript Line 250  $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 $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'}}));
                           for (my $i=0; $i<=$posslti; $i++) {
                               my $num = $i;
                               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');";
                               }
                           }
                       }
                   }
               }
               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 333  sub make_changes { Line 378  sub make_changes {
                 } else {                  } else {
                     $changes{$item} = {};                      $changes{$item} = {};
                     $errors =                      $errors =
                         &Apache::courseprefs::process_changes($dom,$item,$values,                          &Apache::courseprefs::process_changes($dom,$confname,$item,$values,
                                                               $prefs->{$item},$changes{$item},                                                                $prefs->{$item},$changes{$item},
                                                               $allitems,\%disallowed,$crstype);                                                                $allitems,\%disallowed,$crstype);
                     if (keys(%{$changes{$item}}) > 0) {                      if (keys(%{$changes{$item}}) > 0) {
Line 393  sub display_settings { Line 438  sub display_settings {
     if (ref($values) eq 'HASH') {      if (ref($values) eq 'HASH') {
         $instcode = $values->{'internal.coursecode'};          $instcode = $values->{'internal.coursecode'};
     }      }
     &print_header($r,$phase,$context,$jscript,$container,$instcode,$dom);      &print_header($r,$phase,$context,$jscript,$container,$instcode,$dom,$values);
     my $divwidth = 900;      my $divwidth = 900;
     if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) {       if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { 
         if (@actions > 0) {          if (@actions > 0) {
Line 443  sub display_settings { Line 488  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};
Removed from v.1.21.4.13  
changed lines
  Added in v.1.21.4.13.2.2

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