#!/usr/local/bin/perl
require 'html.pl';
#This routine takes any data that has been submitted via a form and
# returns it in an associative array called %data
&read_post_data;
# open_html sends the basic stuff needed at the top of the web page...
&open_html;
print <Grid Section 47
Get object coordinates in grid section 47
If you really want to ask your
teaching assistant or professor about an object, click on it. The
coordinates will appear below the image. Write the coordinates on
your lab sheet in Part I, Section C. When you're done,
return
to the main grid section 47 page to look for more Cepheids, or
return
to the main WF4 8x8 grid.
EOF
# Must put EOF at very beginning of line!!!
#first see if they've already clicked on the picture...
#the image type returns the .x and .y for the names of the
#values of the point clicked...very handy if we want to have
#different things happen based on where the user clicks.
#In this case, the field was named 'anim' so the values are
#stored in 'anim.x' and 'anim.y' which are both elements of the
#associative array %data.
if ($data{'anim.x'})
{
print "You clicked on the coordinates ($data{'anim.x'},";
print "$data{'anim.y'}) in grid section 47. Write the ";
print "coordinates and grid number on your lab sheet if ";
print "you wish to ask your teaching assistant or ";
print "professor about this object.
";
$xval=$data{'anim.x'};
$yval=$data{'anim.y'};
}
#this closes the html file (as the name would imply!)
&close_html;
exit;