version 1.141, 2004/11/02 20:48:02
|
version 1.142, 2005/02/28 20:00:23
|
Line 2582 sub RT_tries { return 2; }
|
Line 2582 sub RT_tries { return 2; }
|
sub RT_timestamp { return 3; } |
sub RT_timestamp { return 3; } |
|
|
sub get_response_time_data { |
sub get_response_time_data { |
my ($students,$symb,$part,$courseid) = @_; |
my ($sections,$enrollment,$symb,$part,$courseid) = @_; |
return undef if (! defined($symb) || |
return undef if (! defined($symb) || |
! defined($part)); |
! defined($part)); |
$courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
$courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
# |
# |
&setup_table_names($courseid); |
&setup_table_names($courseid); |
my $symb_id = &get_symb_id($symb); |
my $symb_id = &get_symb_id($symb); |
|
if (! defined($symb_id)) { |
|
&Apache::lonnet::logthis('Unable to find symb for '.$symb.' in '.$courseid); |
|
return undef; |
|
} |
my $part_id = &get_part_id($part); |
my $part_id = &get_part_id($part); |
|
if (! defined($part_id)) { |
|
&Apache::lonnet::logthis('Unable to find id for '.$part.' in '.$courseid); |
|
return undef; |
|
} |
# |
# |
my $dbh = &Apache::lonmysql::get_dbh(); |
my $dbh = &Apache::lonmysql::get_dbh(); |
return undef if (! defined($dbh)); |
return undef if (! defined($dbh)); |
|
my ($student_requirements,$enrollment_requirements) = |
|
&limit_by_section_and_status($sections,$enrollment,'d'); |
my $request = 'SELECT '. |
my $request = 'SELECT '. |
'a.student_id, a.awarded, a.tries, b.timestamp '. |
'a.student_id, a.awarded, a.tries, b.timestamp '. |
'FROM '.$fulldump_part_table.' AS a '. |
'FROM '.$fulldump_part_table.' AS a '. |
'NATURAL 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 '. |
# 'a.transaction = b.transaction '. |
'a.transaction = b.transaction '. |
|
'LEFT JOIN '.$student_table.' as d '. |
|
'ON a.student_id=d.student_id '. |
'WHERE '. |
'WHERE '. |
'a.symb_id='.$symb_id.' AND a.part_id='.$part_id; |
'a.symb_id='.$symb_id.' AND a.part_id='.$part_id; |
if (defined($students)) { |
if (defined($student_requirements) || defined($enrollment_requirements)) { |
$request .= ' AND ('. |
$request .= ' AND '; |
join(' OR ', map {'a.student_id='. |
if (defined($student_requirements)) { |
&get_student_id($_->{'username'}, |
$request .= $student_requirements.' AND '; |
$_->{'domain'}) |
} |
} @$students |
if (defined($enrollment_requirements)) { |
).')'; |
$request .= $enrollment_requirements.' AND '; |
|
} |
|
$request =~ s/( AND )$//; |
} |
} |
$request .= ' ORDER BY b.timestamp'; |
$request .= ' ORDER BY b.timestamp'; |
# &Apache::lonnet::logthis("request =\n".$request); |
# &Apache::lonnet::logthis("request =\n".$request); |