loncom/homework/imagechoice.pm - diff

Return to imagechoice.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.13, 2007/05/02 01:33:02	version 1.14, 2008/03/12 02:46:53
Line 165 sub savecoord {	Line 165 sub savecoord {
$data=join(':',($env{"imagechoice.$id.coords"},	$data=join(':',($env{"imagechoice.$id.coords"},
$env{"form.image.x"},$env{"form.image.y"}));	$env{"form.image.x"},$env{"form.image.y"}));
}	}
&Apache::lonnet::appenv("imagechoice.$id.coords"=>$data);	&Apache::lonnet::appenv({"imagechoice.$id.coords"=>$data});
}	}
return int(scalar(split(':',$env{"imagechoice.$id.coords"}))/2);	return int(scalar(split(':',$env{"imagechoice.$id.coords"}))/2);
}	}
Line 237 sub drawimage {	Line 237 sub drawimage {
&drawX(\%data,$imid,$x,$y);	&drawX(\%data,$imid,$x,$y);
if ($type eq "polygon") { &drawPolygon(\%data,$id,$imid); }	if ($type eq "polygon") { &drawPolygon(\%data,$id,$imid); }
if ($type eq "box") { &drawBox(\%data,$id,$imid); }	if ($type eq "box") { &drawBox(\%data,$id,$imid); }
&Apache::lonnet::appenv(%data);	&Apache::lonnet::appenv(\%data);
return "/adm/randomlabel.png?token=$imid"	return "/adm/randomlabel.png?token=$imid"
}	}