loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

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})) {