loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.68.2.1, 2012/05/12 03:52:02	version 1.68.2.3, 2014/02/26 03:15:04
Line 730 sub html_non_essay_results {	Line 730 sub html_non_essay_results {
}	}
}	}
} else {	} else {
@values = map { $response->{$_}; } @$headers;	foreach my $original_header (@$headers) {
	if ($original_header eq 'Time') {
	push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header}));
	} elsif (($original_header eq 'Submission') &&
	!($resptype =~ /^(radiobutton\|option\|match\|rank)$/)) {
	# encode all submissions which have not been encoded above
	push(@values,&HTML::Entities::encode($response->{$original_header},'<>&"'));
	} elsif (($original_header eq 'Correct') &&
	($resptype eq 'radiobutton')) {
	# encode foil separators
	push(@values,&HTML::Entities::encode($response->{$original_header},'&'));
	} else {
	# A normal column
	push(@values,$response->{$original_header});
	}
	}
}	}
my $td = '<td valign="top">';	my $td = '<td valign="top">';
my $str = $td.join('</td>'.$td,@values).'</td>';	my $str = $td.join('</td>'.$td,@values).'</td>';
Line 1236 sub prepare_csv_output {	Line 1251 sub prepare_csv_output {
sub csv_format_item {	sub csv_format_item {
my ($item,$type) = @_;	my ($item,$type) = @_;
if ($type eq 'Time') {	if ($type eq 'Time') {
$item = localtime($item);	$item = &Apache::lonlocal::locallocaltime($item);
}	}
$item =&Apache::loncommon::csv_translate($item);	$item =&Apache::loncommon::csv_translate($item);
return $item;	return $item;