version 1.15, 2004/09/01 21:13:04
|
version 1.17, 2004/09/08 14:58:33
|
Line 46 my @SubmitButtons = ({ name => 'PrevProb
|
Line 46 my @SubmitButtons = ({ name => 'PrevProb
|
{ name => 'SelectAnother', |
{ name => 'SelectAnother', |
text => 'Choose a different Problem' }, |
text => 'Choose a different Problem' }, |
{ name => 'Generate', |
{ name => 'Generate', |
text => 'Generate Spreadsheet'}, |
text => 'Generate Report'}, |
); |
); |
|
|
sub BuildStudentSubmissionsPage { |
sub BuildStudentSubmissionsPage { |
Line 131 sub BuildStudentSubmissionsPage {
|
Line 131 sub BuildStudentSubmissionsPage {
|
my $ProblemData = $Data{$current_problem->{'part'}. |
my $ProblemData = $Data{$current_problem->{'part'}. |
'.'. |
'.'. |
$current_problem->{'respid'}}; |
$current_problem->{'respid'}}; |
&prepare_html_output($r,$current_problem, |
if ($ENV{'form.output'} eq 'excel') { |
$ProblemData,\@Students); |
&prepare_excel_output($r,$current_problem, |
# &prepare_excel_output($r,$current_problem, |
$ProblemData,\@Students); |
# $ProblemData,\@Students); |
} elsif ($ENV{'form.output'} eq 'csv') { |
|
&prepare_csv_output($r,$current_problem, |
|
$ProblemData,\@Students); |
|
} else { |
|
&prepare_html_output($r,$current_problem, |
|
$ProblemData,\@Students); |
|
} |
} |
} |
$r->print('<hr />'); |
$r->print('<hr />'); |
} else { |
} else { |
$r->print('<input type="submit" name="Generate" value="'. |
$r->print('<input type="submit" name="Generate" value="'. |
&mt('Generate Spreadsheet').'" />'); |
&mt('Prepare Report').'" />'); |
$r->print(' 'x5); |
$r->print(' 'x5); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print(&Apache::lonstathelpers::ProblemSelector('.')); |
$r->print(&Apache::lonstathelpers::ProblemSelector('.')); |
Line 148 sub BuildStudentSubmissionsPage {
|
Line 154 sub BuildStudentSubmissionsPage {
|
|
|
######################################################### |
######################################################### |
######################################################### |
######################################################### |
|
|
|
my @DefaultColumns = |
|
( |
|
{name=>'username', |
|
display=>'Student'}, |
|
{name=>'domain', |
|
display=>'Domain'}, |
|
{name => 'id', |
|
display => 'Id'}, |
|
{name => 'time', |
|
display =>'Time'}, |
|
{name => 'attempt', |
|
display =>'Attempt'}, |
|
{name => 'awarddetail', |
|
display =>'Awarddetail'}, |
|
{name => 'awarded', |
|
display =>'Award'}, |
|
# FIXME: Probably need to add score |
|
); |
|
|
|
sub get_response_type { |
|
my ($resource,$partid,$respid) = @_; |
|
my $response_type = ''; |
|
for (my $i=0; |
|
$i<scalar(@{$resource->{'partdata'}->{$partid}->{'ResponseIds'}}); |
|
$i++) { |
|
if($resource->{'partdata'}->{$partid}->{'ResponseIds'}->[$i] eq $respid){ |
|
$response_type = |
|
$resource->{'partdata'}->{$partid}->{'ResponseTypes'}->[$i]; |
|
last; |
|
} |
|
} |
|
return $response_type; |
|
} |
|
|
|
|
|
######################################################### |
|
######################################################### |
## |
## |
## prepare_html_output |
## prepare_html_output |
## |
## |
Line 159 sub prepare_html_output {
|
Line 203 sub prepare_html_output {
|
my ($resource,$respid,$partid) = ($problem->{'resource'}, |
my ($resource,$respid,$partid) = ($problem->{'resource'}, |
$problem->{'respid'}, |
$problem->{'respid'}, |
$problem->{'part'}); |
$problem->{'part'}); |
$r->print('<h2>'.&mt('Student Responses').'</h2>'); |
|
# |
# |
if ($ENV{'form.correctans'} eq 'true') { |
if ($ENV{'form.correctans'} eq 'true') { |
|
$r->print('<h2>'.&mt('Generating Correct Answers').'</h2>'); |
&Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students, |
&Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students, |
'Statistics', |
'Statistics', |
'stats_status'); |
'stats_status'); |
} |
} |
# |
# |
|
$r->print('<h2>'.&mt('Student Responses').'</h2>'); |
|
# |
$r->rflush(); |
$r->rflush(); |
my $response_type; |
my $response_type = &get_response_type($resource,$partid,$respid); |
for (my $i=0; |
|
$i<scalar(@{$resource->{'partdata'}->{$partid}->{'ResponseIds'}}); |
|
$i++) { |
|
if($resource->{'partdata'}->{$partid}->{'ResponseIds'}->[$i] eq $respid){ |
|
$response_type = |
|
$resource->{'partdata'}->{$partid}->{'ResponseTypes'}->[$i]; |
|
last; |
|
} |
|
} |
|
if (! defined($response_type)) { |
if (! defined($response_type)) { |
$r->print('<h2>'.&mt('Unable to determine response type').'</h2>'); |
$r->print('<h2>'.&mt('Unable to determine response type').'</h2>'); |
|
return; |
|
} |
|
my $count = 0; |
|
my @Columns; |
|
if (exists($ENV{'form.concise'}) && $ENV{'form.concise'} eq 'true') { |
|
foreach (@DefaultColumns) { |
|
if ($_->{'name'} =~ /^(username|domain|id)$/){ |
|
push(@Columns,$_); |
|
} |
|
} |
} else { |
} else { |
my $count = 0; |
@Columns = @DefaultColumns; |
my $header; |
} |
if ($response_type eq 'essay') { |
my $header = '<table>'.$/.&html_headers(\@Columns); |
$header = &html_essay_header(); |
if ($response_type eq 'essay') { |
} elsif ($response_type eq 'radiobutton') { |
$header .= &html_essay_headers(); |
$header = &html_radiobutton_header(); |
} elsif ($response_type eq 'option') { |
} elsif ($response_type eq 'option') { |
$header .= &html_option_headers(); |
$header = &html_option_header(); |
} else { |
} else { |
$header .= &html_generic_headers(); |
$header = &html_generic_header(); |
} |
|
$header = '<tr>'.$header.'</tr>'; |
|
# |
|
$r->print($/.$header.$/); |
|
foreach my $student (@$Students) { |
|
if ($count >= 50) { |
|
$r->print('</table>'.$/.$header.$/); |
|
$count = 0; |
} |
} |
$header = '<tr>'.$header.'</tr>'; |
last if ($c->aborted()); |
# |
my $results = &Apache::loncoursedata::get_response_data_by_student |
$r->print($/.'<table>'.$/.$header.$/); |
($student,$resource->{'symb'},$respid); |
foreach my $student (@$Students) { |
next if (! defined($results) || ref($results) ne 'ARRAY'); |
if ($count >= 50) { |
for (my $i=0;$i<scalar(@$results);$i++) { |
$r->print('</table>'.$/.'<table>'.$/.$header.$/); |
my $response = $results->[$i]; |
$count = 0; |
if ($ENV{'form.last_sub_only'} eq 'true' && |
} |
$i < (scalar(@$results)-1)) { |
last if ($c->aborted()); |
next; |
my $results = &Apache::loncoursedata::get_response_data_by_student |
} |
($student,$resource->{'symb'},$respid); |
my $data; |
next if (! defined($results) || ref($results) ne 'ARRAY'); |
$data->{'username'} = $student->{'username'}; |
for (my $i=0;$i<scalar(@$results);$i++) { |
$data->{'domain'} = $student->{'domain'}; |
my $response = $results->[$i]; |
$data->{'id'} = $student->{'id'}; |
if ($ENV{'form.last_sub_only'} eq 'true' && |
$data->{'fullname'} = $student->{'fullanem'}; |
$i < (scalar(@$results)-1)) { |
$data->{'status'} = $student->{'status'}; |
next; |
$data->{'time'} = &Apache::lonlocal::locallocaltime |
} |
($response->[&Apache::loncoursedata::RDs_timestamp()]); |
my $data; |
$data->{'attempt'} = |
$data->{'sname'} = $student->{'username'}.'@'. |
$response->[&Apache::loncoursedata::RDs_tries()]; |
$student->{'domain'}; |
$data->{'awarded'} = |
$data->{'time'} = &Apache::lonlocal::locallocaltime |
$response->[&Apache::loncoursedata::RDs_awarded()]; |
($response->[&Apache::loncoursedata::RDs_timestamp()]); |
$data->{'awarddetail'} = |
$data->{'attempt'} = |
$response->[&Apache::loncoursedata::RDs_awarddetail()]; |
$response->[&Apache::loncoursedata::RDs_tries()]; |
my $rowextra = 'bgcolor="#CCCCCC"'; |
$data->{'submission'} = |
if ($count % 2 == 1) { |
$response->[&Apache::loncoursedata::RDs_submission()]; |
$rowextra = 'bgcolor="#EEEEEE"'; |
$data->{'correct'} = $student->{'answer'}; |
} |
my $row; |
my $row = '<tr '.$rowextra.'>'; |
if ($response_type eq 'essay') { |
foreach my $col (@Columns) { |
$row = &html_essay($data); |
$row .= '<td valign="top">'. |
} elsif ($response_type eq 'radiobutton') { |
$data->{$col->{'name'}}.'</td>'; |
$row = &html_radiobutton($data); |
|
} elsif ($response_type eq 'option') { |
|
$row = &html_option($data); |
|
} else { |
|
$row = &html_generic($data); |
|
} |
|
$r->print($row.$/); |
|
$count++; |
|
} |
} |
|
if ($response_type eq 'essay') { |
|
$row .= &html_essay_results |
|
($response->[&Apache::loncoursedata::RDs_submission()], |
|
$student->{'answer'}, |
|
scalar(@Columns),$rowextra); |
|
} elsif ($response_type eq 'option') { |
|
$row .= &html_option_results |
|
($response->[&Apache::loncoursedata::RDs_submission()], |
|
$student->{'answer'}, |
|
scalar(@Columns),$rowextra); |
|
} else { |
|
$row .= &html_generic_results |
|
($response->[&Apache::loncoursedata::RDs_submission()], |
|
$student->{'answer'}, |
|
scalar(@Columns),$rowextra); |
|
} |
|
$row .= '</tr>'; |
|
$r->print($row.$/); |
|
$count++; |
} |
} |
$r->print('</table>'.$/); |
|
} |
} |
|
$r->print('</table>'.$/); |
return; |
return; |
} |
} |
|
|
Line 244 sub prepare_html_output {
|
Line 309 sub prepare_html_output {
|
## HTML helper routines |
## HTML helper routines |
## |
## |
##################################################### |
##################################################### |
my @FullHeaders = ( |
sub html_headers { |
{name=>'sname', |
my ($Columns) = @_; |
display=>'Student'}, |
my $Str; |
{name => 'id', |
foreach my $column (@$Columns) { |
display => 'Id'}, |
$Str .= '<th align="left">'.$column->{'display'}.'</th>'; |
{name => 'time', |
|
display =>'Time'}, |
|
{name => 'attempt', |
|
display =>'Attempt'}, |
|
{name => 'grading', |
|
display =>'Grading'}, |
|
); |
|
|
|
sub html_essay_header { |
|
my $header; |
|
if ($ENV{'form.subdata'} eq 'true') { |
|
foreach (@FullHeaders) { |
|
$header .= '<th>'.&mt($_->{'display'}).'</th>'; |
|
} |
|
} else { |
|
$header = '<th>'.&mt('Username and Submission').'</th>'; |
|
} |
} |
return $header; |
return $Str; |
} |
} |
|
|
sub html_essay { |
sub html_essay { |
my ($data)=@_; |
my ($submission,$correct,$tablewidth,$rowextra)=@_; |
# |
# |
$data->{'submission'} =~ s|\\r\\n|$/|g; |
$submission =~ s|\\r\\n|$/|g; |
$data->{'submission'} = |
$submission = &HTML::Entities::encode($submission,'<>&"'); |
&HTML::Entities::encode($data->{'submission'},'<>&"'); |
$submission =~ s|$/\s*$/|$/</p><p>$/|g; |
$data->{'submission'} =~ s|$/\s*$/|$/</p><p>$/|g; |
$submission =~ s|\\||g; |
$data->{'submission'} =~ s|\\||g; |
$submission = '<p>'.$submission.'</p>'; |
$data->{'submission'} = '<p>'.$data->{'submission'}.'</p>'; |
|
# |
# |
my $Str = '<tr>'; |
my $Str = '</tr><tr '.$rowextra.'>'. |
if ($ENV{'form.subdata'} eq 'true') { |
'<td colspan="'.$tablewidth.'">'.$submission.'</td>'; |
$Str .= |
|
'<td><b>'.$data->{'sname'}.'</b></td>'. |
|
'<td>'.$data->{'time'}.'</td>'. |
|
'<td>'.$data->{'attempt'}.'</td>'; |
|
$Str .= '</tr>'; |
|
$Str .= '<tr><td colspan="'.scalar(@FullHeaders).'">'. |
|
$data->{'submission'}.'</td>'; |
|
} else { |
|
$Str .= '<td><b>'.$data->{'sname'}.'</b>'. |
|
$data->{'submission'}.'</td>'; |
|
} |
|
if ($ENV{'form.correctans'} eq 'true') { |
if ($ENV{'form.correctans'} eq 'true') { |
$Str .= '</tr>'; |
$Str .= '</tr>'; |
if (defined($data->{'correct'}) && $data->{'correct'} !~ /^\s*$/) { |
if (defined($correct) && $correct !~ /^\s*$/) { |
$Str .= '<tr><td colspan="'.scalar(@FullHeaders).'">'. |
$Str .= '<tr '.$rowextra.'><td colspan="'.$tablewidth.'">'. |
'<b>'.&mt('Correct Answer:').'</b>'.$data->{'correct'}.'</td>'; |
'<b>'.&mt('Correct Answer:').'</b>'.$correct.'</td>'; |
} |
} |
} |
} |
$Str .= '</tr>'; |
$Str .= '</tr>'; |
Line 304 sub html_essay {
|
Line 341 sub html_essay {
|
return $Str; |
return $Str; |
} |
} |
|
|
sub html_radiobutton_header { |
sub html_essay_headers { |
my $header; |
return ''; |
if ($ENV{'form.subdata'} eq 'true') { |
} |
foreach (@FullHeaders) { |
|
$header .= '<th>'.&mt($_->{'display'}).'</th>'; |
sub html_generic_headers { |
} |
my $header ='<th>'.&mt('Submission').'</th>'; |
} else { |
|
$header = |
|
'<th>'.&mt('Username').'</th>'; |
|
} |
|
$header .='<th>'.&mt('Submission').'</th>'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
if ($ENV{'form.correctans'} eq 'true') { |
$header .= '<th>'.&mt('Correct').'</th>'; |
$header .= '<th>'.&mt('Correct').'</th>'; |
} |
} |
return $header; |
return $header; |
} |
} |
|
|
sub html_radiobutton { |
sub html_option_headers { |
my ($data)=@_; |
return &html_generic_headers(); |
# |
|
$data->{'submission'} =~ s/=([^=])$//; |
|
# |
|
my $Str = '<tr>'; |
|
if ($ENV{'form.subdata'} eq 'true') { |
|
$Str .= |
|
'<td>'.'<b>'.$data->{'sname'}.'</b></td>'. |
|
'<td>'.$data->{'time'}.'</td>'. |
|
'<td>'.$data->{'attempt'}.'</td>'; |
|
$Str .= '<td>'.$data->{'submission'}.'</td>'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
|
$Str .= '<td>'.$data->{'correct'}.'</td>'; |
|
} |
|
} else { |
|
$Str .= '<td><b>'.$data->{'sname'}.'</b></td>'; |
|
$Str .= '<td>'.$data->{'submission'}.'</td>'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
|
$Str .= '<td>'.$data->{'correct'}.'</td>'; |
|
} |
|
} |
|
$Str .= '</tr>'; |
|
# |
|
return $Str; |
|
} |
} |
|
|
sub html_generic_header { |
sub html_radiobutton_results { |
my $header; |
my ($submission,$correct,$tablewidth,$rowclass)=@_; |
if ($ENV{'form.subdata'} eq 'true') { |
$submission =~ s/=([^=])$//; |
foreach (@FullHeaders) { |
return &html_generic_results($submission,$correct,$tablewidth,$rowclass); |
$header .= '<th>'.&mt($_->{'display'}).'</th>'; |
|
} |
|
} else { |
|
$header = |
|
'<th>'.&mt('Username').'</th>'; |
|
} |
|
$header .= '<th>'.&mt('Submission').'</th>'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
|
$header .= '<th>'.&mt('Correct').'</th>'; |
|
} |
|
return $header; |
|
} |
} |
|
|
sub html_generic { |
sub html_generic_results { |
my ($data)=@_; |
my ($submission,$correct,$tablewidth,$rowclass)=@_; |
$data->{'submission'} = &Apache::lonnet::unescape($data->{'submission'}); |
my $Str .= '<td>'.$submission.'</td>'; |
my $Str = '<tr>'; |
|
if ($ENV{'form.subdata'} eq 'true') { |
|
$Str .= |
|
'<td><b>'.$data->{'sname'}.'</b></td>'. |
|
'<td>'.$data->{'time'}.'</td>'. |
|
'<td>'.$data->{'attempt'}.'</td>'; |
|
} else { |
|
$Str .= '<td><b>'.$data->{'sname'}.'</b></td>'; |
|
} |
|
$Str .= '<td>'.$data->{'submission'}.'</td>'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
if ($ENV{'form.correctans'} eq 'true') { |
$Str .= '<td>'.$data->{'correct'}.'</td>'; |
$Str .= '<td>'.$correct.'</td>'; |
} |
} |
$Str .= '</tr>'; |
$Str .= '</tr>'; |
return $Str; |
return $Str; |
} |
} |
|
|
sub html_option_header { |
sub html_option_results { |
my $header; |
my ($submission,$correct,$tablewidth,$rowclass)=@_; |
if ($ENV{'form.subdata'} eq 'true') { |
$submission = |
foreach (@FullHeaders) { |
'<ul class="sub_studentans">'. |
$header .= '<th>'.&mt($_->{'display'}).'</th>'; |
|
} |
|
} else { |
|
$header = |
|
'<th>'.&mt('Username').'</th>'; |
|
} |
|
$header .= '<th>'.&mt('Submission').'</th>'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
|
$header .= '<th>'.&mt('Correct').'</th>'; |
|
} |
|
return $header; |
|
} |
|
|
|
sub html_option { |
|
my ($data)=@_; |
|
$data->{'submission'} = '<ul class="studentans">'. |
|
'<li>'.join('</li><li>', |
|
map { |
|
&Apache::lonnet::unescape($_) ; |
|
} sort split('&',$data->{'submission'})). |
|
'</li><ul>'; |
|
$data->{'correct'} = '<ul class="correctans">'. |
|
'<li>'.join('</li><li>', |
'<li>'.join('</li><li>', |
map { |
map { |
&Apache::lonnet::unescape($_) ; |
&Apache::lonnet::unescape($_) ; |
} sort split('&',$data->{'correct'})).'</li></ul>'; |
} sort split('&',$submission) |
my $Str = '<tr>'; |
). |
if ($ENV{'form.subdata'} eq 'true') { |
'</li><ul>'; |
$Str .= |
if (defined($correct) && $correct !~ /^\s*$/) { |
'<td><b>'.$data->{'sname'}.'</b></td>'. |
$correct = '<ul class="sub_correctans">'. |
'<td>'.$data->{'time'}.'</td>'. |
'<li>'.join('</li><li>', |
'<td>'.$data->{'attempt'}.'</td>'; |
map { |
} else { |
&Apache::lonnet::unescape($_) ; |
$Str .= '<td><b>'.$data->{'sname'}.'</b></td>'; |
} sort split('&',$correct) |
|
). |
|
'</li></ul>'; |
} |
} |
$Str .= '<td>'.$data->{'submission'}.'</td>'; |
# |
if ($ENV{'form.correctans'} eq 'true') { |
return &html_generic_results($submission,$correct,$tablewidth,$rowclass); |
$Str .= '<td>'.$data->{'correct'}.'</td>'; |
|
} |
|
$Str .= '</tr>'; |
|
return $Str; |
|
} |
} |
|
|
|
######################################################### |
|
######################################################### |
|
## |
|
## CSV output of student answers |
|
## |
|
######################################################### |
|
######################################################### |
|
sub prepare_csv_output { |
|
my ($r,$problem,$ProblemData,$Students) = @_; |
|
# |
|
my $c = $r->connection(); |
|
my ($resource,$respid,$partid) = ($problem->{'resource'}, |
|
$problem->{'respid'}, |
|
$problem->{'part'}); |
|
# |
|
if ($ENV{'form.correctans'} eq 'true') { |
|
$r->print('<h2>'.&mt('Generating Correct Answers').'</h2>'); |
|
&Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students, |
|
'Statistics', |
|
'stats_status'); |
|
} |
|
# |
|
$r->print('<h2>'. |
|
&mt('Generating CSV report of student responses').'</h2>'); |
|
# |
|
# Progress window |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,'CSV File Compilation Status', |
|
'CSV File Compilation Progress', |
|
scalar(@$Students),'inline',undef,'Statistics','stats_status'); |
|
|
=pod |
$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'); |
|
my $awarded_col = $#Columns; |
|
push(@Columns,'weight'); |
|
my $weight_col = $#Columns; |
|
push(@Columns,'score'); |
|
# |
# |
# Create excel worksheet |
# Open a file |
|
my $outputfile; |
my $filename = '/prtspool/'. |
my $filename = '/prtspool/'. |
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'. |
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'. |
time.'_'.rand(1000000000).'.xls'; |
time.'_'.rand(1000000000).'.csv'; |
my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename); |
unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) { |
if (! defined($workbook)) { |
$r->log_error("Couldn't open $filename for output $!"); |
$r->log_error("Error creating excel spreadsheet $filename: $!"); |
$r->print("Problems occured in writing the csv file. ". |
$r->print('<p>'.&mt("Unable to create new Excel file. ". |
"This error has been logged. ". |
"This error has been logged. ". |
"Please alert your LON-CAPA administrator."); |
"Please alert your LON-CAPA administrator"). |
$outputfile = undef; |
'</p>'); |
|
return undef; |
|
} |
} |
# |
# |
$workbook->set_tempdir('/home/httpd/perl/tmp'); |
|
# |
# |
my $format = &Apache::loncommon::define_excel_formats($workbook); |
my @Columns; |
my $worksheet = $workbook->addworksheet('Student Submission Data'); |
if (exists($ENV{'form.concise'}) && $ENV{'form.concise'} eq 'true') { |
|
foreach (@DefaultColumns) { |
|
if ($_->{'name'} =~ /^(username|domain|id)$/){ |
|
push(@Columns,$_); |
|
} |
|
} |
|
} else { |
|
@Columns = @DefaultColumns; |
|
} |
# |
# |
# Make sure we get new weight data instead of data on a 10 minute delay |
my $response_type = &get_response_type($resource,$partid,$respid); |
&Apache::lonnet::clear_EXT_cache_status(); |
if (! defined($response_type) || $response_type eq '') { |
|
$r->print('<h2>'.&mt('Unable to determine response type').'</h2>'); |
|
return; |
|
} |
# |
# |
# Put on the standard headers and whatnot |
my $header = &csv_headers(\@Columns).','.&csv_generic_headers(); |
my $rows_output=0; |
print $outputfile $header.$/; |
$worksheet->write($rows_output++,0,$resource->{'title'},$format->{'h1'}); |
|
$worksheet->write($rows_output++,0,$resource->{'src'},$format->{'h3'}); |
|
$rows_output++; |
|
$worksheet->write_row($rows_output++,0,\@Columns,$format->{'bold'}); |
|
# |
# |
# Populate the worksheet with the student data |
|
foreach my $student (@$Students) { |
foreach my $student (@$Students) { |
last if ($c->aborted()); |
last if ($c->aborted()); |
my $results = &Apache::loncoursedata::get_response_data_by_student |
my $results = &Apache::loncoursedata::get_response_data_by_student |
($student,$resource->{'symb'},$respid); |
($student,$resource->{'symb'},$respid); |
my %row; |
next if (! defined($results) || ref($results) ne 'ARRAY'); |
$row{'username'} = $student->{'username'}; |
for (my $i=0;$i<scalar(@$results);$i++) { |
$row{'domain'} = $student->{'domain'}; |
my $response = $results->[$i]; |
$row{'correct'} = $student->{'answer'}; |
if ($ENV{'form.last_sub_only'} eq 'true' && |
$row{'weight'} = &Apache::lonnet::EXT |
$i < (scalar(@$results)-1)) { |
('resource.'.$partid.'.weight',$resource->{'symb'}, |
next; |
undef,undef,undef); |
} |
if (! defined($results) || ref($results) ne 'ARRAY') { |
my $data; |
$row{'score'} = '='. |
$data->{'username'} = $student->{'username'}; |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
$data->{'domain'} = $student->{'domain'}; |
($rows_output,$awarded_col) |
$data->{'id'} = $student->{'id'}; |
.'*'. |
$data->{'fullname'} = $student->{'fullanem'}; |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
$data->{'status'} = $student->{'status'}; |
($rows_output,$weight_col); |
$data->{'time'} = &Apache::lonlocal::locallocaltime |
my $cols_output = 0; |
($response->[&Apache::loncoursedata::RDs_timestamp()]); |
|
$data->{'attempt'} = |
|
$response->[&Apache::loncoursedata::RDs_tries()]; |
|
$data->{'awarded'} = |
|
$response->[&Apache::loncoursedata::RDs_awarded()]; |
|
$data->{'awarddetail'} = |
|
$response->[&Apache::loncoursedata::RDs_awarddetail()]; |
|
my $rowextra = ''; |
|
my $row; |
foreach my $col (@Columns) { |
foreach my $col (@Columns) { |
if (! exists($row{$col})) { |
$row .= '"'. |
$cols_output++; |
&Apache::loncommon::csv_translate($data->{$col->{'name'}}).'",'; |
next; |
|
} |
|
$worksheet->write($rows_output,$cols_output++,$row{$col}); |
|
} |
} |
$rows_output++; |
if ($response_type eq 'option') { |
} else { |
$row .= &csv_option_results |
for (my $i=0;$i<scalar(@$results);$i++) { |
($response->[&Apache::loncoursedata::RDs_submission()], |
my $response = $results->[$i]; |
$student->{'answer'}, |
if ($ENV{'form.last_sub_only'} eq 'true' && |
scalar(@Columns),$rowextra); |
$i < (scalar(@$results)-1)) { |
} elsif ($response_type eq 'radiobutton') { |
next; |
$row .= &csv_radiobutton_results |
} |
($response->[&Apache::loncoursedata::RDs_submission()], |
delete($row{'time'}); |
$student->{'answer'}, |
delete($row{'attempt'}); |
scalar(@Columns),$rowextra); |
delete($row{'submission'}); |
} else { |
delete($row{'awarded'}); |
$row .= &csv_generic_results |
delete($row{'grading'}); |
($response->[&Apache::loncoursedata::RDs_submission()], |
delete($row{'score'}); |
$student->{'answer'}, |
my %row_format; |
scalar(@Columns),$rowextra); |
# |
|
# Time is handled differently |
|
$row{'time'} = &Apache::lonstathelpers::calc_serial |
|
($response->[&Apache::loncoursedata::RDs_timestamp()]); |
|
$row_format{'time'}=$format->{'date'}; |
|
# |
|
$row{'attempt'} = $response->[ |
|
&Apache::loncoursedata::RDs_tries()]; |
|
$row{'submission'} = $response->[ |
|
&Apache::loncoursedata::RDs_submission()]; |
|
if ($row{'submission'} =~ m/^=/) { |
|
# This will be interpreted as a formula. That is bad! |
|
$row{'submission'} = " ".$row{'submission'}; |
|
} |
|
$row{'grading'} = $response->[ |
|
&Apache::loncoursedata::RDs_awarddetail()]; |
|
$row{'awarded'} = $response->[ |
|
&Apache::loncoursedata::RDs_awarded()]; |
|
$row{'score'} = '='. |
|
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
|
($rows_output,$awarded_col) |
|
.'*'. |
|
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
|
($rows_output,$weight_col); |
|
my $cols_output = 0; |
|
foreach my $col (@Columns) { |
|
$worksheet->write($rows_output,$cols_output++,$row{$col}, |
|
$row_format{$col}); |
|
} |
|
$rows_output++; |
|
} |
} |
} # End of else clause on if (! defined($results) .... |
print $outputfile $row.$/; |
|
} |
|
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
'last student'); |
} |
} |
|
close($outputfile); |
# |
# |
# Close the excel file |
# Close the progress window |
$workbook->close(); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
# |
# |
# Write a link to allow them to download it |
# Tell the user where to get their csv file |
$r->print('<p><a href="'.$filename.'">'. |
$r->print('<br />'. |
&mt('Your Excel spreadsheet.'). |
'<a href="'.$filename.'">'.&mt('Your csv file.').'</a>'."\n"); |
'</a></p>'."\n"); |
|
$r->print('<script>'. |
|
'window.document.Statistics.stats_status.value="'. |
|
'Done compiling spreadsheet. See link below to download.'. |
|
'";</script>'); |
|
$r->rflush(); |
$r->rflush(); |
return; |
return; |
|
|
} |
} |
|
|
=cut |
sub csv_headers { |
|
my ($Columns) = @_; |
|
my $Str; |
|
foreach my $column (@$Columns) { |
|
$Str .= |
|
'"'.&Apache::loncommon::csv_translate($column->{'display'}).'",'; |
|
} |
|
chop($Str); |
|
return $Str; |
|
} |
|
|
|
sub csv_generic_headers { |
|
my ($title) = @_; |
|
if (! defined($title)) { |
|
$title = &mt('Submission'); |
|
} |
|
my $header = '"'.&Apache::loncommon::csv_translate($title).'"'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
|
$header .= ',"'.&Apache::loncommon::csv_translate(&mt('Correct')).'"'; |
|
} |
|
return $header; |
|
} |
|
|
|
#------------------------------------------ |
|
sub csv_essay_results { |
|
my ($submission,$correct,$tablewidth,$rowextra)=@_; |
|
# |
|
$submission =~ s|\\r|\\\\r|g; |
|
$submission =~ s|\\n|\\\\n|g; |
|
# |
|
return &csv_generic_results($submission,$correct,$tablewidth); |
|
} |
|
|
|
#------------------------------------------ |
|
sub csv_radiobutton_results { |
|
my ($submission,$correct,$tablewidth,$rowclass)=@_; |
|
$submission =~ s/=[^=]*$//; |
|
return &csv_generic_results($submission,$correct,$tablewidth,$rowclass); |
|
} |
|
|
|
#------------------------------------------ |
|
sub csv_option_results { |
|
my ($submission,$correct,$tablewidth,$rowclass)=@_; |
|
$submission = join(',', |
|
map { |
|
&Apache::lonnet::unescape($_) ; |
|
} sort split('&',$submission) |
|
); |
|
if (defined($correct) && $correct !~ /^\s*$/) { |
|
$correct =join(',', |
|
map { |
|
&Apache::lonnet::unescape($_) ; |
|
} sort split('&',$submission)); |
|
} |
|
return &csv_generic_results($submission,$correct,$tablewidth,$rowclass); |
|
} |
|
|
|
#------------------------------------------ |
|
sub csv_generic_results { |
|
my ($submission,$correct,$tablewidth,$rowclass)=@_; |
|
my $Str .= |
|
'"'.&Apache::loncommon::csv_translate($submission).'"'; |
|
if ($ENV{'form.correctans'} eq 'true') { |
|
$Str .= ',"'.&Apache::loncommon::csv_translate($correct).'"'; |
|
} |
|
return $Str; |
|
} |
|
|
######################################################### |
######################################################### |
######################################################### |
######################################################### |
Line 596 sub prepare_excel_output {
|
Line 619 sub prepare_excel_output {
|
&Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students, |
&Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students, |
'Statistics', |
'Statistics', |
'stats_status'); |
'stats_status'); |
|
$r->print('<script>'. |
|
'window.document.Statistics.stats_status.value="'. |
|
'Done computing student answers. Compiling spreadsheet.'. |
|
'";</script>'); |
} |
} |
# |
# |
$r->print('<script>'. |
|
'window.document.Statistics.stats_status.value="'. |
|
'Done computing student answers. Compiling spreadsheet.'. |
|
'";</script>'); |
|
$r->rflush(); |
$r->rflush(); |
my @Columns; |
my @Columns; |
push(@Columns,'username'); |
if (exists($ENV{'form.concise'}) && $ENV{'form.concise'} eq 'true') { |
push(@Columns,'domain'); |
foreach (@DefaultColumns) { |
push(@Columns,'attempt'); |
if ($_->{'name'} =~ /^(username|domain|id)$/){ |
push(@Columns,'time'); |
push(@Columns,$_); |
push(@Columns,'submission'); |
} |
if ($ENV{'form.correctans'} eq 'true') { push(@Columns,'correct'); } |
} |
push(@Columns,'grading'); |
} else { |
push(@Columns,'awarded'); |
@Columns = @DefaultColumns; |
my $awarded_col = $#Columns; |
} |
push(@Columns,'weight'); |
my ($awarded_col,$weight_col); |
my $weight_col = $#Columns; |
for (my $i=0;$i<=$#Columns;$i++) { |
push(@Columns,'score'); |
if ($Columns[$i]->{'name'} eq 'weight' ) { $weight_col = $i; } |
|
if ($Columns[$i]->{'name'} eq 'awarded') { $awarded_col = $i; } |
|
} |
# |
# |
# Create excel worksheet |
# Create excel worksheet |
my $filename = '/prtspool/'. |
my $filename = '/prtspool/'. |
Line 644 sub prepare_excel_output {
|
Line 669 sub prepare_excel_output {
|
$worksheet->write($rows_output++,0,$resource->{'title'},$format->{'h1'}); |
$worksheet->write($rows_output++,0,$resource->{'title'},$format->{'h1'}); |
$worksheet->write($rows_output++,0,$resource->{'src'},$format->{'h3'}); |
$worksheet->write($rows_output++,0,$resource->{'src'},$format->{'h3'}); |
$rows_output++; |
$rows_output++; |
$worksheet->write_row($rows_output++,0,\@Columns,$format->{'bold'}); |
$worksheet->write_row($rows_output++,0, |
|
[map {$_->{'display'}} @Columns], |
|
$format->{'bold'}); |
# |
# |
# Populate the worksheet with the student data |
# Populate the worksheet with the student data |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,'Excel File Compilation Status', |
|
'Excel File Compilation Progress', |
|
scalar(@$Students),'inline',undef,'Statistics','stats_status'); |
foreach my $student (@$Students) { |
foreach my $student (@$Students) { |
last if ($c->aborted()); |
last if ($c->aborted()); |
|
|
my $results = &Apache::loncoursedata::get_response_data_by_student |
my $results = &Apache::loncoursedata::get_response_data_by_student |
($student,$resource->{'symb'},$respid); |
($student,$resource->{'symb'},$respid); |
my %row; |
my %row; |
$row{'username'} = $student->{'username'}; |
$row{'username'} = $student->{'username'}; |
$row{'domain'} = $student->{'domain'}; |
$row{'domain'} = $student->{'domain'}; |
|
$row{'id'} = $student->{'id'}; |
$row{'correct'} = $student->{'answer'}; |
$row{'correct'} = $student->{'answer'}; |
$row{'weight'} = &Apache::lonnet::EXT |
$row{'weight'} = &Apache::lonnet::EXT |
('resource.'.$partid.'.weight',$resource->{'symb'}, |
('resource.'.$partid.'.weight',$resource->{'symb'}, |
Line 667 sub prepare_excel_output {
|
Line 700 sub prepare_excel_output {
|
($rows_output,$weight_col); |
($rows_output,$weight_col); |
my $cols_output = 0; |
my $cols_output = 0; |
foreach my $col (@Columns) { |
foreach my $col (@Columns) { |
if (! exists($row{$col})) { |
if (! exists($row{$col->{'name'}})) { |
$cols_output++; |
$cols_output++; |
next; |
next; |
} |
} |
$worksheet->write($rows_output,$cols_output++,$row{$col}); |
$worksheet->write($rows_output,$cols_output++, |
|
$row{$col->{'name'}}); |
} |
} |
$rows_output++; |
$rows_output++; |
} else { |
} else { |
Line 702 sub prepare_excel_output {
|
Line 736 sub prepare_excel_output {
|
# This will be interpreted as a formula. That is bad! |
# This will be interpreted as a formula. That is bad! |
$row{'submission'} = " ".$row{'submission'}; |
$row{'submission'} = " ".$row{'submission'}; |
} |
} |
$row{'grading'} = $response->[ |
$row{'awarddetail'} = $response->[ |
&Apache::loncoursedata::RDs_awarddetail()]; |
&Apache::loncoursedata::RDs_awarddetail()]; |
$row{'awarded'} = $response->[ |
$row{'awarded'} = $response->[ |
&Apache::loncoursedata::RDs_awarded()]; |
&Apache::loncoursedata::RDs_awarded()]; |
Line 715 sub prepare_excel_output {
|
Line 749 sub prepare_excel_output {
|
my $cols_output = 0; |
my $cols_output = 0; |
foreach my $col (@Columns) { |
foreach my $col (@Columns) { |
$worksheet->write($rows_output,$cols_output++,$row{$col}, |
$worksheet->write($rows_output,$cols_output++,$row{$col}, |
$row_format{$col}); |
$row_format{$col->{'name'}}); |
} |
} |
$rows_output++; |
$rows_output++; |
} |
} |
} # End of else clause on if (! defined($results) .... |
} # End of else clause on if (! defined($results) .... |
|
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
'last student'); |
} |
} |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
# |
# |
# Close the excel file |
# Close the excel file |
$workbook->close(); |
$workbook->close(); |
Line 746 sub prepare_excel_output {
|
Line 783 sub prepare_excel_output {
|
######################################################### |
######################################################### |
sub CreateInterface { |
sub CreateInterface { |
## |
## |
|
## Output Selection |
|
my $OutputSelector = $/.'<select name="output">'.$/; |
|
foreach ('HTML','Excel','CSV') { |
|
$OutputSelector .= ' <option value="'.lc($_).'"'; |
|
if ($ENV{'form.output'} eq lc($_)) { |
|
$OutputSelector .= ' selected '; |
|
} |
|
$OutputSelector .='>'.&mt($_).'</option>'.$/; |
|
} |
|
$OutputSelector .= '</select>'.$/; |
|
## |
## Environment variable initialization |
## Environment variable initialization |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
Line 753 sub CreateInterface {
|
Line 801 sub CreateInterface {
|
$Str .= '<p>'; |
$Str .= '<p>'; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
$Str .= '<th>'.&mt('Enrollment Status').'</th>'; |
$Str .= '<td> </td>'; |
$Str .= '<th>'.&mt('Output Options').'</th>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
# |
# |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= '<tr><td align="center">'."\n"; |
Line 788 sub CreateInterface {
|
Line 836 sub CreateInterface {
|
} |
} |
$last_sub_checkbox.= 'value="true" />'; |
$last_sub_checkbox.= 'value="true" />'; |
# |
# |
# extra submission data checkbox |
# Concise view checkbox |
my $subdata_checkbox = '<input type="checkbox" name="subdata" '; |
my $concise_view_checkbox = '<input type="checkbox" name="concise" '; |
if (exists($ENV{'form.subdata'}) && |
if (exists($ENV{'form.concise'}) && $ENV{'form.concise'} eq 'true') { |
$ENV{'form.subdata'} eq 'true') { |
$concise_view_checkbox .= 'checked '; |
$subdata_checkbox .= 'checked '; |
|
} |
} |
$subdata_checkbox.= 'value="true" />'; |
$concise_view_checkbox .= 'value="true" />'; |
# |
# |
$Str .= '<td align="right" halign="top">'.'<label><b>'. |
$Str .= '<td align="right" halign="top">'. |
|
'<b>'.&mt('Output Format: [_1]',$OutputSelector).'</b><br />'.$/. |
|
'<label><b>'. |
&mt('show problem [_1]',$prob_checkbox).'</b></label><br />'. |
&mt('show problem [_1]',$prob_checkbox).'</b></label><br />'. |
'<label><b>'. |
'<label><b>'. |
&mt('compute correct answers [_1]',$ans_checkbox).'</b></label><br />'. |
&mt('compute correct answers [_1]',$ans_checkbox).'</b></label><br />'. |
'<label><b>'. |
'<label><b>'. |
&mt('final answer only [_1]',$last_sub_checkbox).'</b></label><br />'. |
&mt('final answer only [_1]',$last_sub_checkbox).'</b></label><br />'. |
'<label><b>'.&mt('show extra submission data [_1]',$subdata_checkbox). |
'<label><b>'. |
'</b></label><br />'. |
&mt('concise view [_1]',$concise_view_checkbox).'</b></label><br />'. |
'</td>'; |
'</td>'; |
# |
# |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |