loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.187, 2008/02/01 22:05:45	version 1.190, 2008/04/05 15:50:22
Line 801 sub answer_part {	Line 801 sub answer_part {
last;	last;
}	}
}	}
if ($answer ne '') {	my $fullanswer=$answer;
$answer = '\verb'.$to_use.$answer.$to_use;	$answer='';
}	foreach my $element (split(/[\;]/,$fullanswer)) {
	if ($element ne '') {
	$answer.= '\verb'.$to_use.$element.$to_use.' \newline';
	}
	}
}	}
if ($answer ne '') {	if ($answer ne '') {
push(@answer_bits,$answer);	push(@answer_bits,$answer);
Line 822 sub answer_footer {	Line 826 sub answer_footer {
my ($type) = @_;	my ($type) = @_;
my $result;	my $result;
if ($env{'form.answer_output_mode'} eq 'tex') {	if ($env{'form.answer_output_mode'} eq 'tex') {
my $columns = scalar(@answer_bits);	$result = ' \vskip 0 mm \noindent \begin{tabular}{\|p{1.5cm}\|p{6.8cm}\|}\hline ';
$result = ' \vskip 0 mm \noindent \begin{tabular}{\|'.'c\|'x$columns.'}\hline ';	$result .= $answer_bits[0].'&\vspace*{-4mm}\begin{itemize}';
$result .= join(' & ',@answer_bits);	for (my $i=1;$i<=$#answer_bits;$i++) {
$result .= ' \\\\ \\hline \end{tabular} \vskip 0 mm ';	$result.='\item '.$answer_bits[$i].'\vspace*{-7mm}';
	}
	$result .= ' \end{itemize} \\\\ \hline \end{tabular} \vskip 0 mm ';
} else {	} else {
if (!$need_row_start) {	if (!$need_row_start) {
$result .= '</tr>';	$result .= '</tr>';