version 1.93, 2004/08/04 15:07:42
|
version 1.95, 2004/10/27 18:17:43
|
Line 231 my @Fields = (
|
Line 231 my @Fields = (
|
selectable => 'yes', |
selectable => 'yes', |
defaultselected => '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', |
{ name => 'num_wrong', |
title => '#Wrng', |
title => '#Wrng', |
align => 'right', |
align => 'right', |
Line 320 my @Fields = (
|
Line 331 my @Fields = (
|
# selectable => 'no', |
# selectable => 'no', |
# defaultselected => 'yes', |
# 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', |
|
# }, |
); |
); |
|
|
my @SeqFields = ( |
my @SeqFields = ( |
Line 1542 sub get_statistics {
|
Line 1575 sub get_statistics {
|
&Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user); |
&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) |
# Get the due date for research purposes (commented out most of the time) |
# $data->{'duedate'} = |
# $data->{'duedate'} = |
# &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb); |
# &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb); |
# $data->{'opendate'} = |
# $data->{'opendate'} = |
# &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb); |
# &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->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}}); |
# $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}}); |
return $data; |
return $data; |
} |
} |