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

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

version 1.55, 2021/12/28 02:20:07 version 1.56, 2022/02/01 23:13:19
Line 282  $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 495  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};
Removed from v.1.55  
changed lines
  Added in v.1.56

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