version 1.142, 2007/04/16 22:50:41
|
version 1.143, 2007/04/17 23:25:09
|
Line 355 sub check_for_invalid {
|
Line 355 sub check_for_invalid {
|
} |
} |
} |
} |
|
|
sub setup_prior_tries_hash { |
|
my ($whichopt) = @_; |
|
my $part=$Apache::inputtags::part; |
|
my $id=$Apache::inputtags::response[-1]; |
|
foreach my $i (1..$Apache::lonhomework::history{'version'}) { |
|
my $key = "$i:resource.$part.$id.submission"; |
|
next if (!exists($Apache::lonhomework::history{"$key"})); |
|
my %lastresponse= |
|
&Apache::lonnet::str2hash($Apache::lonhomework::history{$key}); |
|
my $output; |
|
foreach my $name (@$whichopt) { |
|
next if (!defined($lastresponse{$name})); |
|
$output .= '<tr><td>'.$lastresponse{$name}.'</td></tr>'; |
|
} |
|
next if (!defined($output)); |
|
$output = |
|
'<table class="LC_prior_option">'.$output.'</table>'; |
|
$Apache::inputtags::submission_display{$key} = $output; |
|
} |
|
} |
|
|
|
sub displayfoils { |
sub displayfoils { |
my ($target,$max,$randomize,$TeXlayout,@opt)=@_; |
my ($target,$max,$randomize,$TeXlayout,@opt)=@_; |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
Line 499 sub displayfoils {
|
Line 478 sub displayfoils {
|
} |
} |
|
|
if ($target eq 'web') { |
if ($target eq 'web') { |
&setup_prior_tries_hash(\@whichopt); |
&Apache::response::setup_prior_tries_hash(\&Apache::rankresponse::format_prior_answer, |
|
[\@whichopt, |
|
'submissiongrading']); |
} |
} |
|
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |