loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.40, 2005/04/07 06:56:24	version 1.41, 2005/04/12 21:49:49
Line 263 sub prepare_html_output {	Line 263 sub prepare_html_output {
'</nobr></th>';	'</nobr></th>';
}	}
}	}
	if ($part_span == 0) {
	next;
	}
if (! $single_part) {	if (! $single_part) {
my $tmpname = $partid;	my $tmpname = $partid;
if ($partid =~/^\d+$/) {	if ($partid =~/^\d+$/) {
Line 340 sub prepare_html_output {	Line 343 sub prepare_html_output {
'html','normal',	'html','normal',
@extra_resp_headers);	@extra_resp_headers);
my $width = scalar(@headers);	my $width = scalar(@headers);
	next if ($width < 1);
my $resp_data;	my $resp_data;
$resp_data->{'fake'} = qq{<td colspan="$width">&nbsp</td>};	$resp_data->{'fake'} = qq{<td colspan="$width"> </td>};
if (! defined($results)) {	if (! defined($results)) {
$results = [];	$results = [];
}	}
Line 514 sub html_non_essay_results {	Line 518 sub html_non_essay_results {
return '';	return '';
}	}
#	#
my $submission = &HTML::Entities::decode($response->{'Submission'});	my $submission = &HTML::Entities::decode(&Apache::lonnet::unescape($response->{'Submission'}));
return '' if (! defined($submission) \|\| $submission eq '');	return '' if (! defined($submission) \|\| $submission eq '');
$submission =~ s/\\\"/\"/g;	$submission =~ s/\\\"/\"/g;
$submission =~ s/\\\'/\'/g;	$submission =~ s/\\\'/\'/g;