'.
+ &mt('Computing correct answers greatly increasese the amount of time required to prepare a report.').
+ '
');
+ $r->print('
'.
+ &mt('please select problems and use the Prepare Report button to continue.').
+ '
');
+ $r->print(&Apache::lonstathelpers::MultipleProblemSelector
+ (undef,'problemchoice','Statistics'));
+ }
+}
+
+##
+## get_extra_response_headers
+##
+sub get_extra_response_headers {
+ my @extra_resp_headers;
+ if ($ENV{'form.correctans'} eq 'true') {
+ push(@extra_resp_headers,'Correct');
+ }
+ if ($ENV{'form.prob_status'} eq 'true') {
+ push(@extra_resp_headers,'Award Detail');
+ push(@extra_resp_headers,'Time');
+ push(@extra_resp_headers,'Attempt');
+ push(@extra_resp_headers,'Awarded');
+ }
+ return @extra_resp_headers;
+}
+
+##
+## get_headers:
+## return the proper headers for the given response
+sub get_headers {
+ my ($prob,$partid,$respid,$resptype,$analysis,$output,$purpose,
+ @basic_headers) = @_;
+ my @headers;
+ if ($resptype eq 'essay' && $purpose eq 'display' &&
+ ($output eq 'html')) {# || scalar(@{$prob->parts})!=1)) {
+ @headers = ();
+ } elsif ($resptype =~ /^(option|match|rank)$/) {
+ my $prefix = '_';
+ if ($purpose eq 'display') {
+ $prefix = '';
+ }
+ my @foils =
+ map {
+ $prefix.$_;
+ } sort(keys(%{$analysis->{$partid.'.'.$respid}->{'_Foils'}}));
+ if (scalar(@basic_headers) && $basic_headers[0] eq 'Correct') {
+ @foils = map { ($_ , $_.' Correct') } @foils;
+ shift(@basic_headers); # Get rid of 'Correct'
+ }
+ @headers = (@foils,@basic_headers);
+ } else {
+ @headers = ('Submission',@basic_headers);
}
+ return @headers;
}
#########################################################
#########################################################
##
-## Excel output of student answers and correct answers
+## HTML Output Routines
##
#########################################################
#########################################################
-sub prepare_excel_output {
- my ($r,$problem,$ProblemData,$Students) = @_;
+sub prepare_html_output {
+ my ($r,$problems,$students) = @_;
my $c = $r->connection();
- my ($resource,$respid,$partid) = ($problem->{'resource'},
- $problem->{'respid'},
- $problem->{'part'});
- $r->print('
'.
- &mt('Preparing Excel spreadsheet of student responses').
- '
'.
- '
'.
- &mt('See the status bar above for student answer computation progress').
- '
');
#
- if ($ENV{'form.correctans'} eq 'true') {
- &Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students,
- 'Statistics',
- 'stats_status');
+ # Set a flag for the case when there is just one problem
+ my $single_response = 0;
+ if (scalar(@$problems) == 1 &&
+ $problems->[0]->countResponses == 1) {
+ $single_response = 1;
}
#
- $r->print('');
- $r->rflush();
- my @Columns;
- push(@Columns,'username');
- push(@Columns,'domain');
- push(@Columns,'attempt');
- push(@Columns,'time');
- push(@Columns,'submission');
- if ($ENV{'form.correctans'} eq 'true') { push(@Columns,'correct'); }
- push(@Columns,'grading');
- push(@Columns,'awarded');
- push(@Columns,'weight');
- push(@Columns,'score');
- my ($awarded_col,$weight_col);
+ # Compute the number of columns per response
+ my @extra_resp_headers = &get_extra_response_headers();
+ #
+ # Create the table header
+ my @student_columns = ('username','domain','id');
+ #
+ my %headers;
+ my $student_column_count = scalar(@student_columns);
+ $headers{'problem'} = qq{
}.
+ $headers{'response'};
+ }
+ my $full_header = $/.'
'.$/;
+ $full_header .= '
'.$headers{'problem'}.'
'.$/;
+ if ($nonempty_part_headers) {
+ $full_header .= '
'.$headers{'part'}.'
'.$/;
+ }
+ $full_header .= '
'.$headers{'response'}.'
'.$/;
+ $full_header .= '
'.$headers{'student'}.'
'.$/;
+ #
+ # Main loop
+ my $count;
+ $r->print($/.$full_header.$/);
+ my $row_class = 'odd'; # css
+ foreach my $student (@$students) {
+ my $student_row_data;
+ if ($count++ >= 30) {
+ $r->print('
'.$/.$full_header.$/);
+ $count = 0;
+ }
+ last if ($c->aborted());
+ foreach my $field (@student_columns) {
+ $student_row_data .=
+ '
'.$student->{$field}.'
';
+ }
+ #
+ # Figure out what it is we need to output for this student
+ my @essays;
+ my %prob_data;
+ my $maxrow;
+ foreach my $prob (@$problems) {
+ $prob_data{$prob->symb}={};
+ foreach my $partid (@{$prob->parts}) {
+ my @responses = $prob->responseIds($partid);
+ my @response_type = $prob->responseType($partid);
+ for (my $i=0;$i<=$#responses;$i++) {
+ my $respid = $responses[$i];
+ my $results =
+ &Apache::loncoursedata::get_response_data_by_student
+ ($student,$prob->symb(),$respid);
+ my $resptype = $response_type[$i];
+ my @headers = &get_headers($prob,$partid,$respid,
+ $resptype,
+ $problem_analysis{$prob->src},
+ 'html','normal',
+ @extra_resp_headers);
+ my $width = scalar(@headers);
+ my $resp_data;
+ $resp_data->{'fake'} = qq{
};
+ if (! defined($results)) {
+ $results = [];
+ }
+ #
+ if (scalar(@$results) > $maxrow && $resptype ne 'essay') {
+ $maxrow = scalar(@$results);
+ }
+ for (my $j=scalar(@$results)-1;$j>=0;$j--) {
+ if ($ENV{'form.all_sub'} ne 'true') {
+ next if ($j ne scalar(@$results)-1);
+ }
+ my $response = &hashify_response($results->[$j],
+ $prob,
+ $student,
+ $partid,
+ $respid);
+ if ($resptype eq 'essay') {
+ push(@essays,
+ &html_essay_results(\@headers,
+ $prob,$partid,$respid,
+ $response,
+ $single_response).
+ '');
+ } else {
+ push(@{$resp_data->{'real'}},
+ &html_non_essay_results(\@headers,
+ $prob,$partid,$respid,
+ $response,$resptype));
+ }
+ }
+ $prob_data{$prob->symb}->{$partid}->{$respid}=$resp_data;
+ } # end of $i loop
+ } # end of partid loop
+ } # end of prob loop
+ #
+ # if there is no data, skip this student.
+ next if (! $maxrow && ! scalar(@essays));
+ #
+ # Go through the problem data and output a row.
+ if ($row_class eq 'even') {
+ $row_class = 'odd';
+ } else {
+ $row_class = 'even';
+ }
+ my $printed_something;
+ for (my $rows_output = 0;$rows_output<$maxrow;$rows_output++) {
+ my $html;
+ my $no_data = 1;
+ foreach my $prob (@$problems) {
+ foreach my $partid (@{$prob->parts}) {
+ my @responses = $prob->responseIds($partid);
+ my @response_type = $prob->responseType($partid);
+ for (my $i=0;$i<=$#responses;$i++) {
+ my $respid = $responses[$i];
+ my $resp_data =
+ $prob_data{$prob->symb}->{$partid}->{$respid};
+ next if ($response_type[$i] eq 'essay');
+ if (defined($resp_data->{'real'}->[$rows_output])) {
+ $html .= $resp_data->{'real'}->[$rows_output];
+ $no_data = 0;
+ } else {
+ $html .= $resp_data->{'fake'};
+ }
+ }
+ }
+ }
+ if (! $no_data) {
+ $r->print(qq{
$student_row_data$html
}.$/);
+ $printed_something=1;
+ }
+ }
+ if (@essays) {
+ my $tr = qq{
};
+ my $td = qq{
};
+ if (! $printed_something) {
+ $r->print($tr.$student_row_data.'
';
+ return $submission;
+}
+
+sub html_non_essay_results {
+ my ($headers,$prob,$partid,$respid,$response,$resptype) = @_;
+ if (! ref($headers) || ref($headers) ne 'ARRAY' || ! scalar(@$headers)) {
+ return '';
+ }
+ #
+ my $submission = &HTML::Entities::decode($response->{'Submission'});
+ return '' if (! defined($submission) || $submission eq '');
+ $submission =~ s/\\\"/\"/g;
+ $submission =~ s/\\\'/\'/g;
+ if ($resptype eq 'radiobutton') {
+ $submission = &HTML::Entities::encode($submission,'<>&"');
+ $submission =~ s/=([^=])$//;
+ $submission = ''.$submission.'';
+ }
+ $response->{'Submission'} = $submission;
+ #
+ my @values;
+ if ($resptype =~ /^(option|match|rank)$/) {
+ my %submission =
+ map {
+ my ($foil,$value) = split('=',&Apache::lonnet::unescape($_));
+ ($foil,$value);
+ } split('&',$response->{'Submission'});
+ my %correct;
+ if (exists($response->{'Correct'})) {
+ %correct =
+ map {
+ my ($foil,$value)=split('=',&Apache::lonnet::unescape($_));
+ ($foil,$value);
+ } split('&',$response->{'Correct'});
+ }
+ #
+ foreach my $original_header (@$headers) {
+ if ($original_header =~ /^_/) {
+ # '_' denotes a foil column
+ my ($header) = ($original_header =~ m/^_(.*)$/);
+ my $option = '';
+ if ( my ($foil) = ($header =~ /(.*) Correct$/)) {
+ if (exists($correct{$foil})) {
+ $option = $correct{$foil};
+ }
+ } elsif (exists($submission{$header})) {
+ $option = $submission{$header};
+ }
+ push(@values,&HTML::Entities::encode($option));
+ } else {
+ # A normal column
+ push(@values,$response->{$original_header});
+ }
+ }
+ } else {
+ @values = map { $response->{$_}; } @$headers;
+ }
+ my $td = '
';
+ my $str = $td.join('
'.$td,@values).'';
+ return $str;
+}
+
+
+#########################################################
+#########################################################
+##
+## Excel Output Routines
+##
+#########################################################
+#########################################################
+sub prepare_excel_output {
+ my ($r,$Problems,$Students) = @_;
+ my $c = $r->connection();
+ #
+ #
+ # Determine the number of columns in the spreadsheet
+ my $columncount = 3; # username, domain, id
+ my @extra_resp_headers = &get_extra_response_headers();
+ my $lastprob;
+ my %problem_analysis;
+ foreach my $prob (@$Problems) {
+ my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src);
+ $problem_analysis{$prob->src}=\%analysis;
+ foreach my $partid (@{$prob->parts}) {
+ my $responses = [$prob->responseIds($partid)];
+ my $resptypes = [$prob->responseType($partid)];
+ for (my $i=0;$i[$i],
+ $resptypes->[$i],
+ $problem_analysis{$prob->src},
+ 'excel','display',
+ @extra_resp_headers);
+ $columncount += scalar(@headers);
+ }
+ }
+ last if ($columncount > 255);
+ $lastprob = $prob;
+ }
+ if ($columncount > 255) {
+ $r->print('
'.&mt('Unable to complete request').'
'.$/.
+ '
'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns. Excel allows only 255 columns in a spreadsheet.').'
'.$/.
+ '
'.&mt('Consider selecting fewer problems to generate reports on, or reducing the number of items per problem. Or use HTML or CSV output.').'
'.$/.
+ '
'.&mt('The last problem that will fit in the current spreadsheet is [_1].',$lastprob->compTitle).'
');
+ $r->rflush();
+ return;
+ }
+ #
+ # Print out a message telling them what we are doing
+ if (scalar(@$Problems) > 1) {
+ $r->print('
'.
+ &mt('Preparing Excel spreadsheet of student responses to [_1] problems',
+ scalar(@$Problems)).
+ '