|
version 1.26, 2004/11/08 15:14:52
|
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 817 sub prepare_csv_output {
|
Line 825 sub prepare_csv_output {
|
| # |
# |
| # Main loop |
# Main loop |
| foreach my $student (@$students) { |
foreach my $student (@$students) { |
| |
last if ($c->aborted()); |
| my @rows; |
my @rows; |
| my $prob_start_idx = 0; |
my $prob_start_idx = 0; |
| foreach my $prob (@$problems) { |
foreach my $prob (@$problems) { |
|
Line 883 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'}, |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonstudentsubmissions.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics