[LON-CAPA-cvs] cvs: loncom /interface lonmodifycourse.pm

[raeburn]

raeburn		Tue Nov 23 02:02:33 2004 EDT

  Modified files:              
    /loncom/interface	lonmodifycourse.pm 
  Log:
  localenroll no longer used directly.  Domain to check is domain for DC role, not home domain of user.
  
  
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.12 loncom/interface/lonmodifycourse.pm:1.13
--- loncom/interface/lonmodifycourse.pm:1.12	Tue Aug 10 10:29:07 2004
+++ loncom/interface/lonmodifycourse.pm	Tue Nov 23 02:02:32 2004
@@ -30,7 +30,6 @@
 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 @@
     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 @@
     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/) {