Diff for /loncom/homework/essayresponse.pm between versions 1.69 and 1.70

version 1.69, 2005/11/15 22:19:57 version 1.70, 2006/03/09 01:07:04
Line 80  sub end_essayresponse { Line 80  sub end_essayresponse {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $part          = $Apache::inputtags::part;      my $part          = $Apache::inputtags::part;
     my $id            = $Apache::inputtags::response[-1];      my $id            = $Apache::inputtags::response[-1];
     my $increment     = 1;      my $increment     = &Apache::response::repetition();
     my $result;      my $result;
     if ( $target eq 'grade' ) {      if ( $target eq 'grade' ) {
  my $collaborators = $env{'form.HWCOL'.$part.'_'.$id};   my $collaborators = $env{'form.HWCOL'.$part.'_'.$id};
Line 142  sub end_essayresponse { Line 142  sub end_essayresponse {
     $result.= '\end{enumerate}';      $result.= '\end{enumerate}';
     $increment=$repetition;      $increment=$repetition;
  }   }
       } elsif ($target eq 'answer') {
    $result.=&Apache::response::answer_header($$tagstack[-1]);
    $result.=&Apache::response::answer_part($$tagstack[-1],'');
    $result.=&Apache::response::answer_footer($$tagstack[-1]);
     }      }
     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||      if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
  $target eq 'tex' || $target eq 'analyze') {   $target eq 'tex' || $target eq 'analyze') {

Removed from v.1.69  
changed lines
  Added in v.1.70


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