--- loncom/interface/loncoursedata.pm 2008/01/05 18:36:26 1.185 +++ loncom/interface/loncoursedata.pm 2008/09/11 14:47:21 1.188 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.185 2008/01/05 18:36:26 raeburn Exp $ +# $Id: loncoursedata.pm,v 1.188 2008/09/11 14:47:21 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -930,7 +930,7 @@ sub populate_student_table { $dbh->do($request); if ($dbh->err()) { &Apache::lonnet::logthis("error ".$dbh->errstr(). - " occured executing \n". + " occurred executing \n". $request); } return; @@ -983,7 +983,7 @@ sub populate_groupnames_table { $dbh->do($request); if ($dbh->err()) { &Apache::lonnet::logthis("error ".$dbh->errstr(). - " occured executing \n". + " occurred executing \n". $request); } return; @@ -1053,7 +1053,7 @@ sub populate_students_groups_table { $dbh->do($request); if ($dbh->err()) { &Apache::lonnet::logthis("error ".$dbh->errstr(). - " occured executing \n". + " occurred executing \n". $request); } return; @@ -1112,7 +1112,7 @@ Input: $sname, $sdom, $courseid Output: $returnstatus -$returnstatus is a string describing any errors that occured. 'okay' is the +$returnstatus is a string describing any errors that occurred. 'okay' is the default. This subroutine loads a students data using lonnet::dump and inserts @@ -1126,7 +1126,7 @@ a description of the error. Once the "fulldump" tables are updated, the tables used for chart and spreadsheet (which hold only the current state of the student on their -homework, not historical data) are updated. If all updates have occured +homework, not historical data) are updated. If all updates have occurred successfully, $student_table is updated to reflect the time of the update. Notice we do not insert the data and immediately query it. This means it @@ -1398,7 +1398,7 @@ Input: $sname, $sdom, $courseid Output: $returnstatus, \%student_data -$returnstatus is a string describing any errors that occured. 'okay' is the +$returnstatus is a string describing any errors that occurred. 'okay' is the default. \%student_data is the data returned by a call to lonnet::currentdump. @@ -1669,9 +1669,9 @@ sub ensure_current_data { # # Get the update time for the user my $updatetime = 0; + my $getuserdir = 1; my $modifiedtime = &Apache::lonnet::GetFileTimestamp - ($sdom,$sname,$courseid.'.db', - $Apache::lonnet::perlvar{'lonUsersDir'}); + ($sdom,$sname,$courseid.'.db',$getuserdir); # if ($modifiedtime == -1) { return ('no data',undef); @@ -1721,9 +1721,9 @@ sub ensure_current_full_data { &ensure_tables_are_set_up($courseid); # # Get the update time for the user + my $getuserdir = 1; my $modifiedtime = &Apache::lonnet::GetFileTimestamp - ($sdom,$sname,$courseid.'.db', - $Apache::lonnet::perlvar{'lonUsersDir'}); + ($sdom,$sname,$courseid.'.db',$getuserdir); # my $student_id = &get_student_id($sname,$sdom); my @Result = &Apache::lonmysql::get_rows($student_table, @@ -2209,7 +2209,7 @@ sub populate_weight_table { $dbh->do($request); if ($dbh->err()) { &Apache::lonnet::logthis("error ".$dbh->errstr(). - " occured executing \n". + " occurred executing \n". $request); } return; @@ -3104,6 +3104,7 @@ sub CL_PERMANENTEMAIL { return 11; } sub CL_ROLE { return 12; } sub CL_EXTENT { return 13; } sub CL_PHOTO { return 14; } +sub CL_THUMBNAIL { return 15; } sub get_classlist { my ($cdom,$cnum) = @_;