--- loncom/interface/Attic/londropadd.pm 2003/08/26 04:56:29 1.84 +++ loncom/interface/Attic/londropadd.pm 2003/09/08 14:30:47 1.85 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.84 2003/08/26 04:56:29 albertel Exp $ +# $Id: londropadd.pm,v 1.85 2003/09/08 14:30:47 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -521,7 +521,7 @@ sub print_upload_manager_form { my $distotal=$total+1; my $today=time; my $halfyear=$today+15552000; - my $defdom=$ENV{'request.role.domain'}; + my $defdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; my ($krbdef,$krbdefdom) = &Apache::loncommon::get_kerberos_defaults($defdom); &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom); @@ -723,7 +723,7 @@ sub make_dates_default { sub get_student_username_domain_form { my $r = shift; my $domform = &Apache::loncommon::select_dom_form - ($ENV{'request.role.domain'},'cudomain',0); + ($ENV{'course.'.$ENV{'request.course.id'}.'.domain'},'cudomain',0); $r->print(< @@ -759,7 +759,7 @@ sub print_enroll_single_student_form { my $user_data_html = ''; my $javascript_validations = ''; if ($new_user) { - my $defdom=$ENV{'request.role.domain'}; + my $defdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; # Set up authentication forms my ($krbdef,$krbdefdom) = &Apache::loncommon::get_kerberos_defaults($domain);