'."\n");
- $r->print(''."\n");
- my $Str = '';
- foreach (@Header) {
- if (/^(Part)$/) { # Do not allow sorting on this field
- $Str .= '| '.$_.' | ';
+ $excel_workbook->close();
+ #
+ # Tell the user where to get their excel file
+ $r->print('
'.
+ ''.
+ &mt('Your Excel Spreadsheet').''."\n");
+ $r->rflush();
+ return;
+}
+
+##
+## &write_headers
+##
+sub write_headers {
+ my ($excel_sheet,$format,$rows_output,$cols_output,$Fields) = @_;
+ ##
+ ## First the long titles
+ foreach my $field (@{$Fields}) {
+ next if ($field->{'name'} eq 'problem_num');
+ next if ($field->{'selected'} ne 'yes');
+ if (exists($field->{'long_title'})) {
+ $excel_sheet->write($$rows_output,${$cols_output},
+ $field->{'long_title'},
+ $format->{'bold'});
} else {
- $Str .= ''.
- ''.
- $_.' | ';
+ $excel_sheet->write($$rows_output,${$cols_output},'');
}
+ ${$cols_output}+= 1;
}
- $r->print(''.$Str." \n");
- $r->rflush();
- #
- # Compile the data
- my %Statshash;
- my @Statsarray;
- foreach my $sequence (@Sequences) {
- next if ($sequence->{'num_assess'}<1);
- foreach my $resource (@{$sequence->{'contents'}}) {
- next if ($resource->{'type'} ne 'assessment');
- foreach my $part (@{$resource->{'parts'}}) {
- my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
- $SKEW) = &Apache::loncoursedata::get_problem_statistics
- (undef,$resource->{'symb'},$part,
- $ENV{'request.course.id'});
- my $wrongpercent = 0;
- if (defined($num) && $num > 0) {
- $wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
- }
- my $key = $resource->{'symb'}.':'.$part;
- $Statshash{$key} =
- {
- 'sequence' => $sequence,
- 'resource' => $resource,
- 'Title' => $resource->{'title'},
- 'Part' => $part,
- '#Stdnts' => $num,
- 'Tries' => $tries,
- 'Mod' => $mod,
- 'Mean' => $mean,
- '#YES' => $Solved,
- '#yes' => $solved,
- '%Wrng' => $wrongpercent,
- 'DoDiff' => $DegOfDiff,
- 'S.D.' => $STD,
- 'Skew' => $SKEW,
- };
- push (@Statsarray,$Statshash{$key});
- }
+ ${$cols_output} =0;
+ ${$rows_output}+=1;
+ ##
+ ## Then the short titles
+ foreach my $field (@{$Fields}) {
+ next if ($field->{'selected'} ne 'yes');
+ next if ($field->{'name'} eq 'problem_num');
+ # Use english for excel as I am not sure how well excel handles
+ # other character sets....
+ $excel_sheet->write($$rows_output,$$cols_output,
+ $field->{'title'},
+ $format->{'bold'});
+ $$cols_output+=1;
+ }
+ ${$cols_output} =0;
+ ${$rows_output}+=1;
+ return;
+}
+
+##################################################
+##################################################
+##
+## Statistics Gathering and Manipulation Routines
+##
+##################################################
+##################################################
+sub compute_statistics_on_sequence {
+ my ($seq) = @_;
+ my @Data;
+ foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) {
+ foreach my $part (@{$res->parts}) {
+ next if ($res->is_survey($part));
+ #
+ # This is where all the work happens
+ my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1);
+ push (@Data,$data);
+ push (@StatsArray,$data);
}
}
+ return @Data;
+}
+
+sub compute_all_statistics {
+ my ($r) = @_;
+ if (@StatsArray > 0) {
+ # Assume we have already computed the statistics
+ return;
+ }
+ my $c = $r->connection;
+ foreach my $seq (@sequences) {
+ last if ($c->aborted);
+ &compute_sequence_statistics($seq);
+ &compute_statistics_on_sequence($seq);
+ }
+}
+
+sub sort_data {
+ my ($sortkey) = @_;
+ return if (! @StatsArray);
#
# Sort the data
- if ($sortby eq 'Container') {
- foreach my $sequence (@Sequences) {
- next if ($sequence->{'num_assess'}<1);
- foreach my $resource (@{$sequence->{'contents'}}) {
- next if ($resource->{'type'} ne 'assessment');
- foreach my $part (@{$resource->{'parts'}}) {
- my $key = $resource->{'symb'}.':'.$part;
- $r->print('');
- if ($show_container) {
- $r->print('| '
- .$sequence->{'title'}.' | ');
- }
- $r->print(&stats_row_from_hash($Statshash{$key}));
- $r->print(" \n");
- }
- }
+ my $sortby = undef;
+ foreach my $field (@Fields) {
+ if ($sortkey eq $field->{'name'}) {
+ $sortby = $field->{'name'};
}
- } else {
+ }
+ if (! defined($sortby) || $sortby eq '' || $sortby eq 'problem_num') {
+ $sortby = 'container';
+ }
+ if ($sortby ne 'container') {
# $sortby is already defined, so we can charge ahead
- my @OutputOrder;
if ($sortby =~ /^(title|part)$/i) {
# Alpha comparison
- @OutputOrder = sort {
- $b->{$sortby} cmp $a->{$sortby} ||
- $b->{'Title'} cmp $a->{'Title'} ||
- $b->{'Part'} cmp $a->{'Part'};
- } @Statsarray;
+ @StatsArray = sort {
+ lc($a->{$sortby}) cmp lc($b->{$sortby}) ||
+ lc($a->{'title'}) cmp lc($b->{'title'}) ||
+ lc($a->{'part'}) cmp lc($b->{'part'});
+ } @StatsArray;
} else {
# Numerical comparison
- @OutputOrder = sort {
+ @StatsArray = sort {
my $retvalue = 0;
if ($b->{$sortby} eq 'nan') {
if ($a->{$sortby} ne 'nan') {
@@ -408,397 +1505,292 @@ sub output_html_ungrouped {
}
}
if ($retvalue eq '0') {
- $retvalue = $b->{$sortby} <=> $a->{$sortby} ||
- $b->{'Title'} <=> $a->{'Title'} ||
- $b->{'Part'} <=> $a->{'Part'};
+ $retvalue = $b->{$sortby} <=> $a->{$sortby} ||
+ lc($a->{'title'}) <=> lc($b->{'title'}) ||
+ lc($a->{'part'}) <=> lc($b->{'part'});
}
$retvalue;
- } @Statsarray;
- }
- foreach my $row (@OutputOrder) {
- $r->print('');
- if ($show_container) {
- $r->print('| '
- .$row->{'sequence'}->{'title'}.' | ');
- }
- $r->print(&stats_row_from_hash($row));
- $r->print(" \n");
+ } @StatsArray;
}
}
- $r->print(" \n");
- $r->print(" |
).')
');
-# $r->print('