ENDLSCREEN
if ($env{'environment.texengine'} ne 'jsMath') {
@@ -618,25 +618,19 @@ sub domcoordchanger {
my $user = $env{'user.name'};
my $domain = $env{'user.domain'};
my %userenv = &Apache::lonnet::get
- ('environment',['domcoord.author','domcoord.cc']);
+ ('environment',['domcoord.author']);
my $constchecked='';
- my $courseschecked='';
if ($userenv{'domcoord.author'} eq 'blocked') {
$constchecked='checked="checked"';
}
- if ($userenv{'domcoord.cc'} eq 'blocked') {
- $courseschecked='checked="checked"';
- }
- my $text=&mt('By default, the Domain Coordinator can enter your courses and construction space.');
+ my $text=&mt('By default, the Domain Coordinator can enter your construction space.');
my $construction=&mt('Block access to construction space');
- my $courses=&mt('Block access to courses');
my $change=&mt('Change');
$r->print(<
$text
-
ENDSCREEN
@@ -646,12 +640,10 @@ sub verify_and_change_domcoord {
my $r = shift;
my $user = $env{'user.name'};
my $domain = $env{'user.domain'};
- my %domcoord=('domcoord.author' => '','domcoord.cc' => '');
+ my %domcoord=('domcoord.author' => '');
if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }
- if ($env{'form.courses'}) { $domcoord{'domcoord.cc'}='blocked'; }
&Apache::lonnet::put('environment',\%domcoord);
- &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'},
- 'environment.domcoord.cc' => $domcoord{'domcoord.cc'}});
+ &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}});
$r->print(&mt('Registering Domain Coordinator access restrictions.'));
}