version 1.10, 2001/08/06 17:37:12
|
version 1.11, 2001/08/06 17:39:37
|
Line 273 sub start_rectangle {
|
Line 273 sub start_rectangle {
|
return ''; |
return ''; |
} |
} |
|
|
# ============================================================= Grade rectangle |
# ====================================== Grade rectangle (return scalar string) |
sub grade_rectangle { |
sub grade_rectangle { |
my ($spec,$x,$y) = @_; |
my ($spec,$x,$y) = @_; |
&Apache::lonxml::debug("Spec is $spec"); |
&Apache::lonxml::debug("Spec is $spec"); |
Line 292 sub grade_rectangle {
|
Line 292 sub grade_rectangle {
|
|
|
# =============================================================== End rectangle |
# =============================================================== End rectangle |
sub end_rectangle { |
sub end_rectangle { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
if ($target eq 'web' || $target eq 'grade') { |
if ($target eq 'web' || $target eq 'grade') { |
my $name = $Apache::imageresponse::curname; |
my $name = $Apache::imageresponse::curname; |
my $area = &Apache::lonxml::endredirection; |
my $area = &Apache::lonxml::endredirection; |
&Apache::lonxml::debug("out is $area for $name"); |
&Apache::lonxml::debug("out is $area for $name"); |
if ( $Apache::imageresponse::conceptgroup ) { |
if ( $Apache::imageresponse::conceptgroup ) { |
push @{ $Apache::response::conceptgroup{"$name.area"} }, |
push @{ $Apache::response::conceptgroup{"$name.area"} }, |
"rectangle:$area"; |
"rectangle:$area"; |
} else { |
} else { |
push @{ $Apache::response::foilgroup{"$name.area"} },"rectangle:$area"; |
push @{ $Apache::response::foilgroup{"$name.area"} }, |
|
"rectangle:$area"; |
|
} |
} |
} |
} |
return ''; |
return ''; |
|
} |
} |
|
|
1; |
1; |