loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.147, 2006/10/12 17:16:53	version 1.148, 2006/10/17 17:09:44
Line 729 sub next_answer {	Line 729 sub next_answer {
}	}

sub answer_part {	sub answer_part {
my ($type,$answer) = @_;	my ($type,$answer,$args) = @_;
my $result;	my $result;
if ($env{'form.answer_output_mode'} eq 'tex') {	if ($env{'form.answer_output_mode'} eq 'tex') {
my $to_use='\|';	if (!$args->{'no_verbatim'}) {
foreach my $value (32..126) {	my $to_use='\|';
my $char=pack('c',$value);	foreach my $value (32..126) {
if ($answer !~ /\Q$char\E/) {	my $char=pack('c',$value);
$to_use=$char;	if ($answer !~ /\Q$char\E/) {
last;	$to_use=$char;
	last;
	}
	}
	if ($answer ne '') {
	$answer = '\verb'.$to_use.$answer.$to_use;
}	}
}	}
if ($answer ne '') {	if ($answer ne '') {
push(@answer_bits,'\verb'.$to_use.$answer.$to_use);	push(@answer_bits,$answer);
}	}
} else {	} else {
if ($need_row_start) {	if ($need_row_start) {