|
version 1.37, 2005/03/14 20:28:22
|
version 1.65, 2011/11/21 20:12:36
|
|
Line 27
|
Line 27
|
| package Apache::lonstudentsubmissions; |
package Apache::lonstudentsubmissions; |
| |
|
| use strict; |
use strict; |
| use Apache::lonnet(); |
use Apache::lonnet; |
| use Apache::loncommon(); |
use Apache::loncommon(); |
| use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
| |
use Apache::lonquickgrades(); |
| use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
| use Apache::lonstatistics; |
use Apache::lonstatistics; |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use Apache::lonstathelpers; |
use Apache::lonstathelpers; |
| |
use Apache::lonmsgdisplay(); |
| use HTML::Entities(); |
use HTML::Entities(); |
| use Time::Local(); |
use Time::Local(); |
| use Spreadsheet::WriteExcel(); |
use Spreadsheet::WriteExcel(); |
| |
use lib '/home/httpd/lib/perl/'; |
| |
use LONCAPA; |
| |
|
| |
|
| my @SubmitButtons = ({ name => 'SelectAnother', |
my @SubmitButtons = ({ name => 'SelectAnother', |
| text => 'Choose a different Problem' }, |
text => 'Choose a different Problem' }, |
|
Line 58 sub BuildStudentSubmissionsPage {
|
Line 63 sub BuildStudentSubmissionsPage {
|
| # |
# |
| &Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
| # |
# |
| |
$r->print( &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports')); |
| |
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
| $r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
| # |
# |
| my @Students = @Apache::lonstatistics::Students; |
my @Students = @Apache::lonstatistics::Students; |
| # |
# |
| if (@Students < 1) { |
if (@Students < 1) { |
| $r->print('<h2>There are no students in the sections selected</h2>'); |
$r->print('<div class="LC_warning">' |
| |
.&mt('There are no students in the sections selected.') |
| |
.'</div>'); |
| } |
} |
| # |
# |
| my @CacheButtonHTML = |
my @CacheButtonHTML = |
| &Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status', |
&Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status', |
| '<h3>'.&mt('Loading student data').'</h3>'); |
'<div class="LC_info">'.&mt('Loading student data...').'</div>'); |
| $r->rflush(); |
$r->rflush(); |
| # |
# |
| if (exists($ENV{'form.problemchoice'}) && |
my %anoncounter = |
| ! exists($ENV{'form.SelectAnother'})) { |
&Apache::lonnet::dump('nohist_anonsurveys', |
| |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
| |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
| |
if (exists($env{'form.problemchoice'}) && |
| |
! exists($env{'form.SelectAnother'})) { |
| foreach my $button (@SubmitButtons) { |
foreach my $button (@SubmitButtons) { |
| if ($button->{'name'} eq 'break') { |
if ($button->{'name'} eq 'break') { |
| $r->print("<br />\n"); |
$r->print("<br />\n"); |
|
Line 92 sub BuildStudentSubmissionsPage {
|
Line 105 sub BuildStudentSubmissionsPage {
|
| # Determine which problems we are to analyze |
# Determine which problems we are to analyze |
| my @Symbs = |
my @Symbs = |
| &Apache::lonstathelpers::get_selected_symbs('problemchoice'); |
&Apache::lonstathelpers::get_selected_symbs('problemchoice'); |
| foreach my $selected (@Symbs) { |
|
| $r->print('<input type="hidden" name="problemchoice" value="'. |
# If there are multi-part problems with anonymous survey and named |
| $selected.'" />'.$/); |
# parts check if named was picked for display. |
| |
# |
| |
my %mixed_named; |
| |
foreach my $envkey (%env) { |
| |
if ($envkey =~ /^form\.mixed_(\d+:\d+)$/) { |
| |
my $item = $1; |
| |
if ($env{$envkey} =~ /^symb_(.+)$/) { |
| |
my $symb = &unescape($1); |
| |
if (ref($mixed_named{$symb}) eq 'ARRAY') { |
| |
push(@{$mixed_named{$symb}},$item); |
| |
} else { |
| |
@{$mixed_named{$symb}} = ($item); |
| |
} |
| |
} |
| |
} |
| } |
} |
| # |
# |
| # Get resource objects |
# Get resource objects |
| my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| if (!defined($navmap)) { |
if (!defined($navmap)) { |
| $r->print('<h1>'.&mt("Internal error").'</h1>'); |
foreach my $selected (@Symbs) { |
| |
$r->print('<input type="hidden" name="problemchoice" value="'. |
| |
&escape($selected).'" />'.$/); |
| |
if (ref($mixed_named{$selected}) eq 'ARRAY') { |
| |
foreach my $item (@{$mixed_named{$selected}}) { |
| |
$r->print('<input type="hidden" name="mixed_'.$item.'" value="'.&escape($selected).'" />'.$/); |
| |
} |
| |
} |
| |
} |
| |
$r->print('<div class="LC_error">'.&mt("Internal error").'</div>'); |
| return; |
return; |
| } |
} |
| my %already_seen; |
my %already_seen; |
| my @Problems; |
my (@Problems,@anonProbs,@namedProbs,$show_named); |
| foreach my $symb (@Symbs) { |
foreach my $symb (@Symbs) { |
| my $resource = $navmap->getBySymb($symb); |
my $resource = $navmap->getBySymb($symb); |
| push(@Problems,$resource); |
my ($hasanon,$hasnamed); |
| |
if (ref($resource)) { |
| |
foreach my $partid (@{$resource->parts}) { |
| |
if (($anoncounter{$symb."\0".$partid}) || ($resource->is_anonsurvey($partid))) { |
| |
unless (exists($mixed_named{$symb})) { |
| |
$hasanon = 1; |
| |
} |
| |
} else { |
| |
$hasnamed = 1; |
| |
} |
| |
} |
| |
if ($hasanon) { |
| |
push(@anonProbs,$resource); |
| |
} elsif ($hasnamed) { |
| |
push(@namedProbs,$resource); |
| |
} |
| |
} |
| |
} |
| |
if (@namedProbs > 0) { |
| |
@Problems = @namedProbs; |
| |
$show_named = 1; |
| |
} elsif (@anonProbs > 0) { |
| |
@Problems = @anonProbs; |
| |
} |
| |
foreach my $selected (@Symbs) { |
| |
$r->print('<input type="hidden" name="problemchoice" value="'. |
| |
&escape($selected).'" />'.$/); |
| |
if (ref($mixed_named{$selected}) eq 'ARRAY') { |
| |
foreach my $item (@{$mixed_named{$selected}}) { |
| |
$r->print('<input type="hidden" name="mixed_'.$item.'" value="'.&escape($selected).'" />'.$/); |
| |
} |
| |
} |
| |
} |
| |
# If these are to be anonymized, do a random shuffle of @Students. |
| |
unless ($show_named) { |
| |
&array_shuffle(\@Students); |
| |
} |
| |
# |
| |
|
| |
my $threshold = $env{'course.'.$env{'request.course.id'}.'.internal.anonsurvey_threshold'}; |
| |
if ($threshold eq '') { |
| |
my %domconfig = |
| |
&Apache::lonnet::get_dom('configuration',['coursedefaults'], |
| |
$env{'course.'.$env{'request.course.id'}.'.domain'}); |
| |
if (ref($domconfig{'coursedefaults'}) eq 'HASH') { |
| |
$threshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'}; |
| |
if ($threshold eq '') { |
| |
$threshold = 10; |
| |
} |
| |
} else { |
| |
$threshold = 10; |
| |
} |
| } |
} |
| # |
|
| $r->print('<h4>'. |
$r->print('<h4>'. |
| &Apache::lonstatistics::section_and_enrollment_description(). |
&Apache::lonstatistics::section_and_enrollment_description(). |
| '</h4>'); |
'</h4>'); |
| if (! scalar(@Problems) || ! defined($Problems[0])) { |
if (! scalar(@Problems) || ! defined($Problems[0])) { |
| $r->print('resource is undefined'); |
$r->print(&mt('resource is undefined')); |
| |
} elsif (!$show_named && @Students < $threshold) { |
| |
$r->print(&mt('The number of students matching the selection criteria is too few for display of submission data for anonymous surveys.').'<br />'.&mt('There must be at least [quant,_1,student].',$threshold).' '.&mt('Contact a Domain Coordinator if you need the threshold to be changed for this course.')); |
| } else { |
} else { |
| if (scalar(@Problems) == 1) { |
if (scalar(@Problems) == 1) { |
| my $resource = $Problems[0]; |
my $resource = $Problems[0]; |
| $r->print('<h1>'.$resource->title.'</h1>'); |
$r->print('<h1>'.$resource->title.'</h1>'); |
| $r->print('<h3>'.$resource->src.'</h3>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
| if ($ENV{'form.renderprob'} eq 'true') { |
if ($env{'form.renderprob'} eq 'true') { |
| $r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
| $r->rflush(); |
$r->rflush(); |
| } |
} |
| } |
} |
| if ($ENV{'form.output'} eq 'excel') { |
if ($env{'form.output'} eq 'excel') { |
| &prepare_excel_output($r,\@Problems,\@Students); |
&prepare_excel_output($r,\@Problems,\@Students,\%anoncounter,$show_named); |
| } elsif ($ENV{'form.output'} eq 'csv') { |
} elsif ($env{'form.output'} eq 'csv') { |
| &prepare_csv_output($r,\@Problems,\@Students); |
&prepare_csv_output($r,\@Problems,\@Students,\%anoncounter,$show_named); |
| } else { |
} else { |
| &prepare_html_output($r,\@Problems,\@Students); |
&prepare_html_output($r,\@Problems,\@Students,\%anoncounter,$show_named); |
| } |
} |
| } |
} |
| $r->print('<hr />'); |
$r->print('<hr />'); |
|
Line 139 sub BuildStudentSubmissionsPage {
|
Line 227 sub BuildStudentSubmissionsPage {
|
| &mt('Prepare Report').'" />'); |
&mt('Prepare Report').'" />'); |
| $r->print(' 'x5); |
$r->print(' 'x5); |
| $r->print('<p>'. |
$r->print('<p>'. |
| &mt('Computing correct answers greatly increasese the amount of time required to prepare a report.'). |
&mt('Computing correct answers greatly increases the amount of time required to prepare a report.'). |
| '</p>'); |
'</p>'); |
| $r->print('<p>'. |
$r->print('<p>'. |
| &mt('please select problems and use the <b>Prepare Report</b> button to continue.'). |
&mt('Please select problems and use the [_1]Prepare Report[_2] button to continue.','<b>','</b>'). |
| '</p>'); |
'</p>'); |
| $r->print(&Apache::lonstathelpers::MultipleProblemSelector |
$r->print(&Apache::lonstathelpers::MultipleProblemSelector |
| (undef,'problemchoice','Statistics')); |
(undef,'problemchoice','Statistics',\%anoncounter)); |
| } |
} |
| } |
} |
| |
|
| |
sub array_shuffle { |
| |
my $array = shift; |
| |
return unless (ref($array) eq 'ARRAY'); |
| |
my $i = scalar(@$array); |
| |
my $j; |
| |
foreach my $item (@$array) { |
| |
--$i; |
| |
$j = int(rand($i+1)); |
| |
next if($i == $j); |
| |
@$array [$i,$j] = @$array[$j,$i]; |
| |
} |
| |
return @$array; |
| |
} |
| |
|
| ## |
## |
| ## get_extra_response_headers |
## get_extra_response_headers |
| ## |
## |
| sub get_extra_response_headers { |
sub get_extra_response_headers { |
| |
my ($show_named) = @_; |
| my @extra_resp_headers; |
my @extra_resp_headers; |
| if ($ENV{'form.correctans'} eq 'true') { |
if ($env{'form.correctans'} eq 'true') { |
| push(@extra_resp_headers,'Correct'); |
push(@extra_resp_headers,'Correct'); |
| } |
} |
| if ($ENV{'form.prob_status'} eq 'true') { |
if ($show_named) { |
| push(@extra_resp_headers,'Award Detail'); |
if ($env{'form.prob_status'} eq 'true') { |
| push(@extra_resp_headers,'Time'); |
push(@extra_resp_headers,'Award Detail'); |
| push(@extra_resp_headers,'Attempt'); |
push(@extra_resp_headers,'Time'); |
| push(@extra_resp_headers,'Awarded'); |
push(@extra_resp_headers,'Attempt'); |
| |
push(@extra_resp_headers,'Awarded'); |
| |
} |
| } |
} |
| return @extra_resp_headers; |
return @extra_resp_headers; |
| } |
} |
|
Line 190 sub get_headers {
|
Line 295 sub get_headers {
|
| shift(@basic_headers); # Get rid of 'Correct' |
shift(@basic_headers); # Get rid of 'Correct' |
| } |
} |
| @headers = (@foils,@basic_headers); |
@headers = (@foils,@basic_headers); |
| |
} elsif (lc($resptype) eq 'task') { |
| |
@headers = ('Grader','Status',@basic_headers,'Submission'); |
| } else { |
} else { |
| @headers = ('Submission',@basic_headers); |
@headers = ('Submission',@basic_headers); |
| } |
} |
|
Line 204 sub get_headers {
|
Line 311 sub get_headers {
|
| ######################################################### |
######################################################### |
| ######################################################### |
######################################################### |
| sub prepare_html_output { |
sub prepare_html_output { |
| my ($r,$problems,$students) = @_; |
my ($r,$problems,$students,$anoncounter,$show_named) = @_; |
| my $c = $r->connection(); |
my $c = $r->connection(); |
| # |
# |
| # Set a flag for the case when there is just one problem |
# Set a flag for the case when there is just one problem |
|
Line 215 sub prepare_html_output {
|
Line 322 sub prepare_html_output {
|
| } |
} |
| # |
# |
| # Compute the number of columns per response |
# Compute the number of columns per response |
| my @extra_resp_headers = &get_extra_response_headers(); |
my @extra_resp_headers = &get_extra_response_headers($show_named); |
| # |
# |
| # Create the table header |
# Create the table header |
| my @student_columns = ('username','domain','id'); |
my @student_columns = &get_student_columns($show_named); |
| # |
|
| my %headers; |
my %headers; |
| my $student_column_count = scalar(@student_columns); |
my $student_column_count = scalar(@student_columns); |
| $headers{'problem'} = qq{<th colspan="$student_column_count">\ </th>}; |
$headers{'problem'} = qq{<th colspan="$student_column_count">\ </th>}; |
| foreach (@student_columns) { |
foreach my $field (@student_columns) { |
| $headers{'student'}.= '<th>'.ucfirst($_).'</th>'; |
$headers{'student'}.= '<th>'.ucfirst($field).'</th>'; |
| } |
} |
| # |
# |
| # we put the headers into the %headers hash |
# we put the headers into the %headers hash |
| my $total_col = scalar(@student_columns); |
my $total_col = $student_column_count; |
| my $nonempty_part_headers = 0; |
my $nonempty_part_headers = 0; |
| # |
# |
| my %problem_analysis; |
my %problem_analysis; |
| foreach my $prob (@$problems) { |
foreach my $prob (@$problems) { |
| my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src); |
my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src); |
| $problem_analysis{$prob->src}=\%analysis; |
$problem_analysis{$prob->src}=\%analysis; |
| |
my $symb = $prob->symb(); |
| # |
# |
| my $prob_span = 0; |
my $prob_span = 0; |
| my $single_part = 0; |
my $single_part = 0; |
| if (scalar(@{$prob->parts}) == 1) { |
if (scalar(@{$prob->parts}) == 1) { |
| $single_part = 1; |
$single_part = 1; |
| } |
} |
| |
my $shown_parts = 0; |
| foreach my $partid (@{$prob->parts}) { |
foreach my $partid (@{$prob->parts}) { |
| |
if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) { |
| |
next if ($show_named); |
| |
} else { |
| |
next unless ($show_named); |
| |
} |
| |
$shown_parts ++; |
| my $part_span = 0; |
my $part_span = 0; |
| my $responses = [$prob->responseIds($partid)]; |
my $responses = [$prob->responseIds($partid)]; |
| my $resptypes = [$prob->responseType($partid)]; |
my $resptypes = [$prob->responseType($partid)]; |
|
Line 258 sub prepare_html_output {
|
Line 372 sub prepare_html_output {
|
| $headers{'response'} .= |
$headers{'response'} .= |
| '<th colspan="'.scalar(@headers).'">'. |
'<th colspan="'.scalar(@headers).'">'. |
| &mt('Response [_1]',$responses->[$i]).'</th>'; |
&mt('Response [_1]',$responses->[$i]).'</th>'; |
| $headers{'student'}.= '<th>'.join('</th><th><nobr>', |
$headers{'student'}.= '<th><span class="LC_nobreak">'. |
| |
join('</span></th><th><span class="LC_nobreak">', |
| @headers). |
@headers). |
| '</nobr></th>'; |
'</span></th>'; |
| } |
} |
| } |
} |
| |
if ($part_span == 0) { |
| |
next; |
| |
} |
| if (! $single_part) { |
if (! $single_part) { |
| my $tmpname = $partid; |
my $tmpname = $partid; |
| if ($partid =~/^\d+$/) { |
if ($partid =~/^\d+$/) { |
|
Line 274 sub prepare_html_output {
|
Line 392 sub prepare_html_output {
|
| $headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>}; |
$headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>}; |
| $nonempty_part_headers = 1; |
$nonempty_part_headers = 1; |
| } else { |
} else { |
| $headers{'part'} .= qq{<th colspan="$part_span"> </th>}; |
$headers{'part'} .= qq{<th colspan="$part_span"> </th>}; |
| } |
} |
| $prob_span += $part_span; |
$prob_span += $part_span; |
| } |
} |
| |
next if (!$shown_parts); |
| my $title = $prob->compTitle; |
my $title = $prob->compTitle; |
| if ($prob_span > 0) { |
if ($prob_span > 0) { |
| $headers{'problem'}.= qq{<th colspan="$prob_span">$title</th>}; |
$headers{'problem'}.= qq{<th colspan="$prob_span">$title</th>}; |
|
Line 314 sub prepare_html_output {
|
Line 433 sub prepare_html_output {
|
| $count = 0; |
$count = 0; |
| } |
} |
| last if ($c->aborted()); |
last if ($c->aborted()); |
| foreach my $field (@student_columns) { |
if ($show_named) { |
| $student_row_data .= |
foreach my $field (@student_columns) { |
| '<td valign="top">'.$student->{$field}.'</td>'; |
$student_row_data .= '<td valign="top">'; |
| |
# handle comments like in lonstudentassessment.pm |
| |
if($field eq 'comments') { |
| |
$student_row_data .= |
| |
'<a href="/adm/'.$student->{'domain'}.'/'. |
| |
$student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>'; |
| |
} else { |
| |
$student_row_data .= $student->{$field}; |
| |
} |
| |
$student_row_data .= '</td>'; |
| |
} |
| |
} else { |
| |
$student_row_data = '<td valign="top" colspan="'.$student_column_count.'">'.&mt('Anonymized').'</td>'; |
| } |
} |
| # |
# |
| # Figure out what it is we need to output for this student |
# Figure out what it is we need to output for this student |
|
Line 324 sub prepare_html_output {
|
Line 455 sub prepare_html_output {
|
| my %prob_data; |
my %prob_data; |
| my $maxrow; |
my $maxrow; |
| foreach my $prob (@$problems) { |
foreach my $prob (@$problems) { |
| $prob_data{$prob->symb}={}; |
my $symb = $prob->symb; |
| |
$prob_data{$symb}={}; |
| foreach my $partid (@{$prob->parts}) { |
foreach my $partid (@{$prob->parts}) { |
| |
if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) { |
| |
next if ($show_named); |
| |
} else { |
| |
next unless ($show_named); |
| |
} |
| my @responses = $prob->responseIds($partid); |
my @responses = $prob->responseIds($partid); |
| my @response_type = $prob->responseType($partid); |
my @response_type = $prob->responseType($partid); |
| for (my $i=0;$i<=$#responses;$i++) { |
for (my $i=0;$i<=$#responses;$i++) { |
|
Line 340 sub prepare_html_output {
|
Line 477 sub prepare_html_output {
|
| 'html','normal', |
'html','normal', |
| @extra_resp_headers); |
@extra_resp_headers); |
| my $width = scalar(@headers); |
my $width = scalar(@headers); |
| |
next if ($width < 1); |
| my $resp_data; |
my $resp_data; |
| $resp_data->{'fake'} = qq{<td colspan="$width"> </td>}; |
$resp_data->{'fake'} = qq{<td colspan="$width"> </td>}; |
| if (! defined($results)) { |
if (! defined($results)) { |
| $results = []; |
$results = []; |
| } |
} |
|
Line 350 sub prepare_html_output {
|
Line 488 sub prepare_html_output {
|
| $maxrow = scalar(@$results); |
$maxrow = scalar(@$results); |
| } |
} |
| for (my $j=scalar(@$results)-1;$j>=0;$j--) { |
for (my $j=scalar(@$results)-1;$j>=0;$j--) { |
| if ($ENV{'form.all_sub'} ne 'true') { |
if ($env{'form.all_sub'} ne 'true') { |
| next if ($j ne scalar(@$results)-1); |
next if ($j ne scalar(@$results)-1); |
| } |
} |
| my $response = &hashify_response($results->[$j], |
my $response = &hashify_response($results->[$j], |
|
Line 365 sub prepare_html_output {
|
Line 503 sub prepare_html_output {
|
| $response, |
$response, |
| $single_response). |
$single_response). |
| '</td>'); |
'</td>'); |
| |
} elsif (lc($resptype) eq 'task') { |
| |
my $results = |
| |
&html_task_results(\@headers, |
| |
$prob,$partid,$respid, |
| |
$response,$resptype); |
| |
if ($results) { |
| |
push(@{$resp_data->{'real'}},$results); |
| |
} |
| } else { |
} else { |
| push(@{$resp_data->{'real'}}, |
push(@{$resp_data->{'real'}}, |
| &html_non_essay_results(\@headers, |
&html_non_essay_results(\@headers, |
|
Line 424 sub prepare_html_output {
|
Line 570 sub prepare_html_output {
|
| undef(@essays); |
undef(@essays); |
| } |
} |
| } # end of student loop |
} # end of student loop |
| |
$r->print('</table>'.$/); |
| return; |
return; |
| } |
} |
| |
|
| sub hashify_response { |
sub hashify_response { |
| my ($response,$prob,$student,$partid,$respid) =@_; |
my ($response,$prob,$student,$partid,$respid) =@_; |
| my $resp_hash = {}; |
my $resp_hash = {}; |
| if ($ENV{'form.correctans'} eq 'true') { |
if ($env{'form.correctans'} eq 'true') { |
| $resp_hash->{'Correct'} = |
$resp_hash->{'Correct'} = |
| &Apache::lonstathelpers::get_student_answer |
&Apache::lonstathelpers::get_student_answer |
| ($prob,$student->{'username'},$student->{'domain'}, |
($prob,$student->{'username'},$student->{'domain'}, |
|
Line 438 sub hashify_response {
|
Line 585 sub hashify_response {
|
| } |
} |
| $resp_hash->{'Submission'} = |
$resp_hash->{'Submission'} = |
| $response->[&Apache::loncoursedata::RDs_submission()]; |
$response->[&Apache::loncoursedata::RDs_submission()]; |
| $resp_hash->{'Award Detail'} = |
|
| $response->[&Apache::loncoursedata::RDs_awarddetail()]; |
|
| $resp_hash->{'Time'} = |
$resp_hash->{'Time'} = |
| $response->[&Apache::loncoursedata::RDs_timestamp()]; |
$response->[&Apache::loncoursedata::RDs_timestamp()]; |
| $resp_hash->{'Attempt'} = |
$resp_hash->{'Attempt'} = |
| $response->[&Apache::loncoursedata::RDs_tries()]; |
$response->[&Apache::loncoursedata::RDs_tries()]; |
| $resp_hash->{'Awarded'} = |
$resp_hash->{'Awarded'} = |
| $response->[&Apache::loncoursedata::RDs_awarded()]; |
$response->[&Apache::loncoursedata::RDs_awarded()]; |
| |
if ($prob->is_task()) { |
| |
$resp_hash->{'Grader'} = |
| |
$response->[&Apache::loncoursedata::RDs_response_eval_2()]; |
| |
if ($resp_hash->{'Attempt'} eq '0') { |
| |
$resp_hash->{'Attempt'} = ''; |
| |
} |
| |
$resp_hash->{'Award Detail'} = |
| |
$response->[&Apache::loncoursedata::RDs_part_award()]; |
| |
$resp_hash->{'Status'} = |
| |
$response->[&Apache::loncoursedata::RDs_response_eval()]; |
| |
} else { |
| |
$resp_hash->{'Award Detail'} = |
| |
$response->[&Apache::loncoursedata::RDs_awarddetail()]; |
| |
} |
| |
|
| return $resp_hash; |
return $resp_hash; |
| } |
} |
| |
|
|
Line 469 sub html_essay_results {
|
Line 629 sub html_essay_results {
|
| if (defined($respid)) { |
if (defined($respid)) { |
| $id .= ' '.$respid; |
$id .= ' '.$respid; |
| } |
} |
| $Str .= '<nobr>'.$id.'</nobr>'.(' 'x4); |
$Str .= '<span class="LC_nobreak">'.$id.'</span>'.(' 'x4); |
| } |
} |
| # |
# |
| shift(@$headers); # Get rid of the Submission header |
shift(@$headers); # Get rid of the Submission header |
|
Line 478 sub html_essay_results {
|
Line 638 sub html_essay_results {
|
| $correct = &html_format_essay_sub($response->{'Correct'}); |
$correct = &html_format_essay_sub($response->{'Correct'}); |
| shift(@$headers); |
shift(@$headers); |
| } |
} |
| $Str .= '<nobr>'. |
$Str .= '<span class="LC_nobreak">'. |
| join('', |
join('', |
| map { |
map { |
| (' 'x4).&mt($_.': [_1]',$response->{$_}); |
(' 'x4).&mt($_.': [_1]',$response->{$_}); |
| } @$headers).'</nobr>'; |
} @$headers).'</span>'; |
| if (@$headers || ! $single_response) { |
if (@$headers || ! $single_response) { |
| $Str .= '<br />'; |
$Str .= '<br />'; |
| } |
} |
|
Line 508 sub html_format_essay_sub {
|
Line 668 sub html_format_essay_sub {
|
| return $submission; |
return $submission; |
| } |
} |
| |
|
| |
sub html_task_results { |
| |
my ($headers,$prob,$partid,$respid,$response,$resptype) = @_; |
| |
if (! ref($headers) || ref($headers) ne 'ARRAY' || ! scalar(@$headers)) { |
| |
return ''; |
| |
} |
| |
|
| |
my @values; |
| |
@values = map { $response->{$_}; } @$headers; |
| |
|
| |
my $td = '<td valign="top">'; |
| |
my $str = $td.join('</td>'.$td,@values).'</td>'; |
| |
return $str; |
| |
} |
| |
|
| sub html_non_essay_results { |
sub html_non_essay_results { |
| my ($headers,$prob,$partid,$respid,$response,$resptype) = @_; |
my ($headers,$prob,$partid,$respid,$response,$resptype) = @_; |
| if (! ref($headers) || ref($headers) ne 'ARRAY' || ! scalar(@$headers)) { |
if (! ref($headers) || ref($headers) ne 'ARRAY' || ! scalar(@$headers)) { |
| return ''; |
return ''; |
| } |
} |
| # |
# |
| my $submission = &HTML::Entities::decode($response->{'Submission'}); |
my $submission = &HTML::Entities::decode(&unescape($response->{'Submission'})); |
| return '' if (! defined($submission) || $submission eq ''); |
return '' if (! defined($submission) || $submission eq ''); |
| $submission =~ s/\\\"/\"/g; |
$submission =~ s/\\\"/\"/g; |
| $submission =~ s/\\\'/\'/g; |
$submission =~ s/\\\'/\'/g; |
| if ($resptype eq 'radiobutton') { |
if ($resptype eq 'radiobutton') { |
| $submission = &HTML::Entities::encode($submission,'<>&"'); |
$submission = &HTML::Entities::encode($submission,'<>&"'); |
| $submission =~ s/=([^=])$//; |
$submission =~ s/=([^=])$//; |
| $submission = '<nobr>'.$submission.'</nobr>'; |
$submission = '<span class="LC_nobreak">'.$submission.'</span>'; |
| } |
} |
| $response->{'Submission'} = $submission; |
$response->{'Submission'} = $submission; |
| # |
# |
|
Line 529 sub html_non_essay_results {
|
Line 703 sub html_non_essay_results {
|
| if ($resptype =~ /^(option|match|rank)$/) { |
if ($resptype =~ /^(option|match|rank)$/) { |
| my %submission = |
my %submission = |
| map { |
map { |
| my ($foil,$value) = split('=',&Apache::lonnet::unescape($_)); |
my ($foil,$value) = split('=',&unescape($_)); |
| ($foil,$value); |
($foil,$value); |
| } split('&',$response->{'Submission'}); |
} split('&',$response->{'Submission'}); |
| my %correct; |
my %correct; |
| if (exists($response->{'Correct'})) { |
if (exists($response->{'Correct'})) { |
| %correct = |
%correct = |
| map { |
map { |
| my ($foil,$value)=split('=',&Apache::lonnet::unescape($_)); |
my ($foil,$value)=split('=',&unescape($_)); |
| ($foil,$value); |
($foil,$value); |
| } split('&',$response->{'Correct'}); |
} split('&',$response->{'Correct'}); |
| } |
} |
|
Line 554 sub html_non_essay_results {
|
Line 728 sub html_non_essay_results {
|
| $option = $submission{$header}; |
$option = $submission{$header}; |
| } |
} |
| push(@values,&HTML::Entities::encode($option)); |
push(@values,&HTML::Entities::encode($option)); |
| |
} elsif ($original_header eq 'Time') { |
| |
push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header})); |
| } else { |
} else { |
| # A normal column |
# A normal column |
| push(@values,$response->{$original_header}); |
push(@values,$response->{$original_header}); |
|
Line 576 sub html_non_essay_results {
|
Line 752 sub html_non_essay_results {
|
| ######################################################### |
######################################################### |
| ######################################################### |
######################################################### |
| sub prepare_excel_output { |
sub prepare_excel_output { |
| my ($r,$Problems,$Students) = @_; |
my ($r,$Problems,$Students,$anoncounter,$show_named) = @_; |
| my $c = $r->connection(); |
my $c = $r->connection(); |
| # |
# |
| # |
# |
| # Determine the number of columns in the spreadsheet |
# Determine the number of columns in the spreadsheet |
| my $columncount = 3; # username, domain, id |
my $columncount = 3; # username, domain, id |
| my @extra_resp_headers = &get_extra_response_headers(); |
my @extra_resp_headers = &get_extra_response_headers($show_named); |
| my $lastprob; |
my $lastprob; |
| my %problem_analysis; |
my %problem_analysis; |
| foreach my $prob (@$Problems) { |
foreach my $prob (@$Problems) { |
| |
my $symb = $prob->symb(); |
| my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src); |
my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src); |
| $problem_analysis{$prob->src}=\%analysis; |
$problem_analysis{$prob->src}=\%analysis; |
| foreach my $partid (@{$prob->parts}) { |
foreach my $partid (@{$prob->parts}) { |
| |
if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) { |
| |
next if ($show_named); |
| |
} else { |
| |
next unless ($show_named); |
| |
} |
| |
|
| my $responses = [$prob->responseIds($partid)]; |
my $responses = [$prob->responseIds($partid)]; |
| my $resptypes = [$prob->responseType($partid)]; |
my $resptypes = [$prob->responseType($partid)]; |
| for (my $i=0;$i<scalar(@$responses);$i++) { |
for (my $i=0;$i<scalar(@$responses);$i++) { |
|
Line 606 sub prepare_excel_output {
|
Line 789 sub prepare_excel_output {
|
| if ($columncount > 255) { |
if ($columncount > 255) { |
| $r->print('<h1>'.&mt('Unable to complete request').'</h1>'.$/. |
$r->print('<h1>'.&mt('Unable to complete request').'</h1>'.$/. |
| '<p>'.&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.').'</p>'.$/. |
'<p>'.&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.').'</p>'.$/. |
| '<p>'.&mt('Consider selecting fewer problems to generate reports on, or reducing the number of items per problem. Or use HTML or CSV output.').'</p>'.$/. |
'<p>'.&mt('Consider selecting fewer problems to generate reports on, or reducing the number of items per problem. Or use HTML or CSV output.').'</p>'.$/); |
| '<p>'.&mt('The last problem that will fit in the current spreadsheet is [_1].',$lastprob->compTitle).'</p>'); |
if (ref($lastprob)) { |
| |
$r->print('<p>'.&mt('The last problem that will fit in the current spreadsheet is [_1].',$lastprob->compTitle).'</p>'); |
| |
} |
| $r->rflush(); |
$r->rflush(); |
| return; |
return; |
| } |
} |
|
Line 634 sub prepare_excel_output {
|
Line 819 sub prepare_excel_output {
|
| # Add headers to the worksheet |
# Add headers to the worksheet |
| my $rows_output = 0; |
my $rows_output = 0; |
| $worksheet->write($rows_output++,0, |
$worksheet->write($rows_output++,0, |
| $ENV{'course.'.$ENV{'request.course.id'}.'.description'}, |
$env{'course.'.$env{'request.course.id'}.'.description'}, |
| $format->{'h1'}); |
$format->{'h1'}); |
| $rows_output++; |
$rows_output++; |
| my $cols_output = 0; |
my $cols_output = 0; |
|
Line 646 sub prepare_excel_output {
|
Line 831 sub prepare_excel_output {
|
| $worksheet->write($partid_row,0,'Part ID',$format->{'bold'}); |
$worksheet->write($partid_row,0,'Part ID',$format->{'bold'}); |
| $worksheet->write($respid_row,0,'Response ID',$format->{'bold'}); |
$worksheet->write($respid_row,0,'Response ID',$format->{'bold'}); |
| # Student headers |
# Student headers |
| my @StudentColumns = ('username','domain','id'); |
my @StudentColumns = &get_student_columns($show_named); |
| foreach (@StudentColumns) { |
foreach my $field (@StudentColumns) { |
| $worksheet->write($header_row,$cols_output++,ucfirst($_), |
$worksheet->write($header_row,$cols_output++,ucfirst($field), |
| $format->{'bold'}); |
$format->{'bold'}); |
| } |
} |
| # Problem headers |
# Problem headers |
| my %start_col; |
my %start_col; |
| foreach my $prob (@$Problems) { |
foreach my $prob (@$Problems) { |
| my $title = $prob->compTitle; |
my $title = $prob->compTitle; |
| |
my $symb = $prob->symb(); |
| $worksheet->write($title_row,$cols_output, |
$worksheet->write($title_row,$cols_output, |
| $title,$format->{'h3'}); |
$title,$format->{'h3'}); |
| foreach my $partid (@{$prob->parts}) { |
foreach my $partid (@{$prob->parts}) { |
| |
if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) { |
| |
next if ($show_named); |
| |
} else { |
| |
next unless ($show_named); |
| |
} |
| $worksheet->write($partid_row,$cols_output, |
$worksheet->write($partid_row,$cols_output, |
| $prob->part_display($partid)); |
$prob->part_display($partid)); |
| my $responses = [$prob->responseIds($partid)]; |
my $responses = [$prob->responseIds($partid)]; |
|
Line 693 sub prepare_excel_output {
|
Line 884 sub prepare_excel_output {
|
| last if ($c->aborted()); |
last if ($c->aborted()); |
| $cols_output = 0; |
$cols_output = 0; |
| my $student_row = $max_row; |
my $student_row = $max_row; |
| foreach my $field (@StudentColumns) { |
|
| $worksheet->write($student_row,$cols_output++, |
|
| $student->{$field}); |
|
| } |
|
| my $last_student_col = $cols_output-1; |
|
| foreach my $prob (@$Problems) { |
foreach my $prob (@$Problems) { |
| |
my $symb = $prob->symb(); |
| foreach my $partid (@{$prob->parts}) { |
foreach my $partid (@{$prob->parts}) { |
| |
if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) { |
| |
next if ($show_named); |
| |
} else { |
| |
next unless ($show_named); |
| |
} |
| my @Response = $prob->responseIds($partid); |
my @Response = $prob->responseIds($partid); |
| my @ResponseType = $prob->responseType($partid); |
my @ResponseType = $prob->responseType($partid); |
| for (my $i=0;$i<=$#Response;$i++) { |
for (my $i=0;$i<=$#Response;$i++) { |
|
Line 723 sub prepare_excel_output {
|
Line 915 sub prepare_excel_output {
|
| my $response_start_col = $start_col{$prob->symb}->{$partid}->{$respid}; |
my $response_start_col = $start_col{$prob->symb}->{$partid}->{$respid}; |
| for (my $j=scalar(@$results)-1;$j>=0;$j--) { |
for (my $j=scalar(@$results)-1;$j>=0;$j--) { |
| $cols_output = $response_start_col; |
$cols_output = $response_start_col; |
| if ($ENV{'form.all_sub'} ne 'true') { |
if ($env{'form.all_sub'} ne 'true') { |
| next if ($j ne scalar(@$results)-1); |
next if ($j ne scalar(@$results)-1); |
| } |
} |
| my $response = &hashify_response($results->[$j], |
my $response = &hashify_response($results->[$j], |
|
Line 746 sub prepare_excel_output {
|
Line 938 sub prepare_excel_output {
|
| } |
} |
| } |
} |
| } |
} |
| # Fill in the remaining rows with the students data |
# Prepend current student's user information to all rows |
| for (my $row = $student_row+1;$row<$max_row;$row++) { |
for (my $row = $student_row;$row<$max_row;$row++) { |
| my $cols = 0; |
my $cols = 0; |
| foreach my $field (@StudentColumns) { |
foreach my $field (@StudentColumns) { |
| $worksheet->write($row,$cols++, |
if ($show_named) { |
| $student->{$field}); |
my $value = $student->{$field}; |
| |
if ($field eq 'comments') { |
| |
$value = &Apache::lonmsgdisplay::retrieve_instructor_comments |
| |
($student->{'username'},$student->{'domain'}); |
| |
} |
| |
$worksheet->write($row,$cols++,$value); |
| |
} else { |
| |
$worksheet->write($row,$cols++, |
| |
&mt('Anonymized')); |
| |
} |
| } |
} |
| } |
} |
| &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
Line 785 sub compile_response_data {
|
Line 986 sub compile_response_data {
|
| # |
# |
| my $submission = |
my $submission = |
| &HTML::Entities::decode |
&HTML::Entities::decode |
| (&Apache::lonnet::unescape($response->{'Submission'})); |
(&unescape($response->{'Submission'})); |
| return () if (! defined($submission) || $submission eq ''); |
if (!$prob->is_task()) { |
| |
return () if (! defined($submission) || $submission eq ''); |
| |
} |
| $submission =~ s/\\\"/\"/g; |
$submission =~ s/\\\"/\"/g; |
| $submission =~ s/\\\'/\'/g; |
$submission =~ s/\\\'/\'/g; |
| if ($resptype eq 'radiobutton') { |
if ($resptype eq 'radiobutton') { |
|
Line 798 sub compile_response_data {
|
Line 1001 sub compile_response_data {
|
| if ($resptype =~ /^(option|match|rank)$/) { |
if ($resptype =~ /^(option|match|rank)$/) { |
| my %submission = |
my %submission = |
| map { |
map { |
| my ($foil,$value) = split('=',&Apache::lonnet::unescape($_)); |
my ($foil,$value) = split('=',&unescape($_)); |
| ($foil,$value); |
($foil,$value); |
| } split('&',$response->{'Submission'}); |
} split('&',$response->{'Submission'}); |
| my %correct; |
my %correct; |
| if (exists($response->{'Correct'})) { |
if (exists($response->{'Correct'})) { |
| %correct = |
%correct = |
| map { |
map { |
| my ($foil,$value)=split('=',&Apache::lonnet::unescape($_)); |
my ($foil,$value)=split('=',&unescape($_)); |
| ($foil,$value); |
($foil,$value); |
| } split('&',$response->{'Correct'}); |
} split('&',$response->{'Correct'}); |
| } |
} |
|
Line 859 sub excel_format_item {
|
Line 1062 sub excel_format_item {
|
| ######################################################### |
######################################################### |
| ######################################################### |
######################################################### |
| sub prepare_csv_output { |
sub prepare_csv_output { |
| my ($r,$problems,$students) = @_; |
my ($r,$problems,$students,$anoncounter,$show_named) = @_; |
| my $c = $r->connection(); |
my $c = $r->connection(); |
| # |
# |
| $r->print('<h2>'. |
$r->print('<h2>'. |
|
Line 876 sub prepare_csv_output {
|
Line 1079 sub prepare_csv_output {
|
| # Open a file |
# Open a file |
| my $outputfile; |
my $outputfile; |
| my $filename = '/prtspool/'. |
my $filename = '/prtspool/'. |
| $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'. |
$env{'user.name'}.'_'.$env{'user.domain'}.'_'. |
| time.'_'.rand(1000000000).'.csv'; |
time.'_'.rand(1000000000).'.csv'; |
| unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) { |
unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) { |
| $r->log_error("Couldn't open $filename for output $!"); |
$r->log_error("Couldn't open $filename for output $!"); |
| $r->print("Problems occured in writing the csv file. ". |
$r->print( |
| "This error has been logged. ". |
'<p class="LC_error">' |
| "Please alert your LON-CAPA administrator."); |
.&mt('Problems occurred in writing the CSV file.') |
| |
.' '.&mt('This error has been logged.') |
| |
.' '.&mt('Please alert your LON-CAPA administrator.') |
| |
.'</p>' |
| |
); |
| $outputfile = undef; |
$outputfile = undef; |
| } |
} |
| # |
# |
| # Compute the number of columns per response |
# Compute the number of columns per response |
| my @extra_resp_headers = &get_extra_response_headers(); |
my @extra_resp_headers = &get_extra_response_headers($show_named); |
| # |
# |
| # Create the table header |
# Create the table header |
| my @student_columns = ('username','domain','id'); |
my @student_columns = &get_student_columns($show_named); |
| |
my $student_column_count = scalar(@student_columns); |
| # |
# |
| my %headers; |
my %headers; |
| push(@{$headers{'student'}},@student_columns); |
push(@{$headers{'student'}},@student_columns); |
|
Line 902 sub prepare_csv_output {
|
Line 1110 sub prepare_csv_output {
|
| # we put the headers into the %headers hash |
# we put the headers into the %headers hash |
| my %problem_analysis; |
my %problem_analysis; |
| my %start_col; |
my %start_col; |
| my $max_column = scalar(@student_columns); |
my $max_column = $student_column_count; |
| foreach my $prob (@$problems) { |
foreach my $prob (@$problems) { |
| |
my $symb = $prob->symb(); |
| my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src); |
my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src); |
| $problem_analysis{$prob->src}=\%analysis; |
$problem_analysis{$prob->src}=\%analysis; |
| $headers{'problem'}->[$max_column] = $prob->compTitle; |
$headers{'problem'}->[$max_column] = $prob->compTitle; |
| foreach my $partid (@{$prob->parts}) { |
foreach my $partid (@{$prob->parts}) { |
| |
if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) { |
| |
next if ($show_named); |
| |
} else { |
| |
next unless ($show_named); |
| |
} |
| $headers{'part'}->[$max_column] = $prob->part_display($partid); |
$headers{'part'}->[$max_column] = $prob->part_display($partid); |
| my $responses = [$prob->responseIds($partid)]; |
my $responses = [$prob->responseIds($partid)]; |
| my $resptypes = [$prob->responseType($partid)]; |
my $resptypes = [$prob->responseType($partid)]; |
|
Line 941 sub prepare_csv_output {
|
Line 1155 sub prepare_csv_output {
|
| last if ($c->aborted()); |
last if ($c->aborted()); |
| my @rows; |
my @rows; |
| foreach my $prob (@$problems) { |
foreach my $prob (@$problems) { |
| |
my $symb = $prob->symb; |
| foreach my $partid (@{$prob->parts}) { |
foreach my $partid (@{$prob->parts}) { |
| |
if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) { |
| |
next if ($show_named); |
| |
} else { |
| |
next unless ($show_named); |
| |
} |
| my @responses = $prob->responseIds($partid); |
my @responses = $prob->responseIds($partid); |
| my @response_type = $prob->responseType($partid); |
my @response_type = $prob->responseType($partid); |
| for (my $i=0;$i<=$#responses;$i++) { |
for (my $i=0;$i<=$#responses;$i++) { |
|
Line 958 sub prepare_csv_output {
|
Line 1178 sub prepare_csv_output {
|
| $results = []; |
$results = []; |
| } |
} |
| for (my $j=0; $j<scalar(@$results);$j++) { |
for (my $j=0; $j<scalar(@$results);$j++) { |
| if ($ENV{'form.all_sub'} ne 'true') { |
if ($env{'form.all_sub'} ne 'true') { |
| next if ($j != 0); |
next if ($j != 0); |
| } |
} |
| my $idx = scalar(@$results) - $j - 1; |
my $idx = scalar(@$results) - $j - 1; |
|
Line 979 sub prepare_csv_output {
|
Line 1199 sub prepare_csv_output {
|
| } |
} |
| } |
} |
| foreach my $row (@rows) { |
foreach my $row (@rows) { |
| print $outputfile '"'.join('","', |
my $student_row_data = ''; |
| map { $student->{$_}; } |
if ($show_named) { |
| @student_columns).'"'; |
foreach my $field (@student_columns) { |
| for (my $i=scalar(@student_columns);$i<$max_column;$i++) { |
my $value = $student->{$field}; |
| |
if ($field eq 'comments') { |
| |
$value = &Apache::lonmsgdisplay::retrieve_instructor_comments |
| |
($student->{'username'},$student->{'domain'}); |
| |
} |
| |
$student_row_data .= '"'.&Apache::loncommon::csv_translate($value).'",'; |
| |
} |
| |
$student_row_data =~ s/,$//; |
| |
} else { |
| |
$student_row_data = '"'.&mt('Anonymized').'"'; |
| |
} |
| |
print $outputfile $student_row_data; |
| |
for (my $i=$student_column_count;$i<$max_column;$i++) { |
| my $value = &Apache::loncommon::csv_translate($row->[$i]); |
my $value = &Apache::loncommon::csv_translate($row->[$i]); |
| $value ||=''; |
$value ||=''; |
| print $outputfile ',"'.$value.'"'; |
print $outputfile ',"'.$value.'"'; |
|
Line 998 sub prepare_csv_output {
|
Line 1230 sub prepare_csv_output {
|
| # Close the progress window |
# Close the progress window |
| &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
| # |
# |
| # Tell the user where to get their csv file |
# Tell the user where to get their CSV file |
| $r->print('<br />'. |
$r->print('<br />'. |
| '<a href="'.$filename.'">'.&mt('Your csv file.').'</a>'."\n"); |
'<a href="'.$filename.'">'.&mt('Your CSV file.').'</a>'."\n"); |
| $r->rflush(); |
$r->rflush(); |
| return; |
return; |
| } |
} |
|
Line 1027 sub CreateInterface {
|
Line 1259 sub CreateInterface {
|
| my $output_selector = $/.'<select name="output">'.$/; |
my $output_selector = $/.'<select name="output">'.$/; |
| foreach ('HTML','Excel','CSV') { |
foreach ('HTML','Excel','CSV') { |
| $output_selector .= ' <option value="'.lc($_).'"'; |
$output_selector .= ' <option value="'.lc($_).'"'; |
| if ($ENV{'form.output'} eq lc($_)) { |
if ($env{'form.output'} eq lc($_)) { |
| $output_selector .= ' selected '; |
$output_selector .= ' selected="selected"'; |
| } |
} |
| $output_selector .='>'.&mt($_).'</option>'.$/; |
$output_selector .='>'.&mt($_).'</option>'.$/; |
| } |
} |
|
Line 1036 sub CreateInterface {
|
Line 1268 sub CreateInterface {
|
| ## |
## |
| ## Environment variable initialization |
## Environment variable initialization |
| my $Str = ''; |
my $Str = ''; |
| $Str .= &Apache::lonhtmlcommon::breadcrumbs |
$Str .= '<br />'; |
| (undef,'Student Submission Reports'); |
$Str .= &Apache::loncommon::start_data_table(); |
| $Str .= '<p>'; |
$Str .= &Apache::loncommon::start_data_table_header_row(); |
| $Str .= '<table cellspacing="5">'."\n"; |
|
| $Str .= '<tr>'; |
|
| $Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
| $Str .= '<th>'.&mt('Enrollment Status').'</th>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
| $Str .= '<th>'.&mt('Output as [_1]',$output_selector).'</th>'; |
$Str .= '<th>'.&mt('Student Data').&Apache::loncommon::help_open_topic("Chart_Student_Data").'</th>'; |
| $Str .= '</tr>'."\n"; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
| |
$Str .= '<th>'.&mt('Options').'</th>'; |
| |
$Str .= '<th>'.&mt('Output Format').'</th>'; |
| |
$Str .= &Apache::loncommon::end_data_table_header_row(); |
| # |
# |
| $Str .= '<tr><td align="center">'."\n"; |
$Str .= &Apache::loncommon::start_data_table_row(); |
| |
$Str .= '<td align="center">'."\n"; |
| $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
| $Str .= '</td>'; |
$Str .= '</td>'; |
| # |
# |
| |
$Str .= '<td align="center">'."\n"; |
| |
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); |
| |
$Str .= '</td>'; |
| |
# |
| |
$Str .= '<td align="center">'."\n"; |
| |
$Str .= &Apache::lonstatistics::StudentDataSelect('StudentData','multiple', 5,undef); |
| |
$Str .= '</td>'; |
| |
# |
| $Str .= '<td align="center">'; |
$Str .= '<td align="center">'; |
| $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
| $Str .= '</td>'; |
$Str .= '</td>'; |
| # |
# |
| # Render problem checkbox |
# Render problem checkbox |
| my $prob_checkbox = '<input type="checkbox" name="renderprob" '; |
my $prob_checkbox = '<input type="checkbox" name="renderprob" '; |
| if (exists($ENV{'form.renderprob'}) && $ENV{'form.renderprob'} eq 'true') { |
if (exists($env{'form.renderprob'}) && $env{'form.renderprob'} eq 'true') { |
| $prob_checkbox .= 'checked '; |
$prob_checkbox .= 'checked="checked" '; |
| } |
} |
| $prob_checkbox .= 'value="true" />'; |
$prob_checkbox .= 'value="true" />'; |
| # |
# |
| # Compute correct answers checkbox |
# Compute correct answers checkbox |
| my $ans_checkbox = '<input type="checkbox" name="correctans" '; |
my $ans_checkbox = '<input type="checkbox" name="correctans" '; |
| if (exists($ENV{'form.correctans'}) && $ENV{'form.correctans'} eq 'true') { |
if (exists($env{'form.correctans'}) && $env{'form.correctans'} eq 'true') { |
| $ans_checkbox .= 'checked '; |
$ans_checkbox .= 'checked="checked" '; |
| } |
} |
| $ans_checkbox .= 'value="true" />'; |
$ans_checkbox .= 'value="true" />'; |
| # |
# |
| # Show all submissions checkbox |
# Show all submissions checkbox |
| my $all_sub_checkbox = '<input type="checkbox" name="all_sub" '; |
my $all_sub_checkbox = '<input type="checkbox" name="all_sub" '; |
| if (exists($ENV{'form.all_sub'}) && |
if (exists($env{'form.all_sub'}) && |
| $ENV{'form.all_sub'} eq 'true') { |
$env{'form.all_sub'} eq 'true') { |
| $all_sub_checkbox .= 'checked '; |
$all_sub_checkbox .= 'checked="checked" '; |
| } |
} |
| $all_sub_checkbox.= 'value="true" />'; |
$all_sub_checkbox.= 'value="true" />'; |
| # |
# |
| # problem status checkbox |
# problem status checkbox |
| my $prob_status_checkbox = '<input type="checkbox" name="prob_status" '; |
my $prob_status_checkbox = '<input type="checkbox" name="prob_status" '; |
| if (exists($ENV{'form.prob_status'}) && |
if (exists($env{'form.prob_status'}) && |
| $ENV{'form.prob_status'} eq 'true') { |
$env{'form.prob_status'} eq 'true') { |
| $prob_status_checkbox .= 'checked '; |
$prob_status_checkbox .= 'checked="checked" '; |
| } |
} |
| $prob_status_checkbox .= 'value="true" />'; |
$prob_status_checkbox .= 'value="true" />'; |
| # |
# |
| $Str .= '<td align="right" halign="top">'. |
$Str .= |
| '<label><b>'. |
'<td valign="top">' |
| &mt('Show problem [_1]',$prob_checkbox).'</b></label><br />'. |
.'<label>' |
| '<label><b>'. |
.$prob_checkbox.&mt('Show problem') |
| &mt('Show correct answers [_1]',$ans_checkbox).'</b></label><br />'. |
.'</label><br />' |
| '<label><b>'. |
.'<label>' |
| &mt('Show all submissions [_1]',$all_sub_checkbox). |
.' '.$ans_checkbox.&mt('Show correct answers') |
| '</b></label><br />'. |
.'</label><br />' |
| '<label><b>'. |
.'<label>' |
| &mt('Show problem grading [_1]',$prob_status_checkbox). |
.$all_sub_checkbox.&mt('Show all submissions') |
| '</b></label><br />'. |
.'</label><br />' |
| '</td>'; |
.'<label>' |
| # |
.$prob_status_checkbox.&mt('Show problem grading') |
| $Str .= '</tr>'."\n"; |
.'</label>' |
| $Str .= '</table>'."\n"; |
.'</td>'; |
| # |
# |
| $Str .= '<nobr>'.&mt('Status: [_1]', |
$Str .= '<td align="center" valign="top">'.$output_selector.'</td>'; |
| '<input type="text" '. |
# |
| 'name="stats_status" size="60" value="" />'). |
$Str .= &Apache::loncommon::end_data_table_row(); |
| '</nobr>'.'</p>'; |
$Str .= &Apache::loncommon::end_data_table(); |
| |
# |
| |
$Str .= '<p><span class="LC_nobreak">' |
| |
.&mt('Status: [_1]', |
| |
'<input type="text" name="stats_status"' |
| |
.' size="60" value="" readonly="readonly" />') |
| |
.'</span></p>'; |
| ## |
## |
| return $Str; |
return $Str; |
| } |
} |
| |
|
| |
sub get_student_columns { |
| |
my ($show_named) = @_; |
| |
my @student_columns; |
| |
if ($show_named) { |
| |
@student_columns = @Apache::lonstatistics::SelectedStudentData; |
| |
if (grep(/^all$/,@student_columns)) { |
| |
@student_columns = qw(fullname username domain id section status groups comments); |
| |
} |
| |
} else { |
| |
@student_columns = ('username'); |
| |
} |
| |
return @student_columns; |
| |
} |
| |
|
| 1; |
1; |
| |
|
| __END__ |
__END__ |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonstudentsubmissions.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics