loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.70, 2014/02/27 14:41:34	version 1.72, 2015/01/19 15:35:53
Line 51 sub start_rankresponse {	Line 51 sub start_rankresponse {
$result=&Apache::response::meta_package_write('rankresponse');	$result=&Apache::response::meta_package_write('rankresponse');
} elsif ($target eq 'edit' ) {	} elsif ($target eq 'edit' ) {
$result.=&Apache::edit::start_table($token)	$result.=&Apache::edit::start_table($token)
.'<tr><td>'.&Apache::lonxml::description($token).'</td>'	.'<tr><td>'.&Apache::loncommon::insert_folding_button()
	.&Apache::lonxml::description($token).'</td>'
.'<td><span class="LC_nobreak">'.&mt('Delete?').' '	.'<td><span class="LC_nobreak">'.&mt('Delete?').' '
.&Apache::edit::deletelist($target,$token)	.&Apache::edit::deletelist($target,$token)
.'</span></td>'	.'</span></td>'
Line 335 sub format_prior_answer {	Line 336 sub format_prior_answer {
my %grading =&Apache::lonnet::str2hash($other_data->[1]);	my %grading =&Apache::lonnet::str2hash($other_data->[1]);
my $output;	my $output;
foreach my $name (@{ $foil_order }) {	foreach my $name (@{ $foil_order }) {
next if (!defined($lastresponse{$name}));	if (defined($lastresponse{$name})) {
$output .= '<tr><td>'.&HTML::Entities::encode($lastresponse{$name},'<>&"').'</td></tr>';	$output .= '<tr><td>'.&HTML::Entities::encode($lastresponse{$name},'<>&"').'</td></tr>';
	} else {
	$output .= '<tr><td> </td></tr>';
	}
}	}
return if (!defined($output));	return if (!defined($output));
$output =	$output =