version 1.199, 2016/07/24 14:34:59
|
version 1.200, 2016/08/14 16:13:21
|
Line 1396 sub ensure_current_students_groups {
|
Line 1396 sub ensure_current_students_groups {
|
return; |
return; |
} |
} |
|
|
|
sub ensure_current_sections { |
|
my ($courseid) = @_; |
|
my ($cdom,$cnum); |
|
if (defined($courseid)) { |
|
my %coursehash = &Apache::lonnet::coursedescription($courseid); |
|
$cdom = $coursehash{'domain'}; |
|
$cnum = $coursehash{'num'}; |
|
} elsif ($env{'request.course.id'}) { |
|
$courseid = $env{'request.course.id'}; |
|
$cdom = $env{'course.'.$courseid.'.domain'}; |
|
$cnum = $env{'course.'.$courseid.'.num'}; |
|
} |
|
&setup_table_names($courseid); |
|
my @CurrentTables = &Apache::lonmysql::tables_in_db(); |
|
unless (grep(/^\Q$student_table\E$/,@CurrentTables)) { |
|
return; |
|
} |
|
# Get the update time for the student table |
|
my $getuserdir = 1; |
|
my $modifiedtime = &Apache::lonnet::GetFileTimestamp |
|
($cdom,$cnum,'classlist.db',$getuserdir); |
|
my %tableinfo = &Apache::lonmysql::table_information($student_table); |
|
my $updatetime; |
|
if ($tableinfo{'Update_time'}) { |
|
$updatetime = $tableinfo{'Update_time'}; |
|
} |
|
if ((!defined($updatetime)) || ($modifiedtime > $updatetime)) { |
|
if (&Apache::lonmysql::drop_table($student_table)) { |
|
if (&init_dbs($courseid)) { |
|
return "error creating $student_table\n"; |
|
} else { |
|
&populate_student_table($courseid); |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
sub get_student_data_from_performance_cache { |
sub get_student_data_from_performance_cache { |
my ($sname,$sdom,$symb,$courseid)=@_; |
my ($sname,$sdom,$symb,$courseid)=@_; |
my $student = $sname.':'.$sdom if (defined($sname) && defined($sdom)); |
my $student = $sname.':'.$sdom if (defined($sname) && defined($sdom)); |