|
version 1.182, 2011/11/08 05:19:14
|
version 1.184, 2011/12/15 01:21:28
|
|
Line 282 sub end_foilgroup {
|
Line 282 sub end_foilgroup {
|
| } |
} |
| } |
} |
| my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
| my $nonlenient=&is_nonlenient($part); |
my $nonlenient=&grading_is_nonlenient($part); |
| my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
| my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
| my $gradestr =&Apache::lonnet::hash2str(%grade); |
my $gradestr =&Apache::lonnet::hash2str(%grade); |
|
Line 386 sub end_foilgroup {
|
Line 386 sub end_foilgroup {
|
| return $result; |
return $result; |
| } |
} |
| |
|
| sub is_nonlenient { |
sub grading_is_nonlenient { |
| my ($part) = @_; |
my ($part) = @_; |
| # 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 = 0; |
| # 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 = 1; |
| } |
} |
| my $lenientparm = |
my $lenientparm = |
| &Apache::response::get_response_param($part,'lenient',$defaultparm); |
&Apache::response::get_response_param($part,'lenient',$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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework