Diff for /loncom/homework/response.pm between versions 1.74 and 1.75

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

Removed from v.1.74  
changed lines
  Added in v.1.75


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>