loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

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>';