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); |