Diff for /loncom/homework/loncapagrade.pm between versions 1.6 and 1.7

version 1.6, 2008/11/20 15:19:15 version 1.7, 2011/04/29 00:32:08
Line 47  sub start_loncapagrade { Line 47  sub start_loncapagrade {
     if ($target eq 'grade') {      if ($target eq 'grade') {
  undef(%Apache::loncapagrade::results);   undef(%Apache::loncapagrade::results);
  &Apache::lonxml::register('Apache::loncapagrade',   &Apache::lonxml::register('Apache::loncapagrade',
   ('awarddetail','message'));    ('awarddetail','message','awarded'));
     }      }
     return $result;      return $result;
 }  }
Line 57  sub end_loncapagrade { Line 57  sub end_loncapagrade {
     my $result;      my $result;
     if ($target eq 'grade') {      if ($target eq 'grade') {
  &Apache::lonxml::deregister('Apache::loncapagrade',   &Apache::lonxml::deregister('Apache::loncapagrade',
     ('loncapagrade','awarddetail','message'));      ('loncapagrade','awarddetail','message','awarded'));
     }      }
     return $result;      return $result;
 }  }
Line 79  sub end_awarddetail { Line 79  sub end_awarddetail {
     return $result;      return $result;
 }  }
   
   sub start_awarded {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
       my $result;
       if ($target eq 'grade') { &Apache::lonxml::startredirection(); }
       return $result;
   }
   
   sub end_awarded {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
       my $result;
       if ($target eq 'grade') {
           $Apache::loncapagrade::results{'awarded'}=
               &Apache::lonxml::endredirection();
       }
       return $result;
   }
   
   
 sub start_message {  sub start_message {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;

Removed from v.1.6  
changed lines
  Added in v.1.7


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