version 1.107, 2003/10/27 21:07:22
|
version 1.108, 2003/10/30 16:20:18
|
Line 2018 sub get_student_data {
|
Line 2018 sub get_student_data {
|
} |
} |
} |
} |
|
|
sub get_optionresponse_data { |
sub RD_student_id { return 0; } |
|
sub RD_awarddetail { return 1; } |
|
sub RD_response_eval { return 2; } |
|
sub RD_submission { return 3; } |
|
sub RD_timestamp { return 4; } |
|
sub RD_tries { return 5; } |
|
sub RD_sname { return 6; } |
|
|
|
sub get_response_data { |
my ($students,$symb,$response,$courseid) = @_; |
my ($students,$symb,$response,$courseid) = @_; |
return undef if (! defined($symb) || |
return undef if (! defined($symb) || |
! defined($response)); |
! defined($response)); |
Line 2032 sub get_optionresponse_data {
|
Line 2040 sub get_optionresponse_data {
|
return undef if (! defined($dbh)); |
return undef if (! defined($dbh)); |
my $request = 'SELECT '. |
my $request = 'SELECT '. |
'a.student_id, a.awarddetail, a.response_specific_value, '. |
'a.student_id, a.awarddetail, a.response_specific_value, '. |
'a.submission, b.timestamp, c.tries '. |
'a.submission, b.timestamp, c.tries, d.student '. |
'FROM '.$fulldump_response_table.' AS a '. |
'FROM '.$fulldump_response_table.' AS a '. |
'LEFT JOIN '.$fulldump_timestamp_table.' AS b '. |
'LEFT JOIN '.$fulldump_timestamp_table.' AS b '. |
'ON a.symb_id=b.symb_id AND a.student_id=b.student_id AND '. |
'ON a.symb_id=b.symb_id AND a.student_id=b.student_id AND '. |
Line 2040 sub get_optionresponse_data {
|
Line 2048 sub get_optionresponse_data {
|
'LEFT JOIN '.$fulldump_part_table.' AS c '. |
'LEFT JOIN '.$fulldump_part_table.' AS c '. |
'ON a.symb_id=c.symb_id AND a.student_id=c.student_id AND '. |
'ON a.symb_id=c.symb_id AND a.student_id=c.student_id AND '. |
'a.part_id=c.part_id AND a.transaction = c.transaction '. |
'a.part_id=c.part_id AND a.transaction = c.transaction '. |
|
'LEFT JOIN '.$student_table.' AS d '. |
|
'ON a.student_id=d.student_id '. |
'WHERE '. |
'WHERE '. |
'a.symb_id='.$symb_id.' AND a.response_id='.$response_id; |
'a.symb_id='.$symb_id.' AND a.response_id='.$response_id; |
if (defined($students)) { |
if (defined($students)) { |
Line 2064 sub get_optionresponse_data {
|
Line 2074 sub get_optionresponse_data {
|
} |
} |
} |
} |
|
|
|
sub RT_student_id { return 0; } |
|
sub RT_awarded { return 1; } |
|
sub RT_tries { return 2; } |
|
sub RT_timestamp { return 3; } |
|
|
sub get_response_time_data { |
sub get_response_time_data { |
my ($students,$symb,$part,$courseid) = @_; |
my ($students,$symb,$part,$courseid) = @_; |
return undef if (! defined($symb) || |
return undef if (! defined($symb) || |