version 1.156, 2013/04/25 17:58:32
|
version 1.157, 2013/04/30 03:03:34
|
Line 376 sub get_last_survey_response {
|
Line 376 sub get_last_survey_response {
|
} |
} |
} |
} |
$showanswer = &Apache::response::show_answer(); |
$showanswer = &Apache::response::show_answer(); |
unless ( |
unless ($newvariation && !$showanswer) { |
( |
if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) || |
( |
(($env{'form.grade_username'} eq $env{'user.name'}) && |
$Apache::lonhomework::history{"resource.$part.type"} eq |
($env{'form.grade_domain'} eq $env{'user.domain'}))) { |
'anonsurvey' |
$lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"}; |
) |
} else { |
|| ( $Apache::lonhomework::history{"resource.$part.type"} eq |
unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || |
'anonsurveycred' ) |
($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) { |
) |
$lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"}; |
&& ( defined( $env{'form.grade_symb'} ) ) |
} |
|| ( $newvariation && !$showanswer ) |
} |
) |
|
{ |
|
$lastresponse = |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
} |
} |
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
|
|
|
|
return \%lastresponse; |
return \%lastresponse; |
|
|
Line 874 sub get_last_response {
|
Line 869 sub get_last_response {
|
} |
} |
} |
} |
unless ($newvariation) { |
unless ($newvariation) { |
$lastresponse = |
if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) || |
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
(($env{'form.grade_username'} eq $env{'user.name'}) && |
|
($env{'form.grade_domain'} eq $env{'user.domain'}))) { |
|
$lastresponse = |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
} else { |
|
unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || |
|
($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) { |
|
$lastresponse = |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
|
|
} |
|
} |
} |
} |
|
|
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
|
|
return \%lastresponse; |
return \%lastresponse; |