version 1.170, 2006/05/11 20:05:03
|
version 1.171, 2006/05/18 01:08:51
|
Line 51 package Apache::loncoursedata;
|
Line 51 package Apache::loncoursedata;
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
|
use Apache::longroup; |
use Time::HiRes; |
use Time::HiRes; |
use Apache::lonmysql; |
use Apache::lonmysql; |
use HTML::TokeParser; |
use HTML::TokeParser; |
Line 965 sub populate_groupnames_table {
|
Line 966 sub populate_groupnames_table {
|
my $dbh = &Apache::lonmysql::get_dbh(); |
my $dbh = &Apache::lonmysql::get_dbh(); |
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 %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); |
return if (!%curr_groups); |
return if (!%curr_groups); |
my $request = 'INSERT IGNORE INTO '.$groupnames_table. |
my $request = 'INSERT IGNORE INTO '.$groupnames_table. |
'(groupname) VALUES '; |
'(groupname) VALUES '; |
Line 3152 sub get_group_memberships {
|
Line 3153 sub get_group_memberships {
|
my (%classgroups,%studentgroups); |
my (%classgroups,%studentgroups); |
my $now = time; |
my $now = time; |
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::longroup::coursegroups($cdom,$cnum); |
if (%curr_groups) { |
if (%curr_groups) { |
my $grpindex = scalar(@{$keylist}); |
my $grpindex = scalar(@{$keylist}); |
my %groupmemberhash = |
my %groupmemberhash = |