|
version 1.150, 2006/11/23 03:17:17
|
version 1.151, 2006/12/10 23:48:44
|
|
Line 60 sub modifystudent {
|
Line 60 sub modifystudent {
|
| # if $csec is undefined, drop the student from all the courses matching |
# 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 one. If $csec is defined, drop them from all other sections of |
| # this course and add them to section $csec |
# this course and add them to section $csec |
| my $cdom = $env{'request.'.$courseid.'.domain'}; |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
| my $cnum = $env{'request.'.$courseid.'.num'}; |
my $cnum = $env{'course.'.$courseid.'.num'}; |
| my %roles = &Apache::lonnet::dump('roles',$udom,$unam); |
my %roles = &Apache::lonnet::dump('roles',$udom,$unam); |
| my ($tmp) = keys(%roles); |
my ($tmp) = keys(%roles); |
| # Bail out if we were unable to get the students roles |
# Bail out if we were unable to get the students roles |
|
Line 1874 END
|
Line 1874 END
|
| sub get_enrollment_data { |
sub get_enrollment_data { |
| my ($sname,$sdomain) = @_; |
my ($sname,$sdomain) = @_; |
| my $courseid = $env{'request.course.id'}; |
my $courseid = $env{'request.course.id'}; |
| my $cdom = $env{'request.'.$courseid.'.domain'}; |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
| my $cnum = $env{'request.'.$courseid.'.num'}; |
my $cnum = $env{'course.'.$courseid.'.num'}; |
| my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname); |
my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname); |
| my ($tmp) = keys(%roles); |
my ($tmp) = keys(%roles); |
| # Bail out if we were unable to get the students roles |
# Bail out if we were unable to get the students roles |
![[BACK]](/icons/back.gif){kind=icon}
Return to londropadd.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface