loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2006/04/28 21:14:03	version 1.160, 2006/04/28 21:18:15
Line 2413 sub RDs_tries { return 0; }	Line 2413 sub RDs_tries { return 0; }
sub RDs_awarded { return 4; }	sub RDs_awarded { return 4; }
sub RDs_response_eval { return 5; }	sub RDs_response_eval { return 5; }
sub RDs_response_eval_2 { return 6; }	sub RDs_response_eval_2 { return 6; }
	sub RDs_part_award { return 7; }

sub get_response_data_by_student {	sub get_response_data_by_student {
my ($student,$symb,$response,$courseid) = @_;	my ($student,$symb,$response,$courseid) = @_;
Line 2431 sub get_response_data_by_student {	Line 2432 sub get_response_data_by_student {
return undef if (! defined($dbh));	return undef if (! defined($dbh));
my $request = 'SELECT '.	my $request = 'SELECT '.
'c.tries, b.timestamp, a.submission, a.awarddetail, c.awarded, '.	'c.tries, b.timestamp, a.submission, a.awarddetail, c.awarded, '.
'a.response_specific_value, a.response_specific_value_2, '.	'a.response_specific_value, a.response_specific_value_2, c.award '.
'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 '.