version 1.94.2.1, 2008/12/21 05:22:01
|
version 1.98, 2009/08/03 10:40:00
|
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 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 106 sub end_imageresponse {
|
Line 187 sub end_imageresponse {
|
|
|
} |
} |
&Apache::response::end_response(); |
&Apache::response::end_response(); |
|
|
return $result; |
return $result; |
} |
} |
|
|
Line 635 sub end_image {
|
Line 715 sub end_image {
|
my ($commentline, $restofstuff) = split(/\n/, $src); |
my ($commentline, $restofstuff) = split(/\n/, $src); |
$graphinclude = $src; |
$graphinclude = $src; |
$graphinclude =~ s/^$commentline//; |
$graphinclude =~ s/^$commentline//; |
} else { |
} elsif (!($src =~ /\\/)) { |
my ($path,$file) = &Apache::londefdef::get_eps_image($src); |
my ($path,$file) = &Apache::londefdef::get_eps_image($src); |
my ($height_param,$width_param)= |
my ($height_param,$width_param)= |
&Apache::londefdef::image_size($src,0.3,$parstack,$safeeval); |
&Apache::londefdef::image_size($src,0.3,$parstack,$safeeval); |
$graphinclude = '\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'}'; |
$graphinclude = '\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'}'; |
|
} else { |
|
$graphinclude = $src; # Already fully formed. |
} |
} |
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent '.$graphinclude; |
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent '.$graphinclude; |
} |
} |