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