[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.4 and 1.196.4.28.2.5

version 1.196.4.28.2.4, 2024/03/01 21:28:39 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 = 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))) {  
             @items = ('nocodemirror','copyright','sourceavail');              @items = ('nocodemirror','copyright','sourceavail');
             $showdomdefs = 1;              $showdomdefs = 1;
             $js = &toggle_options_js();              $js = &toggle_options_js();
Line 2176  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 2319  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']);
Removed from v.1.196.4.28.2.4  
changed lines
  Added in v.1.196.4.28.2.5

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