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.53 and 1.54

version 1.53, 2003/06/07 14:45:41	version 1.54, 2003/06/10 15:42:51
Line 85 my $Statistics;	Line 85 my $Statistics;

=item $show 'all', 'totals', or 'scores' determines how much data is output	=item $show 'all', 'totals', or 'scores' determines how much data is output

	=item $data determines what performance data is shown

	=item $datadescription A short description of the output data selected.

	=item $base 'tries' or 'scores' determines the base of the performance shown

=item $single_student_mode evaluates to true if we are showing only one	=item $single_student_mode evaluates to true if we are showing only one
student.	student.

Line 94 student.	Line 100 student.
#######################################################	#######################################################
my $show_links;	my $show_links;
my $output_mode;	my $output_mode;
my $show;	my $data;
	my $base;
	my $datadescription;
my $single_student_mode;	my $single_student_mode;

#######################################################	#######################################################
Line 135 sub BuildStudentAssessmentPage {	Line 143 sub BuildStudentAssessmentPage {
#	#
# 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
# This step must always be done.	# This step must always be done.
$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="'.
Line 154 ENDMSG	Line 162 ENDMSG
return;	return;
}	}
#	#
#
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;
Line 163 ENDMSG	Line 170 ENDMSG
$initialize = \&excel_initialize;	$initialize = \&excel_initialize;
$output_student = \&excel_outputstudent;	$output_student = \&excel_outputstudent;
$finish = \&excel_finish;	$finish = \&excel_finish;
# } elsif ($output_mode eq 'multi-sheet excel') {
# $initialize = \&multi_sheet_excel_initialize;
# $output_student = \&multi_sheet_excel_outputstudent;
# $finish = \&multi_sheet_excel_finish;
} elsif ($output_mode eq 'csv') {	} elsif ($output_mode eq 'csv') {
$initialize = \&csv_initialize;	$initialize = \&csv_initialize;
$output_student = \&csv_outputstudent;	$output_student = \&csv_outputstudent;
Line 292 sub CreateInterface {	Line 295 sub CreateInterface {
$Str .= '<td align="center"><b>Enrollment Status</b></td>';	$Str .= '<td align="center"><b>Enrollment Status</b></td>';
$Str .= '<td align="center"><b>Sequences and Folders</b></td>';	$Str .= '<td align="center"><b>Sequences and Folders</b></td>';
$Str .= '<td align="center"><b>Output Format</b></td>';	$Str .= '<td align="center"><b>Output Format</b></td>';
	$Str .= '<td align="center"><b>Output Data</b></td>';
$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";
#	#
$Str .= '<tr><td align="center">'."\n";	$Str .= '<tr><td align="center">'."\n";
Line 314 sub CreateInterface {	Line 318 sub CreateInterface {
$only_seq_with_assessments);	$only_seq_with_assessments);
$Str .= '</td><td>'."\n";	$Str .= '</td><td>'."\n";
$Str .= &CreateAndParseOutputSelector();	$Str .= &CreateAndParseOutputSelector();
	$Str .= '</td><td>'."\n";
	$Str .= &CreateAndParseOutputDataSelector();
$Str .= '</td></tr>'."\n";	$Str .= '</td></tr>'."\n";
$Str .= '</table>'."\n";	$Str .= '</table>'."\n";
return $Str;	return $Str;
Line 336 my @OutputOptions =	Line 342 my @OutputOptions =
description => 'Output HTML with each symbol linked to the problem '.	description => 'Output HTML with each symbol linked to the problem '.
'which generated it.',	'which generated it.',
mode => 'html',	mode => 'html',
show => 'all',
show_links => 'yes',	show_links => 'yes',
},	},
{ name => 'HTML, with all links',	{ name => 'HTML, with all links',
Line 345 my @OutputOptions =	Line 350 my @OutputOptions =
'which generated it. '.	'which generated it. '.
'This includes links for unattempted problems.',	'This includes links for unattempted problems.',
mode => 'html',	mode => 'html',
show => 'all',
show_links => 'all',	show_links => 'all',
},	},
{ name => 'HTML, without links',	{ name => 'HTML, without links',
Line 354 my @OutputOptions =	Line 358 my @OutputOptions =
' web page is greatly reduced. If your browser crashes on the '.	' web page is greatly reduced. If your browser crashes on the '.
'full display, try this.',	'full display, try this.',
mode => 'html',	mode => 'html',
show => 'all',
show_links => 'no',
},
{ name => 'HTML, scores only',
value => 'html, scores only',
description => 'Output HTML, only showing the total number of correct'.
' problems (or problem parts) and not the maximum possible for '.
'each student',
mode => 'html',
show => 'scores',
show_links => 'no',
},
{ name => 'HTML, totals',
value => 'html, totals',
description => 'Output HTML, but only the summary statistics for each'.
' sequence selected for each student.',
mode => 'html',
show => 'totals',
show_links => 'no',
},
{ name => 'HTML, summary table only',
value => 'html summary table only',
description => 'Output HTML, but only the final summary table for '.
'all students across all sequences.',
mode => 'html',
show => 'final table',
show_links => 'no',
},
{ name => 'Excel, scores only',
value => 'excel, scores only',
description => 'Output an Excel file (compatable with Excel 95), '.
'with a single column for each sequence showing the students '.
'score.',
mode => 'excel',
show => 'scores',
show_links => 'no',	show_links => 'no',
},	},
{ name => 'Excel, totals',	{ name => 'Excel',
value => 'excel, totals',	value => 'excel',
description => 'Output an Excel file (compatable with Excel 95), '.	description => 'Output an Excel file (compatable with Excel 95).',
'with two columns for each sequence, the students score on the '.
'sequence and the students maximum possible on the sequence',
mode => 'excel',	mode => 'excel',
show => 'totals',
show_links => 'no',	show_links => 'no',
},	},
# { name => 'multi-sheet Excel',	# { name => 'multi-sheet Excel',
# value => 'multi-sheet excel',	# value => 'multi-sheet excel',
# description => 'Output an Excel file (compatable with Excel 95), '.	# description => 'Output an Excel file (compatable with Excel 95), '.
Line 407 my @OutputOptions =	Line 373 my @OutputOptions =
# 'the data for each problem part '.	# 'the data for each problem part '.
# '(number of tries, status, points awarded) will be listed.',	# '(number of tries, status, points awarded) will be listed.',
# mode => 'multi-sheet excel',	# mode => 'multi-sheet excel',
# show => 'totals',
# show_links => 'no',	# show_links => 'no',
# },	# },
# { name => 'multi-sheet Excel, by section',	# { name => 'multi-sheet Excel, by section',
Line 418 my @OutputOptions =	Line 383 my @OutputOptions =
# '(number of tries, status, points awarded) will be listed. '.	# '(number of tries, status, points awarded) will be listed. '.
# 'There will be one Excel workbook for each section selected.',	# 'There will be one Excel workbook for each section selected.',
# mode => 'multi-sheet excel',	# mode => 'multi-sheet excel',
# show => 'by section',
# show_links => 'no',	# show_links => 'no',
# },	# },
{ name => 'CSV, everything',	{ name => 'CSV',
value => 'csv, everything',	value => 'csv',
description => '',	description => 'Output a comma seperated values file suitable for '.
	'import into a spreadsheet.',
mode => 'csv',	mode => 'csv',
show => 'all',
show_links => 'no',
},
{ name => 'CSV, scores only',
value => 'csv, scores only',
description => '',
mode => 'csv',
show => 'scores',
show_links => 'no',
},
{ name => 'CSV, totals',
value => 'csv, totals',
description => '',
mode => 'csv',
show => 'totals',
show_links => 'no',	show_links => 'no',
},	},
);	);
Line 473 sub CreateAndParseOutputSelector {	Line 423 sub CreateAndParseOutputSelector {
# Set package variables describing output mode	# Set package variables describing output mode
$show_links = 'no';	$show_links = 'no';
$output_mode = 'html';	$output_mode = 'html';
$show = 'all';
foreach my $option (@OutputOptions) {	foreach my $option (@OutputOptions) {
next if ($option->{'value'} ne $selected);	next if ($option->{'value'} ne $selected);
$output_mode = $option->{'mode'};	$output_mode = $option->{'mode'};
$show = $option->{'show'};
$show_links = $option->{'show_links'};	$show_links = $option->{'show_links'};
}	}

Line 493 sub CreateAndParseOutputSelector {	Line 441 sub CreateAndParseOutputSelector {
return $Str;	return $Str;
}	}

	##
	## Data selector stuff
	##
	my @OutputDataOptions =
	( { name =>'Tries',
	base =>'tries',
	value => 'tries',
	shortdesc => 'Number of Tries before success on each Problem Part',
	longdesc =>'The number of tries before success on each problem part.',
	},
	{ name =>'Parts Correct',
	base =>'tries',
	value => 'parts correct',
	shortdesc => 'Number of Problem Parts completed successfully.',
	longdesc => 'The Number of Problem Parts completed successfully.',
	},
	{ name =>'Parts Correct & Maximums',
	base =>'tries',
	value => 'parts correct total',
	shortdesc => 'Number of Problem Parts completed successfully.',
	longdesc => 'The Number of Problem Parts completed successfully and '.
	'the maximum possible for each student',
	},
	{ name => 'Scores',
	base => 'scores',
	value => 'scores',
	shortdesc => 'Score on each Problem Part',
	longdesc =>'The students score on each problem part, computed as'.
	'the part weight * part awarded',
	},
	{ name => 'Scores Sum',
	base => 'scores',
	value => 'sum only',
	shortdesc => 'Sum of Scores on each Problem Part',
	longdesc =>'The total of the scores of the student on each problem'.
	' part in the sequences or folders selected.',
	},
	{ name => 'Scores Sum & Maximums',
	base => 'scores',
	value => 'sum and total',
	shortdesc => 'Total Score and Maximum Possible for each '.
	'Sequence or Folder',
	longdesc => 'The total of the scores of the student on each problem'.
	' and the maximum possible for that student on each Sequence or '.
	' Folder.',
	},
	{ name => 'Summary Table (Scores)',
	base => 'scores',
	value => 'final table scores',
	shortdesc => 'Summary of Scores',
	longdesc => '',
	},
	{ name => 'Summary Table (Parts)',
	base => 'tries',
	value => 'final table parts',
	shortdesc => 'Summary of Parts Correct',
	longdesc => '',
	}
	);

	sub CreateAndParseOutputDataSelector {
	my $Str = '';
	my $elementname = 'chartoutputdata';
	#
	my $selected = 'scores';
	if (exists($ENV{'form.'.$elementname})) {
	if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {
	$selected = $ENV{'form.'.$elementname}->[0];
	} else {
	$selected = $ENV{'form.'.$elementname};
	}
	}
	#
	$data = 'scores';
	foreach my $option (@OutputDataOptions) {
	if ($option->{'value'} eq $selected) {
	$data = $option->{'value'};
	$base = $option->{'base'};
	$datadescription = $option->{'shortdesc'};
	}
	}
	#
	# Build the form element
	$Str = qq/<select size="5" name="$elementname">/;
	foreach my $option (@OutputDataOptions) {
	$Str .= "\n".' <option value="'.$option->{'value'}.'"';
	$Str .= " selected " if ($option->{'value'} eq $data);
	$Str .= ">".$option->{'name'}."<\/option>";
	}
	$Str .= "\n</select>";
	return $Str;

	}

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

Line 531 sub html_initialize {	Line 573 sub html_initialize {
$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.	$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
"  ".localtime(time)."</h3>");	"  ".localtime(time)."</h3>");

	$r->print("<h3>".$datadescription."</h3>");
#	#
# Set up progress window for 'final table' display only	# Set up progress window for 'final table' display only
if ($show eq 'final table') {	if ($data =~ /^final table/) {
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,'Summary Table Status',	($r,'Summary Table Status',
Line 555 sub html_initialize {	Line 598 sub html_initialize {
my $width = $sequence->{'width'};	my $width = $sequence->{'width'};
$Str .= $title.' 'x($width-$base).$padding;	$Str .= $title.' 'x($width-$base).$padding;
}	}
$Str .= "total (of shown problems)</pre>\n";	$Str .= "total</pre>\n";
$Str .= "<pre>";	$Str .= "<pre>";
#	#
# Check for suppression of output	# Check for suppression of output
if ($show eq 'final table') {	if ($data =~ /^final table/) {
$Str = '';	$Str = '';
}	}
$r->print($Str);	$r->print($Str);
Line 592 sub html_outputstudent {	Line 635 sub html_outputstudent {
}	}
if (scalar(@tmp) < 1) {	if (scalar(@tmp) < 1) {
$nodata_count++;	$nodata_count++;
return if ($show eq 'final table');	return if ($data =~ /^final table/);
$Str .= '<font color="blue">No Course Data</font>'."\n";	$Str .= '<font color="blue">No Course Data</font>'."\n";
$r->print($Str);	$r->print($Str);
$r->rflush();	$r->rflush();
Line 603 sub html_outputstudent {	Line 646 sub html_outputstudent {
my $studentstats;	my $studentstats;
my $PerformanceStr = '';	my $PerformanceStr = '';
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
my ($performance,$performance_length,$score,$seq_max) =	my ($performance,$performance_length,$score,$seq_max,$rawdata);
&StudentPerformanceOnSequence($student,\%StudentsData,	if ($base eq 'tries') {
$seq,$show_links);	($performance,$performance_length,$score,$seq_max,$rawdata) =
my $ratio = $score.'/'.$seq_max;	&StudentTriesOnSequence($student,\%StudentsData,
	$seq,$show_links);
	} else {
	($performance,$performance_length,$score,$seq_max,$rawdata) =
	&StudentPerformanceOnSequence($student,\%StudentsData,
	$seq,$show_links);
	}
	my $ratio = sprintf("%3d",$score).'/'.sprintf("%3d",$seq_max);
#	#
if ($show eq 'totals') {	if ($data eq 'sum and total' \|\| $data eq 'parts correct total') {
$performance = ' 'x(length($seq_max)-length($score)).$ratio;	$performance = $ratio;
$performance .= ' 'x($seq->{'width'}-length($performance));	$performance .= ' 'x($seq->{'width'}-length($ratio));
} elsif ($show eq 'scores') {	} elsif ($data eq 'sum only' \|\| $data eq 'parts correct') {
$performance = $score;	$performance = $score;
$performance .= ' 'x($seq->{'width'}-length($performance));	$performance .= ' 'x($seq->{'width'}-length($score));
} else {	} else {
# Pad with extra spaces	# Pad with extra spaces
$performance .= ' 'x($seq->{'width'}-$performance_length-	$performance .= ' 'x($seq->{'width'}-$performance_length-
Line 631 sub html_outputstudent {	Line 681 sub html_outputstudent {
my ($score,$max) = (0,0);	my ($score,$max) = (0,0);
while (my ($symb,$seq_stats) = each (%{$studentstats})) {	while (my ($symb,$seq_stats) = each (%{$studentstats})) {
$Statistics->{$symb}->{'score'} += $seq_stats->{'score'};	$Statistics->{$symb}->{'score'} += $seq_stats->{'score'};
$Statistics->{$symb}->{'max'} += $seq_stats->{'max'};	if ($Statistics->{$symb}->{'max'} < $seq_stats->{'max'}) {
	$Statistics->{$symb}->{'max'} = $seq_stats->{'max'};
	}
$score += $seq_stats->{'score'};	$score += $seq_stats->{'score'};
$max += $seq_stats->{'max'};	$max += $seq_stats->{'max'};
}	}
Line 639 sub html_outputstudent {	Line 691 sub html_outputstudent {
$Str .= " \n";	$Str .= " \n";
#	#
# Check for suppressed output and update the progress window if so...	# Check for suppressed output and update the progress window if so...
if ($show eq 'final table') {	if ($data =~ /^final table/) {
$Str = '';	$Str = '';
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
'last student');	'last student');
Line 655 sub html_finish {	Line 707 sub html_finish {
my ($r) = @_;	my ($r) = @_;
#	#
# Check for suppressed output and close the progress window if so	# Check for suppressed output and close the progress window if so
if ($show eq 'final table') {	if ($data =~ /^final table/) {
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
} else {	} else {
$r->print("</pre>\n");	$r->print("</pre>\n");
Line 685 sub StudentAverageTotal {	Line 737 sub StudentAverageTotal {
$ave = 0;	$ave = 0;
}	}
$total_ave += $ave;	$total_ave += $ave;
my $max = $seq->{'num_assess_parts'};	my $max = $Statistics->{$seq->{'symb'}}->{'max'};
$total_max += $max;	$total_max += $max;
if ($ave == 0) {	if ($ave == 0) {
$ave = "0.00";	$ave = "0.00";
Line 775 sub multi_sheet_excel_initialize {	Line 827 sub multi_sheet_excel_initialize {
if ($size_estimate > $max_size) { # try to stay under 5 megs	if ($size_estimate > $max_size) { # try to stay under 5 megs
$num_workbooks += int($size_estimate / $max_size);	$num_workbooks += int($size_estimate / $max_size);
}	}
if ($show eq 'by section') {	# if ($data eq ) {
if (@Apache::lonstatistics::SelectedSections > 1 &&	# if (@Apache::lonstatistics::SelectedSections > 1 &&
$Apache::lonstatistics::SelectedSections[0] ne 'all') {	# $Apache::lonstatistics::SelectedSections[0] ne 'all') {
$num_workbooks = scalar(@Apache::lonstatistics::SelectedSections);	# $num_workbooks = scalar(@Apache::lonstatistics::SelectedSections);
} else {	# } else {
# @Apache::lonstatistics::Sections contains 'all' as well.	# # @Apache::lonstatistics::Sections contains 'all' as well.
$num_workbooks = scalar(@Apache::lonstatistics::Sections) - 1;	# $num_workbooks = scalar(@Apache::lonstatistics::Sections) - 1;
}	# }
}	# }

$r->print("Maximum allowed size: ".$max_size." bytes<br />");	$r->print("Maximum allowed size: ".$max_size." bytes<br />");
$r->print("Number of students: ".$num_students."<br />");	$r->print("Number of students: ".$num_students."<br />");
Line 833 my $rows_output;	Line 885 my $rows_output;
my $cols_output;	my $cols_output;

my %prog_state; # progress window state	my %prog_state; # progress window state
	my $request_aborted;

sub excel_initialize {	sub excel_initialize {
my ($r) = @_;	my ($r) = @_;
#	#
	$request_aborted = undef;
	my $total_columns = scalar(&get_student_fields_to_show());
	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
	# Add 2 because we need a 'sum' and 'total' column for each
	$total_columns += $seq->{'num_assess_parts'}+2;
	}
	if ($data eq 'tries' && $total_columns > 255) {
	$r->print(<<END);
	<h2>Unable to Complete Request</h2>
	<p>
	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>
	You may consider reducing the number of <b>Sequences or Folders</b> you
	have selected.
	</p><p>
	LON-CAPA can produce <b>CSV</b> files of this data or Excel files of the
	summary data (<b>Parts Correct</b> or <b>Parts Correct & Totals</b>).
	</p>
	END
	$request_aborted = 1;
	}
	if ($data eq 'scores' && $total_columns > 255) {
	$r->print(<<END);
	<h2>Unable to Complete Request</h2>
	<p>
	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>
	You may consider reducing the number of <b>Sequences or Folders</b> you
	have selected.
	</p><p>
	LON-CAPA can produce <b>CSV</b> files of this data or Excel files of the
	summary data (<b>Scores Sum</b> or <b>Scores Sum & Totals</b>).
	</p>
	END
	$request_aborted = 1;
	}
	if ($data =~ /^final table/) {
	$r->print(<<END);
	<h2>Unable to Complete Request</h2>
	<p>
	The <b>Summary Table (Scores)</b> option is not available for non-HTML output.
	</p>
	END
	$request_aborted = 1;
	}
	return if ($request_aborted);
	#
$filename = '/prtspool/'.	$filename = '/prtspool/'.
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.	$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
time.'_'.rand(1000000000).'.xls';	time.'_'.rand(1000000000).'.xls';
Line 898 sub excel_initialize {	Line 1002 sub excel_initialize {
$cols_output += scalar(@Sections);	$cols_output += scalar(@Sections);
#	#
# Put the date in there too	# Put the date in there too
$excel_sheet->write($rows_output,$cols_output++,	$excel_sheet->write($rows_output++,$cols_output++,
'Compiled on '.localtime(time));	'Compiled on '.localtime(time));
#	#
$rows_output++;	$cols_output = 0;
	$excel_sheet->write($rows_output++,$cols_output++,$datadescription);
	#
	if ($data eq 'tries' \|\| $data eq 'scores') {
	$rows_output++;
	}
#	#
# 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($rows_output,$cols_output++,$field);	$excel_sheet->write($rows_output,$cols_output++,$field);
}	}
	my $row_offset = 0;
	if ($data eq 'tries' \|\| $data eq 'scores') {
	$row_offset = -1;
	}
#	#
# Add the Sequence Headers	# Add the remaining column headers
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
$excel_sheet->write($rows_output,$cols_output,$seq->{'title'});	$excel_sheet->write($rows_output+$row_offset,
if ($show eq 'totals') {	$cols_output,$seq->{'title'});
	if ($data eq 'tries' \|\| $data eq 'scores') {
	foreach my $res (@{$seq->{'contents'}}) {
	next if ($res->{'type'} ne 'assessment');
	if (scalar(@{$res->{'parts'}}) > 1) {
	foreach my $part (@{$res->{'parts'}}) {
	$excel_sheet->write($rows_output,
	$cols_output++,
	$res->{'title'}.' part '.$part);
	}
	} else {
	$excel_sheet->write($rows_output,
	$cols_output++,
	$res->{'title'});
	}
	}
	$excel_sheet->write($rows_output,$cols_output++,'score');
	$excel_sheet->write($rows_output,$cols_output++,'maximum');
	} elsif ($data eq 'sum and total' \|\| $data eq 'parts correct total') {
$excel_sheet->write($rows_output+1,$cols_output,'score');	$excel_sheet->write($rows_output+1,$cols_output,'score');
$excel_sheet->write($rows_output+1,$cols_output+1,'maximum');	$excel_sheet->write($rows_output+1,$cols_output+1,'maximum');
$cols_output += 2;	$cols_output += 2;
Line 922 sub excel_initialize {	Line 1053 sub excel_initialize {
}	}
#	#
# Bookkeeping	# Bookkeeping
if ($show eq 'totals') {	if ($data eq 'sum and total' \|\| $data eq 'parts correct total') {
$rows_output += 2;	$rows_output += 2;
} else {	} else {
$rows_output += 1;	$rows_output += 1;
}	}
#	#
# Output a row for MAX	# Output a row for MAX
if ($show ne 'totals') {	$cols_output = 0;
$cols_output = 0;	foreach my $field (&get_student_fields_to_show()) {
foreach my $field (&get_student_fields_to_show()) {	if ($field eq 'username' \|\| $field eq 'fullname' \|\|
if ($field eq 'username' \|\| $field eq 'fullname' \|\|	$field eq 'id') {
$field eq 'id') {	$excel_sheet->write($rows_output,$cols_output++,'Maximum');
$excel_sheet->write($rows_output,$cols_output++,'Maximum');	} else {
} else {	$excel_sheet->write($rows_output,$cols_output++,'');
$excel_sheet->write($rows_output,$cols_output++,'');
}
}	}
#	}
# Add the Sequence Headers	#
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	# Add the maximums for each sequence or assessment
$excel_sheet->write($rows_output,$cols_output++,	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
$seq->{'num_assess_parts'});	my $weight;
	my $max = 0;
	foreach my $resource (@{$seq->{'contents'}}) {
	next if ($resource->{'type'} ne 'assessment');
	foreach my $part (@{$resource->{'parts'}}) {
	$weight = 1;
	if ($base eq 'scores') {
	$weight = &Apache::lonnet::EXT
	('resource.'.$part.'.weight',$resource->{'symb'},
	undef,undef,undef);
	if (!defined($weight) \|\| ($weight eq '')) {
	$weight=1;
	}
	}
	if ($data eq 'scores') {
	$excel_sheet->write($rows_output,$cols_output++,$weight);
	} elsif ($data eq 'tries') {
	$excel_sheet->write($rows_output,$cols_output++,'');
	}
	$max += $weight;
	}
	}
	if (! ($data eq 'sum only' \|\| $data eq 'parts correct')) {
	$excel_sheet->write($rows_output,$cols_output++,'');
}	}
$rows_output++;	$excel_sheet->write($rows_output,$cols_output++,$max);
}	}
	$rows_output++;
#	#
# Let the user know what we are doing	# Let the user know what we are doing
my $studentcount = scalar(@Apache::lonstatistics::Students);	my $studentcount = scalar(@Apache::lonstatistics::Students);
Line 966 sub excel_initialize {	Line 1119 sub excel_initialize {

sub excel_outputstudent {	sub excel_outputstudent {
my ($r,$student) = @_;	my ($r,$student) = @_;
	return if ($request_aborted);
return if (! defined($excel_sheet));	return if (! defined($excel_sheet));
$cols_output=0;	$cols_output=0;
#	#
Line 987 sub excel_outputstudent {	Line 1141 sub excel_outputstudent {
#	#
# Write out sequence scores and totals data	# Write out sequence scores and totals data
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
my ($performance,$performance_length,$score,$seq_max) =	my ($performance,$performance_length,$score,$seq_max,$rawdata);
&StudentPerformanceOnSequence($student,\%StudentsData,	if ($base eq 'tries') {
$seq,'no');	($performance,$performance_length,$score,$seq_max,$rawdata) =
if ($show eq 'totals' \|\| $show eq 'scores') {	&StudentTriesOnSequence($student,\%StudentsData,
	$seq,'no');
	} else {
	($performance,$performance_length,$score,$seq_max,$rawdata) =
	&StudentPerformanceOnSequence($student,\%StudentsData,
	$seq,'no');
	}
	if ($data eq 'tries' \|\| $data eq 'scores') {
	foreach my $value (@$rawdata) {
	$excel_sheet->write($rows_output,$cols_output++,$value);
	}
	$excel_sheet->write($rows_output,$cols_output++,$score);
	$excel_sheet->write($rows_output,$cols_output++,$seq_max);
	} elsif ($data eq 'sum and total' \|\| $data eq 'sum only' \|\|
	$data eq 'parts correct' \|\| $data eq 'parts correct total') {
$excel_sheet->write($rows_output,$cols_output++,$score);	$excel_sheet->write($rows_output,$cols_output++,$score);
}	}
if ($show eq 'totals') {	if ($data eq 'sum and total' \|\| $data eq 'parts correct total') {
$excel_sheet->write($rows_output,$cols_output++,$seq_max);	$excel_sheet->write($rows_output,$cols_output++,$seq_max);
}	}
}	}
Line 1009 sub excel_outputstudent {	Line 1177 sub excel_outputstudent {

sub excel_finish {	sub excel_finish {
my ($r) = @_;	my ($r) = @_;
	return if ($request_aborted);
return if (! defined($excel_sheet));	return if (! defined($excel_sheet));
#	#
# Write the excel file	# Write the excel file
Line 1049 sub excel_finish {	Line 1218 sub excel_finish {

my $outputfile;	my $outputfile;
my $filename;	my $filename;
	my $request_aborted;
my %prog_state; # progress window state	my %prog_state; # progress window state

sub csv_initialize{	sub csv_initialize{
Line 1060 sub csv_initialize{	Line 1229 sub csv_initialize{
$outputfile = undef;	$outputfile = undef;
undef(%prog_state);	undef(%prog_state);
#	#
	# Deal with unimplemented requests
	$request_aborted = undef;
	if ($data =~ /final table/) {
	$r->print(<<END);
	<h2>Unable to Complete Request</h2>
	<p>
	The <b>Summary Table (Scores)</b> option is not available for non-HTML output.
	</p>
	END
	$request_aborted = 1;
	}
	return if ($request_aborted);

	#
# Open a file	# Open a file
$filename = '/prtspool/'.	$filename = '/prtspool/'.
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.	$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
Line 1077 sub csv_initialize{	Line 1260 sub csv_initialize{
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 out the headings	# Print out the headings
my $Str = '';	my $Str = '';
my $Str2 = undef;	my $Str2 = undef;
foreach my $field (&get_student_fields_to_show()) {	foreach my $field (&get_student_fields_to_show()) {
if ($show eq 'scores') {	if ($data eq 'sum only') {
$Str .= '"'.&Apache::loncommon::csv_translate($field).'",';	$Str .= '"'.&Apache::loncommon::csv_translate($field).'",';
} elsif ($show eq 'totals') {	} elsif ($data eq 'sum and total' \|\| $data eq 'parts correct total') {
$Str .= '"",'; # first row empty on the student fields	$Str .= '"",'; # first row empty on the student fields
$Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';	$Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
} elsif ($show eq 'all') {	} elsif ($data eq 'scores' \|\| $data eq 'tries' \|\|
	$data eq 'parts correct') {
$Str .= '"",';	$Str .= '"",';
$Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';	$Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
}	}
}	}
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
if ($show eq 'scores') {	if ($data eq 'sum only' \|\| $data eq 'parts correct') {
$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).	$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).
'",';	'",';
} elsif ($show eq 'totals') {	} elsif ($data eq 'sum and total' \|\| $data eq 'parts correct total') {
$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).	$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).
'","",';	'","",';
$Str2 .= '"score","total possible",';	$Str2 .= '"score","total possible",';
} elsif ($show eq 'all') {	} elsif ($data eq 'scores' \|\| $data eq 'tries') {
$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).	$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).
'",';	'",';
$Str .= '"",'x($seq->{'num_assess_parts'}-1+2);	$Str .= '"",'x($seq->{'num_assess_parts'}-1+2);
foreach my $res (@{$seq->{'contents'}}) {	foreach my $res (@{$seq->{'contents'}}) {
	next if ($res->{'type'} ne 'assessment');
foreach my $part (@{$res->{'parts'}}) {	foreach my $part (@{$res->{'parts'}}) {
$Str2 .= '"'.&Apache::loncommon::csv_translate($res->{'title'}.', Part '.$part).'",';	$Str2 .= '"'.&Apache::loncommon::csv_translate($res->{'title'}.', Part '.$part).'",';
}	}
Line 1132 sub csv_initialize{	Line 1316 sub csv_initialize{

sub csv_outputstudent {	sub csv_outputstudent {
my ($r,$student) = @_;	my ($r,$student) = @_;
	return if ($request_aborted);
return if (! defined($outputfile));	return if (! defined($outputfile));
my $Str = '';	my $Str = '';
#	#
Line 1153 sub csv_outputstudent {	Line 1338 sub csv_outputstudent {
#	#
# Output performance data	# Output performance data
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
my ($performance,$performance_length,$score,$seq_max) =	my ($performance,$performance_length,$score,$seq_max,$rawdata);
&StudentPerformanceOnSequence($student,\%StudentsData,	if ($base eq 'tries') {
$seq,'no');	($performance,$performance_length,$score,$seq_max,$rawdata) =
if ($show eq 'scores') {	&StudentTriesOnSequence($student,\%StudentsData,
	$seq,'no');
	} else {
	($performance,$performance_length,$score,$seq_max,$rawdata) =
	&StudentPerformanceOnSequence($student,\%StudentsData,
	$seq,'no');
	}
	if ($data eq 'sum only' \|\| $data eq 'parts correct') {
$Str .= '"'.$score.'",';	$Str .= '"'.$score.'",';
} elsif ($show eq 'totals') {	} elsif ($data eq 'sum and total' \|\| $data eq 'parts correct total') {
$Str .= '"'.$score.'","'.$seq_max.'",';	$Str .= '"'.$score.'","'.$seq_max.'",';
} elsif ($show eq 'all') {	} elsif ($data eq 'scores' \|\| $data eq 'tries') {
$Str .= '"'.join('","',(split(//,$performance),$score,$seq_max)).	$Str .= '"'.join('","',(@$rawdata,$score,$seq_max)).'",';
'",';
}	}
}	}
chop($Str);	chop($Str);
Line 1176 sub csv_outputstudent {	Line 1367 sub csv_outputstudent {

sub csv_finish {	sub csv_finish {
my ($r) = @_;	my ($r) = @_;
	return if ($request_aborted);
return if (! defined($outputfile));	return if (! defined($outputfile));
close($outputfile);	close($outputfile);
#	#
Line 1200 sub csv_finish {	Line 1392 sub csv_finish {

=pod	=pod

=item &StudentPerformanceOnSequence()	=item &StudentTriesOnSequence()

Inputs:	Inputs:

Line 1220 Inputs:	Line 1412 Inputs:

#######################################################	#######################################################
#######################################################	#######################################################
sub StudentPerformanceOnSequence {	sub StudentTriesOnSequence {
my ($student,$studentdata,$seq,$links) = @_;	my ($student,$studentdata,$seq,$links) = @_;
$links = 'no' if (! defined($links));	$links = 'no' if (! defined($links));
my $Str = '';	my $Str = '';
my ($sum,$max) = (0,0);	my ($sum,$max) = (0,0);
my $performance_length = 0;	my $performance_length = 0;
	my @TriesData = ();
	my $tries;
foreach my $resource (@{$seq->{'contents'}}) {	foreach my $resource (@{$seq->{'contents'}}) {
next if ($resource->{'type'} ne 'assessment');	next if ($resource->{'type'} ne 'assessment');
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'}}) {
	$tries = undef;
$max++;	$max++;
$performance_length++;	$performance_length++;
my $symbol = ' '; # default to space	my $symbol = ' '; # default to space
Line 1251 sub StudentPerformanceOnSequence {	Line 1446 sub StudentPerformanceOnSequence {
$max--;	$max--;
} elsif ($status eq 'correct_by_student' &&	} elsif ($status eq 'correct_by_student' &&
exists($resource_data->{'resource.'.$partnum.'.tries'})){	exists($resource_data->{'resource.'.$partnum.'.tries'})){
my $num = $resource_data->{'resource.'.$partnum.'.tries'};	$tries = $resource_data->{'resource.'.$partnum.'.tries'};
if ($num > 9) {	if ($tries > 9) {
$symbol = '*';	$symbol = '*';
} elsif ($num > 0) {	} elsif ($tries > 0) {
$symbol = $num;	$symbol = $tries;
} else {	} else {
$symbol = ' ';	$symbol = ' ';
}	}
Line 1274 sub StudentPerformanceOnSequence {	Line 1469 sub StudentPerformanceOnSequence {
$symbol = ' ';	$symbol = ' ';
}	}
}	}
# if ($symbol ne ' ') {	#
# $attempted_sum++;	if (! defined($tries)) {
# }	$tries = $symbol;
	}
	push (@TriesData,$tries);
#	#
if ( ($links eq 'yes' && $symbol ne ' ') \|\|	if ( ($links eq 'yes' && $symbol ne ' ') \|\|
($links eq 'all')) {	($links eq 'all')) {
Line 1296 sub StudentPerformanceOnSequence {	Line 1493 sub StudentPerformanceOnSequence {
if ($seq->{'randompick'}) {	if ($seq->{'randompick'}) {
$max = $seq->{'randompick'};	$max = $seq->{'randompick'};
}	}
return ($Str,$performance_length,$sum,$max);	return ($Str,$performance_length,$sum,$max,\@TriesData);
	}

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

	=pod

	=item &StudentPerformanceOnSequence()

	Inputs:

	=over 4

	=item $student

	=item $studentdata Hash ref to all student data

	=item $seq Hash ref, the sequence we are working on

	=item $links if defined we will output links to each resource.

	=back

	=cut

	#######################################################
	#######################################################
	sub StudentPerformanceOnSequence {
	my ($student,$studentdata,$seq,$links) = @_;
	$links = 'no' if (! defined($links));
	my $Str = ''; # final result string
	my ($score,$max) = (0,0);
	my $performance_length = 0;
	my $symbol;
	my @ScoreData = ();
	my $partscore;
	foreach my $resource (@{$seq->{'contents'}}) {
	next if ($resource->{'type'} ne 'assessment');
	my $resource_data = $studentdata->{$resource->{'symb'}};
	foreach my $part (@{$resource->{'parts'}}) {
	$partscore = undef;
	my $weight = &Apache::lonnet::EXT('resource.'.$part.'.weight',
	$resource->{'symb'},
	$student->{'domain'},
	$student->{'username'},
	$student->{'section'});
	if (!defined($weight) \|\| ($weight eq '')) {
	$weight=1;
	}
	#
	$max += $weight; # see the 'excused' branch below...
	$performance_length++; # one character per part
	$symbol = ' '; # default to space
	#
	my $awarded = 0;
	if (exists($resource_data->{'resource.'.$part.'.awarded'})) {
	$awarded = $resource_data->{'resource.'.$part.'.awarded'};
	}
	#
	$partscore = $weight*$awarded;
	$score += $partscore;
	$symbol = $weight;
	if (length($symbol) > 1) {
	$symbol = '*';
	}
	if (exists($resource_data->{'resource.'.$part.'.solved'})) {
	my $status = $resource_data->{'resource.'.$part.'.solved'};
	if ($status eq 'excused') {
	$symbol = 'x';
	$max -= $weight; # Do not count 'excused' problems.
	}
	} else {
	# Unsolved. Did they try?
	if (exists($resource_data->{'resource.'.$part.'.tries'})){
	$symbol = '.';
	} else {
	$symbol = ' ';
	}
	}
	#
	if ( ($links eq 'yes' && $symbol ne ' ') \|\| ($links eq 'all')) {
	$symbol = '<a href="/adm/grades'.
	'?symb='.&Apache::lonnet::escape($resource->{'symb'}).
	'&student='.$student->{'username'}.
	'&domain='.$student->{'domain'}.
	'&command=submission">'.$symbol.'</a>';
	}
	if (! defined($partscore)) {
	$partscore = $symbol;
	}
	push (@ScoreData,$partscore);
	}
	$Str .= $symbol;
	}
	return ($Str,$performance_length,$score,$max,\@ScoreData);
}	}

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

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

Removed from v.1.53
changed lines
	Added in v.1.54