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.46, 2004/01/07 21:01:17
Line 50 sub start_hintgroup {	Line 50 sub start_hintgroup {
my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries");	my $hinttries=&Apache::lonnet::EXT("resource.$id.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;