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.136 and 1.169.2.4

version 1.136, 2006/04/08 06:59:44	version 1.169.2.4, 2013/05/11 21:39:31
Line 61 use Apache::lonmsgdisplay();	Line 61 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 147 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 162 sub BuildStudentAssessmentPage {	Line 166 sub BuildStudentAssessmentPage {
&Apache::lonstatistics::DisplayClasslist($r);	&Apache::lonstatistics::DisplayClasslist($r);
return;	return;
}	}
	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data'));

#	#
# Print out the HTML headers for the interface	# Print out the HTML headers for the interface
# This also parses the output mode selector	# This also parses the output mode selector
Line 244 sub next_and_previous_buttons {	Line 250 sub next_and_previous_buttons {
if (defined($previous)) {	if (defined($previous)) {
my $sname = $previous->{'username'}.':'.$previous->{'domain'};	my $sname = $previous->{'username'}.':'.$previous->{'domain'};
$previousbutton .= '<input type="button" value="'.	$previousbutton .= '<input type="button" value="'.
'Previous Student ('.	&mt('Previous Student ([_1])',
$previous->{'username'}.'@'.$previous->{'domain'}.')'.	$previous->{'username'}.':'.$previous->{'domain'}).
'" onclick="document.Statistics.SelectedStudent.value='.	'" onclick="document.Statistics.SelectedStudent.value='.
"'".$sname."'".';'.	"'".$sname."'".';'.
'document.Statistics.submit();" />';	'document.Statistics.submit();" />';
} else {	} else {
$previousbutton .= '<input type="button" value="'.	$previousbutton .= '<input type="button" value="'.
'Previous student (none)'.'" />';	&mt('Previous Student').'" disabled="disabled" />';
}	}
#	#
# Build the next student link	# Build the next student link
Line 260 sub next_and_previous_buttons {	Line 266 sub next_and_previous_buttons {
if (defined($next)) {	if (defined($next)) {
my $sname = $next->{'username'}.':'.$next->{'domain'};	my $sname = $next->{'username'}.':'.$next->{'domain'};
$nextbutton .= '<input type="button" value="'.	$nextbutton .= '<input type="button" value="'.
'Next Student ('.	&mt('Next Student ([_1])',
$next->{'username'}.'@'.$next->{'domain'}.')'.	$next->{'username'}.':'.$next->{'domain'}).
'" onclick="document.Statistics.SelectedStudent.value='.	'" onclick="document.Statistics.SelectedStudent.value='.
"'".$sname."'".';'.	"'".$sname."'".';'.
'document.Statistics.submit();" />';	'document.Statistics.submit();" />';
} else {	} else {
$nextbutton .= '<input type="button" value="'.	$nextbutton .= '<input type="button" value="'.
'Next student (none)'.'" />';	&mt('Next Student').'" disabled="disabled" />';
}	}
#	#
# Build the 'all students' button	# Build the 'all students' button
my $all = '';	my $all = '';
$all .= '<input type="button" value="All Students" '.	$all .= '<input type="button" value="'.&mt('All Students').'" '.
'" onclick="document.Statistics.SelectedStudent.value='.	' onclick="document.Statistics.SelectedStudent.value='.
"''".';'.'document.Statistics.submit();" />';	"''".';'.'document.Statistics.submit();" />';
$Str .= $previousbutton.(' 'x5).$all.(' 'x5).$nextbutton;	$Str .= $previousbutton.(' 'x5).$all.(' 'x5).$nextbutton;
return $Str;	return $Str;
Line 314 the chart page.	Line 320 the chart page.
#######################################################	#######################################################
sub CreateInterface {	sub CreateInterface {
my $Str = '';	my $Str = '';
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Chart');
# $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 333 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 345 sub CreateInterface {	Line 361 sub CreateInterface {
$Str .= &CreateAndParseOutputDataSelector();	$Str .= &CreateAndParseOutputDataSelector();
$Str .= '</td></tr>'."\n";	$Str .= '</td></tr>'."\n";
$Str .= '</table>'."\n";	$Str .= '</table>'."\n";
$Str .= '<input type="submit" name="Generate Chart" value="'.
&mt('Generate Chart').'" />';
$Str .= ' 'x5;
$Str .= '<input type="submit" name="selectstudent" value="'.	$Str .= '<input type="submit" name="selectstudent" value="'.
&mt('Select One Student').'" />';	&mt('Select One Student').'" />';
$Str .= ' 'x5;	$Str .= ' 'x5;
$Str .= '<input type="submit" name="ClearCache" value="'.	$Str .= '<input type="submit" name="ClearCache" value="'.
&mt('Clear Caches').'" />';	&mt('Clear Caches').'" />';
$Str .= ' '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 450 sub CreateAndParseOutputSelector {	Line 462 sub CreateAndParseOutputSelector {
$Str = qq/<select size="5" name="$elementname">/;	$Str = qq/<select size="5" name="$elementname">/;
foreach my $option (@OutputOptions) {	foreach my $option (@OutputOptions) {
$Str .= "\n".' <option value="'.$option->{'value'}.'"';	$Str .= "\n".' <option value="'.$option->{'value'}.'"';
$Str .= " selected " if ($option->{'value'} eq $selected);	$Str .= ' selected="selected"' if ($option->{'value'} eq $selected);
$Str .= ">".&mt($option->{'name'})."<\/option>";	$Str .= ">".&mt($option->{'name'})."<\/option>";
}	}
$Str .= "\n</select>";	$Str .= "\n</select>";
Line 530 my @OutputDataOptions =	Line 542 my @OutputDataOptions =
summary_table => 1,	summary_table => 1,
maximum_row => 0,	maximum_row => 0,
ignore_weight => 1,	ignore_weight => 1,
shortdesc => 'Number of Problem Parts completed successfully.',	shortdesc => 'Number of Problem Parts completed successfully',
longdesc => 'The Number of Problem Parts completed successfully and '.	longdesc => 'The Number of Problem Parts completed successfully and '.
'the maximum possible for each student',	'the maximum possible for each student',
},	},
Line 538 my @OutputDataOptions =	Line 550 my @OutputDataOptions =

sub HTMLifyOutputDataDescriptions {	sub HTMLifyOutputDataDescriptions {
my $Str = '';	my $Str = '';
$Str .= "<h2>Output Data</h2>\n";	$Str .= '<h2>'.&mt('Output Data').'</h2>'."\n";
$Str .= "<dl>\n";	$Str .= "<dl>\n";
foreach my $option (@OutputDataOptions) {	foreach my $option (@OutputDataOptions) {
$Str .= ' <dt>'.$option->{'name'}.'</dt>';	$Str .= ' <dt>'.$option->{'name'}.'</dt>';
Line 567 sub CreateAndParseOutputDataSelector {	Line 579 sub CreateAndParseOutputDataSelector {
$Str = qq/<select size="5" name="$elementname">/;	$Str = qq/<select size="5" name="$elementname">/;
foreach my $option (@OutputDataOptions) {	foreach my $option (@OutputDataOptions) {
$Str .= "\n".' <option value="'.$option->{'value'}.'"';	$Str .= "\n".' <option value="'.$option->{'value'}.'"';
$Str .= " selected " if ($option->{'value'} eq $chosen_output->{'value'});	$Str .= ' selected="selected"' if ($option->{'value'} eq $chosen_output->{'value'});
$Str .= ">".&mt($option->{'name'})."<\/option>";	$Str .= ">".&mt($option->{'name'})."<\/option>";
}	}
$Str .= "\n</select>";	$Str .= "\n</select>";
Line 647 sub html_initialize {	Line 659 sub html_initialize {
&Apache::lonstatistics::selected_sequences_with_assessments();	&Apache::lonstatistics::selected_sequences_with_assessments();
if (! ref($navmap)) {	if (! ref($navmap)) {
# Unable to get data, so bail out	# Unable to get data, so bail out
$r->print("<h3>".	$r->print('<p class="LC_error">'
&mt('Unable to retrieve course information.').	.&mt('Unable to retrieve course information.')
'</h3>');	.'</p>');
}	}

# If we're showing links, show a checkbox to open in new	# If we're showing links, show a checkbox to open in new
# windows.	# windows.
if ($show_links ne 'no') {	if ($show_links ne 'no') {
	my $labeltext = &mt('Show links in new window');
$r->print(<<NEW_WINDOW_CHECKBOX);	$r->print(<<NEW_WINDOW_CHECKBOX);
<script type="text/javascript">new_window = true;</script>	<script type="text/javascript">new_window = true;</script>
<p><label>Show links in new window:	<p><label>
<input type="checkbox" checked="1" onclick="new_window=this.checked" />	<input type="checkbox" checked="checked" onclick="new_window=this.checked" />
	$labeltext
</label></p>	</label></p>
NEW_WINDOW_CHECKBOX	NEW_WINDOW_CHECKBOX
}	}

#	#
$r->print("<h3>".$env{'course.'.$env{'request.course.id'}.'.description'}.	$r->print("<h3>".$env{'course.'.$env{'request.course.id'}.'.description'}.
"  ".localtime(time)."</h3>");	"  ".&Apache::lonlocal::locallocaltime(time)."</h3>");
#	#
if ($chosen_output->{'base'} !~ /^final table/) {	if ($chosen_output->{'base'} !~ /^final table/) {
$r->print("<h3>".$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 696 NEW_WINDOW_CHECKBOX	Line 710 NEW_WINDOW_CHECKBOX
$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 705 NEW_WINDOW_CHECKBOX	Line 719 NEW_WINDOW_CHECKBOX
# 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 730 NEW_WINDOW_CHECKBOX	Line 744 NEW_WINDOW_CHECKBOX
$total_sum_width = length($total_count)+1;	$total_sum_width = length($total_count)+1;
$Str .= " total</pre>\n";	$Str .= " total</pre>\n";
$Str .= "<pre>";	$Str .= "<pre>";
$r->print($Str);
$r->rflush();

$r->print(<<JS);	$r->print(<<JS);
<script>	<script type="text/javascript">
// get the left offset of a given widget as an absolute position	// get the left offset of a given widget as an absolute position
function getLeftOffset (element) {	function getLeftOffset (element) {
return collect(element, "offsetLeft");	return collect(element, "offsetLeft");
Line 755 function collect(element, att) {	Line 767 function collect(element, att) {
}	}

var currentDiv;	var currentDiv;
var oldBorder;
var currentElement;	var currentElement;
function popup_score(element, score) {	function popup_score(element, score) {
popdown_score();	popdown_score();
var left = getLeftOffset(element);	var left = getLeftOffset(element);
var top = getTopOffset(element);	var top = getTopOffset(element);
var div = document.createElement("div");	var div = document.createElement("div");
div.style.border = "1px solid #8888FF";	div.className = "LC_chrt_popup";
div.style.backgroundColor = "#CCCCFF";
div.appendChild(document.createTextNode(score));	div.appendChild(document.createTextNode(score));
div.style.position = "absolute";	div.style.position = "absolute";
div.style.top = (top - 25) + "px";	div.style.top = (top - 25) + "px";
div.style.left = (left - 10) + "px";	div.style.left = (left - 10) + "px";
currentDiv = div;	currentDiv = div;
document.body.insertBefore(div, document.body.childNodes[0]);	document.body.insertBefore(div, document.body.childNodes[0]);
oldBorder = element.style.border;	element.className = "LC_chrt_popup_up";
element.style.border = "1px solid yellow";
currentElement = element;	currentElement = element;
}	}

Line 780 function popdown_score() {	Line 789 function popdown_score() {
document.body.removeChild(currentDiv);	document.body.removeChild(currentDiv);
}	}
if (currentElement) {	if (currentElement) {
currentElement.style.border = oldBorder;	currentElement.className = 'LC_chrt_popup_exists';
}	}
currentDiv = undefined;	currentDiv = undefined;
}	}
Line 795 JS	Line 804 JS
}	}
#	#
# Initialize progress window	# Initialize progress window
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin
($r,'HTML Chart Status',
'HTML Chart Progress', $studentcount,
'inline',undef,'Statistics','stats_status');
#	#
	%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$studentcount);
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
'Processing first student');	'Processing first student');
	$r->print($Str);
	$r->rflush();

return;	return;
}	}

Line 811 sub html_outputstudent {	Line 820 sub html_outputstudent {
return if (! defined($navmap));	return if (! defined($navmap));
#	#
if($count++ % 5 == 0 && $count > 0) {	if($count++ % 5 == 0 && $count > 0) {
$r->print("</pre><pre>");	# $r->print("</pre><pre>");
	$r->print('</pre>');
	&Apache::lonhtmlcommon::Increment_PrgWin(
	$r,\%prog_state,'last five students',5);
	$r->rflush();
	$r->print('<pre>');
}	}
# First, the @StudentData fields need to be listed	# First, the @StudentData fields need to be listed
my @to_show = &get_student_fields_to_show();	my @to_show = &get_student_fields_to_show();
Line 821 sub html_outputstudent {	Line 835 sub html_outputstudent {
if ($field eq 'comments') {	if ($field eq 'comments') {
$title = '<a href="/adm/'.$student->{'domain'}.'/'.$student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>';	$title = '<a href="/adm/'.$student->{'domain'}.'/'.$student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>';
}	}
	utf8::decode($title);
my $base = length($title);	my $base = length($title);
my $width=$Apache::lonstatistics::StudentData{$field}->{'width'};	my $width=$Apache::lonstatistics::StudentData{$field}->{'width'};
$Str .= $title.' 'x($width-$base).$padding;	$Str .= $title.' 'x($width-$base).$padding;
Line 830 sub html_outputstudent {	Line 845 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 846 sub html_outputstudent {	Line 869 sub html_outputstudent {
my $PerformanceStr = '';	my $PerformanceStr = '';
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
my $symb = $seq->symb;	my $symb = $seq->symb;
	my $randompick = $seq->randompick();
my ($performance,$performance_length,$score,$seq_max,$rawdata);	my ($performance,$performance_length,$score,$seq_max,$rawdata);
if ($chosen_output->{'tries'}) {	if ($chosen_output->{'tries'}) {
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&student_tries_on_sequence($student,\%StudentsData,	&student_tries_on_sequence($student,\%StudentsData,
$navmap,$seq,$show_links);	$navmap,$seq,$show_links,$randompick);
} else {	} else {
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&student_performance_on_sequence($student,\%StudentsData,	&student_performance_on_sequence($student,\%StudentsData,
$navmap,$seq,$show_links,	$navmap,$seq,$show_links,
$chosen_output->{ignore_weight});	$chosen_output->{ignore_weight},
	$randompick);
}	}
my $ratio='';	my $ratio='';
if ($chosen_output->{'every_problem'} &&	if ($chosen_output->{'every_problem'} &&
Line 863 sub html_outputstudent {	Line 888 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 906 sub html_outputstudent {	Line 932 sub html_outputstudent {
if (! defined($score)) {	if (! defined($score)) {
$score = ' ' x $total_sum_width;	$score = ' ' x $total_sum_width;
} else {	} else {
$score = sprintf("%.0f",$score);	$score = sprintf("%.2f",$score);
$score = (' 'x(3-length($score))).$score;	$score = (' 'x(6-length($score))).$score;
}	}
$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max;	$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max;
$Str .= " \n";	$Str .= " \n";
#	#
$r->print($Str);	$r->print($Str);
#	#
$r->rflush();	# $r->rflush();
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');	# &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
return;	return;
}	}

Line 940 sub html_finish {	Line 966 sub html_finish {

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 959 sub StudentAverageTotal {	Line 985 sub StudentAverageTotal {
}	}
my $max = $Statistics->{$symb}->{'max'};	my $max = $Statistics->{$symb}->{'max'};
$ave = sprintf("%.2f",$ave);	$ave = sprintf("%.2f",$ave);
$Str .= '<tr><td>'.$seq->compTitle.'</td>'.	$Str .= &Apache::loncommon::start_data_table_row().
	'<td>'.$seq->compTitle.'</td>'.
'<td align="right">'.$ave.' </td>'.	'<td align="right">'.$ave.' </td>'.
'<td align="right">'.$max.' '.'</td></tr>'."\n";	'<td align="right">'.$max.' '.'</td>'.
	&Apache::loncommon::end_data_table_row()."\n";
}	}
$Str .= "</table>\n";	$Str .= &Apache::loncommon::end_data_table()."\n";
return $Str;	return $Str;
}	}

sub SingleStudentTotal {	sub SingleStudentTotal {
return if (! defined($navmap));	return if (! defined($navmap));
my $student = &Apache::lonstatistics::current_student();	my $student = &Apache::lonstatistics::current_student();
my $Str = '<h3>'.&mt('Summary table for [_1] ([_2]@[_3])',	my $Str = '<h3>'.&mt('Summary table for [_1] ([_2])',
$student->{'fullname'},	$student->{'fullname'},
$student->{'username'},$student->{'domain'}).'</h3>';	$student->{'username'}.':'.$student->{'domain'}).'</h3>';
$Str .= $/;	$Str .= $/;
$Str .= '<table border=2 cellspacing="1">'."\n";	$Str .= &Apache::loncommon::start_data_table()."\n";
$Str .=	$Str .=
'<tr>'.	&Apache::loncommon::start_data_table_header_row().
'<th>'.&mt('Sequence or Folder').'</th>';	'<th>'.&mt('Sequence or Folder').'</th>';
if ($chosen_output->{'base'} eq 'tries') {	if ($chosen_output->{'base'} eq 'tries') {
$Str .= '<th>'.&mt('Parts Correct').'</th>';	$Str .= '<th>'.&mt('Parts Correct').'</th>';
} else {	} else {
$Str .= '<th>'.&mt('Score').'</th>';	$Str .= '<th>'.&mt('Score').'</th>';
}	}
$Str .= '<th>'.&mt('Maximum').'</th>'."</tr>\n";	$Str .= '<th>'.&mt('Maximum').'</th>'.
	&Apache::loncommon::end_data_table_header_row()."\n";
my $total = 0;	my $total = 0;
my $total_max = 0;	my $total_max = 0;
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
my $value = $Statistics->{$seq->symb}->{'score'};	my $value = $Statistics->{$seq->symb}->{'score'};
my $max = $Statistics->{$seq->symb}->{'max'};	my $max = $Statistics->{$seq->symb}->{'max'};
$Str .= '<tr><td>'.&HTML::Entities::encode($seq->compTitle).'</td>'.	$Str .= &Apache::loncommon::start_data_table_row().
	'<td>'.&HTML::Entities::encode($seq->compTitle).'</td>'.
'<td align="right">'.$value.'</td>'.	'<td align="right">'.$value.'</td>'.
'<td align="right">'.$max.'</td></tr>'."\n";	'<td align="right">'.$max.'</td>'.
	&Apache::loncommon::end_data_table_row()."\n";
$total += $value;	$total += $value;
$total_max +=$max;	$total_max +=$max;
}	}
$Str .= '<tr><td><b>'.&mt('Total').'</b></td>'.	$Str .= &Apache::loncommon::start_data_table_row().
	'<td><b>'.&mt('Total').'</b></td>'.
'<td align="right">'.$total.'</td>'.	'<td align="right">'.$total.'</td>'.
'<td align="right">'.$total_max."</td></tr>\n";	'<td align="right">'.$total_max.'</td>'.
$Str .= "</table>\n";	&Apache::loncommon::end_data_table_row()."\n";
	$Str .= &Apache::loncommon::end_data_table()."\n";
return $Str;	return $Str;
}	}

Line 1084 sub excel_initialize {	Line 1117 sub excel_initialize {
}	}
my $too_many_cols_error_message =	my $too_many_cols_error_message =
'<h2>'.&mt('Unable to Complete Request').'</h2>'.$/.	'<h2>'.&mt('Unable to Complete Request').'</h2>'.$/.
'<p>'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns. Excel allows only 255 columns in a spreadsheet.').'</p>'.$/.	'<p class="LC_warning">'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns. Excel allows only 255 columns in a spreadsheet.').'</p>'.$/.
'<p>'.&mt('You may consider reducing the number of <b>Sequences or Folders</b> you have selected.').'</p>'.$/.	'<p>'.&mt('You may consider reducing the number of <b>Sequences or Folders</b> you have selected.').'</p>'.$/.
'<p>'.&mt('LON-CAPA can produce <b>CSV</b> files of this data or Excel files of the <b>Scores Summary</b> data.').'</p>'.$/;	'<p>'.&mt('LON-CAPA can produce <b>CSV</b> files of this data or Excel files of the <b>Scores Summary</b> data.').'</p>'.$/;
if ($chosen_output->{'base'} eq 'tries' && $total_columns > 255) {	if ($chosen_output->{'base'} eq 'tries' && $total_columns > 255) {
Line 1143 sub excel_initialize {	Line 1176 sub excel_initialize {
my $sectionstring = '';	my $sectionstring = '';
my @Sections = &Apache::lonstatistics::get_selected_sections();	my @Sections = &Apache::lonstatistics::get_selected_sections();
$excel_sheet->write($header_row,$cols_output++,	$excel_sheet->write($header_row,$cols_output++,
&Apache::lonstatistics::section_and_enrollment_description('plaintext'),	&Apache::lonstatistics::section_and_enrollment_description('localized'),
$format->{'h3'});	$format->{'h3'});
#	#
# Put the date in there too	# Put the date in there too
$excel_sheet->write($header_row,$cols_output++,	$excel_sheet->write($header_row,$cols_output++,
'Compiled on '.localtime(time),$format->{'h3'});	&mt('Compiled on [_1]',&Apache::lonlocal::locallocaltime(time)),$format->{'h3'});
#	#
$cols_output = 0;	$cols_output = 0;
$excel_sheet->write($description_row,$cols_output++,	$excel_sheet->write($description_row,$cols_output++,
$chosen_output->{'shortdesc'},	&mt($chosen_output->{'shortdesc'}),
$format->{'b'});	$format->{'b'});
#	#
$cols_output = 0;	$cols_output = 0;
Line 1167 sub excel_initialize {	Line 1200 sub excel_initialize {
# Add the student headers	# Add the student headers
$cols_output = 0;	$cols_output = 0;
foreach my $field (&get_student_fields_to_show()) {	foreach my $field (&get_student_fields_to_show()) {
$excel_sheet->write($resource_name_row,$cols_output++,$field,	$excel_sheet->write($resource_name_row,$cols_output++,&mt($field),
$format->{'bold'});	$format->{'bold'});
}	}
#	#
Line 1230 sub excel_initialize {	Line 1263 sub excel_initialize {
$formula_data{$symb}->{'Excel:scorecol'}=$cols_output;	$formula_data{$symb}->{'Excel:scorecol'}=$cols_output;
if ($chosen_output->{'base'} eq 'parts correct total') {	if ($chosen_output->{'base'} eq 'parts correct total') {
$excel_sheet->write($resource_name_row,$cols_output++,	$excel_sheet->write($resource_name_row,$cols_output++,
'parts correct',	&mt('parts correct'),
$format->{'bold'});	$format->{'bold'});
} elsif ($chosen_output->{'sequence_sum'}) {	} elsif ($chosen_output->{'sequence_sum'}) {
if ($chosen_output->{'correct'}) {	if ($chosen_output->{'correct'}) {
# Only reporting the number correct, so do not call it score	# Only reporting the number correct, so do not call it score
$excel_sheet->write($resource_name_row,$cols_output++,	$excel_sheet->write($resource_name_row,$cols_output++,
'sum',	&mt('sum'),
$format->{'bold'});	$format->{'bold'});
} else {	} else {
$excel_sheet->write($resource_name_row,$cols_output++,	$excel_sheet->write($resource_name_row,$cols_output++,
'score',	&mt('score'),
$format->{'bold'});	$format->{'bold'});
}	}
}	}
Line 1250 sub excel_initialize {	Line 1283 sub excel_initialize {
($first_data_row,$cols_output-1);	($first_data_row,$cols_output-1);
if ($chosen_output->{'sequence_max'}) {	if ($chosen_output->{'sequence_max'}) {
$excel_sheet->write($resource_name_row,$cols_output,	$excel_sheet->write($resource_name_row,$cols_output,
'maximum',	&mt('maximum'),
$format->{'bold'});	$format->{'bold'});
$formula_data{$symb}->{'Excel:maxcell'} =	$formula_data{$symb}->{'Excel:maxcell'} =
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell	&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
Line 1264 sub excel_initialize {	Line 1297 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 1359 sub excel_initialize {	Line 1392 sub excel_initialize {
if ($chosen_output->{'summary_table'}) {	if ($chosen_output->{'summary_table'}) {
$cols_output = 0;	$cols_output = 0;
$excel_sheet->write($summary_header_row,$cols_output++,	$excel_sheet->write($summary_header_row,$cols_output++,
'Summary Table',$format->{'bold'});	&mt('Summary Table'),$format->{'bold'});
if ($chosen_output->{'maximum_row'}) {	if ($chosen_output->{'maximum_row'}) {
$excel_sheet->write($summary_header_row,$cols_output++,	$excel_sheet->write($summary_header_row,$cols_output++,
'Maximum',$format->{'bold'});	&mt('Maximum'),$format->{'bold'});
}	}
$excel_sheet->write($summary_header_row,$cols_output++,	$excel_sheet->write($summary_header_row,$cols_output++,
'Average',$format->{'bold'});	&mt('Average'),$format->{'bold'});
$excel_sheet->write($summary_header_row,$cols_output++,	$excel_sheet->write($summary_header_row,$cols_output++,
'Median',$format->{'bold'});	&mt('Median'),$format->{'bold'});
$excel_sheet->write($summary_header_row,$cols_output++,	$excel_sheet->write($summary_header_row,$cols_output++,
'Std Dev',$format->{'bold'});	&mt('Std Dev'),$format->{'bold'});
my $row = $summary_header_row+1;	my $row = $summary_header_row+1;
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
my $symb = $seq->symb;	my $symb = $seq->symb;
Line 1409 sub excel_initialize {	Line 1442 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
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin	%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$studentcount);
($r,'Excel File Compilation Status',
'Excel File Compilation Progress', $studentcount,
'inline',undef,'Statistics','stats_status');
#	#
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
'Processing first student');	'Processing first student');
Line 1463 sub excel_outputstudent {	Line 1489 sub excel_outputstudent {
my %maximum_cell_translation;	my %maximum_cell_translation;
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
my $symb = $seq->symb;	my $symb = $seq->symb;
	my $randompick = $seq->randompick();
$cols_output = $formula_data{$symb}->{'Excel:startcol'};	$cols_output = $formula_data{$symb}->{'Excel:startcol'};
# Keep track of cells to translate in total cell	# Keep track of cells to translate in total cell
$total_cell_translation{$formula_data{$symb}->{'Excel:scorecell'}} =	$total_cell_translation{$formula_data{$symb}->{'Excel:scorecell'}} =
Line 1477 sub excel_outputstudent {	Line 1504 sub excel_outputstudent {
if ($chosen_output->{'tries'} \|\| $chosen_output->{'correct'}){	if ($chosen_output->{'tries'} \|\| $chosen_output->{'correct'}){
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&student_tries_on_sequence($student,\%StudentsData,	&student_tries_on_sequence($student,\%StudentsData,
$navmap,$seq,'no');	$navmap,$seq,'no',$randompick);
} else {	} else {
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&student_performance_on_sequence($student,\%StudentsData,	&student_performance_on_sequence($student,\%StudentsData,
$navmap,$seq,'no',	$navmap,$seq,'no',
$chosen_output->{ignore_weight});	$chosen_output->{ignore_weight},
	$randompick);
}	}
if ($chosen_output->{'every_problem'}) {	if ($chosen_output->{'every_problem'}) {
if ($chosen_output->{'correct'}) {	if ($chosen_output->{'correct'}) {
Line 1564 sub excel_finish {	Line 1592 sub excel_finish {
#	#
# 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();	&excel_cleanup();
return;	return;
Line 1623 sub csv_initialize{	Line 1651 sub csv_initialize{
# Deal with unimplemented requests	# Deal with unimplemented requests
$request_aborted = undef;	$request_aborted = undef;
if ($chosen_output->{'base'} =~ /final table/) {	if ($chosen_output->{'base'} =~ /final table/) {
$r->print(<<END);	$r->print(
<h2>Unable to Complete Request</h2>	'<h2>'.&mt('Unable to Complete Request').'</h2>'
<p>	.'<p class="LC_warning">'
The <b>Summary Table (Scores)</b> option is not available for non-HTML output.	.&mt('The [_1]Summary Table (Scores)[_2] option'
</p>	.' is not available for non-HTML output.','<b>','</b>')
END	.'</p>'
$request_aborted = 1;	);
	$request_aborted = 1;
}	}
return if ($request_aborted);	return if ($request_aborted);
#	#
# Initialize progress window	# Initialize progress window
my $studentcount = scalar(@Apache::lonstatistics::Students);	my $studentcount = scalar(@Apache::lonstatistics::Students);
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin	%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$studentcount);
($r,'CSV File Compilation Status',
'CSV File Compilation Progress', $studentcount,
'inline',undef,'Statistics','stats_status');
#	#
# Open a file	# Open a file
($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv');	($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv');
Line 1647 END	Line 1673 END
# Datestamp	# Datestamp
my $description = $env{'course.'.$env{'request.course.id'}.'.description'};	my $description = $env{'course.'.$env{'request.course.id'}.'.description'};
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.	print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'.	'"'.&Apache::loncommon::csv_translate(scalar(&Apache::lonlocal::locallocaltime(time))).'"'.
"\n";	"\n";
print $outputfile '"'.	print $outputfile '"'.
&Apache::loncommon::csv_translate	&Apache::loncommon::csv_translate
Line 1687 END	Line 1713 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 1744 sub csv_outputstudent {	Line 1770 sub csv_outputstudent {
my $total = 0;	my $total = 0;
my $maximum = 0;	my $maximum = 0;
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
	my $randompick = $seq->randompick();
my ($performance,$performance_length,$score,$seq_max,$rawdata);	my ($performance,$performance_length,$score,$seq_max,$rawdata);
if ($chosen_output->{'tries'}){	if ($chosen_output->{'tries'}){
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&student_tries_on_sequence($student,\%StudentsData,	&student_tries_on_sequence($student,\%StudentsData,
$navmap,$seq,'no');	$navmap,$seq,'no',$randompick);
} else {	} else {
($performance,$performance_length,$score,$seq_max,$rawdata) =	($performance,$performance_length,$score,$seq_max,$rawdata) =
&student_performance_on_sequence($student,\%StudentsData,	&student_performance_on_sequence($student,\%StudentsData,
$navmap,$seq,'no',	$navmap,$seq,'no',
$chosen_output->{ignore_weight});	$chosen_output->{ignore_weight},
	$randompick);
}	}
if ($chosen_output->{'every_problem'}) {	if ($chosen_output->{'every_problem'}) {
if ($chosen_output->{'correct'}) {	if ($chosen_output->{'correct'}) {
Line 1807 sub csv_finish {	Line 1835 sub csv_finish {
#	#
# 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();	&csv_cleanup();
return;	return;
Line 1825 sub show_star {	Line 1853 sub show_star {
# Escape the popup for JS.	# Escape the popup for JS.
$popup =~ s/([^-a-zA-Z0-9:;,._ ()\|!\/?=&*])/'\\' . sprintf("%lo", ord($1))/ge;	$popup =~ s/([^-a-zA-Z0-9:;,._ ()\|!\/?=&*])/'\\' . sprintf("%lo", ord($1))/ge;

return "<span onmouseover='popup_score(this, \"$popup\");return false;' onmouseout='popdown_score();return false;' style='border: 1px solid #339933; margin: -1px;'>$symbol</span>";	return "<span class=\"LC_chrt_popup_exists\" onmouseover='popup_score(this, \"$popup\");return false;' onmouseout='popdown_score();return false;'>$symbol</span>";
}	}

#######################################################	#######################################################
Line 1854 Inputs:	Line 1882 Inputs:
#######################################################	#######################################################
#######################################################	#######################################################
sub student_tries_on_sequence {	sub student_tries_on_sequence {
my ($student,$studentdata,$navmap,$seq,$links) = @_;	my ($student,$studentdata,$navmap,$seq,$links,$randompick) = @_;
$links = 'no' if (! defined($links));	$links = 'no' if (! defined($links));
my $Str = '';	my $Str = '';
my ($sum,$max) = (0,0);	my ($sum,$max) = (0,0);
Line 1893 sub student_tries_on_sequence {	Line 1921 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) {
Line 1938 sub student_tries_on_sequence {	Line 1966 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) {
&Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1');
}
my $link = '/adm/grades'.	my $link = '/adm/grades'.
'?symb='.&Apache::lonnet::escape($resource->symb).	'?symb='.&escape($resource->shown_symb).
'&student='.$student->{'username'}.	'&student='.$student->{'username'}.
'&userdom='.$student->{'domain'}.	'&userdom='.$student->{'domain'}.
'&command=submission';	'&command=submission';
$symbol = &link($symbol, $link);	$symbol = &link($symbol, $link);
}	}
$value .= $symbol;	$value .= $symbol;
}	}
$Str .= $value;	$Str .= $value;
}	}
if ($seq->randompick()) {	if ($randompick) {
$max = $seq->randompick();	$max = $randompick;
}	}
if (! $hasdata && $sum == 0) {	if (! $hasdata && $sum == 0) {
$sum = ' ';	$sum = ' ';
Line 2018 Inputs:	Line 2043 Inputs:
#######################################################	#######################################################
#######################################################	#######################################################
sub student_performance_on_sequence {	sub student_performance_on_sequence {
my ($student,$studentdata,$navmap,$seq,$links,$awarded_only) = @_;	my ($student,$studentdata,$navmap,$seq,$links,$awarded_only,$randompick) = @_;
$links = 'no' if (! defined($links));	$links = 'no' if (! defined($links));
my $Str = ''; # final result string	my $Str = ''; # final result string
my ($score,$max) = (0,0);	my ($score,$max) = (0,0);
Line 2027 sub student_performance_on_sequence {	Line 2052 sub student_performance_on_sequence {
my @ScoreData = ();	my @ScoreData = ();
my $partscore;	my $partscore;
my $hasdata = 0; # flag, 0 if there were no submissions on the sequence	my $hasdata = 0; # flag, 0 if there were no submissions on the sequence
	my %ptsfreq;
foreach my $resource (&get_resources($navmap,$seq)) {	foreach my $resource (&get_resources($navmap,$seq)) {
my $symb = $resource->symb;	my $symb = $resource->symb;
my $resource_data = $studentdata->{$symb};	my $resource_data = $studentdata->{$symb};
	my $resmax = 0;
foreach my $part (@{$resource->parts()}) {	foreach my $part (@{$resource->parts()}) {
$partscore = undef;	$partscore = undef;
my $weight;	my $weight;
Line 2045 sub student_performance_on_sequence {	Line 2072 sub student_performance_on_sequence {
}	}
#	#
$max += $weight; # see the 'excused' branch below...	$max += $weight; # see the 'excused' branch below...
	$resmax += $weight;
$performance_length++; # one character per part	$performance_length++; # one character per part
$symbol = ' '; # default to space	$symbol = ' '; # default to space
#	#
Line 2097 sub student_performance_on_sequence {	Line 2125 sub student_performance_on_sequence {
#	#
if ( ($links eq 'yes' && $symbol ne ' ') \|\| ($links eq 'all')) {	if ( ($links eq 'yes' && $symbol ne ' ') \|\| ($links eq 'all')) {
my $link = '/adm/grades' .	my $link = '/adm/grades' .
'?symb='.&Apache::lonnet::escape($symb).	'?symb='.&escape($resource->shown_symb).
'&student='.$student->{'username'}.	'&student='.$student->{'username'}.
'&userdom='.$student->{'domain'}.	'&userdom='.$student->{'domain'}.
'&command=submission';	'&command=submission';
$symbol = &link($symbol, $link);	$symbol = &link($symbol, $link);
}	}
$Str .= $symbol;	$Str .= $symbol;
}	}
	if ($ptsfreq{$resmax}) {
	$ptsfreq{$resmax} ++;
	} else {
	$ptsfreq{$resmax} = 1;
	}
	}
	if ($randompick) {
	my @uniquetotals = keys(%ptsfreq);
	if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) {
	$max = $max * $randompick/$ptsfreq{$uniquetotals[0]};
	}
}	}
if (! $hasdata && $score == 0) {	if (! $hasdata && $score == 0) {
$score = ' ';	$score = ' ';

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

Removed from v.1.136
changed lines
	Added in v.1.169.2.4