Return to lonstudentassessment.pm CVS log

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

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.114 and 1.159

version 1.114, 2005/02/25 19:48:01	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 153 sub BuildStudentAssessmentPage {	Line 159 sub BuildStudentAssessmentPage {
&Apache::lonstatistics::PrepareClasslist();	&Apache::lonstatistics::PrepareClasslist();
#	#
$single_student_mode = 0;	$single_student_mode = 0;
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'});	$single_student_mode = 1 if ($env{'form.SelectedStudent'});
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['selectstudent']);	['selectstudent']);
if ($ENV{'form.selectstudent'}) {	if ($env{'form.selectstudent'}) {
&Apache::lonstatistics::DisplayClasslist($r);	&Apache::lonstatistics::DisplayClasslist($r);
return;	return;
}	}
Line 167 sub BuildStudentAssessmentPage {	Line 173 sub BuildStudentAssessmentPage {
$r->print(&CreateInterface());	$r->print(&CreateInterface());
$r->print('<input type="hidden" name="notfirstrun" value="true" />');	$r->print('<input type="hidden" name="notfirstrun" value="true" />');
$r->print('<input type="hidden" name="sort" value="'.	$r->print('<input type="hidden" name="sort" value="'.
$ENV{'form.sort'}.'" />');	$env{'form.sort'}.'" />');
$r->rflush();	$r->rflush();
#	#
if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) {	if (! exists($env{'form.notfirstrun'}) && ! $single_student_mode) {
return;	return;
}	}
	$r->print('<h4>'.
	&Apache::lonstatistics::section_and_enrollment_description().
	'</h4>');
#	#
my $initialize = \&html_initialize;	my $initialize = \&html_initialize;
my $output_student = \&html_outputstudent;	my $output_student = \&html_outputstudent;
my $finish = \&html_finish;	my $finish = \&html_finish;
&Apache::lonnet::logthis('got here! 1');
#	#
if ($output_mode eq 'excel') {	if ($output_mode eq 'excel') {
$initialize = \&excel_initialize;	$initialize = \&excel_initialize;
Line 189 sub BuildStudentAssessmentPage {	Line 197 sub BuildStudentAssessmentPage {
$finish = \&csv_finish;	$finish = \&csv_finish;
}	}
#	#
&Apache::lonnet::logthis('got here! 2');
if($c->aborted()) { return ; }	if($c->aborted()) { return ; }
#	#
# Determine which students we want to look at	# Determine which students we want to look at
Line 214 sub BuildStudentAssessmentPage {	Line 221 sub BuildStudentAssessmentPage {
#	#
# Call the initialize routine selected above	# Call the initialize routine selected above
$initialize->($r);	$initialize->($r);
&Apache::lonnet::logthis('got here! 3');
foreach my $student (@Students) {	foreach my $student (@Students) {
if($c->aborted()) {	if($c->aborted()) {
$finish->($r);	$finish->($r);
Line 234 sub BuildStudentAssessmentPage {	Line 240 sub BuildStudentAssessmentPage {
sub next_and_previous_buttons {	sub next_and_previous_buttons {
my $Str = '';	my $Str = '';
$Str .= '<input type="hidden" name="SelectedStudent" value="'.	$Str .= '<input type="hidden" name="SelectedStudent" value="'.
$ENV{'form.SelectedStudent'}.'" />';	$env{'form.SelectedStudent'}.'" />';
#	#
# Build the previous student link	# Build the previous student link
my $previous = &Apache::lonstatistics::previous_student();	my $previous = &Apache::lonstatistics::previous_student();
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 430 sub CreateAndParseOutputSelector {	Line 448 sub CreateAndParseOutputSelector {
[$elementname]);	[$elementname]);
#	#
# Format for output options is 'mode, restrictions';	# Format for output options is 'mode, restrictions';
my $selected = 'html, without links';	my $selected = (&Apache::loncommon::get_env_multiple('form.'.$elementname))[0];
if (exists($ENV{'form.'.$elementname})) {	$selected = 'html, without links' if (!$selected);
if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {
$selected = $ENV{'form.'.$elementname}->[0];
} else {
$selected = $ENV{'form.'.$elementname};
}
}
#	#
# Set package variables describing output mode	# Set package variables describing output mode
$show_links = 'no';	$show_links = 'no';
Line 477 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 495 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 512 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 529 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 537 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 551 sub CreateAndParseOutputDataSelector {	Line 568 sub CreateAndParseOutputDataSelector {
my $Str = '';	my $Str = '';
my $elementname = 'chartoutputdata';	my $elementname = 'chartoutputdata';
#	#
my $selected = 'scores';	my $selected = (&Apache::loncommon::get_env_multiple('form.'.$elementname))[0];
if (exists($ENV{'form.'.$elementname})) {	$selected = 'scores' if (!$selected);
if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {
$selected = $ENV{'form.'.$elementname}->[0];
} else {
$selected = $ENV{'form.'.$elementname};
}
}
#	#
$chosen_output = $OutputDataOptions[0];	$chosen_output = $OutputDataOptions[0];
foreach my $option (@OutputDataOptions) {	foreach my $option (@OutputDataOptions) {
Line 581 sub CreateAndParseOutputDataSelector {	Line 593 sub CreateAndParseOutputDataSelector {

#######################################################	#######################################################
#######################################################	#######################################################
	sub count_parts {
	my ($navmap,$sequence) = @_;
	my @resources = &get_resources($navmap,$sequence);
	my $count = 0;
	foreach my $res (@resources) {
	$count += scalar(@{$res->parts});
	}
	return $count;
	}

	sub get_resources {
	my ($navmap,$sequence) = @_;
	my @resources = $navmap->retrieveResources($sequence,
	sub { shift->is_problem(); },
	0,0,0);
	return @resources;
	}

	#######################################################
	#######################################################

=pod	=pod

Line 612 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);	($navmap,@sequences) =
undef($navmap);	&Apache::lonstatistics::selected_sequences_with_assessments();
undef(@sequences);	if (! ref($navmap)) {
&Apache::lonnet::logthis('called html_initialize');	# Unable to get data, so bail out
	$r->print('<p class="LC_error">'
	.&mt('Unable to retrieve course information.')
	.'</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 642 sub html_initialize {	Line 700 sub html_initialize {
#	#
# Compute the column widths and output the sequence titles	# Compute the column widths and output the sequence titles
my $total_count;	my $total_count;
($navmap,@sequences) =
&Apache::lonstatistics::selected_sequences_with_assessments();
if (! ref($navmap)) {
# Unable to get data, so bail out
$r->print("<h3>".
&mt('Unable to retrieve course information.').
'</h3>');
}
#	#
# Compute sequence widths	# Compute sequence widths
my $starttime = Time::HiRes::time;	my $starttime = Time::HiRes::time;
Line 663 sub html_initialize {	Line 713 sub html_initialize {
# Use 1 digit for a space	# Use 1 digit for a space
$width{$symb}->{'width_sum'} += 1;	$width{$symb}->{'width_sum'} += 1;
}	}
$total_count += $width{$symb}->{'num_assess_parts'};	$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 673 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'}) {
# one problem per digit	# one problem per digit
$width{$symb}->{'width_parts'}=0;	$width{$symb}->{'width_parts'}= &count_parts($navmap,$seq);
$starttime = Time::HiRes::time;	$width{$symb}->{'width_problem'} += $width{$symb}->{'width_parts'};
my @resources =
$navmap->retrieveResources($seq,sub { shift->is_problem(); },
0,0,0);
$starttime = Time::HiRes::time;
foreach my $res (@resources) {
my @parts = @{$res->parts};
$width{$symb}->{'width_parts'} += scalar(@parts);
}
&Apache::lonnet::logthis('2elapsed:'.(Time::HiRes::time-$starttime)); $width{$symb}->{'width_problem'} +=
$width{$symb}->{'width_parts'};
} else {	} else {
$width{$symb}->{'width_problem'} = 0;	$width{$symb}->{'width_problem'} = 0;
}	}
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 737 sub html_outputstudent {	Line 849 sub html_outputstudent {
my %StudentsData;	my %StudentsData;
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 753 sub html_outputstudent {	Line 873 sub html_outputstudent {
my $studentstats;	my $studentstats;
my $PerformanceStr = '';	my $PerformanceStr = '';
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
&Apache::lonnet::logthis('computing student data for '.$seq->compTitle);	my $symb = $seq->symb;
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) =
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'} &&
	$chosen_output->{'sequence_sum'}) {
$ratio .= ' ';	$ratio .= ' ';
}	}
if ($chosen_output->{'sequence_sum'} && $score ne ' ') {	if ($chosen_output->{'sequence_sum'} && $score ne ' ') {
$ratio .= sprintf("%3.0f",$score);	my $score .= sprintf("%3.2f",$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'}) {
$performance = '';	$performance = '';
$performance_length=0;	$performance_length=0;
}	}
$performance .= ' 'x($width{$seq->symb}->{'width_total'} -	$performance .= ' 'x($width{$symb}->{'width_total'} -
$performance_length -	$performance_length -
$width{$seq->symb}->{'width_sum'}).	$width{$symb}->{'width_sum'}).
$ratio;	$ratio;
#	#
$Str .= $performance.$padding;	$Str .= $performance.$padding;
#	#
$studentstats->{$seq->symb}->{'score'}= $score;	$studentstats->{$symb}->{'score'}= $score;
$studentstats->{$seq->symb}->{'max'} = $seq_max;	$studentstats->{$symb}->{'max'} = $seq_max;
}	}
#	#
# Total it up and store the statistics info.	# Total it up and store the statistics info.
Line 811 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(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 836 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 861 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));
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 (&Apache::lonstatistics::Sequences_with_Assess()) {	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 926 sub SingleStudentTotal {	Line 1061 sub SingleStudentTotal {

my $excel_sheet;	my $excel_sheet;
my $excel_workbook;	my $excel_workbook;
	my $format;

my $filename;	my $filename;
my $rows_output;	my $rows_output;
Line 936 my $request_aborted;	Line 1072 my $request_aborted;

my $total_formula;	my $total_formula;
my $maximum_formula;	my $maximum_formula;
	my %formula_data;

sub excel_initialize {	my $navmap;
my ($r) = @_;	my @sequences;

	sub excel_cleanup {
#	#
undef ($excel_sheet);	undef ($excel_sheet);
undef ($excel_workbook);	undef ($excel_workbook);
Line 950 sub excel_initialize {	Line 1089 sub excel_initialize {
undef ($total_formula);	undef ($total_formula);
undef ($maximum_formula);	undef ($maximum_formula);
#	#
	undef(%formula_data);
	#
	undef($navmap);
	undef(@sequences);
	}

	sub excel_initialize {
	my ($r) = @_;

	&excel_cleanup();
	($navmap,@sequences) =
	&Apache::lonstatistics::selected_sequences_with_assessments();
	if (! ref($navmap)) {
	# Unable to get data, so bail out
	$r->print("<h3>".
	&mt('Unable to retrieve course information.').
	'</h3>');
	}
	#
my $total_columns = scalar(&get_student_fields_to_show());	my $total_columns = scalar(&get_student_fields_to_show());
my $num_students = scalar(@Apache::lonstatistics::Students);	my $num_students = scalar(@Apache::lonstatistics::Students);
#	#
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (@sequences) {
if ($chosen_output->{'every_problem'}) {	if ($chosen_output->{'every_problem'}) {
$total_columns += $seq->{'num_assess_parts'};	$total_columns+=&count_parts($navmap,$seq);
}	}
# Add 2 because we need a 'sequence_sum' and 'total' column for each	# Add 2 because we need a 'sequence_sum' and 'total' column for each
$total_columns += 2;	$total_columns += 2;
Line 975 sub excel_initialize {	Line 1133 sub excel_initialize {
}	}
return if ($request_aborted);	return if ($request_aborted);
#	#
$filename = '/prtspool/'.
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
time.'_'.rand(1000000000).'.xls';
#	#
$excel_workbook = undef;	$excel_workbook = undef;
$excel_sheet = undef;	$excel_sheet = undef;
Line 993 sub excel_initialize {	Line 1148 sub excel_initialize {
my $summary_header_row;	my $summary_header_row;
if ($chosen_output->{'summary_table'}) {	if ($chosen_output->{'summary_table'}) {
$summary_header_row = $rows_output++;	$summary_header_row = $rows_output++;
$rows_output+= scalar(&Apache::lonstatistics::Sequences_with_Assess());	$rows_output+= scalar(@sequences);
$rows_output++;	$rows_output++;
}	}
my $sequence_name_row = $rows_output++;	my $sequence_name_row = $rows_output++;
Line 1005 sub excel_initialize {	Line 1160 sub excel_initialize {
my $first_data_row = $rows_output++;	my $first_data_row = $rows_output++;
#	#
# Create sheet	# Create sheet
$excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);	($excel_workbook,$filename,$format)=
#	&Apache::loncommon::create_workbook($r);
# Check for errors	return if (! defined($excel_workbook));
if (! defined($excel_workbook)) {
$r->log_error("Error creating excel spreadsheet $filename: $!");
$r->print("Problems creating new Excel file. ".
"This error has been logged. ".
"Please alert your LON-CAPA administrator");
return ;
}
#
# The excel spreadsheet stores temporary data in files, then put them
# together. If needed we should be able to disable this (memory only).
# The temporary directory must be specified before calling 'addworksheet'.
# File::Temp is used to determine the temporary directory.
$excel_workbook->set_tempdir($Apache::lonnet::tmpdir);
#
my $format = &Apache::loncommon::define_excel_formats($excel_workbook);
#	#
# Add a worksheet	# Add a worksheet
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};	my $sheetname = $env{'course.'.$env{'request.course.id'}.'.description'};
$sheetname = &Apache::loncommon::clean_excel_name($sheetname);	$sheetname = &Apache::loncommon::clean_excel_name($sheetname);
$excel_sheet = $excel_workbook->addworksheet($sheetname);	$excel_sheet = $excel_workbook->addworksheet($sheetname);
#	#
# Put the course description in the header	# Put the course description in the header
$excel_sheet->write($header_row,$cols_output++,	$excel_sheet->write($header_row,$cols_output++,
$ENV{'course.'.$ENV{'request.course.id'}.'.description'},	$env{'course.'.$env{'request.course.id'}.'.description'},
$format->{'h1'});	$format->{'h1'});
$cols_output += 3;	$cols_output += 3;
#	#
# Put a description of the sections listed	# Put a description of the sections listed
my $sectionstring = '';	my $sectionstring = '';
my @Sections = @Apache::lonstatistics::SelectedSections;	my @Sections = &Apache::lonstatistics::get_selected_sections();
if (scalar(@Sections) > 1) {	$excel_sheet->write($header_row,$cols_output++,
if (scalar(@Sections) > 2) {	&Apache::lonstatistics::section_and_enrollment_description('plaintext'),
my $last = pop(@Sections);
$sectionstring = "Sections ".join(', ',@Sections).', and '.$last;
} else {
$sectionstring = "Sections ".join(' and ',@Sections);
}
} else {
if ($Sections[0] eq 'all') {
$sectionstring = "All sections";
} else {
$sectionstring = "Section ".$Sections[0];
}
}
$excel_sheet->write($header_row,$cols_output++,$sectionstring,
$format->{'h3'});	$format->{'h3'});
$cols_output += scalar(@Sections);
#	#
# 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 1084 sub excel_initialize {	Line 1210 sub excel_initialize {
# Add the remaining column headers	# Add the remaining column headers
my $total_formula_string = '=0';	my $total_formula_string = '=0';
my $maximum_formula_string = '=0';	my $maximum_formula_string = '=0';
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (@sequences) {
	my $symb = $seq->symb;
$excel_sheet->write($sequence_name_row,,	$excel_sheet->write($sequence_name_row,,
$cols_output,$seq->{'title'},$format->{'bold'});	$cols_output,$seq->compTitle,$format->{'bold'});
# Determine starting cell	# Determine starting cell
$seq->{'Excel:startcell'}=	$formula_data{$symb}->{'Excel:startcell'}=
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($first_data_row,$cols_output);	($first_data_row,$cols_output);
$seq->{'Excel:startcol'}=$cols_output;	$formula_data{$symb}->{'Excel:startcol'}=$cols_output;
my $count = 0;	my $count = 0;
if ($chosen_output->{'every_problem'}) {	if ($chosen_output->{'every_problem'}) {
# Put the names of the problems and parts into the sheet	# Put the names of the problems and parts into the sheet
foreach my $res (@{$seq->{'contents'}}) {	foreach my $res (&get_resources($navmap,$seq)) {
if ($res->{'type'} ne 'assessment' \|\|	if (scalar(@{$res->parts}) > 1) {
! exists($res->{'parts'}) \|\|	foreach my $part (@{$res->parts}) {
ref($res->{'parts'}) ne 'ARRAY' \|\|
scalar(@{$res->{'parts'}}) < 1) {
next;
}
if (scalar(@{$res->{'parts'}}) > 1) {
foreach my $part (@{$res->{'parts'}}) {
$excel_sheet->write($resource_name_row,	$excel_sheet->write($resource_name_row,
$cols_output++,	$cols_output++,
$res->{'title'}.' part '.$part,	$res->compTitle.' part '.$res->part_display($part),
$format->{'bold'});	$format->{'bold'});
$count++;	$count++;
}	}
} else {	} else {
$excel_sheet->write($resource_name_row,	$excel_sheet->write($resource_name_row,
$cols_output++,	$cols_output++,
$res->{'title'},$format->{'bold'});	$res->compTitle,$format->{'bold'});
$count++;	$count++;
}	}
}	}
}	}
# Determine ending cell	# Determine ending cell
if ($count <= 1) {	if ($count <= 1) {
$seq->{'Excel:endcell'} = $seq->{'Excel:startcell'};	$formula_data{$symb}->{'Excel:endcell'} = $formula_data{$symb}->{'Excel:startcell'};
$seq->{'Excel:endcol'} = $seq->{'Excel:startcol'};	$formula_data{$symb}->{'Excel:endcol'} = $formula_data{$symb}->{'Excel:startcol'};
} else {	} else {
$seq->{'Excel:endcell'} =	$formula_data{$symb}->{'Excel:endcell'} =
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($first_data_row,$cols_output-1);	($first_data_row,$cols_output-1);
$seq->{'Excel:endcol'} = $cols_output-1;	$formula_data{$symb}->{'Excel:endcol'} = $cols_output-1;
}	}
# Create the formula for summing up this sequence	# Create the formula for summing up this sequence
if (! exists($seq->{'Excel:endcell'}) \|\|	if (! exists($formula_data{$symb}->{'Excel:endcell'}) \|\|
! defined($seq->{'Excel:endcell'})) {	! defined($formula_data{$symb}->{'Excel:endcell'})) {
$seq->{'Excel:endcell'} = $seq->{'Excel:startcell'};	$formula_data{$symb}->{'Excel:endcell'} = $formula_data{$symb}->{'Excel:startcell'};
}	}
$seq->{'Excel:sum'}= $excel_sheet->store_formula
('=SUM('.$seq->{'Excel:startcell'}.	my $start = $formula_data{$symb}->{'Excel:startcell'};
':'.$seq->{'Excel:endcell'}.')');	my $end = $formula_data{$symb}->{'Excel:endcell'};
	$formula_data{$symb}->{'Excel:sum'}= $excel_sheet->store_formula
	("=IF(COUNT($start\:$end),SUM($start\:$end),\"\")");
# Determine cell the score is held in	# Determine cell the score is held in
$seq->{'Excel:scorecell'} =	$formula_data{$symb}->{'Excel:scorecell'} =
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($first_data_row,$cols_output);	($first_data_row,$cols_output);
$seq->{'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 1163 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'});
$seq->{'Excel:maxcell'} =	$formula_data{$symb}->{'Excel:maxcell'} =
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($first_data_row,$cols_output);	($first_data_row,$cols_output);
$seq->{'Excel:maxcol'}=$cols_output;	$formula_data{$symb}->{'Excel:maxcol'}=$cols_output;
$maximum_formula_string.='+'.	$maximum_formula_string.='+'.
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($first_data_row,$cols_output);	($first_data_row,$cols_output);
Line 1177 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 1204 sub excel_initialize {	Line 1327 sub excel_initialize {
# Add the maximums for each sequence or assessment	# Add the maximums for each sequence or assessment
my %total_cell_translation;	my %total_cell_translation;
my %maximum_cell_translation;	my %maximum_cell_translation;
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (@sequences) {
$cols_output=$seq->{'Excel:startcol'};	my $symb = $seq->symb;
$total_cell_translation{$seq->{'Excel:scorecell'}} =	$cols_output=$formula_data{$symb}->{'Excel:startcol'};
	$total_cell_translation{$formula_data{$symb}->{'Excel:scorecell'}}=
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($maximum_data_row,$seq->{'Excel:scorecol'});	($maximum_data_row,$formula_data{$symb}->{'Excel:scorecol'});
$maximum_cell_translation{$seq->{'Excel:maxcell'}} =	$maximum_cell_translation{$formula_data{$symb}->{'Excel:maxcell'}}=
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($maximum_data_row,$seq->{'Excel:maxcol'});	($maximum_data_row,$formula_data{$symb}->{'Excel:maxcol'});
my $weight;	my $weight;
my $max = 0;	my $max = 0;
foreach my $resource (@{$seq->{'contents'}}) {	foreach my $resource (&get_resources($navmap,$seq)) {
next if ($resource->{'type'} ne 'assessment');	foreach my $part (@{$resource->parts}){
foreach my $part (@{$resource->{'parts'}}) {
$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 1238 sub excel_initialize {	Line 1361 sub excel_initialize {
if ($chosen_output->{'sequence_sum'} &&	if ($chosen_output->{'sequence_sum'} &&
$chosen_output->{'every_problem'}) {	$chosen_output->{'every_problem'}) {
my %replaceCells=	my %replaceCells=
('^'.$seq->{'Excel:startcell'}.':'.	('^'.$formula_data{$symb}->{'Excel:startcell'}.':'.
$seq->{'Excel:endcell'}.'$' =>	$formula_data{$symb}->{'Excel:endcell'}.'$' =>
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($maximum_data_row,$seq->{'Excel:startcol'}).':'.	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($maximum_data_row,$formula_data{$symb}->{'Excel:startcol'}).':'.
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($maximum_data_row,$seq->{'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++,
$seq->{'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 1272 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 (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (@sequences) {
	my $symb = $seq->symb;
$cols_output = 0;	$cols_output = 0;
$excel_sheet->write($row,$cols_output++,	$excel_sheet->write($row,$cols_output++,
$seq->{'title'},	$seq->compTitle,
$format->{'bold'});	$format->{'bold'});
if ($chosen_output->{'maximum_row'}) {	if ($chosen_output->{'maximum_row'}) {
$excel_sheet->write	$excel_sheet->write
($row,$cols_output++,	($row,$cols_output++,
'='.	'='.
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($maximum_data_row,$seq->{'Excel:scorecol'})	($maximum_data_row,$formula_data{$symb}->{'Excel:scorecol'})
);	);
}	}
my $range =	my $range =
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($first_data_row,$seq->{'Excel:scorecol'}).	($first_data_row,$formula_data{$symb}->{'Excel:scorecol'}).
':'.	':'.
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($first_data_row+$num_students-1,$seq->{'Excel:scorecol'});	($first_data_row+$num_students-1,$formula_data{$symb}->{'Excel:scorecol'});
$excel_sheet->write($row,$cols_output++,	$excel_sheet->write($row,$cols_output++,
'=AVERAGE('.$range.')');	'=AVERAGE('.$range.')');
$excel_sheet->write($row,$cols_output++,	$excel_sheet->write($row,$cols_output++,
Line 1318 sub excel_initialize {	Line 1442 sub excel_initialize {
#	#
# 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);
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 1344 sub excel_initialize {	Line 1464 sub excel_initialize {

sub excel_outputstudent {	sub excel_outputstudent {
my ($r,$student) = @_;	my ($r,$student) = @_;
return if ($request_aborted);	if ($request_aborted \|\| ! defined($navmap) \|\| ! defined($excel_sheet)) {
return if (! defined($excel_sheet));	return;
	}
$cols_output=0;	$cols_output=0;
#	#
# Write out student data	# Write out student data
Line 1353 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 1364 sub excel_outputstudent {	Line 1485 sub excel_outputstudent {
my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'},	my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'},
$student->{'domain'},	$student->{'domain'},
undef,	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;
}	}
Line 1372 sub excel_outputstudent {	Line 1493 sub excel_outputstudent {
# Write out sequence scores and totals data	# Write out sequence scores and totals data
my %total_cell_translation;	my %total_cell_translation;
my %maximum_cell_translation;	my %maximum_cell_translation;
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (@sequences) {
$cols_output = $seq->{'Excel:startcol'};	my $symb = $seq->symb;
	$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{$seq->{'Excel:scorecell'}} =	$total_cell_translation{$formula_data{$symb}->{'Excel:scorecell'}} =
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($rows_output,$seq->{'Excel:scorecol'});	($rows_output,$formula_data{$symb}->{'Excel:scorecol'});
# and maximum cell	# and maximum cell
$maximum_cell_translation{$seq->{'Excel:maxcell'}} =	$maximum_cell_translation{$formula_data{$symb}->{'Excel:maxcell'}} =
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
($rows_output,$seq->{'Excel:maxcol'});	($rows_output,$formula_data{$symb}->{'Excel:maxcol'});
#	#
my ($performance,$performance_length,$score,$seq_max,$rawdata);	my ($performance,$performance_length,$score,$seq_max,$rawdata);
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) =
&StudentTriesOnSequence($student,\%StudentsData,	&student_tries_on_sequence($student,\%StudentsData,
$seq,'no');	$navmap,$seq,'no');
} else {	} else {
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&StudentPerformanceOnSequence($student,\%StudentsData,	&student_performance_on_sequence($student,\%StudentsData,
$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 1416 sub excel_outputstudent {	Line 1540 sub excel_outputstudent {
$chosen_output->{'every_problem'}) {	$chosen_output->{'every_problem'}) {
# Write a formula for the sum of this sequence	# Write a formula for the sum of this sequence
my %replaceCells=	my %replaceCells=
('^'.$seq->{'Excel:startcell'}.':'.$seq->{'Excel:endcell'}.'$'	('^'.$formula_data{$symb}->{'Excel:startcell'}.':'.$formula_data{$symb}->{'Excel:endcell'}.'$'
=>	=>
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($rows_output,$seq->{'Excel:startcol'}).':'.	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($rows_output,$formula_data{$symb}->{'Excel:startcol'}).':'.
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($rows_output,$seq->{'Excel:endcol'})	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell($rows_output,$formula_data{$symb}->{'Excel:endcol'})
);	);
# 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++,
$seq->{'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 1459 sub excel_outputstudent {	Line 1583 sub excel_outputstudent {

sub excel_finish {	sub excel_finish {
my ($r) = @_;	my ($r) = @_;
return if ($request_aborted);	if ($request_aborted \|\| ! defined($navmap) \|\| ! defined($excel_sheet)) {
return if (! defined($excel_sheet));	&excel_cleanup();
	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 1502 my $outputfile;	Line 1626 my $outputfile;
my $filename;	my $filename;
my $request_aborted;	my $request_aborted;
my %prog_state; # progress window state	my %prog_state; # progress window state
	my $navmap;
	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);
undef(%prog_state);	undef(%prog_state);
#	#
	undef($navmap);
	undef(@sequences);
	}

	sub csv_initialize{
	my ($r) = @_;

	&csv_cleanup();
	($navmap,@sequences) =
	&Apache::lonstatistics::selected_sequences_with_assessments();
	if (! ref($navmap)) {
	# Unable to get data, so bail out
	$r->print("<h3>".
	&mt('Unable to retrieve course information.').
	'</h3>');
	}
	#
# 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/) {
Line 1533 END	Line 1673 END
'inline',undef,'Statistics','stats_status');	'inline',undef,'Statistics','stats_status');
#	#
# Open a file	# Open a file
$filename = '/prtspool/'.	($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv');
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.	if (! defined($outputfile)) { return ''; }
time.'_'.rand(1000000000).'.csv';
unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) {
$r->log_error("Couldn't open $filename for output $!");
$r->print("Problems occured in writing the csv file. ".
"This error has been logged. ".
"Please alert your LON-CAPA administrator.");
$outputfile = undef;
}
#	#
# 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(localtime(time))).'"'.
"\n";	"\n";
	print $outputfile '"'.
	&Apache::loncommon::csv_translate
	(&Apache::lonstatistics::section_and_enrollment_description()).
	'"'."\n";
foreach my $item ('shortdesc','non_html_notes') {	foreach my $item ('shortdesc','non_html_notes') {
next if (! exists($chosen_output->{$item}));	next if (! exists($chosen_output->{$item}));
print $outputfile	print $outputfile
Line 1563 END	Line 1699 END
$sequence_row .='"",';	$sequence_row .='"",';
$resource_row .= '"'.&Apache::loncommon::csv_translate($field).'",';	$resource_row .= '"'.&Apache::loncommon::csv_translate($field).'",';
}	}
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (@sequences) {
$sequence_row .= '"'.	$sequence_row .= '"'.
&Apache::loncommon::csv_translate($seq->{'title'}).'",';	&Apache::loncommon::csv_translate($seq->compTitle).'",';
my $count = 0;	my $count = 0;
if ($chosen_output->{'every_problem'}) {	if ($chosen_output->{'every_problem'}) {
foreach my $res (@{$seq->{'contents'}}) {	foreach my $res (&get_resources($navmap,$seq)) {
if ($res->{'type'} ne 'assessment' \|\|	if (scalar(@{$res->parts}) < 1) {
! exists($res->{'parts'}) \|\|
ref($res->{'parts'}) ne 'ARRAY' \|\|
scalar(@{$res->{'parts'}}) < 1) {
next;	next;
}	}
foreach my $part (@{$res->{'parts'}}) {	foreach my $part (@{$res->parts}) {
$resource_row .= '"'.	$resource_row .= '"'.
&Apache::loncommon::csv_translate($res->{'title'}.	&Apache::loncommon::csv_translate
', Part '.$part	($res->compTitle.', Part '.$res->part_display($part)).'",';
).'",';
$count++;	$count++;
}	}
}	}
Line 1587 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 1614 END	Line 1746 END

sub csv_outputstudent {	sub csv_outputstudent {
my ($r,$student) = @_;	my ($r,$student) = @_;
return if ($request_aborted);	if ($request_aborted \|\| ! defined($navmap) \|\| ! defined($outputfile)) {
return if (! defined($outputfile));	return;
	}
my $Str = '';	my $Str = '';
#	#
# Output student fields	# Output student fields
Line 1623 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 1634 sub csv_outputstudent {	Line 1767 sub csv_outputstudent {
my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'},	my @tmp = &Apache::loncoursedata::get_current_state($student->{'username'},
$student->{'domain'},	$student->{'domain'},
undef,	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;
}	}
Line 1642 sub csv_outputstudent {	Line 1775 sub csv_outputstudent {
# Output performance data	# Output performance data
my $total = 0;	my $total = 0;
my $maximum = 0;	my $maximum = 0;
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (@sequences) {
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) =
&StudentTriesOnSequence($student,\%StudentsData,	&student_tries_on_sequence($student,\%StudentsData,
$seq,'no');	$navmap,$seq,'no');
} else {	} else {
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&StudentPerformanceOnSequence($student,\%StudentsData,	&student_performance_on_sequence($student,\%StudentsData,
$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 1694 sub csv_outputstudent {	Line 1828 sub csv_outputstudent {

sub csv_finish {	sub csv_finish {
my ($r) = @_;	my ($r) = @_;
return if ($request_aborted);	if ($request_aborted \|\| ! defined($navmap) \|\| ! defined($outputfile)) {
return if (! defined($outputfile));	&csv_cleanup();
	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 1748 sub student_tries_on_sequence {	Line 1894 sub student_tries_on_sequence {
my @TriesData = ();	my @TriesData = ();
my $tries;	my $tries;
my $hasdata = 0; # flag - true if the student has any data on the sequence	my $hasdata = 0; # flag - true if the student has any data on the sequence
my @resources =	foreach my $resource (&get_resources($navmap,$seq)) {
$navmap->retrieveResources($seq,sub { shift->is_problem(); },0,0,0);
foreach my $resource (@resources) {
my $resource_data = $studentdata->{$resource->symb};	my $resource_data = $studentdata->{$resource->symb};
my $value = '';	my $value = '';
foreach my $partnum (@{$resource->parts()}) {	foreach my $partnum (@{$resource->parts()}) {
Line 1781 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 1803 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 1826 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 1848 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>";
	}

#######################################################	#######################################################
#######################################################	#######################################################

=pod	=pod

=item &StudentPerformanceOnSequence()	=item &student_performance_on_sequence

Inputs:	Inputs:

Line 1874 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 1883 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 @resources =	foreach my $resource (&get_resources($navmap,$seq)) {
$navmap->retrieveResources($seq,sub { shift->is_problem(); },0,0,0);
foreach my $resource (@resources) {
my $symb = $resource->symb;	my $symb = $resource->symb;
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 1910 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 1920 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 1945 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 1977 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>";

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.114
changed lines
	Added in v.1.159