--- loncom/interface/Attic/londropadd.pm	2006/11/23 03:17:17	1.150
+++ loncom/interface/Attic/londropadd.pm	2006/12/10 23:48:44	1.151
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.150 2006/11/23 03:17:17 albertel Exp $
+# $Id: londropadd.pm,v 1.151 2006/12/10 23:48:44 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,8 +60,8 @@ sub modifystudent {
     # if $csec is undefined, drop the student from all the courses matching
     # this one.  If $csec is defined, drop them from all other sections of 
     # this course and add them to section $csec
-    my $cdom = $env{'request.'.$courseid.'.domain'};
-    my $cnum = $env{'request.'.$courseid.'.num'};
+    my $cdom = $env{'course.'.$courseid.'.domain'};
+    my $cnum = $env{'course.'.$courseid.'.num'};
     my %roles = &Apache::lonnet::dump('roles',$udom,$unam);
     my ($tmp) = keys(%roles);
     # Bail out if we were unable to get the students roles
@@ -1874,8 +1874,8 @@ END
 sub get_enrollment_data {
     my ($sname,$sdomain) = @_;
     my $courseid = $env{'request.course.id'};
-    my $cdom = $env{'request.'.$courseid.'.domain'};
-    my $cnum = $env{'request.'.$courseid.'.num'};
+    my $cdom = $env{'course.'.$courseid.'.domain'};
+    my $cnum = $env{'course.'.$courseid.'.num'};
     my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname);
     my ($tmp) = keys(%roles);
     # Bail out if we were unable to get the students roles