version 1.101, 2005/03/10 17:33:57
|
version 1.102, 2005/03/14 20:28:22
|
Line 721 sub BuildProblemStatisticsPage {
|
Line 721 sub BuildProblemStatisticsPage {
|
return; |
return; |
} |
} |
if (exists($ENV{'form.Excel'})) { |
if (exists($ENV{'form.Excel'})) { |
|
$r->print('<h4>'. |
|
&Apache::lonstatistics::section_and_enrollment_description(). |
|
'</h4>'); |
&Excel_output($r); |
&Excel_output($r); |
} else { |
} else { |
$r->print('<input type="submit" name="Excel" value="'. |
$r->print('<input type="submit" name="Excel" value="'. |
&mt('Produce Excel Output').'" />'.' 'x5); |
&mt('Produce Excel Output').'" />'.' 'x5); |
$r->rflush(); |
$r->rflush(); |
|
$r->print('<h4>'. |
|
&Apache::lonstatistics::section_and_enrollment_description(). |
|
'</h4>'); |
my $count = 0; |
my $count = 0; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my @resources = |
my @resources = |
Line 1294 sub Excel_output {
|
Line 1300 sub Excel_output {
|
my $sectionstring = ''; |
my $sectionstring = ''; |
$excel_sheet->write($rows_output,$cols_output++, |
$excel_sheet->write($rows_output,$cols_output++, |
&Apache::lonstathelpers::sections_description |
&Apache::lonstathelpers::sections_description |
(@Apache::lonstatistics::SelectedSections), |
(&Apache::lonstatistics::get_selected_sections()), |
$format->{'h3'}); |
$format->{'h3'}); |
$cols_output += scalar(@Apache::lonstatistics::SelectedSections); |
$cols_output += scalar(&Apache::lonstatistics::get_selected_sections()); |
# |
# |
# Time restrictions |
# Time restrictions |
my $time_string; |
my $time_string; |
Line 1537 sub get_statistics {
|
Line 1543 sub get_statistics {
|
my $courseid = $ENV{'request.course.id'}; |
my $courseid = $ENV{'request.course.id'}; |
# |
# |
my $data = &Apache::loncoursedata::get_problem_statistics |
my $data = &Apache::loncoursedata::get_problem_statistics |
(\@Apache::lonstatistics::SelectedSections, |
([&Apache::lonstatistics::get_selected_sections()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
$symb,$part,$courseid,$starttime,$endtime); |
$symb,$part,$courseid,$starttime,$endtime); |
$data->{'symb'} = $symb; |
$data->{'symb'} = $symb; |
Line 1555 sub get_statistics {
|
Line 1561 sub get_statistics {
|
# |
# |
# Store in metadata if computations were done for all students |
# Store in metadata if computations were done for all students |
if ($data->{'num_students'} > 1) { |
if ($data->{'num_students'} > 1) { |
my @Sections = @Apache::lonstatistics::SelectedSections; |
my @Sections = &Apache::lonstatistics::get_selected_sections(); |
my $sections = '"'.join(' ',@Sections).'"'; |
my $sections = '"'.join(' ',@Sections).'"'; |
$sections =~ s/&+/_/g; # Ensure no special characters |
$sections =~ s/&+/_/g; # Ensure no special characters |
$data->{'sections'}=$sections; |
$data->{'sections'}=$sections; |
Line 1615 sub compute_discrimination_factor {
|
Line 1621 sub compute_discrimination_factor {
|
my $ranking = |
my $ranking = |
&Apache::loncoursedata::rank_students_by_scores_on_resources |
&Apache::loncoursedata::rank_students_by_scores_on_resources |
(\@Resources, |
(\@Resources, |
\@Apache::lonstatistics::SelectedSections, |
[&Apache::lonstatistics::get_selected_sections()], |
$Apache::lonstatistics::enrollment_status,undef, |
$Apache::lonstatistics::enrollment_status,undef, |
$starttime,$endtime); |
$starttime,$endtime); |
# |
# |
Line 1680 sub compute_sequence_statistics {
|
Line 1686 sub compute_sequence_statistics {
|
# First compute statistics based on student scores |
# First compute statistics based on student scores |
my ($smin,$smax,$sMean,$sSTD,$scount,$sMAX) = |
my ($smin,$smax,$sMean,$sSTD,$scount,$sMAX) = |
&Apache::loncoursedata::score_stats |
&Apache::loncoursedata::score_stats |
(\@Apache::lonstatistics::SelectedSections, |
([&Apache::lonstatistics::get_selected_sections()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
\@Resources,$starttime,$endtime,undef); |
\@Resources,$starttime,$endtime,undef); |
$SeqStat{$symb}->{'title'} = $seq->compTitle; |
$SeqStat{$symb}->{'title'} = $seq->compTitle; |
Line 1695 sub compute_sequence_statistics {
|
Line 1701 sub compute_sequence_statistics {
|
# 'correct' is taken to mean |
# 'correct' is taken to mean |
my ($cmin,$cmax,$cMean,$cSTD,$ccount)= |
my ($cmin,$cmax,$cMean,$cSTD,$ccount)= |
&Apache::loncoursedata::count_stats |
&Apache::loncoursedata::count_stats |
(\@Apache::lonstatistics::SelectedSections, |
([&Apache::lonstatistics::get_selected_sections()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
\@Resources,$starttime,$endtime,undef); |
\@Resources,$starttime,$endtime,undef); |
my $K = $part_count; |
my $K = $part_count; |