version 1.90, 2007/10/15 09:47:29
|
version 1.95, 2008/11/12 20:01:21
|
Line 29
|
Line 29
|
#FIXME LATER assumes multiple possible submissions but only one is possible |
#FIXME LATER assumes multiple possible submissions but only one is possible |
#currently |
#currently |
|
|
|
|
|
=head1 NAME |
|
|
|
Apache::imageresponse |
|
|
|
=head1 SYNOPSIS |
|
|
|
Coordinates the response to clicking an image. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
|
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over |
|
|
|
=item * |
|
|
|
start_imageresponse() |
|
|
|
=item * |
|
|
|
end_imageresponse() |
|
|
|
=item * |
|
|
|
start_foilgroup() |
|
|
|
=item * |
|
|
|
getfoilcounts() |
|
|
|
=item * |
|
|
|
whichfoils() |
|
|
|
=item * |
|
|
|
prep_image() |
|
|
|
=item * |
|
|
|
draw_image() |
|
|
|
=item * |
|
|
|
displayfoils() |
|
|
|
=item * |
|
|
|
format_prior_response() |
|
|
|
=item * |
|
|
|
display_answers() |
|
|
|
=item * |
|
|
|
clean_up_image() |
|
|
|
=item * |
|
|
|
gradefoils() |
|
|
|
=item * |
|
|
|
stringify_submission() |
|
|
|
=item * |
|
|
|
get_submission() |
|
|
|
=item * |
|
|
|
end_foilgroup() |
|
|
|
=item * |
|
|
|
start_conceptgroup() |
|
|
|
=item * |
|
|
|
end_conceptgroup() |
|
|
|
=item * |
|
|
|
insert_foil() |
|
|
|
=item * |
|
|
|
start_foil() |
|
|
|
=item * |
|
|
|
end_foil() |
|
|
|
=item * |
|
|
|
start_text() |
|
|
|
=item * |
|
|
|
end_text() |
|
|
|
=item * |
|
|
|
start_image() |
|
|
|
|
|
=item * |
|
|
|
end_image() |
|
|
|
=item * |
|
|
|
start_rectangle() |
|
|
|
=item * |
|
|
|
grade_rectangle() |
|
|
|
=item * |
|
|
|
end_rectangle() |
|
|
|
=item * |
|
|
|
start_polygon() |
|
|
|
=item * |
|
|
|
grade_polygon() |
|
|
|
=item * |
|
|
|
end_polygon() |
|
|
|
=back |
|
|
|
=cut |
|
|
|
|
package Apache::imageresponse; |
package Apache::imageresponse; |
use strict; |
use strict; |
use Image::Magick(); |
use Image::Magick(); |
Line 59 sub start_imageresponse {
|
Line 205 sub start_imageresponse {
|
$result=&Apache::response::meta_package_write('imageresponse'); |
$result=&Apache::response::meta_package_write('imageresponse'); |
} elsif ($target eq 'analyze') { |
} elsif ($target eq 'analyze') { |
my $part_id="$Apache::inputtags::part.$id"; |
my $part_id="$Apache::inputtags::part.$id"; |
|
$Apache::lonhomework::analyze{"$part_id.type"} = 'imageresponse'; |
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); |
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id); |
push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, |
push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, |
1); |
1); |
Line 222 sub draw_image {
|
Line 369 sub draw_image {
|
} |
} |
} |
} |
} |
} |
&Apache::lonnet::appenv(%x); |
&Apache::lonnet::appenv(\%x); |
return $id; |
return $id; |
} |
} |
|
|
Line 237 sub displayfoils {
|
Line 384 sub displayfoils {
|
if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";} |
if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";} |
my $image=$Apache::response::foilgroup{"$name.image"}; |
my $image=$Apache::response::foilgroup{"$name.image"}; |
&Apache::lonxml::debug("image is $image"); |
&Apache::lonxml::debug("image is $image"); |
if ( $target eq 'web' && $image !~ /^http:/ ) { |
if ( ($target eq 'web' || $target eq 'answer') |
|
&& $image !~ /^http:/ ) { |
$image=&clean_up_image($image); |
$image=&clean_up_image($image); |
} |
} |
push(@images,$image); |
push(@images,$image); |
Line 302 sub display_answers {
|
Line 450 sub display_answers {
|
foreach my $name (@$whichopt) { |
foreach my $name (@$whichopt) { |
my $image=$Apache::response::foilgroup{"$name.image"}; |
my $image=$Apache::response::foilgroup{"$name.image"}; |
&Apache::lonxml::debug("image is $image"); |
&Apache::lonxml::debug("image is $image"); |
if ( $target eq 'web' && $image !~ /^http:/ ) { |
if ( ($target eq 'web' || $target eq 'answer') |
|
&& $image !~ /^http:/ ) { |
$image = &clean_up_image($image); |
$image = &clean_up_image($image); |
} |
} |
my $token=&prep_image($image,'answeronly',$name); |
my $token=&prep_image($image,'answeronly',$name); |
Line 364 sub gradefoils {
|
Line 513 sub gradefoils {
|
} elsif ($1 eq 'polygon') { |
} elsif ($1 eq 'polygon') { |
$grade=&grade_polygon($area,$x,$y); |
$grade=&grade_polygon($area,$x,$y); |
} else { |
} else { |
&Apache::lonxml::error("Unknown area style $area"); |
&Apache::lonxml::error(&mt('Unknown area style [_1]',$area)); |
} |
} |
&Apache::lonxml::debug("Area said $grade"); |
&Apache::lonxml::debug("Area said $grade"); |
if ($grade eq 'APPROX_ANS') { last; } |
if ($grade eq 'APPROX_ANS') { last; } |
Line 491 sub start_foil {
|
Line 640 sub start_foil {
|
$target eq 'analyze' || $target eq 'answer') { |
$target eq 'analyze' || $target eq 'answer') { |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
if ($name eq "") { |
if ($name eq "") { |
&Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction."); |
&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.')); |
$name=$Apache::lonxml::curdepth; |
$name=$Apache::lonxml::curdepth; |
} |
} |
if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
&Apache::lonxml::error(&mt("Foil name [_1] appears more than once. Foil names need to be unique." |
|
,'<b><tt>'.$name.'</tt></b>')); |
} |
} |
$Apache::response::foilnames{$name}++; |
$Apache::response::foilnames{$name}++; |
if ( $Apache::imageresponse::conceptgroup |
if ( $Apache::imageresponse::conceptgroup |