version 1.74, 2003/04/30 21:23:45
|
version 1.75, 2003/05/13 15:27:01
|
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 ($type eq 'optionresponse' || $type eq 'radiobuttonresponse' ) { |
if ($ENV{'form.print_answer'} eq 'yes') { |
$result = '<table border="1"><tr><th>Answer for Part:'. |
$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '. |
$Apache::inputtags::part. '</th></tr><tr>'."\n"; |
$Apache::inputtags::part.' \\\\ \hline '; |
} else { |
} else { |
$result = '<table border="1"><tr><td>Answer for Part:'. |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse' ) { |
$Apache::inputtags::part. '</td>'."\n"; |
$result = '<table border="1"><tr><th>Answer for Part:'. |
|
$Apache::inputtags::part. '</th></tr><tr>'."\n"; |
|
} else { |
|
$result = '<table border="1"><tr><td>Answer for Part:'. |
|
$Apache::inputtags::part. '</td>'."\n"; |
|
} |
} |
} |
return $result; |
return $result; |
} |
} |
Line 376 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 ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
if ($ENV{'form.print_answer'} eq 'yes') { |
$result = '<td>'.$answer.'</td>'; |
$result = ' '.$answer.'\\\\ \hline '; |
} else { |
} else { |
$result = '<td>'.$answer.'</td>'; |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
|
$result = '<td>'.$answer.'</td>'; |
|
} else { |
|
$result = '<td>'.$answer.'</td>'; |
|
} |
} |
} |
return $result; |
return $result; |
} |
} |
Line 387 sub answer_part {
|
Line 396 sub answer_part {
|
sub answer_footer { |
sub answer_footer { |
my ($type) = @_; |
my ($type) = @_; |
my $result; |
my $result; |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
if ($ENV{'form.print_answer'} eq 'yes') { |
$result = '</tr></table>'; |
$result = ' \end{tabular} \vskip 0 mm '; |
} else { |
} else { |
$result = '</tr></table>'; |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
|
$result = '</tr></table>'; |
|
} else { |
|
$result = '</tr></table>'; |
|
} |
} |
} |
return $result; |
return $result; |
} |
} |