loncom/interface/statistics/lonsubmissiontimeanalysis.pm - diff

Return to lonsubmissiontimeanalysis.pm CVS log

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

version 1.2, 2003/10/29 18:59:46	version 1.3, 2003/10/30 16:20:18
Line 261 sub analyze_times {	Line 261 sub analyze_times {
sub successful_submission {	sub successful_submission {
my ($row) = @_;	my ($row) = @_;
if (ref($row) eq 'ARRAY') {	if (ref($row) eq 'ARRAY') {
return $row->[1];	return $row->[&Apache::loncoursedata::RT_awarded()];
}	}
return undef;	return undef;
return 0;	return 0;
Line 270 sub successful_submission {	Line 270 sub successful_submission {
sub get_time_from_row {	sub get_time_from_row {
my ($row) = @_;	my ($row) = @_;
if (ref($row) eq 'ARRAY') {	if (ref($row) eq 'ARRAY') {
return $row->[3];	return $row->[&Apache::loncoursedata::RT_timestamp()];
}	}
return undef;	return undef;
}	}
Line 278 sub get_time_from_row {	Line 278 sub get_time_from_row {
sub get_tries_from_row {	sub get_tries_from_row {
my ($row) = @_;	my ($row) = @_;
if (ref($row) eq 'ARRAY') {	if (ref($row) eq 'ARRAY') {
return $row->[2];	return $row->[&Apache::loncoursedata::RT_tries()];
}	}
return undef;	return undef;
}	}