--- loncom/cgi/imagechoice.pl 2003/02/12 01:58:37 1.1 +++ loncom/cgi/imagechoice.pl 2003/05/06 11:54:08 1.3 @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: imagechoice.pl,v 1.1 2003/02/12 01:58:37 www Exp $ +# $Id: imagechoice.pl,v 1.3 2003/05/06 11:54:08 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,13 +44,31 @@ $filename =~ s/%([a-fA-F0-9][a-fA-F0-9]) if ((defined($data{'x'})) && (defined($data{'y'}))) { + my $output=''; + if ($data{'formwidth'}) { + $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formwidth'}. + '.value=document.pickimg.width;'; + } + if ($data{'formheight'}) { + $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formheight'}. + '.value=document.pickimg.height;'; + } + if ($data{'formx'}) { + $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formx'}. + '.value='.$data{'x'}.';'; + } + if ($data{'formy'}) { + $output.='opener.document.forms.'.$data{'formname'}.'.'.$data{'formy'}. + '.value='.$data{'y'}.';'; + } print <<"ENDSUBM"; Content-type: text/html