version 1.97, 2005/03/01 00:07:21
|
version 1.100, 2005/03/08 17:40:39
|
Line 353 my @Fields = (
|
Line 353 my @Fields = (
|
# selectable => 'no', |
# selectable => 'no', |
# defaultselected => 'yes', |
# defaultselected => 'yes', |
# }, |
# }, |
## weight included for research purposes. Commented out most of the time. |
# |
# { name => 'weight', |
## problem weight for instructor |
# title => 'weight', |
{ name => 'weight', |
# align => 'right', |
title => 'weight', |
# color => '#FFFFFF', |
align => 'right', |
# sortable => 'no', |
color => '#FFFFFF', |
# graphable => 'no', |
sortable => 'no', |
# long_title => 'Problem weight (for instructor)', |
graphable => 'no', |
# selectable => 'no', |
long_title => 'Problem weight (for instructor)', |
# defaultselected => 'yes', |
selectable => 'yes', |
# }, |
defaultselected => 'yes', |
|
}, |
); |
); |
|
|
my @SeqFields = ( |
my @SeqFields = ( |
Line 712 sub BuildProblemStatisticsPage {
|
Line 713 sub BuildProblemStatisticsPage {
|
# it does not slow things down noticably. |
# it does not slow things down noticably. |
&Apache::loncoursedata::populate_weight_table(); |
&Apache::loncoursedata::populate_weight_table(); |
# |
# |
|
($navmap,@sequences) = |
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
|
if (! ref($navmap)) { |
|
$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'. |
|
'<h3>'.$navmap.'</h3>'); |
|
return; |
|
} |
if (exists($ENV{'form.Excel'})) { |
if (exists($ENV{'form.Excel'})) { |
&Excel_output($r); |
&Excel_output($r); |
} else { |
} else { |
Line 719 sub BuildProblemStatisticsPage {
|
Line 727 sub BuildProblemStatisticsPage {
|
&mt('Produce Excel Output').'" />'.' 'x5); |
&mt('Produce Excel Output').'" />'.' 'x5); |
$r->rflush(); |
$r->rflush(); |
my $count = 0; |
my $count = 0; |
($navmap,@sequences) = |
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
|
if (! ref($navmap)) { |
|
$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'. |
|
'<h3>'.$navmap.'</h3>'); |
|
return; |
|
} |
|
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my @resources = |
my @resources = |
&Apache::lonstathelpers::get_resources($navmap,$seq); |
&Apache::lonstathelpers::get_resources($navmap,$seq); |
Line 1598 sub get_statistics {
|
Line 1599 sub get_statistics {
|
# &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb); |
# &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb); |
# $data->{'hinttries'} = |
# $data->{'hinttries'} = |
# &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb); |
# &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb); |
# $data->{'weight'} = |
$data->{'weight'} = |
# &Apache::lonnet::EXT('resource.'.$part.'.weight',$symb); |
&Apache::lonnet::EXT('resource.'.$part.'.weight',$symb); |
# $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}}); |
# $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}}); |
return $data; |
return $data; |
} |
} |