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']); |