loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.176, 2019/03/20 03:39:48	version 1.178, 2025/06/28 14:34:53
Line 744 NEW_WINDOW_CHECKBOX	Line 744 NEW_WINDOW_CHECKBOX
length($title)	length($title)
)).$padding;	)).$padding;
}	}
$total_sum_width = length($total_count)+1;	$total_sum_width = length($total_count);
	if ($total_sum_width < 6) {
	$total_sum_width = 6;
	}
$Str .= " total</pre>\n";	$Str .= " total</pre>\n";
$Str .= "<pre>";	$Str .= "<pre>";

Line 938 sub html_outputstudent {	Line 941 sub html_outputstudent {
$score = sprintf("%.2f",$score);	$score = sprintf("%.2f",$score);
$score = (' 'x(6-length($score))).$score;	$score = (' 'x(6-length($score))).$score;
}	}
	$max = sprintf("%.2f",$max);
$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max;	$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max;
$Str .= " \n";	$Str .= " \n";
#	#
Line 2085 sub student_performance_on_sequence {	Line 2089 sub student_performance_on_sequence {
$awarded = 0 if (! $awarded);	$awarded = 0 if (! $awarded);
$hasdata = 1;	$hasdata = 1;
}	}
	my $latefrac;
	if (exists($resource_data->{'resource.'.$part.'.latefrac'})) {
	$latefrac = $resource_data->{'resource.'.$part.'.latefrac'};
	}
#	#
$partscore = &Apache::grades::compute_points($weight,$awarded);	$partscore = &Apache::grades::compute_points($weight,$awarded,$latefrac);
if (! defined($awarded)) {	if (! defined($awarded)) {
$partscore = undef;	$partscore = undef;
}	}