--- loncom/interface/statistics/lonproblemstatistics.pm 2004/04/16 21:43:56 1.84
+++ loncom/interface/statistics/lonproblemstatistics.pm 2005/01/11 19:45:18 1.96
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemstatistics.pm,v 1.84 2004/04/16 21:43:56 matthew Exp $
+# $Id: lonproblemstatistics.pm,v 1.96 2005/01/11 19:45:18 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -96,6 +96,10 @@ my %SeqStat; # keys are symbs, values
## statistics display?
## selected yes (yes|no) Is the column selected by default?
##
+## format no sprintf format string
+##
+## excel_format no excel format type
+## (see &Apache::loncommon::define_excel_formats
my @Fields = (
{ name => 'problem_num',
title => 'P#',
@@ -227,6 +231,17 @@ my @Fields = (
selectable => 'yes',
defaultselected => 'yes',
},
+ { name => 'tries_per_correct',
+ title => 'tries/correct',
+ align => 'right',
+ color => '#FFDDDD',
+ format => '%4.1f',
+ sortable => 'yes',
+ graphable => 'yes',
+ long_title => 'Tries per Correct Answer',
+ selectable => 'yes',
+ defaultselected => 'yes',
+ },
{ name => 'num_wrong',
title => '#Wrng',
align => 'right',
@@ -234,6 +249,17 @@ my @Fields = (
format => '%4.1f',
sortable => 'yes',
graphable => 'yes',
+ long_title => 'Number of students whose final answer is wrong',
+ selectable => 'yes',
+ defaultselected => 'yes',
+ },
+ { name => 'per_wrong',
+ title => '%Wrng',
+ align => 'right',
+ color => '#FFDDDD',
+ format => '%4.1f',
+ sortable => 'yes',
+ graphable => 'yes',
long_title => 'Percent of students whose final answer is wrong',
selectable => 'yes',
defaultselected => 'yes',
@@ -259,8 +285,85 @@ my @Fields = (
graphable => 'yes',
long_title => 'Degree of Discrimination',
selectable => 'yes',
- defaultselected => 'no',
+ defaultselected => 'yes',
},
+## duedate included for research purposes. Commented out most of the time.
+# { name => 'duedate',
+# title => 'Due Date',
+# align => 'left',
+# color => '#FFFFFF',
+# sortable => 'yes',
+# graphable => 'no',
+# long_title => 'Due date of resource for instructor',
+# selectable => 'no',
+# defaultselected => 'yes',
+# },
+## opendate included for research purposes. Commented out most of the time.
+# { name => 'opendate',
+# title => 'Open Date',
+# align => 'left',
+# color => '#FFFFFF',
+# sortable => 'yes',
+# graphable => 'no',
+# long_title => 'date resource became answerable',
+# selectable => 'no',
+# defaultselected => 'yes',
+# },
+## symb included for research purposes. Commented out most of the time.
+# { name => 'symb',
+# title => 'Symb',
+# align => 'left',
+# color => '#FFFFFF',
+# sortable => 'yes',
+# graphable => 'no',
+# long_title => 'Unique LON-CAPA identifier for problem',
+# selectable => 'no',
+# defaultselected => 'yes',
+# },
+## resptypes included for research purposes. Commented out most of the time.
+# { name => 'resptypes',
+# title => 'Response Types',
+# align => 'left',
+# color => '#FFFFFF',
+# sortable => 'no',
+# graphable => 'no',
+# long_title => 'Response Types used in this problem',
+# selectable => 'no',
+# defaultselected => 'yes',
+# },
+## maxtries included for research purposes. Commented out most of the time.
+# { name => 'maxtries',
+# title => 'Maxtries',
+# align => 'left',
+# color => '#FFFFFF',
+# sortable => 'no',
+# graphable => 'no',
+# long_title => 'Maximum number of tries',
+# selectable => 'no',
+# defaultselected => 'yes',
+# },
+## hinttries included for research purposes. Commented out most of the time.
+# { name => 'hinttries',
+# title => 'hinttries',
+# align => 'left',
+# color => '#FFFFFF',
+# sortable => 'no',
+# graphable => 'no',
+# long_title => 'Number of tries before a hint appears',
+# selectable => 'no',
+# defaultselected => 'yes',
+# },
+## weight included for research purposes. Commented out most of the time.
+# { name => 'weight',
+# title => 'weight',
+# align => 'right',
+# color => '#FFFFFF',
+# sortable => 'no',
+# graphable => 'no',
+# long_title => 'Problem weight (for instructor)',
+# selectable => 'no',
+# defaultselected => 'yes',
+# },
);
my @SeqFields = (
@@ -499,6 +602,7 @@ select sections, maps, and output.
###############################################
###############################################
sub CreateInterface {
+ my ($r) = @_;
#
&parse_field_selection();
#
@@ -534,19 +638,18 @@ sub CreateInterface {
$Str .= '| '.&field_selection_input();
$Str .= ' | '."\n";
$Str .= ''."\n";
+ #
+ $Str .= ''.&mt('Status: [_1]',
+ ''
+ ).
+ '
';
+ #
$Str .= '';
$Str .= ' 'x5;
$Str .= 'Plot '.&plot_dropdown().(' 'x10);
- $Str .= '';
- $Str .= ' 'x5;
- $Str .= '';
- $Str .= ' 'x5;
- $Str .= '';
- $Str .= ' 'x5;
+ #
return $Str;
}
@@ -584,13 +687,20 @@ sub BuildProblemStatisticsPage {
undef(%SeqStat);
#
# Finally let the user know we are here
- my $interface = &CreateInterface();
+ my $interface = &CreateInterface($r);
$r->print($interface);
$r->print('');
#
- if (! exists($ENV{'form.statsfirstcall'})) {
- $r->print('');
+ my @CacheButtonHTML =
+ &Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');
+ my $Str;
+ foreach my $html (@CacheButtonHTML) {
+ $Str.=$html.(' 'x5);
+ }
+ #
+ $r->print($Str);
+ if (! exists($ENV{'form.firstrun'})) {
$r->print(''.
&mt('Press "Generate Statistics" when you are ready.').
'
'.
@@ -599,13 +709,6 @@ sub BuildProblemStatisticsPage {
' will not have this delay.').
'
');
return;
- } elsif ($ENV{'form.statsfirstcall'} eq 'yes' ||
- exists($ENV{'form.UpdateCache'}) ||
- exists($ENV{'form.ClearCache'}) ) {
- $r->print('');
- &Apache::lonstatistics::Gather_Student_Data($r);
- } else {
- $r->print('');
}
$r->rflush();
#
@@ -615,7 +718,10 @@ sub BuildProblemStatisticsPage {
#
if (exists($ENV{'form.Excel'})) {
&Excel_output($r);
- } else {
+ } else {
+ $r->print(''.' 'x5);
+ $r->rflush();
my $count = 0;
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
$count += $seq->{'num_assess_parts'};
@@ -653,7 +759,9 @@ sub BuildProblemStatisticsPage {
sub output_sequence_statistics {
my ($r) = @_;
my $c=$r->connection();
- $r->print(''.&mt('Sequence Statistics').'
');
+ $r->print(''.&mt('Sequence Statistics').
+ &Apache::loncommon::help_open_topic('Statistics_Sequence').
+ '
');
$r->print(''."\n".
''."\n".
'');
@@ -766,7 +874,7 @@ sub statistics_html_table_data {
if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
$row .= '';
}
- if (exists($field->{'format'})) {
+ if (exists($field->{'format'}) && $data->{$field->{'name'}} !~ /[A-Z]/i) {
$row .= sprintf($field->{'format'},$data->{$field->{'name'}});
} else {
$row .= $data->{$field->{'name'}};
@@ -1241,8 +1349,12 @@ sub Excel_output {
$cols_output=0;
foreach my $field (@SeqFields) {
next if ($field->{'selected'} ne 'yes');
+ my $fieldformat = undef;
+ if (exists($field->{'excel_format'})) {
+ $fieldformat = $format->{$field->{'excel_format'}};
+ }
$excel_sheet->write($rows_output,$cols_output++,
- $data->{$field->{'name'}});
+ $data->{$field->{'name'}},$fieldformat);
}
$rows_output++;
$cols_output=0;
@@ -1260,8 +1372,12 @@ sub Excel_output {
foreach my $field (@Fields) {
next if ($field->{'selected'} ne 'yes');
next if ($field->{'name'} eq 'problem_num');
+ my $fieldformat = undef;
+ if (exists($field->{'excel_format'})) {
+ $fieldformat = $format->{$field->{'excel_format'}};
+ }
$excel_sheet->write($rows_output,$cols_output++,
- $data->{$field->{'name'}});
+ $data->{$field->{'name'}},$fieldformat);
}
$rows_output++;
$cols_output=0;
@@ -1328,6 +1444,7 @@ sub compute_statistics_on_sequence {
foreach my $res (@{$seq->{'contents'}}) {
next if ($res->{'type'} ne 'assessment');
foreach my $part (@{$res->{'parts'}}) {
+ next if ($res->{'partdata'}->{$part}->{'Survey'});
#
# This is where all the work happens
my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1);
@@ -1441,6 +1558,7 @@ sub get_statistics {
(\@Apache::lonstatistics::SelectedSections,
$Apache::lonstatistics::enrollment_status,
$symb,$part,$courseid,$starttime,$endtime);
+ $data->{'symb'} = $symb;
$data->{'part'} = $part;
$data->{'problem_num'} = $problem_num;
$data->{'container'} = $sequence->{'title'};
@@ -1467,6 +1585,22 @@ sub get_statistics {
my ($dom,$user) = $urlres=~/^(\w+)\/(\w+)/;
&Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);
}
+ #
+ $data->{'tries_per_correct'} = $data->{'tries'} /
+ ($data->{'num_solved'}+0.1);
+ #
+ # Get the due date for research purposes (commented out most of the time)
+# $data->{'duedate'} =
+# &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);
+# $data->{'opendate'} =
+# &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);
+# $data->{'maxtries'} =
+# &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb);
+# $data->{'hinttries'} =
+# &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb);
+# $data->{'weight'} =
+# &Apache::lonnet::EXT('resource.'.$part.'.weight',$symb);
+# $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}});
return $data;
}
@@ -1511,6 +1645,10 @@ sub compute_discrimination_factor {
map {
$_->[&Apache::loncoursedata::RNK_student()];
} @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];
+ if (! @BottomSet || (@BottomSet == 1 && $BottomSet[0] eq '') ||
+ ! @TopSet || (@TopSet == 1 && $TopSet[0] eq '')) {
+ return 'nan';
+ }
my ($bottom_sum,$bottom_max) =
&Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet,
undef,$starttime,$endtime);
|