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

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.68 and 1.72

version 1.68, 2023/03/19 16:05:48 version 1.72, 2023/09/24 03:31:18
Line 93  sub print_header { Line 93  sub print_header {
                             var gotcode = 0;                              var gotcode = 0;
                             for (var i=0; i<codes.length; i++) {                              for (var i=0; i<codes.length; i++) {
                                 if (codes[i].selectedIndex != 0) {                                  if (codes[i].selectedIndex != 0) {
                                      gotcode = 1;                                        gotcode = 1;
                                      break;                                       break;
                                 }                                  }
                             }                              }
Line 232  $jscript Line 232  $jscript
                     $onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',".                      $onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',".
                                                        "'cancreate_emaildomain','default');";                                                         "'cancreate_emaildomain','default');";
                 }                  }
             }               }
             if (grep(/^contacts$/,@actions)) {              if (grep(/^contacts$/,@actions)) {
                 my $customclass = 'LC_helpdesk_override';                  my $customclass = 'LC_helpdesk_override';
                 my $optionsprefix = 'LC_options_helpdesk_';                  my $optionsprefix = 'LC_options_helpdesk_';
Line 346  $jscript Line 346  $jscript
                                     $onload .= "toggleChgSecret(document.display,'$num','secret','linkprot');";                                      $onload .= "toggleChgSecret(document.display,'$num','secret','linkprot');";
                                 }                                  }
                             }                              }
                             $onload .= "toggleLinkProtExtra(document.display,'returnurl','divurlparam','1','inline-block','$num');";                              $onload .= "toggleLinkProtExtra(document.display,'returnurl','divurlparam','1','inline-block','$num');".
                                          "toggleLinkProtExtra(document.display,'passback','passbackparam','1','inline-block','$num');";
                             if ($ltiauth) {                              if ($ltiauth) {
                                 $onload .= "toggleLinkProtExtra(document.display,'requser','optional','1','block','$num');".                                  $onload .= "toggleLinkProtExtra(document.display,'requser','optional','1','block','$num');".
                                            "toggleLinkProtExtra(document.display,'mapuser','userfield','other','inline-block','$num');";                                             "toggleLinkProtExtra(document.display,'mapuser','userfield','other','inline-block','$num');";
Line 389  $jscript Line 390  $jscript
             if (grep(/^localization$/,@actions)) {              if (grep(/^localization$/,@actions)) {
                 $onload .= "toggleTimeZone();";                  $onload .= "toggleTimeZone();";
             }              }
               if (grep(/^grading$/,@actions)) {
                   $onload .= 'toggleGrading(document.display);toggleHiddenTotalsSec(document.display);';
               }
             if ($onload) {              if ($onload) {
                 my %loaditems = (                  my %loaditems = (
                                   'onload' => $onload,                                    'onload' => $onload,
Line 503  ENDJS Line 507  ENDJS
             &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,'add');              &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,'add');
         if ($numrules) {          if ($numrules) {
             $js .= <<ENDJS              $js .= <<ENDJS
 ${name}secretinput = document.display.elements['${name}_add_secret'].value;  ${name}secretinput = document.display.elements['${name}_secret_add'].value;
 if (document.display.elements['${name}_add'].checked) {  if (document.display.elements['${name}_add'].checked) {
     $intargjs      $intargjs
 }  }
Line 512  ENDJS Line 516  ENDJS
         }          }
         $js .= <<ENDJS;          $js .= <<ENDJS;
 uncheckLinkProtMakeVis('$name','visible','add');  uncheckLinkProtMakeVis('$name','visible','add');
 document.display.elements['${name}_add_secret'].type = 'password';  document.display.elements['${name}_secret_add'].type = 'password';
   
 ENDJS  ENDJS
     }      }
Line 569  sub print_footer { Line 573  sub print_footer {
         if ($showbutton) {          if ($showbutton) {
             $r->print('<p><input type="button" name="store" value="'.              $r->print('<p><input type="button" name="store" value="'.
                       $button_text.'" onclick='.$onclick.' /></p>');                        $button_text.'" onclick='.$onclick.' /></p>');
         }           }
     }      }
     if ($phase eq 'process') {      if ($phase eq 'process') {
         $r->print('</form>');          $r->print('</form>');
Line 680  sub display_settings { Line 684  sub display_settings {
                     push(@items,$item);                      push(@items,$item);
                     if ($context eq 'domain') {                      if ($context eq 'domain') {
                         my $settings;                          my $settings;
                         if (ref($values) eq 'HASH') {                           if (ref($values) eq 'HASH') {
                             $settings = $values->{$item};                              $settings = $values->{$item};
                         }                          }
                         if (($item eq 'usersessions') || ($item eq 'ssl')) {                          if (($item eq 'usersessions') || ($item eq 'ssl')) {
Line 708  sub display_settings { Line 712  sub display_settings {
                                 my $inststatus = {                                  my $inststatus = {
                                                    inststatustypes => $usertypes,                                                     inststatustypes => $usertypes,
                                                    inststatusorder => $types,                                                     inststatusorder => $types,
                                                    inststatusguest => [],                                                      inststatusguest => [],
                                                  };                                                   };
                                 if (ref($values->{defaults}) eq 'HASH') {                                  if (ref($values->{defaults}) eq 'HASH') {
                                     $settings = {%{$inststatus},%{$values->{'defaults'}}};                                      $settings = {%{$inststatus},%{$values->{'defaults'}}};
Removed from v.1.68  
changed lines
  Added in v.1.72

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