loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.54 and 1.54.10.1

version 1.54, 2009/04/21 13:28:23	version 1.54.10.1, 2010/09/11 19:08:22
Line 37 use Apache::lonstathelpers;	Line 37 use Apache::lonstathelpers;
use HTML::Entities();	use HTML::Entities();
use Time::Local();	use Time::Local();
use Spreadsheet::WriteExcel();	use Spreadsheet::WriteExcel();
	use Crypt::PasswdMD5;
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

Line 109 sub BuildStudentSubmissionsPage {	Line 110 sub BuildStudentSubmissionsPage {
return;	return;
}	}
my %already_seen;	my %already_seen;
my @Problems;	my (@Problems,$show_named);
	unless (&Apache::loncommon::needs_gci_custom()) {
	$show_named = 1;
	}
foreach my $symb (@Symbs) {	foreach my $symb (@Symbs) {
my $resource = $navmap->getBySymb($symb);	my $resource = $navmap->getBySymb($symb);
push(@Problems,$resource);	push(@Problems,$resource);
}	}
	# If these are to be anonymized, do a random shuffle of @Students.
	unless ($show_named) {
	&array_shuffle(\@Students);
	}
	my $threshold = $env{'course.'.$env{'request.course.id'}.'.internal.anonsurvey_threshold'};
	if ($threshold eq '') {
	my %domconfig =
	&Apache::lonnet::get_dom('configuration',['coursedefaults'],
	$env{'course.'.$env{'request.course.id'}.'.domain'});
	if (ref($domconfig{'coursedefaults'}) eq 'HASH') {
	$threshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'};
	if ($threshold eq '') {
	$threshold = 10;
	}
	} else {
	$threshold = 10;
	}
	}
#	#
$r->print('<h4>'.	$r->print('<h4>'.
&Apache::lonstatistics::section_and_enrollment_description().	&Apache::lonstatistics::section_and_enrollment_description().
'</h4>');	'</h4>');
if (! scalar(@Problems) \|\| ! defined($Problems[0])) {	if (! scalar(@Problems) \|\| ! defined($Problems[0])) {
$r->print('resource is undefined');	$r->print('resource is undefined');
	} elsif (!$show_named && @Students < $threshold) {
	$r->print(&mt('The number of students matching the selection criteria is too few for display of submission data for anonymous surveys.').'<br />'.&mt('There must be at least [quant,_1,student].',$threshold).' '.&mt('Contact a Domain Coordinator if you need the threshold to be changed for this course.'));
} else {	} else {
if (scalar(@Problems) == 1) {	if (scalar(@Problems) == 1) {
my $resource = $Problems[0];	my $resource = $Problems[0];
Line 131 sub BuildStudentSubmissionsPage {	Line 155 sub BuildStudentSubmissionsPage {
}	}
}	}
if ($env{'form.output'} eq 'excel') {	if ($env{'form.output'} eq 'excel') {
&prepare_excel_output($r,\@Problems,\@Students);	&prepare_excel_output($r,\@Problems,\@Students,$show_named);
} elsif ($env{'form.output'} eq 'csv') {	} elsif ($env{'form.output'} eq 'csv') {
&prepare_csv_output($r,\@Problems,\@Students);	&prepare_csv_output($r,\@Problems,\@Students,$show_named);
} else {	} else {
&prepare_html_output($r,\@Problems,\@Students);	&prepare_html_output($r,\@Problems,\@Students,$show_named);
}	}
}	}
$r->print('<hr />');	$r->print('<hr />');
Line 154 sub BuildStudentSubmissionsPage {	Line 178 sub BuildStudentSubmissionsPage {
}	}
}	}

	sub array_shuffle {
	my $array = shift;
	return unless (ref($array) eq 'ARRAY');
	my $i = scalar(@$array);
	my $j;
	foreach my $item (@$array) {
	--$i;
	$j = int(rand($i+1));
	next if($i == $j);
	@$array [$i,$j] = @$array[$j,$i];
	}
	return @$array;
	}

##	##
## get_extra_response_headers	## get_extra_response_headers
##	##

