loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.45, 2003/06/24 20:41:56	version 1.47, 2004/03/04 21:21:55
Line 48 sub start_hintgroup {	Line 48 sub start_hintgroup {
my $numtries=$Apache::lonhomework::history{"resource.$id.tries"};	my $numtries=$Apache::lonhomework::history{"resource.$id.tries"};
if ( $numtries eq '') { $numtries = 0; }	if ( $numtries eq '') { $numtries = 0; }
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries");	my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries");
	if ($ENV{'request.state'} eq 'construct' &&
	defined($Apache::inputtags::params{'hinttries'})) {
	$hinttries=$Apache::inputtags::params{'hinttries'};
	}

if ( $hinttries eq '') { $hinttries = 1; }	if ( $hinttries eq '') { $hinttries = 1; }
&Apache::lonxml::debug("found :$id:$numtries:$hinttries:");	&Apache::lonxml::debug("found :$id:$numtries:$hinttries:");
if ( $numtries < $hinttries ) {	my $gradestatus=$Apache::lonhomework::history{"resource.$id.solved"};
	if ( $numtries < $hinttries \|\| $gradestatus =~ /^correct/) {
&Apache::lonxml::get_all_text("/hintgroup",$parser);	&Apache::lonxml::get_all_text("/hintgroup",$parser);
}	}
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;