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.7 and 1.8

version 1.7, 2011/04/29 00:32:08	version 1.8, 2013/08/23 10:03:53
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','awarded'));	('awarddetail','message','awarded','handbackurl'));
}	}
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','awarded'));	('loncapagrade','awarddetail','message','awarded','handbackurl'));
}	}
return $result;	return $result;
}	}
Line 96 sub end_awarded {	Line 96 sub end_awarded {
return $result;	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 {	sub start_message {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;

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

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