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

version 1.3, 2005/10/18 14:14:12 version 1.4, 2007/09/11 19:07:01
Line 31  use strict; Line 31  use strict;
   
 #Globals  #Globals
 # results of parse end up in here  # results of parse end up in here
 %Apache::loncapagrade::result=();  undef(%Apache::loncapagrade::results);
   
 BEGIN {  BEGIN {
 #  &Apache::lonxml::register('Apache::loncapagrade',  #  &Apache::lonxml::register('Apache::loncapagrade',
 #    ('loncapagrade','awardetail','message'));  #    ('loncapagrade','awarddetail','message'));
 }  }
   
 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=();   undef(%Apache::loncapagrade::results);
  &Apache::lonxml::register('Apache::loncapagrade',   &Apache::lonxml::register('Apache::loncapagrade',
   ('awarddetail','message'));    ('awarddetail','message'));
     }      }
Line 54  sub end_loncapagrade { Line 54  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','awardetail','message'));      ('loncapagrade','awarddetail','message'));
     }      }
     return $result;      return $result;
 }  }

Removed from v.1.3  
changed lines
  Added in v.1.4


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