version 1.154, 2009/05/17 22:55:42
|
version 1.169.2.7.2.2, 2023/09/08 00:56:04
|
Line 166 sub BuildStudentAssessmentPage {
|
Line 166 sub BuildStudentAssessmentPage {
|
&Apache::lonstatistics::DisplayClasslist($r); |
&Apache::lonstatistics::DisplayClasslist($r); |
return; |
return; |
} |
} |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data')); |
|
|
# |
# |
# Print out the HTML headers for the interface |
# Print out the HTML headers for the interface |
# This also parses the output mode selector |
# This also parses the output mode selector |
Line 248 sub next_and_previous_buttons {
|
Line 250 sub next_and_previous_buttons {
|
if (defined($previous)) { |
if (defined($previous)) { |
my $sname = $previous->{'username'}.':'.$previous->{'domain'}; |
my $sname = $previous->{'username'}.':'.$previous->{'domain'}; |
$previousbutton .= '<input type="button" value="'. |
$previousbutton .= '<input type="button" value="'. |
'Previous Student ('. |
&mt('Previous Student ([_1])', |
$previous->{'username'}.'@'.$previous->{'domain'}.')'. |
$previous->{'username'}.':'.$previous->{'domain'}). |
'" onclick="document.Statistics.SelectedStudent.value='. |
'" onclick="document.Statistics.SelectedStudent.value='. |
"'".$sname."'".';'. |
"'".$sname."'".';'. |
'document.Statistics.submit();" />'; |
'document.Statistics.submit();" />'; |
} else { |
} else { |
$previousbutton .= '<input type="button" value="'. |
$previousbutton .= '<input type="button" value="'. |
'Previous student (none)'.'" />'; |
&mt('Previous Student').'" disabled="disabled" />'; |
} |
} |
# |
# |
# Build the next student link |
# Build the next student link |
Line 264 sub next_and_previous_buttons {
|
Line 266 sub next_and_previous_buttons {
|
if (defined($next)) { |
if (defined($next)) { |
my $sname = $next->{'username'}.':'.$next->{'domain'}; |
my $sname = $next->{'username'}.':'.$next->{'domain'}; |
$nextbutton .= '<input type="button" value="'. |
$nextbutton .= '<input type="button" value="'. |
'Next Student ('. |
&mt('Next Student ([_1])', |
$next->{'username'}.'@'.$next->{'domain'}.')'. |
$next->{'username'}.':'.$next->{'domain'}). |
'" onclick="document.Statistics.SelectedStudent.value='. |
'" onclick="document.Statistics.SelectedStudent.value='. |
"'".$sname."'".';'. |
"'".$sname."'".';'. |
'document.Statistics.submit();" />'; |
'document.Statistics.submit();" />'; |
} else { |
} else { |
$nextbutton .= '<input type="button" value="'. |
$nextbutton .= '<input type="button" value="'. |
'Next student (none)'.'" />'; |
&mt('Next Student').'" disabled="disabled" />'; |
} |
} |
# |
# |
# Build the 'all students' button |
# Build the 'all students' button |
my $all = ''; |
my $all = ''; |
$all .= '<input type="button" value="All Students" '. |
$all .= '<input type="button" value="'.&mt('All Students').'" '. |
'" onclick="document.Statistics.SelectedStudent.value='. |
' onclick="document.Statistics.SelectedStudent.value='. |
"''".';'.'document.Statistics.submit();" />'; |
"''".';'.'document.Statistics.submit();" />'; |
$Str .= $previousbutton.(' 'x5).$all.(' 'x5).$nextbutton; |
$Str .= $previousbutton.(' 'x5).$all.(' 'x5).$nextbutton; |
return $Str; |
return $Str; |
Line 318 the chart page.
|
Line 320 the chart page.
|
####################################################### |
####################################################### |
sub CreateInterface { |
sub CreateInterface { |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data'); |
|
# $Str .= &CreateLegend(); |
|
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b>'. |
Line 327 sub CreateInterface {
|
Line 327 sub CreateInterface {
|
'</td>'; |
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b>'. |
'</td>'; |
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Student Data</b>'). |
$Str .= '<td align="center"><b>'.&mt('Student Data').'</b>'. |
&Apache::loncommon::help_open_topic("Chart_Student_Data"). |
&Apache::loncommon::help_open_topic("Chart_Student_Data"). |
'</td>'; |
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b>'. |
Line 361 sub CreateInterface {
|
Line 361 sub CreateInterface {
|
$Str .= &CreateAndParseOutputDataSelector(); |
$Str .= &CreateAndParseOutputDataSelector(); |
$Str .= '</td></tr>'."\n"; |
$Str .= '</td></tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '<input type="submit" name="Generate Chart" value="'. |
|
&mt('Generate Chart').'" />'; |
|
$Str .= ' 'x5; |
|
$Str .= '<input type="submit" name="selectstudent" value="'. |
$Str .= '<input type="submit" name="selectstudent" value="'. |
&mt('Select One Student').'" />'; |
&mt('Select One Student').'" />'; |
$Str .= ' 'x5; |
$Str .= ' 'x5; |
$Str .= '<input type="submit" name="ClearCache" value="'. |
$Str .= '<input type="submit" name="ClearCache" value="'. |
&mt('Clear Caches').'" />'; |
&mt('Clear Caches').'" />'; |
$Str .= '<p>'; |
$Str .= '<p>' |
$Str .= |
.'<input type="submit" name="Generate Chart"' |
&mt('Status [_1]', |
.' value="'.&mt('Generate Chart').'" />' |
'<input type="text" name="stats_status" size="60" value="" readonly="readonly" />'); |
.'</p>'; |
$Str .= '</p>'; |
|
return $Str; |
return $Str; |
} |
} |
|
|
Line 431 my @OutputOptions =
|
Line 427 my @OutputOptions =
|
|
|
sub OutputDescriptions { |
sub OutputDescriptions { |
my $Str = ''; |
my $Str = ''; |
$Str .= "<h2>Output Formats</h2>\n"; |
$Str .= '<h2>'.&mt('Output Formats')."</h2>\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $outputmode (@OutputOptions) { |
foreach my $outputmode (@OutputOptions) { |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
Line 466 sub CreateAndParseOutputSelector {
|
Line 462 sub CreateAndParseOutputSelector {
|
$Str = qq/<select size="5" name="$elementname">/; |
$Str = qq/<select size="5" name="$elementname">/; |
foreach my $option (@OutputOptions) { |
foreach my $option (@OutputOptions) { |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= " selected " if ($option->{'value'} eq $selected); |
$Str .= ' selected="selected"' if ($option->{'value'} eq $selected); |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
} |
} |
$Str .= "\n</select>"; |
$Str .= "\n</select>"; |
Line 546 my @OutputDataOptions =
|
Line 542 my @OutputDataOptions =
|
summary_table => 1, |
summary_table => 1, |
maximum_row => 0, |
maximum_row => 0, |
ignore_weight => 1, |
ignore_weight => 1, |
shortdesc => 'Number of Problem Parts completed successfully.', |
shortdesc => 'Number of Problem Parts completed successfully', |
longdesc => 'The Number of Problem Parts completed successfully and '. |
longdesc => 'The Number of Problem Parts completed successfully and '. |
'the maximum possible for each student', |
'the maximum possible for each student', |
}, |
}, |
Line 554 my @OutputDataOptions =
|
Line 550 my @OutputDataOptions =
|
|
|
sub HTMLifyOutputDataDescriptions { |
sub HTMLifyOutputDataDescriptions { |
my $Str = ''; |
my $Str = ''; |
$Str .= "<h2>Output Data</h2>\n"; |
$Str .= '<h2>'.&mt('Output Data').'</h2>'."\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $option (@OutputDataOptions) { |
foreach my $option (@OutputDataOptions) { |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
Line 583 sub CreateAndParseOutputDataSelector {
|
Line 579 sub CreateAndParseOutputDataSelector {
|
$Str = qq/<select size="5" name="$elementname">/; |
$Str = qq/<select size="5" name="$elementname">/; |
foreach my $option (@OutputDataOptions) { |
foreach my $option (@OutputDataOptions) { |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= " selected " if ($option->{'value'} eq $chosen_output->{'value'}); |
$Str .= ' selected="selected"' if ($option->{'value'} eq $chosen_output->{'value'}); |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
} |
} |
$Str .= "\n</select>"; |
$Str .= "\n</select>"; |
Line 606 sub count_parts {
|
Line 602 sub count_parts {
|
sub get_resources { |
sub get_resources { |
my ($navmap,$sequence) = @_; |
my ($navmap,$sequence) = @_; |
my @resources = $navmap->retrieveResources($sequence, |
my @resources = $navmap->retrieveResources($sequence, |
sub { shift->is_problem(); }, |
sub { shift->is_gradable(); }, |
0,0,0); |
0,0,0); |
return @resources; |
return @resources; |
} |
} |
Line 663 sub html_initialize {
|
Line 659 sub html_initialize {
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
# Unable to get data, so bail out |
# Unable to get data, so bail out |
$r->print("<h3>". |
$r->print('<p class="LC_error">' |
&mt('Unable to retrieve course information.'). |
.&mt('Unable to retrieve course information.') |
'</h3>'); |
.'</p>'); |
} |
} |
|
|
# If we're showing links, show a checkbox to open in new |
# If we're showing links, show a checkbox to open in new |
# windows. |
# windows. |
if ($show_links ne 'no') { |
if ($show_links ne 'no') { |
my $labeltext = &mt('Show links in new window:'); |
my $labeltext = &mt('Show links in new window'); |
$r->print(<<NEW_WINDOW_CHECKBOX); |
$r->print(<<NEW_WINDOW_CHECKBOX); |
<script type="text/javascript">new_window = true;</script> |
<script type="text/javascript">new_window = true;</script> |
<p><label>$labeltext |
<p><label> |
<input type="checkbox" checked="checked" onclick="new_window=this.checked" /> |
<input type="checkbox" checked="checked" onclick="new_window=this.checked" /> |
|
$labeltext |
</label></p> |
</label></p> |
NEW_WINDOW_CHECKBOX |
NEW_WINDOW_CHECKBOX |
} |
} |
|
|
# |
# |
$r->print("<h3>".$env{'course.'.$env{'request.course.id'}.'.description'}. |
$r->print("<h3>".$env{'course.'.$env{'request.course.id'}.'.description'}. |
" ".localtime(time)."</h3>"); |
" ".&Apache::lonlocal::locallocaltime(time)."</h3>"); |
# |
# |
if ($chosen_output->{'base'} !~ /^final table/) { |
if ($chosen_output->{'base'} !~ /^final table/) { |
$r->print("<h3>".&mt($chosen_output->{'shortdesc'})."</h3>"); |
$r->print("<h3>".&mt($chosen_output->{'shortdesc'})."</h3>"); |
Line 744 NEW_WINDOW_CHECKBOX
|
Line 741 NEW_WINDOW_CHECKBOX
|
length($title) |
length($title) |
)).$padding; |
)).$padding; |
} |
} |
$total_sum_width = length($total_count)+1; |
$total_sum_width = length($total_count); |
|
if ($total_sum_width < 6) { |
|
$total_sum_width = 6; |
|
} |
$Str .= " total</pre>\n"; |
$Str .= " total</pre>\n"; |
$Str .= "<pre>"; |
$Str .= "<pre>"; |
$r->print($Str); |
|
$r->rflush(); |
|
|
|
$r->print(<<JS); |
$r->print(<<JS); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 809 JS
|
Line 807 JS
|
} |
} |
# |
# |
# Initialize progress window |
# Initialize progress window |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,'HTML Chart Status', |
|
'HTML Chart Progress', $studentcount, |
|
'inline',undef,'Statistics','stats_status'); |
|
# |
# |
|
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$studentcount); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
'Processing first student'); |
'Processing first student'); |
|
$r->print($Str); |
|
$r->rflush(); |
|
|
return; |
return; |
} |
} |
|
|
Line 825 sub html_outputstudent {
|
Line 823 sub html_outputstudent {
|
return if (! defined($navmap)); |
return if (! defined($navmap)); |
# |
# |
if($count++ % 5 == 0 && $count > 0) { |
if($count++ % 5 == 0 && $count > 0) { |
$r->print("</pre><pre>"); |
# $r->print("</pre><pre>"); |
|
$r->print('</pre>'); |
|
&Apache::lonhtmlcommon::Increment_PrgWin( |
|
$r,\%prog_state,'last five students',5); |
|
$r->rflush(); |
|
$r->print('<pre>'); |
} |
} |
# First, the @StudentData fields need to be listed |
# First, the @StudentData fields need to be listed |
my @to_show = &get_student_fields_to_show(); |
my @to_show = &get_student_fields_to_show(); |
Line 835 sub html_outputstudent {
|
Line 838 sub html_outputstudent {
|
if ($field eq 'comments') { |
if ($field eq 'comments') { |
$title = '<a href="/adm/'.$student->{'domain'}.'/'.$student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>'; |
$title = '<a href="/adm/'.$student->{'domain'}.'/'.$student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>'; |
} |
} |
|
utf8::decode($title); |
my $base = length($title); |
my $base = length($title); |
my $width=$Apache::lonstatistics::StudentData{$field}->{'width'}; |
my $width=$Apache::lonstatistics::StudentData{$field}->{'width'}; |
$Str .= $title.' 'x($width-$base).$padding; |
$Str .= $title.' 'x($width-$base).$padding; |
Line 868 sub html_outputstudent {
|
Line 872 sub html_outputstudent {
|
my $PerformanceStr = ''; |
my $PerformanceStr = ''; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $symb = $seq->symb; |
my $symb = $seq->symb; |
|
my $randompick = $seq->randompick(); |
my ($performance,$performance_length,$score,$seq_max,$rawdata); |
my ($performance,$performance_length,$score,$seq_max,$rawdata); |
if ($chosen_output->{'tries'}) { |
if ($chosen_output->{'tries'}) { |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
&student_tries_on_sequence($student,\%StudentsData, |
&student_tries_on_sequence($student,\%StudentsData, |
$navmap,$seq,$show_links); |
$navmap,$seq,$show_links,$randompick); |
} else { |
} else { |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
&student_performance_on_sequence($student,\%StudentsData, |
&student_performance_on_sequence($student,\%StudentsData, |
$navmap,$seq,$show_links, |
$navmap,$seq,$show_links, |
$chosen_output->{ignore_weight}); |
$chosen_output->{ignore_weight}, |
|
$randompick); |
} |
} |
my $ratio=''; |
my $ratio=''; |
if ($chosen_output->{'every_problem'} && |
if ($chosen_output->{'every_problem'} && |
Line 932 sub html_outputstudent {
|
Line 938 sub html_outputstudent {
|
$score = sprintf("%.2f",$score); |
$score = sprintf("%.2f",$score); |
$score = (' 'x(6-length($score))).$score; |
$score = (' 'x(6-length($score))).$score; |
} |
} |
|
$max = sprintf("%.2f",$max); |
$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max; |
$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max; |
$Str .= " \n"; |
$Str .= " \n"; |
# |
# |
$r->print($Str); |
$r->print($Str); |
# |
# |
$r->rflush(); |
# $r->rflush(); |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); |
# &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); |
return; |
return; |
} |
} |
|
|
Line 995 sub StudentAverageTotal {
|
Line 1002 sub StudentAverageTotal {
|
sub SingleStudentTotal { |
sub SingleStudentTotal { |
return if (! defined($navmap)); |
return if (! defined($navmap)); |
my $student = &Apache::lonstatistics::current_student(); |
my $student = &Apache::lonstatistics::current_student(); |
my $Str = '<h3>'.&mt('Summary table for [_1] ([_2]@[_3])', |
my $Str = '<h3>'.&mt('Summary table for [_1] ([_2])', |
$student->{'fullname'}, |
$student->{'fullname'}, |
$student->{'username'},$student->{'domain'}).'</h3>'; |
$student->{'username'}.':'.$student->{'domain'}).'</h3>'; |
$Str .= $/; |
$Str .= $/; |
$Str .= &Apache::loncommon::start_data_table()."\n"; |
$Str .= &Apache::loncommon::start_data_table()."\n"; |
$Str .= |
$Str .= |
Line 1097 sub excel_initialize {
|
Line 1104 sub excel_initialize {
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
# Unable to get data, so bail out |
# Unable to get data, so bail out |
$r->print("<h3>". |
$r->print('<p class="LC_error">'. |
&mt('Unable to retrieve course information.'). |
&mt('Unable to retrieve course information.'). |
'</h3>'); |
'</p>'); |
} |
} |
# |
# |
my $total_columns = scalar(&get_student_fields_to_show()); |
my $total_columns = scalar(&get_student_fields_to_show()); |
Line 1114 sub excel_initialize {
|
Line 1121 sub excel_initialize {
|
} |
} |
my $too_many_cols_error_message = |
my $too_many_cols_error_message = |
'<h2>'.&mt('Unable to Complete Request').'</h2>'.$/. |
'<h2>'.&mt('Unable to Complete Request').'</h2>'.$/. |
'<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 class="LC_warning">'.&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('You may consider reducing the number of <b>Sequences or Folders</b> you have selected.').'</p>'.$/. |
'<p>'.&mt('You may consider reducing the number of [_1]Sequences or Folders[_2] you have selected.','<b>','</b>').'</p>'.$/. |
'<p>'.&mt('LON-CAPA can produce <b>CSV</b> files of this data or Excel files of the <b>Scores Summary</b> data.').'</p>'.$/; |
'<p>'.&mt('LON-CAPA can produce [_1]CSV[_2] files of this data or Excel files of the [_1]Scores Summary[_2] data.','<b>','</b>').'</p>'.$/; |
if ($chosen_output->{'base'} eq 'tries' && $total_columns > 255) { |
if ($chosen_output->{'base'} eq 'tries' && $total_columns > 255) { |
$r->print($too_many_cols_error_message); |
$r->print($too_many_cols_error_message); |
$request_aborted = 1; |
$request_aborted = 1; |
Line 1173 sub excel_initialize {
|
Line 1180 sub excel_initialize {
|
my $sectionstring = ''; |
my $sectionstring = ''; |
my @Sections = &Apache::lonstatistics::get_selected_sections(); |
my @Sections = &Apache::lonstatistics::get_selected_sections(); |
$excel_sheet->write($header_row,$cols_output++, |
$excel_sheet->write($header_row,$cols_output++, |
&Apache::lonstatistics::section_and_enrollment_description('plaintext'), |
&Apache::lonstatistics::section_and_enrollment_description('localized'), |
$format->{'h3'}); |
$format->{'h3'}); |
# |
# |
# Put the date in there too |
# Put the date in there too |
$excel_sheet->write($header_row,$cols_output++, |
$excel_sheet->write($header_row,$cols_output++, |
'Compiled on '.localtime(time),$format->{'h3'}); |
&mt('Compiled on [_1]',&Apache::lonlocal::locallocaltime(time)),$format->{'h3'}); |
# |
# |
$cols_output = 0; |
$cols_output = 0; |
$excel_sheet->write($description_row,$cols_output++, |
$excel_sheet->write($description_row,$cols_output++, |
$chosen_output->{'shortdesc'}, |
&mt($chosen_output->{'shortdesc'}), |
$format->{'b'}); |
$format->{'b'}); |
# |
# |
$cols_output = 0; |
$cols_output = 0; |
Line 1197 sub excel_initialize {
|
Line 1204 sub excel_initialize {
|
# Add the student headers |
# Add the student headers |
$cols_output = 0; |
$cols_output = 0; |
foreach my $field (&get_student_fields_to_show()) { |
foreach my $field (&get_student_fields_to_show()) { |
$excel_sheet->write($resource_name_row,$cols_output++,$field, |
$excel_sheet->write($resource_name_row,$cols_output++,&mt($field), |
$format->{'bold'}); |
$format->{'bold'}); |
} |
} |
# |
# |
Line 1260 sub excel_initialize {
|
Line 1267 sub excel_initialize {
|
$formula_data{$symb}->{'Excel:scorecol'}=$cols_output; |
$formula_data{$symb}->{'Excel:scorecol'}=$cols_output; |
if ($chosen_output->{'base'} eq 'parts correct total') { |
if ($chosen_output->{'base'} eq 'parts correct total') { |
$excel_sheet->write($resource_name_row,$cols_output++, |
$excel_sheet->write($resource_name_row,$cols_output++, |
'parts correct', |
&mt('parts correct'), |
$format->{'bold'}); |
$format->{'bold'}); |
} elsif ($chosen_output->{'sequence_sum'}) { |
} elsif ($chosen_output->{'sequence_sum'}) { |
if ($chosen_output->{'correct'}) { |
if ($chosen_output->{'correct'}) { |
# Only reporting the number correct, so do not call it score |
# Only reporting the number correct, so do not call it score |
$excel_sheet->write($resource_name_row,$cols_output++, |
$excel_sheet->write($resource_name_row,$cols_output++, |
'sum', |
&mt('sum'), |
$format->{'bold'}); |
$format->{'bold'}); |
} else { |
} else { |
$excel_sheet->write($resource_name_row,$cols_output++, |
$excel_sheet->write($resource_name_row,$cols_output++, |
'score', |
&mt('score'), |
$format->{'bold'}); |
$format->{'bold'}); |
} |
} |
} |
} |
Line 1280 sub excel_initialize {
|
Line 1287 sub excel_initialize {
|
($first_data_row,$cols_output-1); |
($first_data_row,$cols_output-1); |
if ($chosen_output->{'sequence_max'}) { |
if ($chosen_output->{'sequence_max'}) { |
$excel_sheet->write($resource_name_row,$cols_output, |
$excel_sheet->write($resource_name_row,$cols_output, |
'maximum', |
&mt('maximum'), |
$format->{'bold'}); |
$format->{'bold'}); |
$formula_data{$symb}->{'Excel:maxcell'} = |
$formula_data{$symb}->{'Excel:maxcell'} = |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
Line 1294 sub excel_initialize {
|
Line 1301 sub excel_initialize {
|
} |
} |
} |
} |
if ($chosen_output->{'grand_total'}) { |
if ($chosen_output->{'grand_total'}) { |
$excel_sheet->write($resource_name_row,$cols_output++,'Total', |
$excel_sheet->write($resource_name_row,$cols_output++,&mt('Total'), |
$format->{'bold'}); |
$format->{'bold'}); |
} |
} |
if ($chosen_output->{'grand_maximum'}) { |
if ($chosen_output->{'grand_maximum'}) { |
$excel_sheet->write($resource_name_row,$cols_output++,'Max. Total', |
$excel_sheet->write($resource_name_row,$cols_output++,&mt('Max. Total'), |
$format->{'bold'}); |
$format->{'bold'}); |
} |
} |
$total_formula = $excel_sheet->store_formula($total_formula_string); |
$total_formula = $excel_sheet->store_formula($total_formula_string); |
Line 1389 sub excel_initialize {
|
Line 1396 sub excel_initialize {
|
if ($chosen_output->{'summary_table'}) { |
if ($chosen_output->{'summary_table'}) { |
$cols_output = 0; |
$cols_output = 0; |
$excel_sheet->write($summary_header_row,$cols_output++, |
$excel_sheet->write($summary_header_row,$cols_output++, |
'Summary Table',$format->{'bold'}); |
&mt('Summary Table'),$format->{'bold'}); |
if ($chosen_output->{'maximum_row'}) { |
if ($chosen_output->{'maximum_row'}) { |
$excel_sheet->write($summary_header_row,$cols_output++, |
$excel_sheet->write($summary_header_row,$cols_output++, |
'Maximum',$format->{'bold'}); |
&mt('Maximum'),$format->{'bold'}); |
} |
} |
$excel_sheet->write($summary_header_row,$cols_output++, |
$excel_sheet->write($summary_header_row,$cols_output++, |
'Average',$format->{'bold'}); |
&mt('Average'),$format->{'bold'}); |
$excel_sheet->write($summary_header_row,$cols_output++, |
$excel_sheet->write($summary_header_row,$cols_output++, |
'Median',$format->{'bold'}); |
&mt('Median'),$format->{'bold'}); |
$excel_sheet->write($summary_header_row,$cols_output++, |
$excel_sheet->write($summary_header_row,$cols_output++, |
'Std Dev',$format->{'bold'}); |
&mt('Std Dev'),$format->{'bold'}); |
my $row = $summary_header_row+1; |
my $row = $summary_header_row+1; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $symb = $seq->symb; |
my $symb = $seq->symb; |
Line 1446 sub excel_initialize {
|
Line 1453 sub excel_initialize {
|
$r->rflush(); |
$r->rflush(); |
# |
# |
# Initialize progress window |
# Initialize progress window |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$studentcount); |
($r,'Excel File Compilation Status', |
|
'Excel File Compilation Progress', $studentcount, |
|
'inline',undef,'Statistics','stats_status'); |
|
# |
# |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
'Processing first student'); |
'Processing first student'); |
Line 1489 sub excel_outputstudent {
|
Line 1493 sub excel_outputstudent {
|
my %maximum_cell_translation; |
my %maximum_cell_translation; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $symb = $seq->symb; |
my $symb = $seq->symb; |
|
my $randompick = $seq->randompick(); |
$cols_output = $formula_data{$symb}->{'Excel:startcol'}; |
$cols_output = $formula_data{$symb}->{'Excel:startcol'}; |
# Keep track of cells to translate in total cell |
# Keep track of cells to translate in total cell |
$total_cell_translation{$formula_data{$symb}->{'Excel:scorecell'}} = |
$total_cell_translation{$formula_data{$symb}->{'Excel:scorecell'}} = |
Line 1503 sub excel_outputstudent {
|
Line 1508 sub excel_outputstudent {
|
if ($chosen_output->{'tries'} || $chosen_output->{'correct'}){ |
if ($chosen_output->{'tries'} || $chosen_output->{'correct'}){ |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
&student_tries_on_sequence($student,\%StudentsData, |
&student_tries_on_sequence($student,\%StudentsData, |
$navmap,$seq,'no'); |
$navmap,$seq,'no',$randompick); |
} else { |
} else { |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
&student_performance_on_sequence($student,\%StudentsData, |
&student_performance_on_sequence($student,\%StudentsData, |
$navmap,$seq,'no', |
$navmap,$seq,'no', |
$chosen_output->{ignore_weight}); |
$chosen_output->{ignore_weight}, |
|
$randompick); |
} |
} |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'correct'}) { |
if ($chosen_output->{'correct'}) { |
Line 1641 sub csv_initialize{
|
Line 1647 sub csv_initialize{
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
# Unable to get data, so bail out |
# Unable to get data, so bail out |
$r->print("<h3>". |
$r->print('<p class="LC_error">'. |
&mt('Unable to retrieve course information.'). |
&mt('Unable to retrieve course information.'). |
'</h3>'); |
'</p>'); |
} |
} |
# |
# |
# Deal with unimplemented requests |
# Deal with unimplemented requests |
$request_aborted = undef; |
$request_aborted = undef; |
if ($chosen_output->{'base'} =~ /final table/) { |
if ($chosen_output->{'base'} =~ /final table/) { |
$r->print(<<END); |
$r->print( |
<h2>Unable to Complete Request</h2> |
'<h2>'.&mt('Unable to Complete Request').'</h2>' |
<p> |
.'<p class="LC_warning">' |
The <b>Summary Table (Scores)</b> option is not available for non-HTML output. |
.&mt('The [_1]Summary Table (Scores)[_2] option' |
</p> |
.' is not available for non-HTML output.','<b>','</b>') |
END |
.'</p>' |
$request_aborted = 1; |
); |
|
$request_aborted = 1; |
} |
} |
return if ($request_aborted); |
return if ($request_aborted); |
# |
# |
# Initialize progress window |
# Initialize progress window |
my $studentcount = scalar(@Apache::lonstatistics::Students); |
my $studentcount = scalar(@Apache::lonstatistics::Students); |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$studentcount); |
($r,'CSV File Compilation Status', |
|
'CSV File Compilation Progress', $studentcount, |
|
'inline',undef,'Statistics','stats_status'); |
|
# |
# |
# Open a file |
# Open a file |
($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv'); |
($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv'); |
Line 1673 END
|
Line 1677 END
|
# Datestamp |
# Datestamp |
my $description = $env{'course.'.$env{'request.course.id'}.'.description'}; |
my $description = $env{'course.'.$env{'request.course.id'}.'.description'}; |
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. |
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. |
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'. |
'"'.&Apache::loncommon::csv_translate(scalar(&Apache::lonlocal::locallocaltime(time))).'"'. |
"\n"; |
"\n"; |
print $outputfile '"'. |
print $outputfile '"'. |
&Apache::loncommon::csv_translate |
&Apache::loncommon::csv_translate |
Line 1713 END
|
Line 1717 END
|
$sequence_row.='"",'x$count; |
$sequence_row.='"",'x$count; |
if ($chosen_output->{'sequence_sum'}) { |
if ($chosen_output->{'sequence_sum'}) { |
if($chosen_output->{'correct'}) { |
if($chosen_output->{'correct'}) { |
$resource_row .= '"sum",'; |
$resource_row .= '"'.&mt('sum').'",'; |
} else { |
} else { |
$resource_row .= '"score",'; |
$resource_row .= '"'.&mt('score').'",'; |
} |
} |
} |
} |
if ($chosen_output->{'sequence_max'}) { |
if ($chosen_output->{'sequence_max'}) { |
$sequence_row.= '"",'; |
$sequence_row.= '"",'; |
$resource_row .= '"maximum possible",'; |
$resource_row .= '"'.&mt('maximum possible').'",'; |
} |
} |
} |
} |
if ($chosen_output->{'grand_total'}) { |
if ($chosen_output->{'grand_total'}) { |
$sequence_row.= '"",'; |
$sequence_row.= '"",'; |
$resource_row.= '"Total",'; |
$resource_row.= '"'.&mt('Total').'",'; |
} |
} |
if ($chosen_output->{'grand_maximum'}) { |
if ($chosen_output->{'grand_maximum'}) { |
$sequence_row.= '"",'; |
$sequence_row.= '"",'; |
$resource_row.= '"Maximum",'; |
$resource_row.= '"'.&mt('Maximum').'",'; |
} |
} |
chomp($sequence_row); |
chomp($sequence_row); |
chomp($resource_row); |
chomp($resource_row); |
Line 1770 sub csv_outputstudent {
|
Line 1774 sub csv_outputstudent {
|
my $total = 0; |
my $total = 0; |
my $maximum = 0; |
my $maximum = 0; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
|
my $randompick = $seq->randompick(); |
my ($performance,$performance_length,$score,$seq_max,$rawdata); |
my ($performance,$performance_length,$score,$seq_max,$rawdata); |
if ($chosen_output->{'tries'}){ |
if ($chosen_output->{'tries'}){ |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
&student_tries_on_sequence($student,\%StudentsData, |
&student_tries_on_sequence($student,\%StudentsData, |
$navmap,$seq,'no'); |
$navmap,$seq,'no',$randompick); |
} else { |
} else { |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
($performance,$performance_length,$score,$seq_max,$rawdata) = |
&student_performance_on_sequence($student,\%StudentsData, |
&student_performance_on_sequence($student,\%StudentsData, |
$navmap,$seq,'no', |
$navmap,$seq,'no', |
$chosen_output->{ignore_weight}); |
$chosen_output->{ignore_weight}, |
|
$randompick); |
} |
} |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'correct'}) { |
if ($chosen_output->{'correct'}) { |
Line 1880 Inputs:
|
Line 1886 Inputs:
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
sub student_tries_on_sequence { |
sub student_tries_on_sequence { |
my ($student,$studentdata,$navmap,$seq,$links) = @_; |
my ($student,$studentdata,$navmap,$seq,$links,$randompick) = @_; |
$links = 'no' if (! defined($links)); |
$links = 'no' if (! defined($links)); |
my $Str = ''; |
my $Str = ''; |
my ($sum,$max) = (0,0); |
my ($sum,$max) = (0,0); |
Line 1966 sub student_tries_on_sequence {
|
Line 1972 sub student_tries_on_sequence {
|
($links eq 'all')) { |
($links eq 'all')) { |
my $link = '/adm/grades'. |
my $link = '/adm/grades'. |
'?symb='.&escape($resource->shown_symb). |
'?symb='.&escape($resource->shown_symb). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&userdom='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission'; |
'&command=submission'; |
$symbol = &link($symbol, $link); |
$symbol = &link($symbol, $link); |
} |
} |
$value .= $symbol; |
$value .= $symbol; |
} |
} |
$Str .= $value; |
$Str .= $value; |
} |
} |
if ($seq->randompick()) { |
if ($randompick) { |
$max = $seq->randompick(); |
$max = $randompick; |
} |
} |
if (! $hasdata && $sum == 0) { |
if (! $hasdata && $sum == 0) { |
$sum = ' '; |
$sum = ' '; |
Line 2041 Inputs:
|
Line 2047 Inputs:
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
sub student_performance_on_sequence { |
sub student_performance_on_sequence { |
my ($student,$studentdata,$navmap,$seq,$links,$awarded_only) = @_; |
my ($student,$studentdata,$navmap,$seq,$links,$awarded_only,$randompick) = @_; |
$links = 'no' if (! defined($links)); |
$links = 'no' if (! defined($links)); |
my $Str = ''; # final result string |
my $Str = ''; # final result string |
my ($score,$max) = (0,0); |
my ($score,$max) = (0,0); |
Line 2050 sub student_performance_on_sequence {
|
Line 2056 sub student_performance_on_sequence {
|
my @ScoreData = (); |
my @ScoreData = (); |
my $partscore; |
my $partscore; |
my $hasdata = 0; # flag, 0 if there were no submissions on the sequence |
my $hasdata = 0; # flag, 0 if there were no submissions on the sequence |
|
my %ptsfreq; |
foreach my $resource (&get_resources($navmap,$seq)) { |
foreach my $resource (&get_resources($navmap,$seq)) { |
my $symb = $resource->symb; |
my $symb = $resource->symb; |
my $resource_data = $studentdata->{$symb}; |
my $resource_data = $studentdata->{$symb}; |
|
my $resmax = 0; |
foreach my $part (@{$resource->parts()}) { |
foreach my $part (@{$resource->parts()}) { |
$partscore = undef; |
$partscore = undef; |
my $weight; |
my $weight; |
Line 2068 sub student_performance_on_sequence {
|
Line 2076 sub student_performance_on_sequence {
|
} |
} |
# |
# |
$max += $weight; # see the 'excused' branch below... |
$max += $weight; # see the 'excused' branch below... |
|
$resmax += $weight; |
$performance_length++; # one character per part |
$performance_length++; # one character per part |
$symbol = ' '; # default to space |
$symbol = ' '; # default to space |
# |
# |
Line 2121 sub student_performance_on_sequence {
|
Line 2130 sub student_performance_on_sequence {
|
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
my $link = '/adm/grades' . |
my $link = '/adm/grades' . |
'?symb='.&escape($resource->shown_symb). |
'?symb='.&escape($resource->shown_symb). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&userdom='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission'; |
'&command=submission'; |
$symbol = &link($symbol, $link); |
$symbol = &link($symbol, $link); |
} |
} |
$Str .= $symbol; |
$Str .= $symbol; |
} |
} |
|
if ($ptsfreq{$resmax}) { |
|
$ptsfreq{$resmax} ++; |
|
} else { |
|
$ptsfreq{$resmax} = 1; |
|
} |
|
} |
|
if ($randompick) { |
|
my @uniquetotals = keys(%ptsfreq); |
|
if ((@uniquetotals == 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { |
|
$max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; |
|
} |
} |
} |
if (! $hasdata && $score == 0) { |
if (! $hasdata && $score == 0) { |
$score = ' '; |
$score = ' '; |