loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.142, 2007/04/16 22:50:41
+version 1.143, 2007/04/17 23:25:09
  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 {
    my ($target,$max,$randomize,$TeXlayout,@opt)=@_;
    if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;}
- Line 499  sub displayfoils {
+ Line 478  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') {