version 1.33, 2003/03/04 14:21:36
|
version 1.34, 2003/03/04 16:10:09
|
Line 587 sub excel_initialize {
|
Line 587 sub excel_initialize {
|
} |
} |
$excel_sheet = $excel_workbook->addworksheet($sheetname); |
$excel_sheet = $excel_workbook->addworksheet($sheetname); |
# |
# |
|
# Put the course description in the header |
|
$excel_sheet->write($rows_output,$cols_output++, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}); |
|
$cols_output += 3; |
|
# |
|
# Put a description of the sections listed |
|
my $sectionstring = ''; |
|
my @Sections = @Apache::lonstatistics::SelectedSections; |
|
if (scalar(@Sections) > 1) { |
|
if (scalar(@Sections) > 2) { |
|
my $last = pop(@Sections); |
|
$sectionstring = "Sections ".join(', ',@Sections).', and '.$last; |
|
} else { |
|
$sectionstring = "Sections ".join(' and ',@Sections); |
|
} |
|
} else { |
|
if ($Sections[0] eq 'all') { |
|
$sectionstring = "All sections"; |
|
} else { |
|
$sectionstring = "Section ".$Sections[0]; |
|
} |
|
} |
|
$excel_sheet->write($rows_output,$cols_output++,$sectionstring); |
|
$cols_output += scalar(@Sections); |
|
# |
|
# Put the date in there too |
|
$excel_sheet->write($rows_output,$cols_output++, |
|
'Compiled on '.localtime(time)); |
|
# |
|
$rows_output++; |
|
# |
# Add the student headers |
# Add the student headers |
|
$cols_output = 0; |
foreach my $field (&get_student_fields_to_show()) { |
foreach my $field (&get_student_fields_to_show()) { |
$excel_sheet->write(1,$cols_output++,$field); |
$excel_sheet->write($rows_output,$cols_output++,$field); |
} |
} |
# |
# |
# Add the Sequence Headers |
# Add the Sequence Headers |
foreach my $seq (&get_sequences_to_show) { |
foreach my $seq (&get_sequences_to_show) { |
$excel_sheet->write(0,$cols_output,$seq->{'title'}); |
$excel_sheet->write($rows_output,$cols_output,$seq->{'title'}); |
if ($show eq 'totals') { |
if ($show eq 'totals') { |
$excel_sheet->write(1,$cols_output,'score'); |
$excel_sheet->write($rows_output+1,$cols_output,'score'); |
$excel_sheet->write(1,$cols_output+1,'maximum'); |
$excel_sheet->write($rows_output+1,$cols_output+1,'maximum'); |
$cols_output += 2; |
$cols_output += 2; |
} else { |
} else { |
$cols_output++; |
$cols_output++; |
Line 606 sub excel_initialize {
|
Line 638 sub excel_initialize {
|
# |
# |
# Bookkeeping |
# Bookkeeping |
if ($show eq 'totals') { |
if ($show eq 'totals') { |
$rows_output = 2; |
$rows_output += 2; |
} else { |
} else { |
$rows_output = 1; |
$rows_output += 1; |
} |
} |
# |
# |
# Let the user know what we are doing |
# Let the user know what we are doing |
Line 681 sub excel_outputstudent {
|
Line 713 sub excel_outputstudent {
|
$r->print($num_students.' out of '. |
$r->print($num_students.' out of '. |
(scalar(@Apache::lonstatistics::Students)). |
(scalar(@Apache::lonstatistics::Students)). |
" students processed. ". |
" students processed. ". |
$time_est." remain. <br />\n"); |
$time_est." remain. Elapsed: ".(time - $start_time). |
|
"<br />\n"); |
$r->rflush(); |
$r->rflush(); |
} |
} |
return; |
return; |