--- loncom/homework/inputtags.pm	2011/12/10 18:10:56	1.298
+++ loncom/homework/inputtags.pm	2011/12/15 01:21:28	1.299
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.298 2011/12/10 18:10:56 www Exp $
+# $Id: inputtags.pm,v 1.299 2011/12/15 01:21:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -843,26 +843,6 @@ sub finalizeawards {
 }
 }
 
-sub grading_is_nonlenient {
-    my ($part) = @_;
-# Web mode: we are non-lenient unless told otherwise
-    my $defaultparm = 'off';
-    my $nonlenient = 0;
-# Grading a bubblesheet exam: we are grading lenient unless told otherwise
-    if ($Apache::lonhomework::scantronmode) {
-        $defaultparm = 'on';
-        $nonlenient = 1;
-    }
-    my $lenientparm =
-        &Apache::response::get_response_param($part,'lenient',$defaultparm);
-    if ($lenientparm=~/^0|off|no$/i) {
-        $nonlenient = 1;
-    } elsif ($lenientparm=~/^1|on|yes$/i) {
-        $nonlenient = 0;
-    }
-    return $nonlenient;
-}
-
 sub decideoutput {
     my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect)=@_;
 
@@ -931,11 +911,11 @@ sub decideoutput {
 		}
 	    }
 	}
-        if (&grading_is_nonlenient($part)) {
+        if ($awarded >= 1) {
             $button=0;
-        } elsif ($awarded==1) {
+        } elsif (&Apache::lonnet::EXT("resource.$part.retrypartial") !~/^1|on|yes$/i) {
             $button=0;
-        } else { 
+        } else {
             $button=1;
         }
 	$previousmsg='';