version 1.275, 2005/10/04 16:34:40
|
version 1.276, 2005/10/04 18:27:32
|
Line 3018 Returns number of sections.
|
Line 3018 Returns number of sections.
|
sub get_sections { |
sub get_sections { |
my ($cdom,$cnum,$sectioncount,$possible_roles) = @_; |
my ($cdom,$cnum,$sectioncount,$possible_roles) = @_; |
if (!($cdom && $cnum)) { return 0; } |
if (!($cdom && $cnum)) { return 0; } |
my $cid = $cdom.'_'.$cnum; |
|
my $numsections = 0; |
my $numsections = 0; |
|
|
if (!defined($possible_roles) || (grep/^st$/,@$possible_roles)) { |
if (!defined($possible_roles) || (grep/^st$/,@$possible_roles)) { |
my ($classlist) = &Apache::loncoursedata::get_classlist($cid,$cdom,$cnum); |
my ($classlist) = &Apache::loncoursedata::get_classlist($cdom,$cnum); |
my $sec_index = &Apache::loncoursedata::CL_SECTION(); |
my $sec_index = &Apache::loncoursedata::CL_SECTION(); |
my $status_index = &Apache::loncoursedata::CL_STATUS(); |
my $status_index = &Apache::loncoursedata::CL_STATUS(); |
while (my ($student,$data) = each %$classlist) { |
while (my ($student,$data) = each %$classlist) { |
Line 3083 sub get_course_users {
|
Line 3082 sub get_course_users {
|
my $statusidx = &Apache::loncoursedata::CL_STATUS; |
my $statusidx = &Apache::loncoursedata::CL_STATUS; |
my $startidx = &Apache::loncoursedata::CL_START; |
my $startidx = &Apache::loncoursedata::CL_START; |
my $endidx = &Apache::loncoursedata::CL_END; |
my $endidx = &Apache::loncoursedata::CL_END; |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist($course_id,$cdom,$cnum); |
my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist($cdom,$cnum); |
foreach my $student (keys (%{$classlist})) { |
foreach my $student (keys (%{$classlist})) { |
if (defined($$types{'active'})) { |
if (defined($$types{'active'})) { |
if ($$classlist{$student}[$statusidx] eq 'Active') { |
if ($$classlist{$student}[$statusidx] eq 'Active') { |