|
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"); |
![[BACK]](/icons/back.gif){kind=icon}
Return to imageresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework