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

Diff for /loncom/interface/lonpreferences.pm between versions 1.196.4.28.2.2 and 1.196.4.28.2.5

version 1.196.4.28.2.2, 2024/02/28 06:28:07 version 1.196.4.28.2.5, 2024/03/02 16:09:04
Line 2045  sub author_space_settings { Line 2045  sub author_space_settings {
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
         my ($showdomdefs,$js,$args,@items);          my ($showdomdefs,$js,$args,@items);
         my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');          my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');
         my $reqdmajor = 2;          if (&expanded_authoring_settings()) {
         my $reqdminor = 12;  
         my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'});  
         my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);  
         unless (($major eq '' && $minor eq '') ||  
                 ($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) {  
             @items = ('nocodemirror','copyright','sourceavail');              @items = ('nocodemirror','copyright','sourceavail');
             $showdomdefs = 1;              $showdomdefs = 1;
             $js = &toggle_options_js();              $js = &toggle_options_js();
Line 2162  sub change_authoring_settings { Line 2157  sub change_authoring_settings {
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
         my $message;          my $message;
         if (0) {          if (!&expanded_authoring_settings()) {
             my %ausettings=('environment.nocodemirror' => '');              my %ausettings=('environment.nocodemirror' => '');
             if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }              if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }
             &Apache::lonnet::put('environment',\%ausettings);              &Apache::lonnet::put('environment',\%ausettings);
Line 2305  sub authoring_settings_titles { Line 2300  sub authoring_settings_titles {
     );      );
 }  }
   
   sub expanded_authoring_settings {
       my $reqdmajor = 2;
       my $reqdminor = 11;
       my $reqddotnum = 4;
       my $reqddotlett= 'B';
       my $reqdreldate = '2024030109';
       my $reqletterfail;
       my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'});
       my ($major,$minor,$dotrel,$reldate) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.([\w.]+)\-(\d+)\'?$/);
       my ($dotnum,$dotlett) = split(/\./,$dotrel);
       my %lettdig = &Apache::lonnet::letter_to_digits();
       if ((exists($lettdig{$dotlett})) && (exists($lettdig{$reqddotlett}))) {
           if ($lettdig{$reqddotlett} > $lettdig{$dotlett}) {
               $reqletterfail = 1;
           }
       }
       unless (($major eq '' && $minor eq '') ||
           ($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor)) ||
           (($reqdmajor == $major) && ($reqdminor == $minor) && ($reqddotnum > $dotnum)) ||
           (($reqdmajor == $major) && ($reqdminor == $minor) && ($reqddotnum == $dotnum) && $reqletterfail) ||
           (($reqdmajor == $major) && ($reqdminor == $minor) && ($reqddotnum == $dotnum) && ($reqdreldate > $reldate))) {
           return 1;
       }
       return;
   }
   
 sub lockednameschanger {  sub lockednameschanger {
     my $r = shift;      my $r = shift;
     my %userenv = &Apache::lonnet::get('environment',['lockedname']);      my %userenv = &Apache::lonnet::get('environment',['lockedname']);
Line 2402  sub timezonechanger { Line 2423  sub timezonechanger {
     my $udom = $env{'user.domain'};      my $udom = $env{'user.domain'};
     if (&Apache::lonnet::usertools_access($uname,$udom,'timezone')) {      if (&Apache::lonnet::usertools_access($uname,$udom,'timezone')) {
         my $js = &toggle_options_js();          my $js = &toggle_options_js();
         my $js = <<"ENDSCRIPT";  
         my %loaditems = (          my %loaditems = (
                            onload => "javascript:toggleOptions(document.prefs,'settimezone','LC_timezone_selector');",                             onload => "javascript:toggleOptions(document.prefs,'settimezone','LC_timezone_selector');",
                         );                          );
Removed from v.1.196.4.28.2.2  
changed lines
  Added in v.1.196.4.28.2.5

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