loncom/interface/statistics/lonsubmissiontimeanalysis.pm - diff

Return to lonsubmissiontimeanalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.21, 2005/03/10 17:06:21	version 1.22, 2005/03/14 20:28:22
Line 127 sub BuildSubmissionTimePage {	Line 127 sub BuildSubmissionTimePage {
} else {	} else {
$r->print('<h1>'.$resource->compTitle.'</h1>');	$r->print('<h1>'.$resource->compTitle.'</h1>');
$r->print('<h3>'.$resource->src.'</h3>');	$r->print('<h3>'.$resource->src.'</h3>');
	$r->print('<h4>'.
	&Apache::lonstatistics::section_and_enrollment_description().
	'</h4>');
$r->rflush();	$r->rflush();
$r->print(&Apache::lonstathelpers::render_resource($resource));	$r->print(&Apache::lonstathelpers::render_resource($resource));
$r->print('<br />');	$r->print('<br />');
Line 169 sub analyze_times {	Line 172 sub analyze_times {
my $html; # holds results of analysis	my $html; # holds results of analysis
# Get the data	# Get the data
my $SubData = &Apache::loncoursedata::get_response_time_data	my $SubData = &Apache::loncoursedata::get_response_time_data
(\@Apache::lonstatistics::SelectedSections,	([&Apache::lonstatistics::get_selected_sections()],
$Apache::lonstatistics::enrollment_status,	$Apache::lonstatistics::enrollment_status,
$symb,$part);	$symb,$part);
if (! defined($SubData) \|\| ! ref($SubData)) {	if (! defined($SubData) \|\| ! ref($SubData)) {