sub get_extra_response_headers {	sub get_extra_response_headers {
	my ($show_named) = @_;
my @extra_resp_headers;	my @extra_resp_headers;
if ($env{'form.correctans'} eq 'true') {	if ($env{'form.correctans'} eq 'true') {
push(@extra_resp_headers,'Correct');	push(@extra_resp_headers,'Correct');
}	}
if ($env{'form.prob_status'} eq 'true') {	if ($show_named) {
push(@extra_resp_headers,'Award Detail');	if ($env{'form.prob_status'} eq 'true') {
push(@extra_resp_headers,'Time');	push(@extra_resp_headers,'Award Detail');
push(@extra_resp_headers,'Attempt');	push(@extra_resp_headers,'Time');
push(@extra_resp_headers,'Awarded');	push(@extra_resp_headers,'Attempt');
	push(@extra_resp_headers,'Awarded');
	}
}	}
return @extra_resp_headers;	return @extra_resp_headers;
}	}
Line 211 sub get_headers {	Line 253 sub get_headers {
#########################################################	#########################################################
#########################################################	#########################################################
sub prepare_html_output {	sub prepare_html_output {
my ($r,$problems,$students) = @_;	my ($r,$problems,$students,$show_named) = @_;
my $c = $r->connection();	my $c = $r->connection();
	my $salt = '$1$'.$Apache::lonnet::perlvar{'AnonymousSalt'};
#	#
# Set a flag for the case when there is just one problem	# Set a flag for the case when there is just one problem
my $single_response = 0;	my $single_response = 0;
Line 222 sub prepare_html_output {	Line 265 sub prepare_html_output {
}	}
#	#
# Compute the number of columns per response	# Compute the number of columns per response
my @extra_resp_headers = &get_extra_response_headers();	my @extra_resp_headers = &get_extra_response_headers($show_named);
#	#
# Create the table header	# Create the table header
my @student_columns = ('username','domain','id','section');	my @student_columns;
	if ($show_named) {
	@student_columns = @Apache::lonstatistics::SelectedStudentData;
	if (grep(/^all$/,@student_columns)) {
	@student_columns = qw(fullname username domain id section status groups comments);
	}
	} else {
	@student_columns = ('username');
	}
#	#
my %headers;	my %headers;
my $student_column_count = scalar(@student_columns);	my $student_column_count = scalar(@student_columns);
Line 325 sub prepare_html_output {	Line 376 sub prepare_html_output {
$count = 0;	$count = 0;
}	}
last if ($c->aborted());	last if ($c->aborted());
foreach my $field (@student_columns) {	if ($show_named) {
$student_row_data .=	foreach my $field (@student_columns) {
'<td valign="top">'.$student->{$field}.'</td>';	$student_row_data .= '<td valign="top">';
	# handle comments like in lonstudentassessment.pm
	if($field eq 'comments') {
	$student_row_data .=
	'<a href="/adm/'.$student->{'domain'}.'/'.
	$student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>';
	} else {
	$student_row_data .= $student->{$field};
	}
	$student_row_data .= '</td>';
	}
	} else {
	my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},
	$salt);
	$anonid = substr($anonid,length($salt)+1);
	$student_row_data = '<td valign="top" colspan="'.$student_column_count.'">'.
	$anonid.'</td>';
}	}
#	#
# Figure out what it is we need to output for this student	# Figure out what it is we need to output for this student
Line 444 sub prepare_html_output {	Line 511 sub prepare_html_output {
undef(@essays);	undef(@essays);
}	}
} # end of student loop	} # end of student loop
	$r->print('</table>'.$/);
return;	return;
}	}

