version 1.187, 2008/02/01 22:05:45
|
version 1.188, 2008/03/06 16:28:20
|
Line 790 sub next_answer {
|
Line 790 sub next_answer {
|
|
|
sub answer_part { |
sub answer_part { |
my ($type,$answer,$args) = @_; |
my ($type,$answer,$args) = @_; |
|
&Apache::lonxml::debug("In answerpart :$type:$answer:$args:"); |
|
|
my $result; |
my $result; |
if ($env{'form.answer_output_mode'} eq 'tex') { |
if ($env{'form.answer_output_mode'} eq 'tex') { |
if (!$args->{'no_verbatim'}) { |
if (!$args->{'no_verbatim'}) { |
Line 801 sub answer_part {
|
Line 803 sub answer_part {
|
last; |
last; |
} |
} |
} |
} |
if ($answer ne '') { |
my $answerelements=$answer; |
$answer = '\verb'.$to_use.$answer.$to_use; |
$answer=''; |
} |
foreach my $element (split(/[\;\:]/,$answerelements)) { |
|
if ($element ne '') { |
|
$answer.= '\noindent\verb'.$to_use.$element.$to_use.'\newline'; |
|
} |
|
} |
} |
} |
if ($answer ne '') { |
if ($answer ne '') { |
push(@answer_bits,$answer); |
push(@answer_bits,$answer); |
Line 813 sub answer_part {
|
Line 819 sub answer_part {
|
$result .= '<tr>'; |
$result .= '<tr>'; |
$need_row_start = 0; |
$need_row_start = 0; |
} |
} |
$result .= '<td>'.$answer.'</td>'; |
$answer=~s/\; /\<\/nobr\>\<br \/\>\<nobr\>/gs; |
|
$result .= '<td><nobr>'.$answer.'</nobr></td>'; |
} |
} |
return $result; |
return $result; |
} |
} |
Line 822 sub answer_footer {
|
Line 829 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); |
my $columns = scalar(@answer_bits)-1; |
$result = ' \vskip 0 mm \noindent \begin{tabular}{|'.'c|'x$columns.'}\hline '; |
$result = ' \vskip 0 mm \noindent \begin{tabular}{|p{1.5cm}|'.'p{3cm}|'x$columns.'}\hline '; |
$result .= join(' & ',@answer_bits); |
$result .= join(' & ',@answer_bits); |
$result .= ' \\\\ \\hline \end{tabular} \vskip 0 mm '; |
$result .= ' \\\\ \\hline \end{tabular} \vskip 0 mm '; |
} else { |
} else { |