version 1.103, 2011/11/14 03:08:01
|
version 1.104, 2012/10/12 12:45:46
|
Line 212 sub getfoilcounts {
|
Line 212 sub getfoilcounts {
|
|
|
sub whichfoils { |
sub whichfoils { |
my ($max)=@_; |
my ($max)=@_; |
return if (!defined(@{ $Apache::response::foilgroup{'names'} })); |
my @names; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') { |
|
@names = @{ $Apache::response::foilgroup{'names'} }; |
|
} |
|
return if (!@names); |
my @whichopt; |
my @whichopt; |
while ((($#whichopt+1) < $max) && ($#names > -1)) { |
while ((($#whichopt+1) < $max) && ($#names > -1)) { |
&Apache::lonxml::debug("Have $#whichopt max is $max"); |
&Apache::lonxml::debug("Have $#whichopt max is $max"); |
Line 473 sub gradefoils {
|
Line 476 sub gradefoils {
|
my ($x,$y) = split(':',$env{"form.HWVAL_$id:$temp"}); |
my ($x,$y) = split(':',$env{"form.HWVAL_$id:$temp"}); |
$response{$name} = $env{"form.HWVAL_$id:$temp"}; |
$response{$name} = $env{"form.HWVAL_$id:$temp"}; |
&Apache::lonxml::debug("Got a x of $x and a y of $y for $name"); |
&Apache::lonxml::debug("Got a x of $x and a y of $y for $name"); |
if (defined($x) && defined($y) && |
my @areas; |
defined(@{ $Apache::response::foilgroup{"$name.area"} })) { |
if (ref($Apache::response::foilgroup{"$name.area"}) eq 'ARRAY') { |
my @areas = @{ $Apache::response::foilgroup{"$name.area"} }; |
@areas = @{ $Apache::response::foilgroup{"$name.area"} }; |
|
} |
|
if (defined($x) && defined($y) && @areas) { |
my $grade="INCORRECT"; |
my $grade="INCORRECT"; |
foreach my $area (@areas) { |
foreach my $area (@areas) { |
&Apache::lonxml::debug("Area is $area for $name"); |
&Apache::lonxml::debug("Area is $area for $name"); |