--- loncom/homework/imageresponse.pm 2004/01/14 22:59:18 1.44 +++ loncom/homework/imageresponse.pm 2004/01/28 20:00:26 1.46 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # image click response style # -# $Id: imageresponse.pm,v 1.44 2004/01/14 22:59:18 albertel Exp $ +# $Id: imageresponse.pm,v 1.46 2004/01/28 20:00:26 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,6 +33,7 @@ package Apache::imageresponse; use strict; use Image::Magick; use Apache::randomlylabel; +use Apache::londefdef; use Apache::Constants qw(:common :http); BEGIN { @@ -469,11 +470,8 @@ sub end_image { $Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; } } else { - my $temp_file; - my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat"; - $temp_file = Apache::File->new('>>'.$filename); - print $temp_file "$src\n"; - $Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \graphicspath{{/home/httpd/prtspool/}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; + #care about eps dynamical generation + $Apache::response::foilgroup{"$name.image"}='\vskip 0 mm '.&Apache::londefdef::eps_generation($src,$file,$width_param); } } return $result;