version 1.81, 2004/01/27 16:58:05
|
version 1.81.2.3, 2004/04/06 21:42:26
|
Line 163 sub BuildStudentAssessmentPage {
|
Line 163 sub BuildStudentAssessmentPage {
|
# |
# |
$single_student_mode = 0; |
$single_student_mode = 0; |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['selectstudent']); |
if ($ENV{'form.selectstudent'}) { |
if ($ENV{'form.selectstudent'}) { |
&Apache::lonstatistics::DisplayClasslist($r); |
&Apache::lonstatistics::DisplayClasslist($r); |
return; |
return; |
Line 990 END
|
Line 992 END
|
$cols_output = 0; |
$cols_output = 0; |
$excel_sheet->write($rows_output++,$cols_output++,$datadescription); |
$excel_sheet->write($rows_output++,$cols_output++,$datadescription); |
# |
# |
if ($data eq 'tries' || $data eq 'scores') { |
# if ($data eq 'tries' || $data eq 'scores') { |
$rows_output++; |
$rows_output+=2; |
} |
# } |
# |
# |
# Add the student headers |
# Add the student headers |
$cols_output = 0; |
$cols_output = 0; |
Line 1000 END
|
Line 1002 END
|
$excel_sheet->write($rows_output,$cols_output++,$field); |
$excel_sheet->write($rows_output,$cols_output++,$field); |
} |
} |
my $row_offset = 0; |
my $row_offset = 0; |
if ($data eq 'tries' || $data eq 'scores') { |
# if ($data eq 'tries' || $data eq 'scores') { |
$row_offset = -1; |
$row_offset = -1; |
} |
# } |
# |
# |
# Add the remaining column headers |
# Add the remaining column headers |
my $total_formula_string = '=0'; |
my $total_formula_string = '=0'; |
Line 1017 END
|
Line 1019 END
|
$seq->{'Excel:startcol'}=$cols_output; |
$seq->{'Excel:startcol'}=$cols_output; |
# Put the names of the problems and parts into the sheet |
# Put the names of the problems and parts into the sheet |
foreach my $res (@{$seq->{'contents'}}) { |
foreach my $res (@{$seq->{'contents'}}) { |
next if ($res->{'type'} ne 'assessment'); |
if ($res->{'type'} ne 'assessment' || |
|
! exists($res->{'parts'}) || |
|
ref($res->{'parts'}) ne 'ARRAY' || |
|
scalar(@{$res->{'parts'}}) < 1) { |
|
next; |
|
} |
if (scalar(@{$res->{'parts'}}) > 1) { |
if (scalar(@{$res->{'parts'}}) > 1) { |
foreach my $part (@{$res->{'parts'}}) { |
foreach my $part (@{$res->{'parts'}}) { |
$excel_sheet->write($rows_output, |
$excel_sheet->write($rows_output, |
Line 1060 END
|
Line 1067 END
|
$total_formula = $excel_sheet->store_formula($total_formula_string); |
$total_formula = $excel_sheet->store_formula($total_formula_string); |
# |
# |
# Bookkeeping |
# Bookkeeping |
if ($data eq 'sum and total' || $data eq 'parts correct total') { |
# if ($data eq 'sum and total' || $data eq 'parts correct total') { |
$rows_output += 2; |
# $rows_output += 1; |
} else { |
# } else { |
$rows_output += 1; |
$rows_output += 1; |
} |
# } |
# |
# |
# Output a row for MAX |
# Output a row for MAX |
$cols_output = 0; |
$cols_output = 0; |