loncom/homework/imagechoice.pm - diff

Return to imagechoice.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.5, 2004/02/24 00:14:01	version 1.6, 2004/09/09 20:35:10
Line 230 sub handler {	Line 230 sub handler {
my $type=$ENV{"imagechoice.$id.type"};	my $type=$ENV{"imagechoice.$id.type"};
if (defined($ENV{'form.type'})) { $type=$ENV{'form.type'}; }	if (defined($ENV{'form.type'})) { $type=$ENV{'form.type'}; }
my $numcoords=&savecoord($id,$type);	my $numcoords=&savecoord($id,$type);
&Apache::lonnet::logthis("num coords is $numcoords");
my $imurl=&drawimage($r,$type,$filename,$id);	my $imurl=&drawimage($r,$type,$filename,$id);
if (($ENV{'form.finish'} eq 'Finish')) {	if (($ENV{'form.finish'} eq 'Finish')) {
&storedata($r,$type,$imurl,$id);	&storedata($r,$type,$imurl,$id);