version 1.75, 2003/05/13 15:27:01
|
version 1.76, 2003/05/13 15:44:39
|
Line 363 sub setup_params {
|
Line 363 sub setup_params {
|
sub answer_header { |
sub answer_header { |
my ($type) = @_; |
my ($type) = @_; |
my $result; |
my $result; |
if ($ENV{'form.print_answer'} eq 'yes') { |
if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) { |
$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '. |
$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '. |
$Apache::inputtags::part.' \\\\ \hline '; |
$Apache::inputtags::part.' \\\\ \hline '; |
} else { |
} else { |
Line 381 sub answer_header {
|
Line 381 sub answer_header {
|
sub answer_part { |
sub answer_part { |
my ($type,$answer) = @_; |
my ($type,$answer) = @_; |
my $result; |
my $result; |
if ($ENV{'form.print_answer'} eq 'yes') { |
if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) { |
$result = ' '.$answer.'\\\\ \hline '; |
$result = ' '.$answer.'\\\\ \hline '; |
} else { |
} else { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
Line 396 sub answer_part {
|
Line 396 sub answer_part {
|
sub answer_footer { |
sub answer_footer { |
my ($type) = @_; |
my ($type) = @_; |
my $result; |
my $result; |
if ($ENV{'form.print_answer'} eq 'yes') { |
if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) { |
$result = ' \end{tabular} \vskip 0 mm '; |
$result = ' \end{tabular} \vskip 0 mm '; |
} else { |
} else { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |