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

Diff for /loncom/homework/loncapagrade.pm between versions 1.2 and 1.3

version 1.2, 2002/08/07 17:08:30 version 1.3, 2005/10/18 14:14:12
Line 39  BEGIN { Line 39  BEGIN {
 }  }
   
 sub start_loncapagrade {  sub start_loncapagrade {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;      my $result;
   if ($target eq 'grade') {      if ($target eq 'grade') {
     %Apache::loncapagrade::results=();   %Apache::loncapagrade::results=();
     &Apache::lonxml::register('Apache::loncapagrade',('awarddetail','message'));   &Apache::lonxml::register('Apache::loncapagrade',
   }    ('awarddetail','message'));
   return $result;      }
       return $result;
 }  }
   
 sub end_loncapagrade {  sub end_loncapagrade {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;      my $result;
   if ($target eq 'grade') {      if ($target eq 'grade') {
     &Apache::lonxml::deregister('Apache::loncapagrade',   &Apache::lonxml::deregister('Apache::loncapagrade',
  ('loncapagrade','awardetail','message'));      ('loncapagrade','awardetail','message'));
   }      }
   return $result;      return $result;
 }  }
   
 sub start_awarddetail {  sub start_awarddetail {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;      my $result;
   if ($target eq 'grade') { &Apache::lonxml::startredirection; }      if ($target eq 'grade') { &Apache::lonxml::startredirection(); }
   return $result;      return $result;
 }  }
   
 sub end_awarddetail {  sub end_awarddetail {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;      my $result;
   if ($target eq 'grade') {      if ($target eq 'grade') {
     $Apache::loncapagrade::results{'awarddetail'}=   $Apache::loncapagrade::results{'awarddetail'}=
       &Apache::lonxml::endredirection;      &Apache::lonxml::endredirection();
   }      }
   return $result;      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;
   if ($target eq 'grade') { &Apache::lonxml::startredirection; }      if ($target eq 'grade') { &Apache::lonxml::startredirection(); }
   return $result;      return $result;
 }  }
   
 sub end_message {  sub end_message {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;      my $result;
   if ($target eq 'grade') {      if ($target eq 'grade') {
     $Apache::loncapagrade::results{'message'}=   $Apache::loncapagrade::results{'message'}=
       &Apache::lonxml::endredirection;      &Apache::lonxml::endredirection();
   }      }
   return $result;      return $result;
 }  }
   
 1;  1;
Removed from v.1.2  
changed lines
  Added in v.1.3

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