[LON-CAPA-cvs] cvs: loncom /homework hint.pm

[albertel]

albertel		Wed Jan  7 16:01:17 2004 EDT

  Modified files:              
    /loncom/homework	hint.pm 
  Log:
  - no hints don't show after the problem is correct
  
  
Index: loncom/homework/hint.pm
diff -u loncom/homework/hint.pm:1.45 loncom/homework/hint.pm:1.46
--- loncom/homework/hint.pm:1.45	Tue Jun 24 16:41:56 2003
+++ loncom/homework/hint.pm	Wed Jan  7 16:01:17 2004
@@ -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 @@
 	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;