version 1.195, 2014/11/28 18:23:04
|
version 1.195.2.1, 2015/04/21 23:36:43
|
Line 375 sub end_foilgroup {
|
Line 375 sub end_foilgroup {
|
} |
} |
} |
} |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
my $nonlenient=&grading_is_nonlenient($part); |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
my $nonlenient=&grading_is_nonlenient($part,$id); |
my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
my $gradestr =&Apache::lonnet::hash2str(%grade); |
my $gradestr =&Apache::lonnet::hash2str(%grade); |
my %previous=&Apache::response::check_for_previous($responsestr, |
my %previous=&Apache::response::check_for_previous($responsestr, |
Line 491 sub end_foilgroup {
|
Line 491 sub end_foilgroup {
|
} |
} |
|
|
sub grading_is_nonlenient { |
sub grading_is_nonlenient { |
my ($part) = @_; |
my ($part,$id) = @_; |
# Web mode: we are non-lenient unless told otherwise |
# Web mode: we are non-lenient unless told otherwise |
my $defaultparm = 'off'; |
my $defaultparm = 'off'; |
my $nonlenient = 0; |
my $nonlenient = 1; |
# Grading a bubblesheet exam: we are grading lenient unless told otherwise |
# Grading a bubblesheet exam: we are grading lenient unless told otherwise |
if ($Apache::lonhomework::scantronmode) { |
if ($Apache::lonhomework::scantronmode) { |
$defaultparm = 'on'; |
$defaultparm = 'on'; |
$nonlenient = 1; |
$nonlenient = 0; |
} |
} |
my $lenientparm = |
my $lenientparm = |
&Apache::response::get_response_param($part,'lenient',$defaultparm); |
&Apache::response::get_response_param($part,'lenient',$defaultparm); |
|
if ($lenientparm eq 'default') { |
|
$lenientparm = $defaultparm; |
|
} |
|
$lenientparm = |
|
&Apache::response::get_response_param($part.'_'.$id,'lenient',$lenientparm); |
|
if ($lenientparm eq 'default') { |
|
$lenientparm = $defaultparm; |
|
} |
if ($lenientparm=~/^0|off|no$/i) { |
if ($lenientparm=~/^0|off|no$/i) { |
$nonlenient = 1; |
$nonlenient = 1; |
} elsif ($lenientparm=~/^1|on|yes$/i) { |
} elsif ($lenientparm=~/^1|on|yes$/i) { |
$nonlenient = 0; |
$nonlenient = 0; |
} |
} |
|
if (!$nonlenient) { |
|
$Apache::inputtags::leniency=1; |
|
} |
return $nonlenient; |
return $nonlenient; |
} |
} |
|
|