version 1.122, 2005/04/07 07:34:52
|
version 1.159, 2010/01/14 17:20:51
|
Line 50 Presents assessment data about a student
|
Line 50 Presents assessment data about a student
|
package Apache::lonstudentassessment; |
package Apache::lonstudentassessment; |
|
|
use strict; |
use strict; |
use Apache::lonstatistics; |
use Apache::lonstatistics(); |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonnet; # for logging porpoises |
use Apache::lonnet; # for logging porpoises |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::grades(); |
|
use Apache::lonmsgdisplay(); |
use Time::HiRes; |
use Time::HiRes; |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel::Utility(); |
use Spreadsheet::WriteExcel::Utility(); |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
Line 145 sub BuildStudentAssessmentPage {
|
Line 150 sub BuildStudentAssessmentPage {
|
'chartoutputmode' => 'scalar', |
'chartoutputmode' => 'scalar', |
'chartoutputdata' => 'scalar', |
'chartoutputdata' => 'scalar', |
'Section' => 'array', |
'Section' => 'array', |
|
'Groups' => 'array', |
'StudentData' => 'array', |
'StudentData' => 'array', |
'Maps' => 'array'); |
'Maps' => 'array'); |
&Apache::loncommon::store_course_settings('chart',\%Saveable_Parameters); |
&Apache::loncommon::store_course_settings('chart',\%Saveable_Parameters); |
Line 242 sub next_and_previous_buttons {
|
Line 248 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 258 sub next_and_previous_buttons {
|
Line 264 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; |
Line 312 the chart page.
|
Line 318 the chart page.
|
####################################################### |
####################################################### |
sub CreateInterface { |
sub CreateInterface { |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Chart'); |
$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 .= &CreateLegend(); |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Student Data</b>').'</td>'; |
&Apache::loncommon::help_open_topic("Chart_Sections"). |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b>'. |
|
'</td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Student Data').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Student_Data"). |
|
'</td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Enrollment_Status"). |
|
'</td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Sequences"). |
|
'</td>'; |
$Str .= '<td align="center"><b>'.&mt('Output Format').'</b>'. |
$Str .= '<td align="center"><b>'.&mt('Output Format').'</b>'. |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
'</td>'; |
'</td>'; |
Line 331 sub CreateInterface {
|
Line 347 sub CreateInterface {
|
$Str .= '<tr><td align="center">'."\n"; |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= '</td><td align="center">'; |
$Str .= '</td><td align="center">'; |
|
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); |
|
$Str .= '</td><td align="center">'; |
$Str .= &Apache::lonstatistics::StudentDataSelect('StudentData','multiple', |
$Str .= &Apache::lonstatistics::StudentDataSelect('StudentData','multiple', |
5,undef); |
5,undef); |
$Str .= '</td><td>'."\n"; |
$Str .= '</td><td>'."\n"; |
Line 343 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="'. |
$Str .= '<p>' |
&mt('Generate Chart').'" />'; |
.&mt('Status:').' ' |
$Str .= ' 'x5; |
.'<input type="text" name="stats_status" size="60" value="" readonly="readonly" />' |
|
.'</p>'; |
$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 .= ' 'x5; |
$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="" />'); |
.'</p>'; |
$Str .= '<br />'; |
|
return $Str; |
return $Str; |
} |
} |
|
|
Line 472 my @OutputDataOptions =
|
Line 490 my @OutputDataOptions =
|
grand_maximum => 1, |
grand_maximum => 1, |
summary_table => 1, |
summary_table => 1, |
maximum_row => 1, |
maximum_row => 1, |
|
ignore_weight => 0, |
shortdesc => 'Total Score and Maximum Possible for each '. |
shortdesc => 'Total Score and Maximum Possible for each '. |
'Sequence or Folder', |
'Sequence or Folder', |
longdesc => 'The score of each student as well as the '. |
longdesc => 'The score of each student as well as the '. |
Line 490 my @OutputDataOptions =
|
Line 509 my @OutputDataOptions =
|
grand_maximum => 1, |
grand_maximum => 1, |
summary_table => 1, |
summary_table => 1, |
maximum_row => 1, |
maximum_row => 1, |
|
ignore_weight => 0, |
shortdesc => 'Score on each Problem Part', |
shortdesc => 'Score on each Problem Part', |
longdesc =>'The students score on each problem part, computed as'. |
longdesc =>'The students score on each problem part, computed as'. |
'the part weight * part awarded', |
'the part weight * part awarded', |
Line 507 my @OutputDataOptions =
|
Line 527 my @OutputDataOptions =
|
grand_maximum => 0, |
grand_maximum => 0, |
summary_table => 0, |
summary_table => 0, |
maximum_row => 0, |
maximum_row => 0, |
|
ignore_weight => 0, |
shortdesc => 'Number of Tries before success on each Problem Part', |
shortdesc => 'Number of Tries before success on each Problem Part', |
longdesc =>'The number of tries before success on each problem part.', |
longdesc =>'The number of tries before success on each problem part.', |
non_html_notes => 'negative values indicate an incorrect problem', |
non_html_notes => 'negative values indicate an incorrect problem', |
Line 524 my @OutputDataOptions =
|
Line 545 my @OutputDataOptions =
|
grand_maximum => 1, |
grand_maximum => 1, |
summary_table => 1, |
summary_table => 1, |
maximum_row => 0, |
maximum_row => 0, |
shortdesc => 'Number of Problem Parts completed successfully.', |
ignore_weight => 1, |
|
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 532 my @OutputDataOptions =
|
Line 554 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 622 Return a line of the chart for a student
|
Line 644 Return a line of the chart for a student
|
my @sequences; |
my @sequences; |
my $navmap; # Have to keep this around since weakref is a bit zealous |
my $navmap; # Have to keep this around since weakref is a bit zealous |
|
|
|
sub html_cleanup { |
|
undef(%prog_state); |
|
undef(%width); |
|
# |
|
undef($navmap); |
|
undef(@sequences); |
|
} |
|
|
sub html_initialize { |
sub html_initialize { |
my ($r) = @_; |
my ($r) = @_; |
# |
# |
$padding = ' 'x3; |
$padding = ' 'x3; |
$count = 0; |
$count = 0; |
$nodata_count = 0; |
$nodata_count = 0; |
undef(%prog_state); |
&html_cleanup(); |
undef(%width); |
|
# |
|
undef($navmap); |
|
undef(@sequences); |
|
($navmap,@sequences) = |
($navmap,@sequences) = |
&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 |
|
# windows. |
|
if ($show_links ne 'no') { |
|
my $labeltext = &mt('Show links in new window'); |
|
$r->print(<<NEW_WINDOW_CHECKBOX); |
|
<script type="text/javascript">new_window = true;</script> |
|
<p><label> |
|
<input type="checkbox" checked="checked" onclick="new_window=this.checked" /> |
|
$labeltext |
|
</label></p> |
|
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>".$chosen_output->{'shortdesc'}."</h3>"); |
$r->print("<h3>".&mt($chosen_output->{'shortdesc'})."</h3>"); |
} |
} |
my $Str = "<pre>\n"; |
my $Str = "<pre>\n"; |
# First, the @StudentData fields need to be listed |
# First, the @StudentData fields need to be listed |
Line 674 sub html_initialize {
|
Line 714 sub html_initialize {
|
$width{$symb}->{'width_sum'} += 1; |
$width{$symb}->{'width_sum'} += 1; |
} |
} |
$total_count += &count_parts($navmap,$seq); |
$total_count += &count_parts($navmap,$seq); |
# Use 3 digits for the sum |
# Use 6 digits for the sum |
$width{$symb}->{'width_sum'} += 3; |
$width{$symb}->{'width_sum'} += 6; |
} |
} |
# Compute width of maximum |
# Compute width of maximum |
if ($chosen_output->{'sequence_max'}) { |
if ($chosen_output->{'sequence_max'}) { |
Line 683 sub html_initialize {
|
Line 723 sub html_initialize {
|
# One digit for the '/' |
# One digit for the '/' |
$width{$symb}->{'width_sum'} +=1; |
$width{$symb}->{'width_sum'} +=1; |
} |
} |
# Use 3 digits for the total |
# Use 6 digits for the total |
$width{$symb}->{'width_sum'}+=3; |
$width{$symb}->{'width_sum'}+=6; |
} |
} |
# |
# |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'every_problem'}) { |
Line 710 sub html_initialize {
|
Line 750 sub html_initialize {
|
$Str .= "<pre>"; |
$Str .= "<pre>"; |
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |
|
|
|
$r->print(<<JS); |
|
<script type="text/javascript"> |
|
// get the left offset of a given widget as an absolute position |
|
function getLeftOffset (element) { |
|
return collect(element, "offsetLeft"); |
|
} |
|
|
|
// get the top offset of a given widget as an absolute position |
|
function getTopOffset (element) { |
|
return collect(element, "offsetTop"); |
|
} |
|
|
|
function collect(element, att) { |
|
var val = 0; |
|
while(element) { |
|
val += element[att]; |
|
element = element.offsetParent; |
|
} |
|
return val; |
|
} |
|
|
|
var currentDiv; |
|
var currentElement; |
|
function popup_score(element, score) { |
|
popdown_score(); |
|
var left = getLeftOffset(element); |
|
var top = getTopOffset(element); |
|
var div = document.createElement("div"); |
|
div.className = "LC_chrt_popup"; |
|
div.appendChild(document.createTextNode(score)); |
|
div.style.position = "absolute"; |
|
div.style.top = (top - 25) + "px"; |
|
div.style.left = (left - 10) + "px"; |
|
currentDiv = div; |
|
document.body.insertBefore(div, document.body.childNodes[0]); |
|
element.className = "LC_chrt_popup_up"; |
|
currentElement = element; |
|
} |
|
|
|
function popdown_score() { |
|
if (currentDiv) { |
|
document.body.removeChild(currentDiv); |
|
} |
|
if (currentElement) { |
|
currentElement.className = 'LC_chrt_popup_exists'; |
|
} |
|
currentDiv = undefined; |
|
} |
|
</script> |
|
JS |
|
|
|
# |
|
# Let the user know what we are doing |
|
my $studentcount = scalar(@Apache::lonstatistics::Students); |
|
if ($env{'form.SelectedStudent'}) { |
|
$studentcount = '1'; |
|
} |
|
# |
|
# Initialize progress window |
|
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,'HTML Chart Status', |
|
'HTML Chart Progress', $studentcount, |
|
'inline',undef,'Statistics','stats_status'); |
|
# |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
'Processing first student'); |
return; |
return; |
} |
} |
|
|
Line 719 sub html_outputstudent {
|
Line 826 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'); |
|
$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 738 sub html_outputstudent {
|
Line 850 sub html_outputstudent {
|
my @tmp = &Apache::loncoursedata::get_current_state |
my @tmp = &Apache::loncoursedata::get_current_state |
($student->{'username'},$student->{'domain'},undef, |
($student->{'username'},$student->{'domain'},undef, |
$env{'request.course.id'}); |
$env{'request.course.id'}); |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:(.*)/)) { |
%StudentsData = @tmp; |
%StudentsData = @tmp; |
} |
} else { |
if (scalar(@tmp) < 1) { |
my $error = $1; |
|
if (scalar(@tmp) < 1) { |
|
$Str .= '<span class="LC_warning">' |
|
.&mt('No Course Data') |
|
.'</span>'."\n"; |
|
} else { |
|
$Str .= '<span class="LC_error">' |
|
.&mt('Error getting student data ([_1])',$error) |
|
.'</span>'."\n"; |
|
} |
$nodata_count++; |
$nodata_count++; |
$Str .= '<font color="blue">No Course Data</font>'."\n"; |
|
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
Line 762 sub html_outputstudent {
|
Line 882 sub html_outputstudent {
|
} 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}); |
} |
} |
my $ratio=''; |
my $ratio=''; |
if ($chosen_output->{'every_problem'} && |
if ($chosen_output->{'every_problem'} && |
Line 770 sub html_outputstudent {
|
Line 891 sub html_outputstudent {
|
$ratio .= ' '; |
$ratio .= ' '; |
} |
} |
if ($chosen_output->{'sequence_sum'} && $score ne ' ') { |
if ($chosen_output->{'sequence_sum'} && $score ne ' ') { |
my $score .= sprintf("%3.0f",$score); |
my $score .= sprintf("%3.2f",$score); |
$ratio .= (' 'x(3-length($score))).$score; |
$ratio .= (' 'x(6-length($score))).$score; |
} elsif($chosen_output->{'sequence_sum'}) { |
} elsif($chosen_output->{'sequence_sum'}) { |
$ratio .= ' 'x3; |
$ratio .= ' 'x6; |
} |
} |
if ($chosen_output->{'sequence_max'}) { |
if ($chosen_output->{'sequence_max'}) { |
if ($chosen_output->{'sequence_sum'}) { |
if ($chosen_output->{'sequence_sum'}) { |
$ratio .= '/'; |
$ratio .= '/'; |
} |
} |
$ratio .= sprintf("%3.0f",$seq_max); |
my $sequence_total=sprintf("%3.2f",$seq_max); |
|
$ratio .= $sequence_total.(' 'x(6-length($sequence_total))); |
} |
} |
# |
# |
if (! $chosen_output->{'every_problem'}) { |
if (! $chosen_output->{'every_problem'}) { |
Line 813 sub html_outputstudent {
|
Line 935 sub html_outputstudent {
|
if (! defined($score)) { |
if (! defined($score)) { |
$score = ' ' x $total_sum_width; |
$score = ' ' x $total_sum_width; |
} else { |
} else { |
$score = sprintf("%.0f",$score); |
$score = sprintf("%.2f",$score); |
$score = (' 'x(3-length($score))).$score; |
$score = (' 'x(6-length($score))).$score; |
} |
} |
$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'); |
return; |
return; |
} |
} |
|
|
Line 839 sub html_finish {
|
Line 962 sub html_finish {
|
} |
} |
} |
} |
$r->rflush(); |
$r->rflush(); |
undef($navmap); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
&html_cleanup(); |
return; |
return; |
} |
} |
|
|
sub StudentAverageTotal { |
sub StudentAverageTotal { |
my $Str = '<h3>'.&mt('Summary Tables').'</h3>'.$/; |
my $Str = '<h3>'.&mt('Summary Tables').'</h3>'.$/; |
$Str .= '<table border=2 cellspacing="1">'."\n"; |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= '<tr>'. |
$Str .= &Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Title').'</th>'. |
'<th>'.&mt('Title').'</th>'. |
'<th>'.&mt('Average').'</th>'. |
'<th>'.&mt('Average').'</th>'. |
'<th>'.&mt('Maximum').'</th>'. |
'<th>'.&mt('Maximum').'</th>'. |
'</tr>'.$/; |
&Apache::loncommon::end_data_table_header_row().$/; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $symb = $seq->symb; |
my $symb = $seq->symb; |
my $ave; |
my $ave; |
Line 864 sub StudentAverageTotal {
|
Line 988 sub StudentAverageTotal {
|
} |
} |
my $max = $Statistics->{$symb}->{'max'}; |
my $max = $Statistics->{$symb}->{'max'}; |
$ave = sprintf("%.2f",$ave); |
$ave = sprintf("%.2f",$ave); |
$Str .= '<tr><td>'.$seq->compTitle.'</td>'. |
$Str .= &Apache::loncommon::start_data_table_row(). |
|
'<td>'.$seq->compTitle.'</td>'. |
'<td align="right">'.$ave.' </td>'. |
'<td align="right">'.$ave.' </td>'. |
'<td align="right">'.$max.' '.'</td></tr>'."\n"; |
'<td align="right">'.$max.' '.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
} |
} |
$Str .= "</table>\n"; |
$Str .= &Apache::loncommon::end_data_table()."\n"; |
return $Str; |
return $Str; |
} |
} |
|
|
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 .= '<table border=2 cellspacing="1">'."\n"; |
$Str .= &Apache::loncommon::start_data_table()."\n"; |
$Str .= |
$Str .= |
'<tr>'. |
&Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Sequence or Folder').'</th>'; |
'<th>'.&mt('Sequence or Folder').'</th>'; |
if ($chosen_output->{'base'} eq 'tries') { |
if ($chosen_output->{'base'} eq 'tries') { |
$Str .= '<th>'.&mt('Parts Correct').'</th>'; |
$Str .= '<th>'.&mt('Parts Correct').'</th>'; |
} else { |
} else { |
$Str .= '<th>'.&mt('Score').'</th>'; |
$Str .= '<th>'.&mt('Score').'</th>'; |
} |
} |
$Str .= '<th>'.&mt('Maximum').'</th>'."</tr>\n"; |
$Str .= '<th>'.&mt('Maximum').'</th>'. |
|
&Apache::loncommon::end_data_table_header_row()."\n"; |
my $total = 0; |
my $total = 0; |
my $total_max = 0; |
my $total_max = 0; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $value = $Statistics->{$seq->symb}->{'score'}; |
my $value = $Statistics->{$seq->symb}->{'score'}; |
my $max = $Statistics->{$seq->symb}->{'max'}; |
my $max = $Statistics->{$seq->symb}->{'max'}; |
$Str .= '<tr><td>'.&HTML::Entities::encode($seq->compTitle).'</td>'. |
$Str .= &Apache::loncommon::start_data_table_row(). |
|
'<td>'.&HTML::Entities::encode($seq->compTitle).'</td>'. |
'<td align="right">'.$value.'</td>'. |
'<td align="right">'.$value.'</td>'. |
'<td align="right">'.$max.'</td></tr>'."\n"; |
'<td align="right">'.$max.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
$total += $value; |
$total += $value; |
$total_max +=$max; |
$total_max +=$max; |
} |
} |
$Str .= '<tr><td><b>'.&mt('Total').'</b></td>'. |
$Str .= &Apache::loncommon::start_data_table_row(). |
|
'<td><b>'.&mt('Total').'</b></td>'. |
'<td align="right">'.$total.'</td>'. |
'<td align="right">'.$total.'</td>'. |
'<td align="right">'.$total_max."</td></tr>\n"; |
'<td align="right">'.$total_max.'</td>'. |
$Str .= "</table>\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
|
$Str .= &Apache::loncommon::end_data_table()."\n"; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 946 my %formula_data;
|
Line 1077 my %formula_data;
|
my $navmap; |
my $navmap; |
my @sequences; |
my @sequences; |
|
|
sub excel_initialize { |
sub excel_cleanup { |
my ($r) = @_; |
|
# |
# |
undef ($excel_sheet); |
undef ($excel_sheet); |
undef ($excel_workbook); |
undef ($excel_workbook); |
Line 963 sub excel_initialize {
|
Line 1093 sub excel_initialize {
|
# |
# |
undef($navmap); |
undef($navmap); |
undef(@sequences); |
undef(@sequences); |
|
} |
|
|
|
sub excel_initialize { |
|
my ($r) = @_; |
|
|
|
&excel_cleanup(); |
($navmap,@sequences) = |
($navmap,@sequences) = |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
Line 1043 sub excel_initialize {
|
Line 1179 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('plain text'), |
&Apache::lonstatistics::section_and_enrollment_description('plaintext'), |
$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 1118 sub excel_initialize {
|
Line 1254 sub excel_initialize {
|
! defined($formula_data{$symb}->{'Excel:endcell'})) { |
! defined($formula_data{$symb}->{'Excel:endcell'})) { |
$formula_data{$symb}->{'Excel:endcell'} = $formula_data{$symb}->{'Excel:startcell'}; |
$formula_data{$symb}->{'Excel:endcell'} = $formula_data{$symb}->{'Excel:startcell'}; |
} |
} |
|
|
|
my $start = $formula_data{$symb}->{'Excel:startcell'}; |
|
my $end = $formula_data{$symb}->{'Excel:endcell'}; |
$formula_data{$symb}->{'Excel:sum'}= $excel_sheet->store_formula |
$formula_data{$symb}->{'Excel:sum'}= $excel_sheet->store_formula |
('=SUM('.$formula_data{$symb}->{'Excel:startcell'}. |
("=IF(COUNT($start\:$end),SUM($start\:$end),\"\")"); |
':'.$formula_data{$symb}->{'Excel:endcell'}.')'); |
|
# Determine cell the score is held in |
# Determine cell the score is held in |
$formula_data{$symb}->{'Excel:scorecell'} = |
$formula_data{$symb}->{'Excel:scorecell'} = |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
Line 1128 sub excel_initialize {
|
Line 1266 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 1148 sub excel_initialize {
|
Line 1286 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 1162 sub excel_initialize {
|
Line 1300 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 1205 sub excel_initialize {
|
Line 1343 sub excel_initialize {
|
$weight = 1; |
$weight = 1; |
if ($chosen_output->{'scores'}) { |
if ($chosen_output->{'scores'}) { |
$weight = &Apache::lonnet::EXT |
$weight = &Apache::lonnet::EXT |
('resource.'.$part.'.weight',$resource->{'symb'}, |
('resource.'.$part.'.weight',$resource->symb, |
undef,undef,undef); |
undef,undef,undef); |
if (!defined($weight) || ($weight eq '')) { |
if (!defined($weight) || ($weight eq '')) { |
$weight=1; |
$weight=1; |
Line 1229 sub excel_initialize {
|
Line 1367 sub excel_initialize {
|
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($maximum_data_row,$formula_data{$symb}->{'Excel:endcol'})); |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($maximum_data_row,$formula_data{$symb}->{'Excel:endcol'})); |
$excel_sheet->repeat_formula($maximum_data_row,$cols_output++, |
$excel_sheet->repeat_formula($maximum_data_row,$cols_output++, |
$formula_data{$symb}->{'Excel:sum'},undef, |
$formula_data{$symb}->{'Excel:sum'},undef, |
%replaceCells); |
%replaceCells, %replaceCells); |
|
|
} elsif ($chosen_output->{'sequence_sum'}) { |
} elsif ($chosen_output->{'sequence_sum'}) { |
$excel_sheet->write($maximum_data_row,$cols_output++,$max); |
$excel_sheet->write($maximum_data_row,$cols_output++,$max); |
Line 1257 sub excel_initialize {
|
Line 1395 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 1307 sub excel_initialize {
|
Line 1445 sub excel_initialize {
|
if ($env{'form.SelectedStudent'}) { |
if ($env{'form.SelectedStudent'}) { |
$studentcount = '1'; |
$studentcount = '1'; |
} |
} |
if ($studentcount > 1) { |
$r->print('<p>' |
$r->print('<h1>'.&mt('Compiling Excel spreadsheet for [_1] students', |
.&mt('Compiling Excel spreadsheet for [quant,_1,student]...',$studentcount) |
$studentcount)."</h1>\n"); |
."</p>\n" |
} else { |
); |
$r->print('<h1>'. |
|
&mt('Compiling Excel spreadsheet for 1 student'). |
|
"</h1>\n"); |
|
} |
|
$r->rflush(); |
$r->rflush(); |
# |
# |
# Initialize progress window |
# Initialize progress window |
Line 1340 sub excel_outputstudent {
|
Line 1474 sub excel_outputstudent {
|
foreach my $field (@to_show) { |
foreach my $field (@to_show) { |
my $value = $student->{$field}; |
my $value = $student->{$field}; |
if ($field eq 'comments') { |
if ($field eq 'comments') { |
$value = &Apache::lonmsg::retrieve_instructor_comments |
$value = &Apache::lonmsgdisplay::retrieve_instructor_comments |
($student->{'username'},$student->{'domain'}); |
($student->{'username'},$student->{'domain'}); |
} |
} |
$excel_sheet->write($rows_output,$cols_output++,$value); |
$excel_sheet->write($rows_output,$cols_output++,$value); |
Line 1379 sub excel_outputstudent {
|
Line 1513 sub excel_outputstudent {
|
} 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}); |
} |
} |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'correct'}) { |
if ($chosen_output->{'correct'}) { |
# only indiciate if each item is correct or not |
# only indiciate if each item is correct or not |
foreach my $value (@$rawdata) { |
foreach my $value (@$rawdata) { |
# nonzero means correct |
# positive means correct, 0 or negative means |
$value = 1 if ($value > 0); |
# incorrect |
|
$value = $value > 0 ? 1 : 0; |
$excel_sheet->write($rows_output,$cols_output++,$value); |
$excel_sheet->write($rows_output,$cols_output++,$value); |
} |
} |
} else { |
} else { |
Line 1412 sub excel_outputstudent {
|
Line 1548 sub excel_outputstudent {
|
# The undef is for the format |
# The undef is for the format |
$excel_sheet->repeat_formula($rows_output,$cols_output++, |
$excel_sheet->repeat_formula($rows_output,$cols_output++, |
$formula_data{$symb}->{'Excel:sum'},undef, |
$formula_data{$symb}->{'Excel:sum'},undef, |
%replaceCells); |
%replaceCells, %replaceCells); |
} elsif ($chosen_output->{'sequence_sum'}) { |
} elsif ($chosen_output->{'sequence_sum'}) { |
if ($score eq ' ') { |
if ($score eq ' ') { |
$cols_output++; |
$cols_output++; |
Line 1448 sub excel_outputstudent {
|
Line 1584 sub excel_outputstudent {
|
sub excel_finish { |
sub excel_finish { |
my ($r) = @_; |
my ($r) = @_; |
if ($request_aborted || ! defined($navmap) || ! defined($excel_sheet)) { |
if ($request_aborted || ! defined($navmap) || ! defined($excel_sheet)) { |
|
&excel_cleanup(); |
return; |
return; |
} |
} |
# |
# |
# Write the excel file |
# Write the excel file |
$excel_workbook->close(); |
$excel_workbook->close(); |
my $c = $r->connection(); |
|
# |
|
return if($c->aborted()); |
|
# |
# |
# 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 excel file |
# Tell the user where to get their excel file |
$r->print('<br />'. |
$r->print('<br />'. |
'<a href="'.$filename.'">Your Excel spreadsheet.</a>'."\n"); |
'<a href="'.$filename.'">'.&mt('Your Excel spreadsheet').'</a>'."\n"); |
$r->rflush(); |
$r->rflush(); |
|
&excel_cleanup(); |
return; |
return; |
} |
} |
|
|
Line 1494 my %prog_state; # progress window state
|
Line 1629 my %prog_state; # progress window state
|
my $navmap; |
my $navmap; |
my @sequences; |
my @sequences; |
|
|
sub csv_initialize{ |
sub csv_cleanup { |
my ($r) = @_; |
|
# |
|
# Clean up |
|
undef($outputfile); |
undef($outputfile); |
undef($filename); |
undef($filename); |
undef($request_aborted); |
undef($request_aborted); |
Line 1505 sub csv_initialize{
|
Line 1637 sub csv_initialize{
|
# |
# |
undef($navmap); |
undef($navmap); |
undef(@sequences); |
undef(@sequences); |
|
} |
|
|
|
sub csv_initialize{ |
|
my ($r) = @_; |
|
|
|
&csv_cleanup(); |
($navmap,@sequences) = |
($navmap,@sequences) = |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
Line 1581 END
|
Line 1719 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 1618 sub csv_outputstudent {
|
Line 1756 sub csv_outputstudent {
|
foreach my $field (@to_show) { |
foreach my $field (@to_show) { |
my $value = $student->{$field}; |
my $value = $student->{$field}; |
if ($field eq 'comments') { |
if ($field eq 'comments') { |
$value = &Apache::lonmsg::retrieve_instructor_comments |
$value = &Apache::lonmsgdisplay::retrieve_instructor_comments |
($student->{'username'},$student->{'domain'}); |
($student->{'username'},$student->{'domain'}); |
} |
} |
$Str .= '"'.&Apache::loncommon::csv_translate($value).'",'; |
$Str .= '"'.&Apache::loncommon::csv_translate($value).'",'; |
Line 1646 sub csv_outputstudent {
|
Line 1784 sub csv_outputstudent {
|
} 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}); |
} |
} |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'every_problem'}) { |
if ($chosen_output->{'correct'}) { |
if ($chosen_output->{'correct'}) { |
Line 1690 sub csv_outputstudent {
|
Line 1829 sub csv_outputstudent {
|
sub csv_finish { |
sub csv_finish { |
my ($r) = @_; |
my ($r) = @_; |
if ($request_aborted || ! defined($navmap) || ! defined($outputfile)) { |
if ($request_aborted || ! defined($navmap) || ! defined($outputfile)) { |
|
&csv_cleanup(); |
return; |
return; |
} |
} |
close($outputfile); |
close($outputfile); |
# |
# |
my $c = $r->connection(); |
|
return if ($c->aborted()); |
|
# |
|
# 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(); |
|
&csv_cleanup(); |
return; |
return; |
|
|
} |
} |
|
|
} |
} |
|
|
|
# This function will return an HTML string including a star, with |
|
# a mouseover popup showing the "real" value. An optional second |
|
# argument lets you show something other than a star. |
|
sub show_star { |
|
my $popup = shift; |
|
my $symbol = shift || '*'; |
|
# Escape the popup for JS. |
|
$popup =~ s/([^-a-zA-Z0-9:;,._ ()|!\/?=&*])/'\\' . sprintf("%lo", ord($1))/ge; |
|
|
|
return "<span class=\"LC_chrt_popup_exists\" onmouseover='popup_score(this, \"$popup\");return false;' onmouseout='popdown_score();return false;'>$symbol</span>"; |
|
} |
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
|
|
Line 1775 sub student_tries_on_sequence {
|
Line 1925 sub student_tries_on_sequence {
|
if ($status eq 'excused') { |
if ($status eq 'excused') { |
$symbol = 'x'; |
$symbol = 'x'; |
$max--; |
$max--; |
} elsif ($status eq 'correct_by_override') { |
} elsif ($status eq 'correct_by_override' && !$resource->is_task()) { |
$symbol = '+'; |
$symbol = '+'; |
$sum++; |
$sum++; |
} elsif ($tries > 0) { |
} elsif ($tries > 0) { |
if ($tries > 9) { |
if ($tries > 9) { |
$symbol = '*'; |
$symbol = show_star($tries); |
} else { |
} else { |
$symbol = $tries; |
$symbol = $tries; |
} |
} |
Line 1797 sub student_tries_on_sequence {
|
Line 1947 sub student_tries_on_sequence {
|
} elsif ($status eq 'incorrect_by_override') { |
} elsif ($status eq 'incorrect_by_override') { |
$symbol = '-'; |
$symbol = '-'; |
} elsif ($status eq 'ungraded_attempted') { |
} elsif ($status eq 'ungraded_attempted') { |
$symbol = '#'; |
$symbol = 'u'; |
} elsif ($status eq 'incorrect_attempted' || |
} elsif ($status eq 'incorrect_attempted' || |
$tries > 0) { |
$tries > 0) { |
$symbol = '.'; |
$symbol = '.'; |
Line 1820 sub student_tries_on_sequence {
|
Line 1970 sub student_tries_on_sequence {
|
# |
# |
if ( ($links eq 'yes' && $symbol ne ' ') || |
if ( ($links eq 'yes' && $symbol ne ' ') || |
($links eq 'all')) { |
($links eq 'all')) { |
if (length($symbol) > 1) { |
my $link = '/adm/grades'. |
&Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1'); |
'?symb='.&escape($resource->shown_symb). |
} |
|
$symbol = '<a href="/adm/grades'. |
|
'?symb='.&Apache::lonnet::escape($resource->symb). |
|
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&userdom='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission">'.$symbol.'</a>'; |
'&command=submission'; |
|
$symbol = &link($symbol, $link); |
} |
} |
$value .= $symbol; |
$value .= $symbol; |
} |
} |
Line 1842 sub student_tries_on_sequence {
|
Line 1990 sub student_tries_on_sequence {
|
return ($Str,$performance_length,$sum,$max,\@TriesData); |
return ($Str,$performance_length,$sum,$max,\@TriesData); |
} |
} |
|
|
|
=pod |
|
|
|
=item &link |
|
|
|
Inputs: |
|
|
|
=over 4 |
|
|
|
=item $text |
|
|
|
=item $target |
|
|
|
=back |
|
|
|
Takes the text and creates a link to the $text that honors |
|
the value of 'new window' if clicked on, but uses a real |
|
'href' so middle and right clicks still work. |
|
|
|
$target and $text are assumed to be already correctly escaped; i.e., it |
|
can be dumped out directly into the output stream as-is. |
|
|
|
=cut |
|
|
|
sub link { |
|
my ($text,$target) = @_; |
|
return |
|
"<a href='$target' onclick=\"t=this.href;if(new_window)" |
|
."{window.open(t)}else{return void(window." |
|
."location=t)};return false;\">$text</a>"; |
|
} |
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
|
|
Line 1868 Inputs:
|
Line 2047 Inputs:
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
sub student_performance_on_sequence { |
sub student_performance_on_sequence { |
my ($student,$studentdata,$navmap,$seq,$links) = @_; |
my ($student,$studentdata,$navmap,$seq,$links,$awarded_only) = @_; |
$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 1882 sub student_performance_on_sequence {
|
Line 2061 sub student_performance_on_sequence {
|
my $resource_data = $studentdata->{$symb}; |
my $resource_data = $studentdata->{$symb}; |
foreach my $part (@{$resource->parts()}) { |
foreach my $part (@{$resource->parts()}) { |
$partscore = undef; |
$partscore = undef; |
my $weight = &Apache::lonnet::EXT('resource.'.$part.'.weight', |
my $weight; |
$symb, |
if (!$awarded_only){ |
$student->{'domain'}, |
$weight = &Apache::lonnet::EXT('resource.'.$part.'.weight', |
$student->{'username'}, |
$symb, |
$student->{'section'}); |
$student->{'domain'}, |
|
$student->{'username'}, |
|
$student->{'section'}); |
|
} |
if (!defined($weight) || ($weight eq '')) { |
if (!defined($weight) || ($weight eq '')) { |
$weight=1; |
$weight=1; |
} |
} |
Line 1902 sub student_performance_on_sequence {
|
Line 2084 sub student_performance_on_sequence {
|
$hasdata = 1; |
$hasdata = 1; |
} |
} |
# |
# |
$partscore = $weight*$awarded; |
$partscore = &Apache::grades::compute_points($weight,$awarded); |
if (! defined($awarded)) { |
if (! defined($awarded)) { |
$partscore = undef; |
$partscore = undef; |
} |
} |
Line 1912 sub student_performance_on_sequence {
|
Line 2094 sub student_performance_on_sequence {
|
$symbol = sprintf("%.0f",$symbol); |
$symbol = sprintf("%.0f",$symbol); |
} |
} |
if (length($symbol) > 1) { |
if (length($symbol) > 1) { |
$symbol = '*'; |
$symbol = show_star($symbol); |
} |
} |
if (exists($resource_data->{'resource.'.$part.'.solved'})) { |
if (exists($resource_data->{'resource.'.$part.'.solved'}) && |
|
$resource_data->{'resource.'.$part.'.solved'} ne '') { |
my $status = $resource_data->{'resource.'.$part.'.solved'}; |
my $status = $resource_data->{'resource.'.$part.'.solved'}; |
if ($status eq 'excused') { |
if ($status eq 'excused') { |
$symbol = 'x'; |
$symbol = 'x'; |
$max -= $weight; # Do not count 'excused' problems. |
$max -= $weight; # Do not count 'excused' problems. |
|
} elsif ($status eq 'ungraded_attempted') { |
|
$symbol = 'u'; |
} |
} |
$hasdata = 1; |
$hasdata = 1; |
|
} elsif ($resource_data->{'resource.'.$part.'.award'} eq 'DRAFT') { |
|
$symbol = 'd'; |
|
$hasdata = 1; |
} elsif (!exists($resource_data->{'resource.'.$part.'.awarded'})){ |
} elsif (!exists($resource_data->{'resource.'.$part.'.awarded'})){ |
# Unsolved. Did they try? |
# Unsolved. Did they try? |
if (exists($resource_data->{'resource.'.$part.'.tries'})){ |
if (exists($resource_data->{'resource.'.$part.'.tries'})){ |
Line 1937 sub student_performance_on_sequence {
|
Line 2125 sub student_performance_on_sequence {
|
push (@ScoreData,$partscore); |
push (@ScoreData,$partscore); |
# |
# |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
$symbol = '<a href="/adm/grades'. |
my $link = '/adm/grades' . |
'?symb='.&Apache::lonnet::escape($symb). |
'?symb='.&escape($resource->shown_symb). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&userdom='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission">'.$symbol.'</a>'; |
'&command=submission'; |
|
$symbol = &link($symbol, $link); |
} |
} |
$Str .= $symbol; |
$Str .= $symbol; |
} |
} |
Line 1969 problems.
|
Line 2158 problems.
|
####################################################### |
####################################################### |
sub CreateLegend { |
sub CreateLegend { |
my $Str = "<p><pre>". |
my $Str = "<p><pre>". |
" 1 correct by student in 1 try\n". |
" digit score or number of tries to get correct ". |
" 7 correct by student in 7 tries\n". |
|
" * correct by student in more than 9 tries\n". |
" * correct by student in more than 9 tries\n". |
" + correct by hand grading or override\n". |
" + correct by hand grading or override\n". |
" - incorrect by override\n". |
" - incorrect by override\n". |
" . incorrect attempted\n". |
" . incorrect attempted\n". |
" # ungraded attempted\n". |
" u ungraded attempted\n". |
|
" d draft answer saved but not submitted\n". |
" not attempted (blank field)\n". |
" not attempted (blank field)\n". |
" x excused". |
" x excused". |
"</pre><p>"; |
"</pre><p>"; |