version 1.174, 2006/08/08 19:02:04
|
version 1.177, 2006/12/21 02:51:53
|
Line 1139 sub update_full_student_data {
|
Line 1139 sub update_full_student_data {
|
&setup_table_names($courseid); |
&setup_table_names($courseid); |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my $student = $sname.':'.$sdom; |
my $student = $sname.':'.$sdom; |
# |
# |
my $returnstatus = 'okay'; |
my $returnstatus = 'okay'; |
Line 1422 sub update_student_data {
|
Line 1421 sub update_student_data {
|
&setup_table_names($courseid); |
&setup_table_names($courseid); |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my $student = $sname.':'.$sdom; |
my $student = $sname.':'.$sdom; |
# |
# |
my $returnstatus = 'okay'; |
my $returnstatus = 'okay'; |
# |
# |
# Download students data |
# Download students data |
my $time_of_retrieval = time; |
my $time_of_retrieval = time; |
my @tmp = &Apache::lonnet::currentdump($courseid,$sdom,$sname); |
my %student_data = &Apache::lonnet::currentdump($courseid,$sdom,$sname); |
if ((scalar(@tmp) > 0) && ($tmp[0] =~ /^error:/)) { |
if (&Apache::lonnet::error(%student_data)) { |
&Apache::lonnet::logthis('error getting data for '. |
&Apache::lonnet::logthis('error getting data for '. |
$sname.':'.$sdom.' in course '.$courseid. |
$sname.':'.$sdom.' in course '.$courseid. |
':'.$tmp[0]); |
':'.(%student_data)[0]); |
$returnstatus = 'error getting data'; |
$returnstatus =(%student_data)[0] ; |
return ($returnstatus,undef); |
return ($returnstatus,undef); |
} |
} |
if (scalar(@tmp) < 1) { |
if (scalar(keys(%student_data)) < 1) { |
return ('no data',undef); |
return ('no data',undef); |
} |
} |
my %student_data = @tmp; |
|
my @Results = &store_student_data($sname,$sdom,$courseid,\%student_data); |
my @Results = &store_student_data($sname,$sdom,$courseid,\%student_data); |
# |
# |
# Set the students update time |
# Set the students update time |
Line 1474 sub store_student_data {
|
Line 1471 sub store_student_data {
|
my ($sname,$sdom,$courseid,$student_data) = @_; |
my ($sname,$sdom,$courseid,$student_data) = @_; |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my $student = $sname.':'.$sdom; |
my $student = $sname.':'.$sdom; |
# |
# |
my $returnstatus = 'okay'; |
my $returnstatus = 'okay'; |
Line 1670 sub ensure_current_data {
|
Line 1666 sub ensure_current_data {
|
($sdom,$sname,$courseid.'.db', |
($sdom,$sname,$courseid.'.db', |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
# |
# |
|
if ($modifiedtime == -1) { |
|
return ('no data',undef); |
|
} |
|
|
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my @Result = &Apache::lonmysql::get_rows($student_table, |
my @Result = &Apache::lonmysql::get_rows($student_table, |
"student_id ='$student_id'"); |
"student_id ='$student_id'"); |
my $data = undef; |
my $data = undef; |
Line 1720 sub ensure_current_full_data {
|
Line 1719 sub ensure_current_full_data {
|
$Apache::lonnet::perlvar{'lonUsersDir'}); |
$Apache::lonnet::perlvar{'lonUsersDir'}); |
# |
# |
my $student_id = &get_student_id($sname,$sdom); |
my $student_id = &get_student_id($sname,$sdom); |
my @group_ids = &get_students_groupids($student_id); |
|
my @Result = &Apache::lonmysql::get_rows($student_table, |
my @Result = &Apache::lonmysql::get_rows($student_table, |
"student_id ='$student_id'"); |
"student_id ='$student_id'"); |
my $updatetime; |
my $updatetime; |
Line 1915 sub get_current_state {
|
Line 1913 sub get_current_state {
|
} else { |
} else { |
if ($status ne 'okay' && $status ne '') { |
if ($status ne 'okay' && $status ne '') { |
&Apache::lonnet::logthis('status = '.$status); |
&Apache::lonnet::logthis('status = '.$status); |
return (); |
return ('error: '.$status,undef); |
} |
} |
my $returnhash = &get_student_data_from_performance_cache($sname,$sdom, |
my $returnhash = &get_student_data_from_performance_cache($sname,$sdom, |
$symb,$courseid); |
$symb,$courseid); |
Line 2728 sub get_response_data {
|
Line 2726 sub get_response_data {
|
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
# Clear the \'s from around the submission |
# Clear the \'s from around the submission |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
$dataset->[$i]->[3] =~ s/(\'$|^\')//g; |
$dataset->[$i]->[&RD_submission()] =~ s/(\'$|^\')//g; |
} |
} |
return $dataset; |
return $dataset; |
} |
} |
Line 2756 sub get_response_data_by_student {
|
Line 2754 sub get_response_data_by_student {
|
# |
# |
my $student_id = &get_student_id($student->{'username'}, |
my $student_id = &get_student_id($student->{'username'}, |
$student->{'domain'}); |
$student->{'domain'}); |
my @group_ids = &get_students_groupids($student_id); |
|
# |
# |
my $dbh = &Apache::lonmysql::get_dbh(); |
my $dbh = &Apache::lonmysql::get_dbh(); |
return undef if (! defined($dbh)); |
return undef if (! defined($dbh)); |
Line 2790 sub get_response_data_by_student {
|
Line 2787 sub get_response_data_by_student {
|
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
# Clear the \'s from around the submission |
# Clear the \'s from around the submission |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
$dataset->[$i]->[2] =~ s/(\'$|^\')//g; |
$dataset->[$i]->[&RDs_submission] =~ s/(\'$|^\')//g; |
} |
} |
return $dataset; |
return $dataset; |
} |
} |