loncom/homework/loncapagrade.pm - diff

Return to loncapagrade.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/loncapagrade.pm between versions 1.5 and 1.8

-version 1.5, 2008/11/10 13:43:43
+version 1.8, 2013/08/23 10:03:53
  Line 28
  # 1/26 Guy
- =pod
- =head1 NAME
- Apache::loncapagrade
- =head1 SYNOPSIS
- Handler to evaluate externally graded responses.
- This is part of the LearningOnline Network with CAPA project
- described at http://www.lon-capa.org.
- =head2 notes
- results of parse end up in here:
- undef(%Apache::loncapagrade::results);
- =cut
  package Apache::loncapagrade;
  use strict;
- Line 66  sub start_loncapagrade {
+ Line 47  sub start_loncapagrade {
      if ($target eq 'grade') {
  	undef(%Apache::loncapagrade::results);
  	&Apache::lonxml::register('Apache::loncapagrade',
- 				  ('awarddetail','message'));
+ 				  ('awarddetail','message','awarded','handbackurl'));
      }
      return $result;
  }
- Line 76  sub end_loncapagrade {
+ Line 57  sub end_loncapagrade {
      my $result;
      if ($target eq 'grade') {
  	&Apache::lonxml::deregister('Apache::loncapagrade',
- 				    ('loncapagrade','awarddetail','message'));
+ 				    ('loncapagrade','awarddetail','message','awarded','handbackurl'));
      }
      return $result;
  }
- Line 98  sub end_awarddetail {
+ Line 79  sub end_awarddetail {
      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_handbackurl {
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+     my $result;
+     if ($target eq 'grade') { &Apache::lonxml::startredirection(); }
+     return $result;
+ }
+ sub end_handbackurl {
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+     my $result;
+     if ($target eq 'grade') {
+         $Apache::loncapagrade::results{'handbackurl'}=
+             &Apache::lonxml::endredirection();
+     }
+     return $result;
+ }
  sub start_message {
      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
      my $result;
- Line 118  sub end_message {
+ Line 133  sub end_message {
 ;
  __END__
+ =pod
+ =head1 NAME
+ Apache::loncapagrade
+ =head1 SYNOPSIS
+ Handler to evaluate externally graded responses.
+ This is part of the LearningOnline Network with CAPA project
+ described at http://www.lon-capa.org.
+ =head1 SUBROUTINES
+ =over
+ =item start_loncapagrade()
+ =item end_loncapagrade()
+ =item start_awarddetail()
+ =item end_awarddetail()
+ =item start_message()
+ =item end_message()
+ =back
+ =head2 notes
+ results of parse end up in here:
+ undef(%Apache::loncapagrade::results);
+ =cut

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

Removed from v.1.5
changed lines
	Added in v.1.8