--- loncom/interface/loncoursedata.pm 2003/10/24 13:34:45 1.106 +++ loncom/interface/loncoursedata.pm 2003/10/27 21:07:22 1.107 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.106 2003/10/24 13:34:45 matthew Exp $ +# $Id: loncoursedata.pm,v 1.107 2003/10/27 21:07:22 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2065,25 +2065,25 @@ sub get_optionresponse_data { } sub get_response_time_data { - my ($students,$symb,$response,$courseid) = @_; + my ($students,$symb,$part,$courseid) = @_; return undef if (! defined($symb) || - ! defined($response)); + ! defined($part)); $courseid = $ENV{'request.course.id'} if (! defined($courseid)); # &setup_table_names($courseid); my $symb_id = &get_symb_id($symb); - my $response_id = &get_part_id($response); + my $part_id = &get_part_id($part); # my $dbh = &Apache::lonmysql::get_dbh(); return undef if (! defined($dbh)); my $request = 'SELECT '. - 'a.student_id, a.awarddetail, b.timestamp '. - 'FROM '.$fulldump_response_table.' AS a '. + 'a.student_id, a.awarded, a.tries, b.timestamp '. + 'FROM '.$fulldump_part_table.' AS a '. 'NATURAL LEFT JOIN '.$fulldump_timestamp_table.' AS b '. # 'ON a.symb_id=b.symb_id AND a.student_id=b.student_id AND '. # 'a.transaction = b.transaction '. 'WHERE '. - 'a.symb_id='.$symb_id.' AND a.response_id='.$response_id; + 'a.symb_id='.$symb_id.' AND a.part_id='.$part_id; if (defined($students)) { $request .= ' AND ('. join(' OR ', map {'a.student_id='.