\n";
my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
if (defined($starttime) || defined($endtime)) {
@@ -965,7 +971,7 @@ sub sequence_html_output {
sub make_plot {
my ($r,$plot) = @_;
&compute_all_statistics($r);
- &sort_data($ENV{'form.sortby'});
+ &sort_data($env{'form.sortby'});
if ($plot eq 'degrees') {
°rees_plot($r);
} elsif ($plot eq 'tries statistics') {
@@ -1219,8 +1225,8 @@ END
sub plot_dropdown {
my $current = '';
#
- if (defined($ENV{'form.plot'})) {
- $current = $ENV{'form.plot'};
+ if (defined($env{'form.plot'})) {
+ $current = $env{'form.plot'};
}
#
my @Additional_Plots = (
@@ -1264,40 +1270,21 @@ sub Excel_output {
&compute_all_statistics($r);
my $c = $r->connection;
return if ($c->aborted());
+ #
+ my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
##
## Create the excel workbook
- my $filename = '/prtspool/'.
- $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
- time.'_'.rand(1000000000).'.xls';
- my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
- #
- # Create sheet
- my $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 0;
- }
- #
- # 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);
+ my ($excel_workbook,$filename,$format) =
+ &Apache::loncommon::create_workbook($r);
+ return if (! defined($excel_workbook));
#
# Add a worksheet
- my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+ my $sheetname = $env{'course.'.$env{'request.course.id'}.'.description'};
if (length($sheetname) > 31) {
$sheetname = substr($sheetname,0,31);
}
my $excel_sheet = $excel_workbook->addworksheet(
&Apache::loncommon::clean_excel_name($sheetname));
- #
- my $format = &Apache::loncommon::define_excel_formats($excel_workbook);
##
## Begin creating excel sheet
##
@@ -1305,17 +1292,16 @@ sub Excel_output {
#
# Put the course description in the header
$excel_sheet->write($rows_output,$cols_output++,
- $ENV{'course.'.$ENV{'request.course.id'}.'.description'},
+ $env{'course.'.$env{'request.course.id'}.'.description'},
$format->{'h1'});
$cols_output += 3;
#
# Put a description of the sections listed
my $sectionstring = '';
$excel_sheet->write($rows_output,$cols_output++,
- &Apache::lonstathelpers::sections_description
- (@Apache::lonstatistics::SelectedSections),
+ &Apache::lonstatistics::section_and_enrollment_description('plaintext'),
$format->{'h3'});
- $cols_output += scalar(@Apache::lonstatistics::SelectedSections);
+ $cols_output += scalar(&Apache::lonstatistics::get_selected_sections());
#
# Time restrictions
my $time_string;
@@ -1553,10 +1539,10 @@ sub get_statistics {
#
my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
my $symb = $resource->symb;
- my $courseid = $ENV{'request.course.id'};
+ my $courseid = $env{'request.course.id'};
#
my $data = &Apache::loncoursedata::get_problem_statistics
- (\@Apache::lonstatistics::SelectedSections,
+ ([&Apache::lonstatistics::get_selected_sections()],
$Apache::lonstatistics::enrollment_status,
$symb,$part,$courseid,$starttime,$endtime);
$data->{'symb'} = $symb;
@@ -1574,11 +1560,11 @@ sub get_statistics {
#
# Store in metadata if computations were done for all students
if ($data->{'num_students'} > 1) {
- my @Sections = @Apache::lonstatistics::SelectedSections;
+ my @Sections = &Apache::lonstatistics::get_selected_sections();
my $sections = '"'.join(' ',@Sections).'"';
$sections =~ s/&+/_/g; # Ensure no special characters
$data->{'sections'}=$sections;
- $data->{'course'} = $ENV{'request.course.id'};
+ $data->{'course'} = $env{'request.course.id'};
my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2];
$data->{'urlres'}=$urlres;
my %storestats =
@@ -1634,7 +1620,7 @@ sub compute_discrimination_factor {
my $ranking =
&Apache::loncoursedata::rank_students_by_scores_on_resources
(\@Resources,
- \@Apache::lonstatistics::SelectedSections,
+ [&Apache::lonstatistics::get_selected_sections()],
$Apache::lonstatistics::enrollment_status,undef,
$starttime,$endtime);
#
@@ -1699,7 +1685,7 @@ sub compute_sequence_statistics {
# First compute statistics based on student scores
my ($smin,$smax,$sMean,$sSTD,$scount,$sMAX) =
&Apache::loncoursedata::score_stats
- (\@Apache::lonstatistics::SelectedSections,
+ ([&Apache::lonstatistics::get_selected_sections()],
$Apache::lonstatistics::enrollment_status,
\@Resources,$starttime,$endtime,undef);
$SeqStat{$symb}->{'title'} = $seq->compTitle;
@@ -1714,7 +1700,7 @@ sub compute_sequence_statistics {
# 'correct' is taken to mean
my ($cmin,$cmax,$cMean,$cSTD,$ccount)=
&Apache::loncoursedata::count_stats
- (\@Apache::lonstatistics::SelectedSections,
+ ([&Apache::lonstatistics::get_selected_sections()],
$Apache::lonstatistics::enrollment_status,
\@Resources,$starttime,$endtime,undef);
my $K = $part_count;