loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.77, 2006/05/18 22:02:03	version 1.78, 2006/05/30 12:45:37
Line 37 use Apache::londefdef();	Line 37 use Apache::londefdef();
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::imageresponse',('imageresponse'));	&Apache::lonxml::register('Apache::imageresponse',('imageresponse'));
Line 131 sub prep_image {	Line 134 sub prep_image {
my $respid=$Apache::inputtags::response['-1'];	my $respid=$Apache::inputtags::response['-1'];
my $id=&Apache::loncommon::get_cgi_id();	my $id=&Apache::loncommon::get_cgi_id();
my (%x,$i);	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"});	my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.submission"});
#draws 2 xs on the image at the clicked location	#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	#one in white and then one in red on top of the one in white