[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.2 and 1.21.4.17

version 1.21.4.13.2.2, 2022/02/07 12:00:27 version 1.21.4.17, 2024/07/14 23:48:58
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,$values) = @_;      my ($r,$phase,$context,$jscript,$container,$instcode,$dom) = @_;
     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 256  $jscript Line 245  $jscript
                     $onload = "courseSet('','load');toggleCloners(document.display.cloners_instcode);";                      $onload = "courseSet('','load');toggleCloners(document.display.cloners_instcode);";
                 }                  }
             }              }
             if (grep(/^linkprotection$/,@actions)) {              if (grep(/^grading$/,@actions)) {
                 if (ref($values) eq 'HASH') {                  $onload .= 'toggleGrading(document.display);toggleHiddenTotalsSec(document.display);';
                     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) {              if ($onload) {
                 my %loaditems = (                  my %loaditems = (
Line 421  sub make_changes { Line 384  sub make_changes {
     if ($context eq 'course') {      if ($context eq 'course') {
         $footer_text = 'Back to display/edit settings';           $footer_text = 'Back to display/edit settings'; 
     }      }
     &print_footer($r,$phase,'display',$footer_text,\@actions,$container,$parm_permission);  
     $r->print('</p>');      $r->print('</p>');
       &print_footer($r,$phase,'display',$footer_text,\@actions,$container,$parm_permission);
     return \%lastact;      return \%lastact;
 }  }
   
Line 438  sub display_settings { Line 401  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,$values);      &print_header($r,$phase,$context,$jscript,$container,$instcode,$dom);
     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) {
Removed from v.1.21.4.13.2.2  
changed lines
  Added in v.1.21.4.17

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