[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.3 and 1.196.4.28.2.4

version 1.196.4.28.2.3, 2024/03/01 14:23:23 version 1.196.4.28.2.4, 2024/03/01 21:28:39
Line 2046  sub author_space_settings { Line 2046  sub author_space_settings {
         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;          my $reqdmajor = 2;
         my $reqdminor = 12;          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 $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'});
         my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);          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 '') ||          unless (($major eq '' && $minor eq '') ||
                 ($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) {                  ($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();
Removed from v.1.196.4.28.2.3  
changed lines
  Added in v.1.196.4.28.2.4

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