--- loncom/homework/imageresponse.pm 2006/05/18 22:02:03 1.77 +++ loncom/homework/imageresponse.pm 2006/05/30 12:45:37 1.78 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # image click response style # -# $Id: imageresponse.pm,v 1.77 2006/05/18 22:02:03 albertel Exp $ +# $Id: imageresponse.pm,v 1.78 2006/05/30 12:45:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,6 +37,9 @@ use Apache::londefdef(); use Apache::Constants qw(:common :http); use Apache::lonlocal; use Apache::lonnet; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + BEGIN { &Apache::lonxml::register('Apache::imageresponse',('imageresponse')); @@ -131,7 +134,7 @@ sub prep_image { my $respid=$Apache::inputtags::response['-1']; my $id=&Apache::loncommon::get_cgi_id(); my (%x,$i); - $x{"cgi.$id.BGIMG"}=&Apache::lonnet::escape($image); + $x{"cgi.$id.BGIMG"}=&escape($image); my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.submission"}); #draws 2 xs on the image at the clicked location #one in white and then one in red on top of the one in white