version 1.132, 2005/12/06 09:29:34
|
version 1.133, 2005/12/06 10:00:08
|
Line 596 sub setup_params {
|
Line 596 sub setup_params {
|
my @answer_bits; |
my @answer_bits; |
|
|
sub answer_header { |
sub answer_header { |
my ($type) = @_; |
my ($type,$increment) = @_; |
my $result; |
my $result; |
if ($env{'form.answer_output_mode'} eq 'tex') { |
if ($env{'form.answer_output_mode'} eq 'tex') { |
undef(@answer_bits); |
undef(@answer_bits); |
|
my $bit; |
|
if ($Apache::lonhomework::type eq 'exam') { |
|
$bit = ($Apache::lonxml::counter+$increment).') '; |
|
} else { |
|
$bit .= ' Answer for Part: \verb|'. |
|
$Apache::inputtags::part.'| '; |
|
} |
|
push(@answer_bits,$bit); |
} else { |
} else { |
$result = '<table border="1"><tr>'; |
$result = '<table border="1"><tr>'; |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
Line 637 sub answer_footer {
|
Line 645 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; |
my $columns = scalar(@answer_bits); |
$result = ' \vskip 0 mm \begin{tabular}{|'.'c|'x$columns.'}\hline '; |
$result = ' \vskip 0 mm \begin{tabular}{|'.'c|'x$columns.'}\hline '; |
if ($Apache::lonhomework::type eq 'exam') { |
$result .= join(' & ',@answer_bits); |
$result .= $Apache::lonxml::counter.') '; |
|
} else { |
|
$result .= ' Answer for Part: \verb|'. |
|
$Apache::inputtags::part.'| '; |
|
} |
|
foreach my $bit (@answer_bits) { |
|
$result.=' & '.$bit; |
|
} |
|
$result .= ' \\\\ \\hline \end{tabular} \vskip 0 mm '; |
$result .= ' \\\\ \\hline \end{tabular} \vskip 0 mm '; |
} else { |
} else { |
$result = '</tr></table>'; |
$result = '</tr></table>'; |