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

[albertel]

albertel		Sun Dec 10 18:48:45 2006 EDT

  Modified files:              
    /loncom/interface	londropadd.pm 
  Log:
  - correcting env lookups
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.150 loncom/interface/londropadd.pm:1.151
--- loncom/interface/londropadd.pm:1.150	Wed Nov 22 22:17:17 2006
+++ loncom/interface/londropadd.pm	Sun Dec 10 18:48:44 2006
@@ -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 @@
     # 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 @@
 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