[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.9.2.1 and 1.21.4.11.2.1

version 1.21.4.9.2.1, 2017/08/15 23:41:34 version 1.21.4.11.2.1, 2020/10/25 19:10:26
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 209  $jscript Line 209  $jscript
                                                        "'cancreate_emaildomain','default');";                                                         "'cancreate_emaildomain','default');";
                 }                  }
             }              }
               if (grep(/^contacts$/,@actions)) {
                   my $customclass = 'LC_helpdesk_override';
                   my $optionsprefix = 'LC_options_helpdesk_';
                   $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(/^scantron$/,@actions)) {
                   $onload .= "toggleScantron('document.display');";
               }
             if ($onload) {              if ($onload) {
                 my %loaditems = (                  my %loaditems = (
                                   'onload' => $onload,                                    'onload' => $onload,
Line 366  sub display_settings { Line 385  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) {
Removed from v.1.21.4.9.2.1  
changed lines
  Added in v.1.21.4.11.2.1

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