|
version 1.48, 2005/06/22 12:03:23
|
version 1.50, 2007/02/22 01:25:31
|
|
Line 105 sub end_foilgroup {
|
Line 105 sub end_foilgroup {
|
| if (!defined($tol)) { $tol=0; } |
if (!defined($tol)) { $tol=0; } |
| if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'tex') { |
| $result=&displayfoils($target,$max,$randomize,$tol); |
$result=&displayfoils($target,$max,$randomize,$tol); |
| |
$Apache::lonxml::post_evaluate=0; |
| } elsif ($target eq 'answer' ) { |
} elsif ($target eq 'answer' ) { |
| $result=&displayanswers($max,$randomize,$tol); |
$result=&displayanswers($max,$randomize,$tol); |
| } elsif ( $target eq 'grade') { |
} elsif ( $target eq 'grade') { |
|
Line 166 sub displayanswers {
|
Line 167 sub displayanswers {
|
| if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; } |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; } |
| my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
| my @whichfoils = &whichfoils($max,$randomize); |
my @whichfoils = &whichfoils($max,$randomize); |
| my $result=&Apache::response::answer_header('rankresponse'); |
|
| my @correctorder=&get_correct_order($tol,@whichfoils); |
my @correctorder=&get_correct_order($tol,@whichfoils); |
| foreach my $order (@correctorder) { |
my $result; |
| $result.=&Apache::response::answer_part('rankresponse',$order); |
if ($Apache::lonhomework::type eq 'exam') { |
| |
my @alphabet = ('A'..'Z'); |
| |
my $i=0; |
| |
foreach my $order (@correctorder) { |
| |
$result.=&Apache::response::answer_header('rankresponse',$i++); |
| |
$result.=&Apache::response::answer_part('rankresponse', |
| |
$alphabet[$order-1]); |
| |
$result.=&Apache::response::answer_part('rankresponse',$order); |
| |
$result.=&Apache::response::answer_footer('rankresponse'); |
| |
} |
| |
} else { |
| |
$result=&Apache::response::answer_header('rankresponse'); |
| |
foreach my $order (@correctorder) { |
| |
$result.=&Apache::response::answer_part('rankresponse',$order); |
| |
} |
| |
$result.=&Apache::response::answer_footer('rankresponse'); |
| } |
} |
| $result.=&Apache::response::answer_footer('rankresponse'); |
|
| return $result; |
return $result; |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to rankresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework