[BACK]Return to essayresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/essayresponse.pm between versions 1.14 and 1.16

version 1.14, 2002/08/01 19:16:45 version 1.16, 2003/01/13 21:24:02
Line 30 Line 30
 #  #
 package Apache::essayresponse;  package Apache::essayresponse;
 use strict;  use strict;
   use Apache::lonxml;
   
 BEGIN {  BEGIN {
     &Apache::lonxml::register('Apache::essayresponse',('essayresponse'));      &Apache::lonxml::register('Apache::essayresponse',('essayresponse'));
Line 70  sub end_essayresponse { Line 71  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 $result;
     if ( $target eq 'grade' ) {      if ( $target eq 'grade' ) {
  my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id};   my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id};
  if ($collaborators =~ /[^\s]/) {   if ($collaborators =~ /[^\s]/) {
Line 92  sub end_essayresponse { Line 94  sub end_essayresponse {
  &Apache::response::handle_previous(\%previous,$award);   &Apache::response::handle_previous(\%previous,$award);
     }      }
  }   }
       } elsif ($target eq 'edit') {
    $result.=&Apache::edit::end_table();
       } elsif ($target eq 'tex') {
    if ($Apache::lonhomework::type eq 'exam') {
       $result.='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Live blank on scoring form}\vskip 0 mm';
       &Apache::lonxml::increment_counter();
       $result.= '\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Live blank on scoring form}\vskip 0 mm \end{enumerate}';
       &Apache::lonxml::increment_counter();
    }
     }      }
   
     &Apache::response::end_response;      &Apache::response::end_response;
     return '';      return $result;
 }  }
   
 sub check_collaborators {  sub check_collaborators {
Removed from v.1.14  
changed lines
  Added in v.1.16

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