loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.123 and 1.155

version 1.123, 2005/04/08 13:44:43	version 1.155, 2009/05/17 23:13:49
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 351 sub CreateInterface {	Line 369 sub CreateInterface {
$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 .=	$Str .=
&mt('Status [_1]',	&mt('Status [_1]',
'<input type="text" name="stats_status" size="60" value="" />');	'<input type="text" name="stats_status" size="60" value="" readonly="readonly" />');
$Str .= '<br />';	$Str .= '</p>';
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,
	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 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)) {
Line 641 sub html_initialize {	Line 667 sub html_initialize {
&mt('Unable to retrieve course information.').	&mt('Unable to retrieve course information.').
'</h3>');	'</h3>');
}	}

	# 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>$labeltext
	<input type="checkbox" checked="checked" onclick="new_window=this.checked" />
	</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>");	"  ".localtime(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 713 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 722 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 749 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	# Let the user know what we are doing
my $studentcount = scalar(@Apache::lonstatistics::Students);	my $studentcount = scalar(@Apache::lonstatistics::Students);
Line 753 sub html_outputstudent {	Line 844 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 777 sub html_outputstudent {	Line 876 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 785 sub html_outputstudent {	Line 885 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 828 sub html_outputstudent {	Line 929 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";
Line 856 sub html_finish {	Line 957 sub html_finish {
}	}
$r->rflush();	$r->rflush();
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
undef($navmap);	&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 881 sub StudentAverageTotal {	Line 982 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;
}	}

Line 896 sub SingleStudentTotal {	Line 999 sub SingleStudentTotal {
$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 963 my %formula_data;	Line 1071 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 980 sub excel_initialize {	Line 1087 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 1060 sub excel_initialize {	Line 1173 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
Line 1135 sub excel_initialize {	Line 1248 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 1222 sub excel_initialize {	Line 1337 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 1246 sub excel_initialize {	Line 1361 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 1324 sub excel_initialize {	Line 1439 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 1357 sub excel_outputstudent {	Line 1468 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 1396 sub excel_outputstudent {	Line 1507 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 1429 sub excel_outputstudent {	Line 1542 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 1465 sub excel_outputstudent {	Line 1578 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 1511 my %prog_state; # progress window state	Line 1623 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 1522 sub csv_initialize{	Line 1631 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 1635 sub csv_outputstudent {	Line 1750 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 1663 sub csv_outputstudent {	Line 1778 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 1707 sub csv_outputstudent {	Line 1823 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 1792 sub student_tries_on_sequence {	Line 1919 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 1814 sub student_tries_on_sequence {	Line 1941 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 1837 sub student_tries_on_sequence {	Line 1964 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 1859 sub student_tries_on_sequence {	Line 1984 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 1885 Inputs:	Line 2041 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 1899 sub student_performance_on_sequence {	Line 2055 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 1919 sub student_performance_on_sequence {	Line 2078 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 1929 sub student_performance_on_sequence {	Line 2088 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 1954 sub student_performance_on_sequence {	Line 2119 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 1986 problems.	Line 2152 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>";

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.123
changed lines
	Added in v.1.155