version 1.50, 2007/02/22 01:25:31
|
version 1.52, 2007/04/17 23:25:09
|
Line 264 sub grade_response {
|
Line 264 sub grade_response {
|
&Apache::response::handle_previous(\%previous,$ad); |
&Apache::response::handle_previous(\%previous,$ad); |
} |
} |
|
|
|
sub format_prior_answer { |
|
my ($mode,$answer,$other_data) = @_; |
|
my %lastresponse=&Apache::lonnet::str2hash($answer); |
|
my $foil_order =$other_data->[0]; |
|
my %grading =&Apache::lonnet::str2hash($other_data->[1]); |
|
my $output; |
|
foreach my $name (@{ $foil_order }) { |
|
next if (!defined($lastresponse{$name})); |
|
$output .= '<tr><td>'.$lastresponse{$name}.'</td></tr>'; |
|
} |
|
return if (!defined($output)); |
|
$output = |
|
'<table class="LC_prior_rank">'.$output.'</table>'; |
|
return $output; |
|
} |
|
|
sub displayfoils { |
sub displayfoils { |
my ($target,$max,$randomize,$tol)=@_; |
my ($target,$max,$randomize,$tol)=@_; |
my $result; |
my $result; |
Line 305 sub displayfoils {
|
Line 321 sub displayfoils {
|
} |
} |
} |
} |
if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') { |
if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') { |
$optionlist='<select name="HWVAL_'. |
$optionlist='<select onchange="javascript:setSubmittedPart(\''. |
|
$part.'\');" name="HWVAL_'. |
$Apache::inputtags::response[-1].':'.$temp.'">'. |
$Apache::inputtags::response[-1].':'.$temp.'">'. |
$optionlist."</select>\n"; |
$optionlist."</select>\n"; |
} else { |
} else { |
Line 334 sub displayfoils {
|
Line 351 sub displayfoils {
|
$temp++; |
$temp++; |
} |
} |
} |
} |
|
if ($target eq 'web') { |
|
&Apache::response::setup_prior_tries_hash(\&format_prior_answer, |
|
[\@whichfoils, |
|
'submissiongrading']); |
|
} |
if ($target ne 'tex') {$result.="<br />";} else {$result.=' \vskip 0 mm ';} |
if ($target ne 'tex') {$result.="<br />";} else {$result.=' \vskip 0 mm ';} |
return $result; |
return $result; |
} |
} |