loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.66, 2003/09/03 18:23:10	version 1.67, 2003/09/10 15:06:34
Line 931 END	Line 931 END
#	#
# Add a worksheet	# Add a worksheet
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};	my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
if (length($sheetname) > 31) {	$sheetname = &Apache::loncommon::clean_excel_name($sheetname);
$sheetname = substr($sheetname,0,31);
}
$excel_sheet = $excel_workbook->addworksheet($sheetname);	$excel_sheet = $excel_workbook->addworksheet($sheetname);
#	#
# Put the course description in the header	# Put the course description in the header
Line 1514 sub StudentPerformanceOnSequence {	Line 1512 sub StudentPerformanceOnSequence {
my $awarded = 0;	my $awarded = 0;
if (exists($resource_data->{'resource.'.$part.'.awarded'})) {	if (exists($resource_data->{'resource.'.$part.'.awarded'})) {
$awarded = $resource_data->{'resource.'.$part.'.awarded'};	$awarded = $resource_data->{'resource.'.$part.'.awarded'};
	$awarded = 0 if (! $awarded);
}	}
#	#
$partscore = $weight*$awarded;	$partscore = $weight*$awarded;