version 1.169, 2006/05/09 14:38:09
|
version 1.170, 2006/05/11 20:05:03
|
Line 1024 sub populate_students_groups_table {
|
Line 1024 sub populate_students_groups_table {
|
"(student_id,group_id) VALUES "; |
"(student_id,group_id) VALUES "; |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
my $cdom = $env{'course.'.$courseid.'.domain'}; |
my $cnum = $env{'course.'.$courseid.'.num'}; |
my $cnum = $env{'course.'.$courseid.'.num'}; |
my $classlist = &get_classlist($cdom,$cnum); |
my ($classlist,$keylist) = &get_classlist($cdom,$cnum); |
my ($classgroups,$studentgroups) = &get_group_memberships($classlist, |
my ($classgroups,$studentgroups) = &get_group_memberships($classlist, |
|
$keylist, |
$cdom,$cnum); |
$cdom,$cnum); |
my $record_count = 0; |
my $record_count = 0; |
foreach my $student (sort(keys(%{$classgroups}))) { |
foreach my $student (sort(keys(%{$classgroups}))) { |
Line 3141 sub get_classlist {
|
Line 3142 sub get_classlist {
|
} |
} |
|
|
sub get_group_memberships { |
sub get_group_memberships { |
my ($classlist,$cdom,$cnum) = @_; |
my ($classlist,$keylist,$cdom,$cnum) = @_; |
my $cid = $cdom.'_'.$cnum; |
my $cid = $cdom.'_'.$cnum; |
if (!defined($cdom) || !defined($cnum)) { |
if (!defined($cdom) || !defined($cnum)) { |
$cid = $env{'request.course.id'}; |
$cid = $env{'request.course.id'}; |
Line 3153 sub get_group_memberships {
|
Line 3154 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::loncommon::coursegroups($cdom,$cnum); |
my %curr_groups =&Apache::loncommon::coursegroups($cdom,$cnum); |
if (%curr_groups) { |
if (%curr_groups) { |
|
my $grpindex = scalar(@{$keylist}); |
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})) { |
Line 3194 sub get_group_memberships {
|
Line 3196 sub get_group_memberships {
|
} |
} |
if (!$hasgroup) { |
if (!$hasgroup) { |
$studentgroups{'none'} ++; |
$studentgroups{'none'} ++; |
|
} else { |
|
$classlist->{$student}->[$grpindex] = join(',', |
|
sort(keys(%{$classgroups{$student}{'active'}}))); |
} |
} |
} |
} |
} |
} |