loncom/interface/statistics/lonsubmissiontimeanalysis.pm - diff

Return to lonsubmissiontimeanalysis.pm CVS log

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

Diff for /loncom/interface/statistics/lonsubmissiontimeanalysis.pm between versions 1.2 and 1.5

version 1.2, 2003/10/29 18:59:46	version 1.5, 2003/12/10 23:06:57
Line 69 sub render_resource {	Line 69 sub render_resource {

sub BuildSubmissionTimePage {	sub BuildSubmissionTimePage {
my ($r,$c)=@_;	my ($r,$c)=@_;
	#
	my %Saveable_Parameters = ('Status' => 'scalar',
	'Section' => 'array');
	&Apache::loncommon::store_course_settings('submissiontime_analysis',
	\%Saveable_Parameters);
	&Apache::loncommon::restore_course_settings('submissiontime_analysis',
	\%Saveable_Parameters);
	#
	&Apache::lonstatistics::PrepareClasslist();
	#
$r->print('<h2>'.&mt('Submission Time Plots').'</h2>');	$r->print('<h2>'.&mt('Submission Time Plots').'</h2>');
$r->print(&CreateInterface());	$r->print(&CreateInterface());
#	#
Line 261 sub analyze_times {	Line 271 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 280 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 288 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;
}	}
Line 354 sub ProblemSelector {	Line 364 sub ProblemSelector {
if ($ENV{'form.problemchoice'} eq $value) {	if ($ENV{'form.problemchoice'} eq $value) {
$checked = 'checked ';	$checked = 'checked ';
}	}
	my $title = $res->{'title'};
	if (! defined($title) \|\| $title eq '') {
	($title) = ($res->{'src'} =~ m:/([^/]*)$:);
	}
	# &Apache::lonnet::logthis('title = :'.$title.':');
$seq_str .= '<tr><td>'.	$seq_str .= '<tr><td>'.
'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.	'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.
'</td><td>'.	'</td><td>'.
'<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a> ';	'<a href="'.$res->{'src'}.'">'.$title.'</a> ';
} else {	} else {
	my $title = $res->{'title'};
	if (! defined($title) \|\| $title eq '') {
	($title) = ($res->{'src'} =~ m:/([^/]*)$:);
	}
$seq_str .= '<tr><td>'.	$seq_str .= '<tr><td>'.
' '.'</td><td>'.	' '.'</td><td>'.
'<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a>'.	'<a href="'.$res->{'src'}.'">'.$title.'</a>'.
"</td></tr>\n";	"</td></tr>\n";
foreach my $part (@{$res->{'parts'}}) {	foreach my $part (@{$res->{'parts'}}) {
my $value = &Apache::lonnet::escape	my $value = &Apache::lonnet::escape

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.5