version 1.186, 2008/01/07 03:00:00
|
version 1.187, 2008/04/17 14:51:43
|
Line 1669 sub ensure_current_data {
|
Line 1669 sub ensure_current_data {
|
# |
# |
# Get the update time for the user |
# Get the update time for the user |
my $updatetime = 0; |
my $updatetime = 0; |
|
my $getuserdir = 1; |
my $modifiedtime = &Apache::lonnet::GetFileTimestamp |
my $modifiedtime = &Apache::lonnet::GetFileTimestamp |
($sdom,$sname,$courseid.'.db', |
($sdom,$sname,$courseid.'.db',$getuserdir); |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
|
# |
# |
if ($modifiedtime == -1) { |
if ($modifiedtime == -1) { |
return ('no data',undef); |
return ('no data',undef); |
Line 1721 sub ensure_current_full_data {
|
Line 1721 sub ensure_current_full_data {
|
&ensure_tables_are_set_up($courseid); |
&ensure_tables_are_set_up($courseid); |
# |
# |
# Get the update time for the user |
# Get the update time for the user |
|
my $getuserdir = 1; |
my $modifiedtime = &Apache::lonnet::GetFileTimestamp |
my $modifiedtime = &Apache::lonnet::GetFileTimestamp |
($sdom,$sname,$courseid.'.db', |
($sdom,$sname,$courseid.'.db',$getuserdir); |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
|
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @Result = &Apache::lonmysql::get_rows($student_table, |
my @Result = &Apache::lonmysql::get_rows($student_table, |