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>'; |