version 1.49, 2005/01/10 19:21:57
|
version 1.50, 2005/01/31 22:00:40
|
Line 309 sub grade_response {
|
Line 309 sub grade_response {
|
$randomize, |
$randomize, |
&Apache::response::showallfoils(), |
&Apache::response::showallfoils(), |
\%Apache::response::foilgroup); |
\%Apache::response::foilgroup); |
if (!defined($ENV{'form.submitted'})) { return; } |
if (!&Apache::response::submitted()) { return; } |
my %responsehash; |
my %responsehash; |
my %grade; |
my %grade; |
my ($temp,$right,$wrong,$ignored)=(1,0,0,0); |
my ($temp,$right,$wrong,$ignored)=(1,0,0,0); |