--- loncom/interface/lonpreferences.pm	2008/05/14 18:21:40	1.119
+++ loncom/interface/lonpreferences.pm	2008/05/20 18:19:31	1.120
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.119 2008/05/14 18:21:40 www Exp $
+# $Id: lonpreferences.pm,v 1.120 2008/05/20 18:19:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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(<<ENDSCREEN);
 <form name="prefs" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_domcoord" />
 $text<br />
 <label><input type="checkbox" name="construction" $constchecked />$construction</label><br />
-<label><input type="checkbox" name="courses" $courseschecked />$courses</label><br />
 <input type="submit" value="$change" />
 </form>
 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.'));
 }