--- loncom/homework/hint.pm 2003/06/24 20:41:56 1.45 +++ loncom/homework/hint.pm 2004/01/07 21:01:17 1.46 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # implements the tags that control the hints # -# $Id: hint.pm,v 1.45 2003/06/24 20:41:56 albertel Exp $ +# $Id: hint.pm,v 1.46 2004/01/07 21:01:17 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -50,7 +50,8 @@ sub start_hintgroup { my $hinttries=&Apache::lonnet::EXT("resource.$id.hinttries"); if ( $hinttries eq '') { $hinttries = 1; } &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::startredirection;