version 1.88, 2013/04/25 17:58:32
|
version 1.91, 2014/05/05 17:40:54
|
Line 580 sub format_prior_answer {
|
Line 580 sub format_prior_answer {
|
my $output; |
my $output; |
|
|
foreach my $name (@{ $foil_order }) { |
foreach my $name (@{ $foil_order }) { |
my $item=shift(@items); |
my $item = &HTML::Entities::encode(shift(@items),'<>&"'); |
|
if ($item eq '') { |
|
$item = ' '; |
|
} |
$output .= '<tr><td>'.$item.'</td></tr>'; |
$output .= '<tr><td>'.$item.'</td></tr>'; |
} |
} |
return if (!defined($output)); |
return if (!defined($output)); |
Line 652 sub displayfoils {
|
Line 655 sub displayfoils {
|
$newvariation = 1; |
$newvariation = 1; |
} |
} |
} |
} |
unless ((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred') && (defined($env{'form.grade_symb'}))) || $newvariation) { |
unless ($newvariation) { |
$lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) || |
|
(($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); |
my @alphabet=('A'..'Z'); |
my @alphabet=('A'..'Z'); |
my @used_letters=sort(keys(%letter_name_map)); |
my @used_letters=sort(keys(%letter_name_map)); |