--- loncom/interface/lonpreferences.pm 2024/03/01 14:23:23 1.196.4.28.2.3 +++ loncom/interface/lonpreferences.pm 2024/03/01 21:28:39 1.196.4.28.2.4 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.196.4.28.2.3 2024/03/01 14:23:23 raeburn Exp $ +# $Id: lonpreferences.pm,v 1.196.4.28.2.4 2024/03/01 21:28:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2046,11 +2046,25 @@ sub author_space_settings { my ($showdomdefs,$js,$args,@items); my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\''); 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 ($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 '') || - ($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'); $showdomdefs = 1; $js = &toggle_options_js();