version 1.182, 2007/05/02 01:33:48
|
version 1.183, 2007/10/03 18:22:50
|
Line 3099 sub CL_FULLNAME { return 6; }
|
Line 3099 sub CL_FULLNAME { return 6; }
|
sub CL_STATUS { return 7; } |
sub CL_STATUS { return 7; } |
sub CL_TYPE { return 8; } |
sub CL_TYPE { return 8; } |
sub CL_LOCKEDTYPE { return 9; } |
sub CL_LOCKEDTYPE { return 9; } |
|
sub CL_GROUP { return 10; } |
|
|
sub get_classlist { |
sub get_classlist { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
Line 3185 sub get_group_memberships {
|
Line 3186 sub get_group_memberships {
|
my $access_end = $env{'course.'.$cid.'.default_enrollment_end_date'}; |
my $access_end = $env{'course.'.$cid.'.default_enrollment_end_date'}; |
my %curr_groups =&Apache::longroup::coursegroups($cdom,$cnum); |
my %curr_groups =&Apache::longroup::coursegroups($cdom,$cnum); |
if (%curr_groups) { |
if (%curr_groups) { |
my $grpindex = scalar(@{$keylist}); |
my $grpindex = &CL_GROUP(); |
my %groupmemberhash = |
my %groupmemberhash = |
&Apache::lonnet::get_group_membership($cdom,$cnum); |
&Apache::lonnet::get_group_membership($cdom,$cnum); |
foreach my $student (keys(%{$classlist})) { |
foreach my $student (keys(%{$classlist})) { |