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

[albertel]

albertel		Fri Jul 14 14:12:18 2006 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - after tries were exhausted was subtly leaking info about whether the last attempt was right or wrong.
  
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.199 loncom/homework/inputtags.pm:1.200
--- loncom/homework/inputtags.pm:1.199	Fri Jun 30 00:56:56 2006
+++ loncom/homework/inputtags.pm	Fri Jul 14 14:12:16 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.199 2006/06/30 04:56:56 albertel Exp $
+# $Id: inputtags.pm,v 1.200 2006/07/14 18:12:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -284,8 +284,9 @@
 	my $partid=$Apache::inputtags::part;
 	my $id=$Apache::inputtags::response[-1];
 	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER'
-	    || ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER' &&
-		$Apache::lonhomework::history{"resource.$partid.solved"} !~ /^correct/	)) {
+	    || lc($Apache::lonhomework::problemstatus) eq 'no'
+	    || ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER' 
+		&& $Apache::lonhomework::history{"resource.$partid.solved"} !~ /^correct/	)) {
 	    my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
 	    my $maxlength;
 	    if ($size eq '') { $size=20; } else {