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

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.70 and 1.71

version 1.70, 2023/06/02 01:20:26 version 1.71, 2023/06/04 00:06:10
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 570  sub print_footer { Line 570  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 681  sub display_settings { Line 681  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 709  sub display_settings { Line 709  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.70  
changed lines
  Added in v.1.71

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