loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.56, 2004/10/21 06:37:36	version 1.58, 2004/12/08 01:00:41
Line 120 sub prep_image {	Line 120 sub prep_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
if (defined($x) && $x=~/\S/ && defined($y) && $y =~/\S/) {	if (defined($x) && $x=~/\S/ && defined($y) && $y =~/\S/ && !&Apache::response::show_answer()) {
my $length = 6;	my $length = 6;
my $width = 1;	my $width = 1;
my $extrawidth = 2;	my $extrawidth = 2;