version 1.231, 2012/10/12 12:45:46
|
version 1.233, 2013/04/29 21:09:40
|
Line 469 sub end_customresponse {
|
Line 469 sub end_customresponse {
|
$error = $award; |
$error = $award; |
$award = 'ERROR'; |
$award = 'ERROR'; |
} |
} |
|
if (($award eq 'INCORRECT' || $award eq 'APPROX_ANS' || |
|
$award eq 'EXACT_ANS')) { |
|
if ($Apache::lonhomework::type eq 'survey') { |
|
$award='SUBMITTED'; |
|
} elsif ($Apache::lonhomework::type eq 'surveycred') { |
|
$award='SUBMITTED_CREDIT'; |
|
} elsif ($Apache::lonhomework::type eq 'anonsurvey') { |
|
$award='ANONYMOUS'; |
|
} elsif ($Apache::lonhomework::type eq 'anonsurveycred') { |
|
$award='ANONYMOUS_CREDIT'; |
|
} |
|
} |
&Apache::response::handle_previous(\%previous,$award); |
&Apache::response::handle_previous(\%previous,$award); |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}= |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}= |
$award; |
$award; |
Line 614 sub end_mathresponse {
|
Line 626 sub end_mathresponse {
|
$error = $award; |
$error = $award; |
$award = 'ERROR'; |
$award = 'ERROR'; |
} |
} |
|
if (($award eq 'INCORRECT' || $award eq 'APPROX_ANS' || |
|
$award eq 'EXACT_ANS')) { |
|
if ($Apache::lonhomework::type eq 'survey') { |
|
$award='SUBMITTED'; |
|
} elsif ($Apache::lonhomework::type eq 'surveycred') { |
|
$award='SUBMITTED_CREDIT'; |
|
} elsif ($Apache::lonhomework::type eq 'anonsurvey') { |
|
$award='ANONYMOUS'; |
|
} elsif ($Apache::lonhomework::type eq 'anonsurveycred') { |
|
$award='ANONYMOUS_CREDIT'; |
|
} |
|
} |
&Apache::response::handle_previous(\%previous,$award); |
&Apache::response::handle_previous(\%previous,$award); |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}= |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}= |
$award; |
$award; |
Line 1135 sub scored_response {
|
Line 1159 sub scored_response {
|
sub whichorder { |
sub whichorder { |
my ($max,$randomize,$showall,$hash,$rndseed)=@_; |
my ($max,$randomize,$showall,$hash,$rndseed)=@_; |
#&Apache::lonxml::debug("man $max randomize $randomize"); |
#&Apache::lonxml::debug("man $max randomize $randomize"); |
if (!defined(@{ $$hash{'names'} })) { return; } |
|
my @names; |
my @names; |
if (ref($hash->{'names'}) eq 'ARRAY') { |
if (ref($hash->{'names'}) eq 'ARRAY') { |
@names = @{$hash->{'names'}}; |
@names = @{$hash->{'names'}}; |