version 1.242, 2023/11/06 21:24:23
|
version 1.244, 2024/03/02 18:47:15
|
Line 2080 sub author_space_settings {
|
Line 2080 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 = 12; |
|
my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'}); |
|
my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/); |
|
unless (($major eq '' && $minor eq '') || |
|
($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) { |
|
@items = ('nocodemirror','copyright','sourceavail'); |
@items = ('nocodemirror','copyright','sourceavail'); |
$showdomdefs = 1; |
$showdomdefs = 1; |
$js = &toggle_options_js(); |
$js = &toggle_options_js(); |
Line 2138 sub author_space_settings {
|
Line 2133 sub author_space_settings {
|
} |
} |
my %checked; |
my %checked; |
$checked{'no'} = ' checked="checked"'; |
$checked{'no'} = ' checked="checked"'; |
if ($userenv{$item eq 'yes'}) { |
if ($userenv{$item} eq 'yes') { |
$checked{'yes'} = $checked{'no'}; |
$checked{'yes'} = $checked{'no'}; |
$checked{'no'} = ''; |
$checked{'no'} = ''; |
} |
} |
Line 2197 sub change_authoring_settings {
|
Line 2192 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; |
my $reqdmajor = 2; |
if (!&expanded_authoring_settings()) { |
my $reqdminor = 12; |
|
my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'}); |
|
my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/); |
|
if (($major eq '' && $minor eq '') || |
|
($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) { |
|
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 2345 sub authoring_settings_titles {
|
Line 2335 sub authoring_settings_titles {
|
); |
); |
} |
} |
|
|
|
sub expanded_authoring_settings { |
|
my $reqdmajor = 2; |
|
my $reqdminor = 12; |
|
my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'}); |
|
my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/); |
|
unless (($major eq '' && $minor eq '') || |
|
($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) { |
|
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']); |