'."\n");
- $r->print(''."\n");
- $r->print(&CreateProblemStatisticsTableHeading($headings, $r));
+=pod
+
+=item &output_excel()
+
+Presents the statistical data in an Excel 95 compatable spreadsheet file.
+
+=cut
+
+###############################################
+###############################################
+sub output_excel {
+ my ($r) = @_;
+ my $filename = '/prtspool/'.
+ $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
+ time.'_'.rand(1000000000).'.xls';
+ #
+ my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
+ #
+ my $excel_workbook = undef;
+ my $excel_sheet = undef;
+ #
+ my $rows_output = 0;
+ my $cols_output = 0;
+ #
+ # Create sheet
+ $excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
+ #
+ # Check for errors
+ if (! defined($excel_workbook)) {
+ $r->log_error("Error creating excel spreadsheet $filename: $!");
+ $r->print(&mt("Problems creating new Excel file. ".
+ "This error has been logged. ".
+ "Please alert your LON-CAPA administrator."));
+ return ;
+ }
+ #
+ # The excel spreadsheet stores temporary data in files, then put them
+ # together. If needed we should be able to disable this (memory only).
+ # The temporary directory must be specified before calling 'addworksheet'.
+ # File::Temp is used to determine the temporary directory.
+ $excel_workbook->set_tempdir($Apache::lonnet::tmpdir);
+ #
+ # Add a worksheet
+ my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+ if (length($sheetname) > 31) {
+ $sheetname = substr($sheetname,0,31);
+ }
+ $excel_sheet = $excel_workbook->addworksheet(
+ &Apache::loncommon::clean_excel_name($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 {
- $r->print('
');
+ if ($Sections[0] eq 'all') {
+ $sectionstring = "All sections";
+ } else {
+ $sectionstring = "Section ".$Sections[0];
+ }
}
-
- my $count = 1;
- foreach(@$orderedProblems) {
- my ($sequence,$problem,$part)=split(':', $_);
-# if($cache->{'ProblemStatisticsMaps'} ne 'All Maps' &&
-# $cache->{'ProblemStatisticsMaps'} ne $cache->{$sequence.':title'}) {
-# next;
-# }
-
-
- my $ref = ''.$cache->{$problem.':title'}.'';
-# my $ref = $cache->{$problem.':title'};
- my $title = $cache->{$problem.':title'};
- my $source = 'source';
- my $tableData = join('&', $ref, $title, $source,
- $cache->{$_.':studentCount'},
- $cache->{$_.':totalTries'},
- $cache->{$_.':maxTries'},
- sprintf("%.2f", $cache->{$_.':mean'}),
- $cache->{$_.':correct'},
- $cache->{$_.':correctByOverride'},
- sprintf("%.1f", $cache->{$_.':percentWrong'}),
- sprintf("%.2f", $cache->{$_.':degreeOfDifficulty'}),
- sprintf("%.1f", $cache->{$_.':standardDeviation'}),
- sprintf("%.1f", $cache->{$_.':skewness'}),
- sprintf("%.2f", $cache->{$_.':discriminationFactor1'}),
- sprintf("%.2f", $cache->{$_.':discriminationFactor2'}),
- 0); # 0 is for discussion, need to figure out
-
-#6666666
-# $r->print('
'.$out.'&'.$DoD);
-# print (OUT $out.'@'.$DoD.'&');
-#6666666
-
-#check with Gerd
-# $urlres=~/^(\w+)\/(\w+)/;
-# if ($StdNo) {
-# &Apache::lonnet::put('nohist_resevaldata',\%storestats,
-# $1,$2);
-# }
-#-------------------------------- Row of statistical table
- &TableRow($displayFormat,$tableData,$count,$r,$color);
- $count++;
- }
- if($cache->{'DisplayFormat'} ne 'Display CSV Format') {
- $r->print(' '."\n");
- }
- $r->print(' |
');
-
- return;
-}
-
1;
__END__