loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.123, 2005/08/02 18:05:25	version 1.124, 2005/08/17 16:52:37
Line 505 sub answer_part {	Line 505 sub answer_part {
my ($type,$answer) = @_;	my ($type,$answer) = @_;
my $result;	my $result;
if ($env{'form.answer_output_mode'} eq 'tex') {	if ($env{'form.answer_output_mode'} eq 'tex') {
$result = ' \verb\|'.$answer.'\|\\\\ \hline ';	my $to_use='\|';
	foreach my $value (32..126) {
	my $char=pack('c',$value);
	if ($answer !~ /\Q$char\E/) {
	$to_use=$char;
	last;
	}
	}
	$result = '\verb'.$to_use.$answer.$to_use.'\\\\ \hline ';
} else {	} else {
$result = '<td>'.$answer.'</td>';	$result = '<td>'.$answer.'</td>';
}	}