--- loncom/interface/lonmodifycourse.pm	2004/08/10 14:29:07	1.12
+++ loncom/interface/lonmodifycourse.pm	2004/11/23 07:02:32	1.13
@@ -30,7 +30,6 @@ use Apache::lonlocal;
 use Apache::londropadd;
 use LONCAPA::Enrollment;
 use lib '/home/httpd/lib/perl';
-use localenroll;
 
 sub print_course_selection_page {
     my ($r,$tasklongref) = @_;
@@ -130,7 +129,7 @@ sub print_course_modification_page {
     my %enrollvar = ();
     my $javascript_validations;
     my $course = '';
-    my $dom = $ENV{'user.domain'};
+    my $dom = $ENV{'request.role.domain'};
     if ( defined($ENV{'form.course'}) ) {
         $course = $ENV{'form.course'};
     }
@@ -246,8 +245,7 @@ all settings except course code, course
     my $numlocalcc = @local_ccs;
     my $bodytag=&Apache::loncommon::bodytag(&mt("Modify Course Settings"));
     my $helplink=&Apache::loncommon::help_open_topic('Modify_Course',&mt("Help on Modifying Courses"));
-    my $defdom=$ENV{'request.role.domain'};
-    my ($krbdef,$krbdefdom)=&Apache::loncommon::get_kerberos_defaults($defdom);
+    my ($krbdef,$krbdefdom)=&Apache::loncommon::get_kerberos_defaults($dom);
     my $curr_authtype = '';
     my $curr_authfield = '';
     if ($enrollvar{'authtype'} =~ /^krb/) {