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(); |