--- loncom/homework/optionresponse.pm 2007/04/16 22:50:41 1.142
+++ loncom/homework/optionresponse.pm 2007/06/26 20:51:53 1.144
@@ -1,7 +1,7 @@
# LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.142 2007/04/16 22:50:41 albertel Exp $
+# $Id: optionresponse.pm,v 1.144 2007/06/26 20:51:53 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -355,27 +355,6 @@ 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 .= '
'.$lastresponse{$name}.' |
';
- }
- next if (!defined($output));
- $output =
- '';
- $Apache::inputtags::submission_display{$key} = $output;
- }
-}
-
sub displayfoils {
my ($target,$max,$randomize,$TeXlayout,@opt)=@_;
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;}
@@ -499,7 +478,9 @@ sub displayfoils {
}
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') {
@@ -724,25 +705,29 @@ sub end_foil {
sub start_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- if (($target ne 'meta') && ($target ne 'answer')) {
+ if ($target !~ /^(?:meta|answer|modified|edit)$/) {
return $token->[4];
}
}
sub end_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
- if (($target ne 'meta') && ($target ne 'answer')) {
+ if ($target !~ /^(?:meta|answer|modified|edit)$/) {
return $token->[2];
}
}
sub insert_foil {
- return '
+ return '
';
}
+
+sub insert_drawoptionlist {
+ return '';
+}
1;
__END__