loncom/cgi/imagechoice.pl - diff

Return to imagechoice.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.1, 2003/02/12 01:58:37	version 1.2, 2003/04/19 23:52:37
Line 44 $filename =~ s/%([a-fA-F0-9][a-fA-F0-9])	Line 44 $filename =~ s/%([a-fA-F0-9][a-fA-F0-9])


if ((defined($data{'x'})) && (defined($data{'y'}))) {	if ((defined($data{'x'})) && (defined($data{'y'}))) {
	my $output='';
	if ($data{'formwidth'}) {
	$output.='parent.'.$data{'formname'}.'.'.$data{'formwidth'}.
	'.value=document.pickimg.width;';
	}
	if ($data{'formheight'}) {
	$output.='parent.'.$data{'formname'}.'.'.$data{'formheight'}.
	'.value=document.pickimg.height;';
	}
	if ($data{'formx'}) {
	$output.='parent.'.$data{'formname'}.'.'.$data{'formx'}.
	'.value='.$data{'x'}.';';
	}
	if ($data{'formy'}) {
	$output.='parent.'.$data{'formname'}.'.'.$data{'formy'}.
	'.value='.$data{'y'}.';';
	}
print <<"ENDSUBM";	print <<"ENDSUBM";
Content-type: text/html	Content-type: text/html

<html>	<html>
<script>	<script>
function submitthis() {	function submitthis() {
alert('Submitting '+document.pickimg.height+' '+document.pickimg.width);	$output
}	}
</script>	</script>
<body bgcolor="#FFFFFF" onLoad="submitthis()">	<body bgcolor="#FFFFFF" onLoad="submitthis()">