Line 625 sub html_non_essay_results {	Line 693 sub html_non_essay_results {
#########################################################	#########################################################
#########################################################	#########################################################
sub prepare_excel_output {	sub prepare_excel_output {
my ($r,$Problems,$Students) = @_;	my ($r,$Problems,$Students,$show_named) = @_;
my $c = $r->connection();	my $c = $r->connection();
	my $salt = '$1$'.$Apache::lonnet::perlvar{'AnonymousSalt'};
#	#
#	#
# Determine the number of columns in the spreadsheet	# Determine the number of columns in the spreadsheet
Line 695 sub prepare_excel_output {	Line 764 sub prepare_excel_output {
$worksheet->write($partid_row,0,'Part ID',$format->{'bold'});	$worksheet->write($partid_row,0,'Part ID',$format->{'bold'});
$worksheet->write($respid_row,0,'Response ID',$format->{'bold'});	$worksheet->write($respid_row,0,'Response ID',$format->{'bold'});
# Student headers	# Student headers
my @StudentColumns = ('username','domain','id','section');	my @StudentColumns;
	if ($show_named) {
	@StudentColumns = qw(username domain id section);
	} else {
	@StudentColumns = qw(username);
	}
	foreach (@StudentColumns) {
	$worksheet->write($header_row,$cols_output++,ucfirst($_),
	$format->{'bold'});
	}
foreach (@StudentColumns) {	foreach (@StudentColumns) {
$worksheet->write($header_row,$cols_output++,ucfirst($_),	$worksheet->write($header_row,$cols_output++,ucfirst($_),
$format->{'bold'});	$format->{'bold'});
Line 742 sub prepare_excel_output {	Line 820 sub prepare_excel_output {
last if ($c->aborted());	last if ($c->aborted());
$cols_output = 0;	$cols_output = 0;
my $student_row = $max_row;	my $student_row = $max_row;
	my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},
	$salt);
	$anonid = substr($anonid,length($salt)+1);
foreach my $field (@StudentColumns) {	foreach my $field (@StudentColumns) {
$worksheet->write($student_row,$cols_output++,	if ($show_named) {
$student->{$field});	$worksheet->write($student_row,$cols_output++,
	$student->{$field});
	} else {
	$worksheet->write($student_row,$cols_output++,
	$anonid);
	}
}	}
my $last_student_col = $cols_output-1;	my $last_student_col = $cols_output-1;
foreach my $prob (@$Problems) {	foreach my $prob (@$Problems) {
Line 799 sub prepare_excel_output {	Line 885 sub prepare_excel_output {
for (my $row = $student_row+1;$row<$max_row;$row++) {	for (my $row = $student_row+1;$row<$max_row;$row++) {
my $cols = 0;	my $cols = 0;
foreach my $field (@StudentColumns) {	foreach my $field (@StudentColumns) {
$worksheet->write($row,$cols++,	if ($show_named) {
$student->{$field});	$worksheet->write($row,$cols++,
	$student->{$field});
	} else {
	$worksheet->write($row,$cols++,
	$anonid);
	}
}	}
}	}
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
Line 910 sub excel_format_item {	Line 1001 sub excel_format_item {
#########################################################	#########################################################
#########################################################	#########################################################
sub prepare_csv_output {	sub prepare_csv_output {
my ($r,$problems,$students) = @_;	my ($r,$problems,$students,$show_named) = @_;
my $c = $r->connection();	my $c = $r->connection();
	my $salt = '$1$'.$Apache::lonnet::perlvar{'AnonymousSalt'};
#	#
$r->print('<h2>'.	$r->print('<h2>'.
&mt('Generating CSV report of student responses').'</h2>');	&mt('Generating CSV report of student responses').'</h2>');
Line 940 sub prepare_csv_output {	Line 1032 sub prepare_csv_output {
}	}
#	#
# Compute the number of columns per response	# Compute the number of columns per response
my @extra_resp_headers = &get_extra_response_headers();	my @extra_resp_headers = &get_extra_response_headers($show_named);
#	#
# Create the table header	# Create the table header
my @student_columns = ('username','domain','id','section');	my @student_columns;
	if ($show_named) {
	@student_columns = qw(username domain id section);
	} else {
	@student_columns = qw(username);
	}
#	#
my %headers;	my %headers;
push(@{$headers{'student'}},@student_columns);	push(@{$headers{'student'}},@student_columns);
Line 992 sub prepare_csv_output {	Line 1089 sub prepare_csv_output {
# Main loop	# Main loop
foreach my $student (@$students) {	foreach my $student (@$students) {
last if ($c->aborted());	last if ($c->aborted());
	my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},
	$salt);
	$anonid = substr($anonid,length($salt)+1);
my @rows;	my @rows;
foreach my $prob (@$problems) {	foreach my $prob (@$problems) {
foreach my $partid (@{$prob->parts}) {	foreach my $partid (@{$prob->parts}) {
Line 1032 sub prepare_csv_output {	Line 1132 sub prepare_csv_output {
}	}
}	}
foreach my $row (@rows) {	foreach my $row (@rows) {
print $outputfile '"'.join('","',	my $student_row_data = '';
map { $student->{$_}; }	if ($show_named) {
@student_columns).'"';	$student_row_data = '"'.join('","',
	map { $student->{$_}; }
	@student_columns).'"';
	} else {
	$student_row_data = '"'.$anonid.'"';
	}
	print $outputfile $student_row_data;
for (my $i=scalar(@student_columns);$i<$max_column;$i++) {	for (my $i=scalar(@student_columns);$i<$max_column;$i++) {
my $value = &Apache::loncommon::csv_translate($row->[$i]);	my $value = &Apache::loncommon::csv_translate($row->[$i]);
$value \|\|='';	$value \|\|='';
Line 1081 sub CreateInterface {	Line 1187 sub CreateInterface {
foreach ('HTML','Excel','CSV') {	foreach ('HTML','Excel','CSV') {
$output_selector .= ' <option value="'.lc($_).'"';	$output_selector .= ' <option value="'.lc($_).'"';
if ($env{'form.output'} eq lc($_)) {	if ($env{'form.output'} eq lc($_)) {
$output_selector .= ' selected ';	$output_selector .= ' selected="selected" ';
}	}
$output_selector .='>'.&mt($_).'</option>'.$/;	$output_selector .='>'.&mt($_).'</option>'.$/;
}	}
Line 1090 sub CreateInterface {	Line 1196 sub CreateInterface {
## Environment variable initialization	## Environment variable initialization
my $Str = '';	my $Str = '';
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');	$Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');
$Str .= '<p>';	$Str .= '<br />';
$Str .= &Apache::loncommon::start_data_table();	$Str .= &Apache::loncommon::start_data_table();
$Str .= &Apache::loncommon::start_data_table_header_row();	$Str .= &Apache::loncommon::start_data_table_header_row();
$Str .= '<th>'.&mt('Sections').'</th>';	$Str .= '<th>'.&mt('Sections').'</th>';
Line 1166 sub CreateInterface {	Line 1272 sub CreateInterface {
'<input type="text" name="stats_status"'	'<input type="text" name="stats_status"'
.' size="60" value="" readonly="readonly" />')	.' size="60" value="" readonly="readonly" />')
.'</span></p>';	.'</span></p>';
$Str .= '</p>';
##	##
return $Str;	return $Str;
}	}

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

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