version 1.188, 2008/03/06 16:28:20
|
version 1.189, 2008/04/05 15:39:17
|
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 803 sub answer_part {
|
Line 801 sub answer_part {
|
last; |
last; |
} |
} |
} |
} |
my $answerelements=$answer; |
my $fullanswer=$answer; |
$answer=''; |
$answer=''; |
foreach my $element (split(/[\;\:]/,$answerelements)) { |
foreach my $element (split(/[\;]/,$fullanswer)) { |
if ($element ne '') { |
if ($element ne '') { |
$answer.= '\noindent\verb'.$to_use.$element.$to_use.'\newline'; |
$answer.= '\verb'.$to_use.$element.$to_use.' \newline'; |
} |
} |
} |
} |
} |
} |
if ($answer ne '') { |
if ($answer ne '') { |
Line 819 sub answer_part {
|
Line 817 sub answer_part {
|
$result .= '<tr>'; |
$result .= '<tr>'; |
$need_row_start = 0; |
$need_row_start = 0; |
} |
} |
$answer=~s/\; /\<\/nobr\>\<br \/\>\<nobr\>/gs; |
$result .= '<td>'.$answer.'</td>'; |
$result .= '<td><nobr>'.$answer.'</nobr></td>'; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 829 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)-1; |
$result = ' \vskip 0 mm \noindent \begin{tabular}{|p{1.5cm}|p{6.8cm}|}\hline '; |
$result = ' \vskip 0 mm \noindent \begin{tabular}{|p{1.5cm}|'.'p{3cm}|'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 '; |
|
&Apache::lonnet::logthis('Result: '.$result); |
} else { |
} else { |
if (!$need_row_start) { |
if (!$need_row_start) { |
$result .= '</tr>'; |
$result .= '</tr>'; |