loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.27, 2004/11/08 15:21:38	version 1.29, 2004/12/06 16:53:39
Line 654 sub prepare_excel_output {	Line 654 sub prepare_excel_output {
}	}
}	}
}	}
	# Fill in the remaining rows with the students data
	for (my $row = $student_row+1;$row<=$max_row;$row++) {
	my $cols = 0;
	foreach my $field (@StudentColumns) {
	$worksheet->write($row,$cols++,
	$student->{$field});
	}
	}
$rows_output++;	$rows_output++;
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
'last student');	'last student');
Line 884 sub prepare_csv_output {	Line 892 sub prepare_csv_output {
sub compile_response_data {	sub compile_response_data {
my ($response,$student,$prob,$partid,$respid) = @_;	my ($response,$student,$prob,$partid,$respid) = @_;
my @rowdata;	my @rowdata;
push(@rowdata,$response->[&Apache::loncoursedata::RDs_submission()]);	push(@rowdata,&Apache::lonnet::unescape($response->[&Apache::loncoursedata::RDs_submission()]));
if ($ENV{'form.correctans'} eq 'true') {	if ($ENV{'form.correctans'} eq 'true') {
my $correct = &Apache::lonstathelpers::get_student_answer	my $correct = &Apache::lonstathelpers::get_student_answer
($prob,$student->{'username'},$student->{'domain'},	($prob,$student->{'username'},$student->{'domain'},