version 1.49, 2001/10/01 20:18:31
|
version 1.50, 2001/11/09 20:20:45
|
Line 352 sub setup_params {
|
Line 352 sub setup_params {
|
sub answer_header { |
sub answer_header { |
my ($type) = @_; |
my ($type) = @_; |
my $result; |
my $result; |
if ($type eq 'optionresponse') { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse' ) { |
$result = '<table border="1"><tr><th>Answer for Part:'. |
$result = '<table border="1"><tr><th>Answer for Part:'. |
$Apache::inputtags::part. '</th></tr><tr>'."\n"; |
$Apache::inputtags::part. '</th></tr><tr>'."\n"; |
} else { |
} else { |
Line 365 sub answer_header {
|
Line 365 sub answer_header {
|
sub answer_part { |
sub answer_part { |
my ($type,$answer) = @_; |
my ($type,$answer) = @_; |
my $result; |
my $result; |
if ($type eq 'optionresponse') { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
$result = '<td>'.$answer.'</td>'; |
$result = '<td>'.$answer.'</td>'; |
} else { |
} else { |
$result = '<td>'.$answer.'</td>'; |
$result = '<td>'.$answer.'</td>'; |
Line 376 sub answer_part {
|
Line 376 sub answer_part {
|
sub answer_footer { |
sub answer_footer { |
my ($type) = @_; |
my ($type) = @_; |
my $result; |
my $result; |
if ($type eq 'optionresponse') { |
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
$result = '</tr></table>'; |
$result = '</tr></table>'; |
} else { |
} else { |
$result = '</tr></table>'; |
$result = '</tr></table>'; |