loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.13, 2004/08/31 15:22:51	version 1.14, 2004/08/31 15:52:13
Line 182 sub prepare_excel_output {	Line 182 sub prepare_excel_output {
if ($ENV{'form.correctans'} eq 'true') { push(@Columns,'correct'); }	if ($ENV{'form.correctans'} eq 'true') { push(@Columns,'correct'); }
push(@Columns,'grading');	push(@Columns,'grading');
push(@Columns,'awarded');	push(@Columns,'awarded');
	my $awarded_col = $#Columns;
push(@Columns,'weight');	push(@Columns,'weight');
	my $weight_col = $#Columns;
push(@Columns,'score');	push(@Columns,'score');
my ($awarded_col,$weight_col);
if ($ENV{'form.correctans'} eq 'true') {
$awarded_col = 7;
$weight_col = 8;
} else {
$awarded_col = 6;
$weight_col = 7;
}
#	#
# Create excel worksheet	# Create excel worksheet
my $filename = '/prtspool/'.	my $filename = '/prtspool/'.