version 1.74, 2004/03/29 15:58:33
|
version 1.78, 2004/03/29 19:50:23
|
Line 73 my @Fields = (
|
Line 73 my @Fields = (
|
{ name => 'problem_num', |
{ name => 'problem_num', |
title => 'P#', |
title => 'P#', |
align => 'right', |
align => 'right', |
color => '#FFFFE6' }, |
color => '#FFFFE6', |
|
selectable => 'no', |
|
selected => 'yes', |
|
}, |
{ name => 'container', |
{ name => 'container', |
title => 'Sequence or Folder', |
title => 'Sequence or Folder', |
align => 'left', |
align => 'left', |
color => '#FFFFE6', |
color => '#FFFFE6', |
sortable => 'yes' }, |
sortable => 'yes', |
|
selectable => 'no', |
|
selected => 'yes', |
|
}, |
{ name => 'title', |
{ name => 'title', |
title => 'Title', |
title => 'Title', |
align => 'left', |
align => 'left', |
color => '#FFFFE6', |
color => '#FFFFE6', |
special => 'link', |
special => 'link', |
sortable => 'yes', }, |
sortable => 'yes', |
|
selectable => 'no', |
|
selected => 'yes', |
|
}, |
{ name => 'part', |
{ name => 'part', |
title => 'Part', |
title => 'Part', |
align => 'left', |
align => 'left', |
color => '#FFFFE6', |
color => '#FFFFE6', |
}, |
selectable => 'no', |
|
selected => 'yes', |
|
}, |
{ name => 'num_students', |
{ name => 'num_students', |
title => '#Stdnts', |
title => '#Stdnts', |
align => 'right', |
align => 'right', |
Line 97 my @Fields = (
|
Line 108 my @Fields = (
|
format => '%d', |
format => '%d', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Number of Students Attempting Problem' }, |
long_title => 'Number of Students Attempting Problem', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'tries', |
{ name => 'tries', |
title => 'Tries', |
title => 'Tries', |
align => 'right', |
align => 'right', |
Line 105 my @Fields = (
|
Line 119 my @Fields = (
|
format => '%d', |
format => '%d', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Total Number of Tries' }, |
long_title => 'Total Number of Tries', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'max_tries', |
{ name => 'max_tries', |
title => 'Max Tries', |
title => 'Max Tries', |
align => 'right', |
align => 'right', |
Line 113 my @Fields = (
|
Line 130 my @Fields = (
|
format => '%d', |
format => '%d', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Maximum Number of Tries' }, |
long_title => 'Maximum Number of Tries', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'min_tries', |
{ name => 'min_tries', |
title => 'Min Tries', |
title => 'Min Tries', |
align => 'right', |
align => 'right', |
Line 121 my @Fields = (
|
Line 141 my @Fields = (
|
format => '%d', |
format => '%d', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Minumum Number of Tries' }, |
long_title => 'Minumum Number of Tries', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'mean_tries', |
{ name => 'mean_tries', |
title => 'Mean Tries', |
title => 'Mean Tries', |
align => 'right', |
align => 'right', |
Line 129 my @Fields = (
|
Line 152 my @Fields = (
|
format => '%5.2f', |
format => '%5.2f', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Average Number of Tries' }, |
long_title => 'Average Number of Tries', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'std_tries', |
{ name => 'std_tries', |
title => 'S.D. tries', |
title => 'S.D. tries', |
align => 'right', |
align => 'right', |
Line 137 my @Fields = (
|
Line 163 my @Fields = (
|
format => '%5.2f', |
format => '%5.2f', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Standard Deviation of Number of Tries' }, |
long_title => 'Standard Deviation of Number of Tries', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'skew_tries', |
{ name => 'skew_tries', |
title => 'Skew Tries', |
title => 'Skew Tries', |
align => 'right', |
align => 'right', |
Line 145 my @Fields = (
|
Line 174 my @Fields = (
|
format => '%5.2f', |
format => '%5.2f', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Skew of Number of Tries' }, |
long_title => 'Skew of Number of Tries', |
|
selectable => 'yes', |
|
selected => 'no', |
|
}, |
{ name => 'num_solved', |
{ name => 'num_solved', |
title => '#YES', |
title => '#YES', |
align => 'right', |
align => 'right', |
Line 153 my @Fields = (
|
Line 185 my @Fields = (
|
format => '%4.1f',# format => '%d', |
format => '%4.1f',# format => '%d', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Number of Students able to Solve' }, |
long_title => 'Number of Students able to Solve', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'num_override', |
{ name => 'num_override', |
title => '#yes', |
title => '#yes', |
align => 'right', |
align => 'right', |
Line 161 my @Fields = (
|
Line 196 my @Fields = (
|
format => '%4.1f',# format => '%d', |
format => '%4.1f',# format => '%d', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Number of Students given Override' }, |
long_title => 'Number of Students given Override', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'num_wrong', |
{ name => 'num_wrong', |
title => '#Wrng', |
title => '#Wrng', |
align => 'right', |
align => 'right', |
Line 169 my @Fields = (
|
Line 207 my @Fields = (
|
format => '%4.1f', |
format => '%4.1f', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Percent of students whose final answer is wrong' }, |
long_title => 'Percent of students whose final answer is wrong', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'deg_of_diff', |
{ name => 'deg_of_diff', |
title => 'DoDiff', |
title => 'DoDiff', |
align => 'right', |
align => 'right', |
Line 178 my @Fields = (
|
Line 219 my @Fields = (
|
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Degree of Difficulty'. |
long_title => 'Degree of Difficulty'. |
'[ 1 - ((#YES+#yes) / Tries) ]'}, |
'[ 1 - ((#YES+#yes) / Tries) ]', |
|
selectable => 'yes', |
|
selected => 'yes', |
|
}, |
{ name => 'deg_of_disc', |
{ name => 'deg_of_disc', |
title => 'DoDisc', |
title => 'DoDisc', |
align => 'right', |
align => 'right', |
Line 186 my @Fields = (
|
Line 230 my @Fields = (
|
format => '%4.2f', |
format => '%4.2f', |
sortable => 'yes', |
sortable => 'yes', |
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Degree of Discrimination' }, |
long_title => 'Degree of Discrimination', |
|
selectable => 'yes', |
|
selected => 'no', |
|
}, |
); |
); |
|
|
|
my %SelectedFields; |
|
|
|
sub parse_field_selection { |
|
# |
|
# Pull out the defaults |
|
if (! defined($ENV{'form.fieldselections'})) { |
|
$ENV{'form.fieldselections'} = []; |
|
foreach my $field (@Fields) { |
|
next if ($field->{'selectable'} ne 'yes'); |
|
if ($field->{'selected'} eq 'yes') { |
|
push(@{$ENV{'form.fieldselections'}},$field->{'name'}); |
|
} |
|
} |
|
} |
|
# |
|
# This should not happen, but in case it does... |
|
if (ref($ENV{'form.fieldselections'}) ne 'ARRAY') { |
|
$ENV{'form.fieldselections'} = [$ENV{'form.fieldselections'}]; |
|
} |
|
# |
|
# Set the field data and the selected fields (for easier checking) |
|
undef(%SelectedFields); |
|
foreach my $field (@Fields) { |
|
next if ($field->{'selectable'} ne 'yes'); |
|
$field->{'selected'} = 'no'; |
|
foreach my $selection (@{$ENV{'form.fieldselections'}}) { |
|
if ($selection eq $field->{'name'} || $selection eq 'all') { |
|
$field->{'selected'} = 'yes'; |
|
$SelectedFields{$field->{'name'}}++; |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
|
sub field_selection_input { |
|
my $Str = '<select name="fieldselections" multiple size="5">'."\n"; |
|
$Str .= '<option value="all">all</option>'."\n"; |
|
foreach my $field (@Fields) { |
|
next if ($field->{'selectable'} ne 'yes'); |
|
$Str .= ' <option value="'.$field->{'name'}.'" '; |
|
if ($field->{'selected'} eq 'yes') { |
|
$Str .= 'selected '; |
|
} |
|
$Str .= '>'.$field->{'title'}.'</option>'."\n"; |
|
} |
|
$Str .= "</select>\n"; |
|
} |
|
|
############################################### |
############################################### |
############################################### |
############################################### |
|
|
Line 204 select sections, maps, and output.
|
Line 300 select sections, maps, and output.
|
############################################### |
############################################### |
############################################### |
############################################### |
sub CreateInterface { |
sub CreateInterface { |
|
&parse_field_selection(); |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
(undef,'Overall Problem Statistics','Statistics_Overall_Key'); |
(undef,'Overall Problem Statistics','Statistics_Overall_Key'); |
Line 212 sub CreateInterface {
|
Line 309 sub CreateInterface {
|
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Statistics').'</b></td>'; |
$Str .= '<td rowspan="2">'. |
$Str .= '<td rowspan="2">'. |
&Apache::lonstathelpers::limit_by_time_form().'</td>'; |
&Apache::lonstathelpers::limit_by_time_form().'</td>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
Line 232 sub CreateInterface {
|
Line 330 sub CreateInterface {
|
}; |
}; |
$Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, |
$Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, |
$only_seq_with_assessments); |
$only_seq_with_assessments); |
|
$Str .= '</td><td>'.&field_selection_input(); |
$Str .= '</td></tr>'."\n"; |
$Str .= '</td></tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
Line 270 sub BuildProblemStatisticsPage {
|
Line 369 sub BuildProblemStatisticsPage {
|
'statsoutputmode' => 'scalar', |
'statsoutputmode' => 'scalar', |
'Section' => 'array', |
'Section' => 'array', |
'StudentData' => 'array', |
'StudentData' => 'array', |
'Maps' => 'array'); |
'Maps' => 'array', |
|
'fieldselections'=> 'array'); |
&Apache::loncommon::store_course_settings('statistics', |
&Apache::loncommon::store_course_settings('statistics', |
\%Saveable_Parameters); |
\%Saveable_Parameters); |
&Apache::loncommon::restore_course_settings('statistics', |
&Apache::loncommon::restore_course_settings('statistics', |
Line 310 sub BuildProblemStatisticsPage {
|
Line 410 sub BuildProblemStatisticsPage {
|
# This probably does not need to be done each time we are called, but |
# This probably does not need to be done each time we are called, but |
# it does not slow things down noticably. |
# it does not slow things down noticably. |
&Apache::loncoursedata::populate_weight_table(); |
&Apache::loncoursedata::populate_weight_table(); |
|
# |
if (exists($ENV{'form.Excel'})) { |
if (exists($ENV{'form.Excel'})) { |
&Excel_output($r); |
&Excel_output($r); |
} else { |
} else { |
|
my $count = 0; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
$count += $seq->{'num_assess_parts'}; |
|
} |
|
if ($count > 10) { |
|
$r->print('<h2>'. |
|
&mt('Compiling statistics for [_1] problems',$count). |
|
'</h2>'); |
|
if ($count > 30) { |
|
$r->print('<h3>'.&mt('This will take some time.').'</h3>'); |
|
} |
|
$r->rflush(); |
|
} |
|
# |
my $sortby = $ENV{'form.sortby'}; |
my $sortby = $ENV{'form.sortby'}; |
$sortby = 'container' if (! defined($sortby) || $sortby =~ /^\s*$/); |
$sortby = 'container' if (! defined($sortby) || $sortby =~ /^\s*$/); |
my $plot = $ENV{'form.plot'}; |
my $plot = $ENV{'form.plot'}; |
&Apache::lonnet::logthis('form.plot = '.$plot); |
if ($plot eq '' || $plot eq 'none') { |
|
undef($plot); |
|
} |
if ($sortby eq 'container' && ! defined($plot)) { |
if ($sortby eq 'container' && ! defined($plot)) { |
&output_html_by_sequence($r); |
&output_html_by_sequence($r); |
} else { |
} else { |
if (defined($plot)) { |
if (defined($plot)) { |
&Apache::lonnet::logthis('calling plot routine'); |
|
&make_plot($r,$plot); |
&make_plot($r,$plot); |
} |
} |
&output_html_stats($r); |
&output_html_stats($r); |
Line 385 sub output_html_stats {
|
Line 501 sub output_html_stats {
|
return; |
return; |
} |
} |
|
|
|
|
sub html_preamble { |
sub html_preamble { |
my $Str=''; |
my $Str=''; |
$Str .= "<h2>". |
$Str .= "<h2>". |
Line 417 sub statistics_html_table_data {
|
Line 532 sub statistics_html_table_data {
|
my $row = ''; |
my $row = ''; |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
next if ($options =~ /no $field->{'name'}/); |
next if ($options =~ /no $field->{'name'}/); |
|
next if ($field->{'selected'} ne 'yes'); |
$row .= '<td bgcolor="'.$field->{'color'}.'"'; |
$row .= '<td bgcolor="'.$field->{'color'}.'"'; |
if (exists($field->{'align'})) { |
if (exists($field->{'align'})) { |
$row .= ' align="'.$field->{'align'}.'"'; |
$row .= ' align="'.$field->{'align'}.'"'; |
Line 443 sub statistics_table_header {
|
Line 559 sub statistics_table_header {
|
my $header_row; |
my $header_row; |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
next if ($options =~ /no $field->{'name'}/); |
next if ($options =~ /no $field->{'name'}/); |
|
next if ($field->{'selected'} ne 'yes'); |
$header_row .= '<th>'; |
$header_row .= '<th>'; |
if (exists($field->{'sortable'}) && $field->{'sortable'} eq 'yes') { |
if (exists($field->{'sortable'}) && $field->{'sortable'} eq 'yes') { |
$header_row .= '<a href="javascript:'. |
$header_row .= '<a href="javascript:'. |
Line 852 sub Excel_output {
|
Line 969 sub Excel_output {
|
# Long Headers |
# Long Headers |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
next if ($field->{'name'} eq 'problem_num'); |
next if ($field->{'name'} eq 'problem_num'); |
|
next if ($field->{'selected'} ne 'yes'); |
if (exists($field->{'long_title'})) { |
if (exists($field->{'long_title'})) { |
$excel_sheet->write($rows_output,$cols_output++, |
$excel_sheet->write($rows_output,$cols_output++, |
$field->{'long_title'}); |
$field->{'long_title'}); |
Line 863 sub Excel_output {
|
Line 981 sub Excel_output {
|
$cols_output=0; |
$cols_output=0; |
# Brief headers |
# Brief headers |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
|
next if ($field->{'selected'} ne 'yes'); |
next if ($field->{'name'} eq 'problem_num'); |
next if ($field->{'name'} eq 'problem_num'); |
# Use english for excel as I am not sure how well excel handles |
# Use english for excel as I am not sure how well excel handles |
# other character sets.... |
# other character sets.... |
Line 872 sub Excel_output {
|
Line 991 sub Excel_output {
|
foreach my $data (@StatsArray) { |
foreach my $data (@StatsArray) { |
$cols_output=0; |
$cols_output=0; |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
|
next if ($field->{'selected'} ne 'yes'); |
next if ($field->{'name'} eq 'problem_num'); |
next if ($field->{'name'} eq 'problem_num'); |
$excel_sheet->write($rows_output,$cols_output++, |
$excel_sheet->write($rows_output,$cols_output++, |
$data->{$field->{'name'}}); |
$data->{$field->{'name'}}); |
Line 1021 sub get_statistics {
|
Line 1141 sub get_statistics {
|
$data->{'title.link'} = $resource->{'src'}.'?symb='. |
$data->{'title.link'} = $resource->{'src'}.'?symb='. |
&Apache::lonnet::escape($resource->{'symb'}); |
&Apache::lonnet::escape($resource->{'symb'}); |
# |
# |
$data->{'deg_of_disc'} = &compute_discrimination_factor($resource,$part,$sequence); |
if ($SelectedFields{'deg_of_disc'}) { |
|
$data->{'deg_of_disc'} = |
|
&compute_discrimination_factor($resource,$part,$sequence); |
|
} |
return $data; |
return $data; |
} |
} |
|
|