<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial size=2>Hi list,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>I have a problem with a CGI script - with zooming 
in/out.  
<DIV><FONT face=Arial size=2>My set_extent subroutine seems to work in that the 
map extent is changed, but when the map is drawn it presents as a little map in 
the top left hand corner if I am zooming in - it's like the exent is working but 
the scale of the map is not changing.  What am I missing?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>2 of my layers are b</FONT><FONT face=Arial size=2>eing created on the 
fly from a flat file.  One of the 'dynamic' layers is a shape and is added 
as a feature to the layer, the other is a set of points and labels.</FONT></DIV>
<DIV> </DIV></DIV>
<DIV><FONT face=Arial size=2>Help gratetfully received - as I am driven demented 
with this problem!</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Regards,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Marie</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Extract from the code:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>&set_extent($zoomdir, $zoomsize, $imgx, $imgy, 
@image_extent);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial 
size=2>$shape_layer->addFeature($shape);<BR>$shape_layer->close();</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2># Now draw all the map layers.  Point layer 
with labels will be drawn separately after this<BR>for my $i (0 
..($map->{numlayers}-1))<BR>{ <BR>   my $layer = 
$map->getLayer($i);<BR>   $success = $layer->draw($map, 
$image);<BR>   print DBG "Drew layer $layer->{name} --------- $i 
------ $success\n"; <BR>}<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>$num_stops = @stops_list -1;<BR>for my $i (0 .. 
$num_stops)<BR>{<BR>   $display_count = $i + 1;<BR>   my 
($x, $y, $desc) = split(/\t/, $stops_list[$i]);<BR>   if ($i==0) { 
$desc="[ $display_count ] START," . $desc; }<BR>   if ($i== 
($num_stops)) { $desc = "[ $display_count ] FINISH," . $desc; }<BR>   
if ($i > 0 && $i < ($num_stops)) { $desc = "[ $display_count ]"; 
}<BR>   print DBG "$stops_list[$i] ... $i ... $desc 
\n";<BR>   $draw_pt1=new pointObj();<BR>   $draw_pt1->{x} 
= $x;<BR>   $draw_pt1->{y} = $y;<BR>   
$draw_pt1->draw($map, $pt_label, $image, undef, "$desc"); <BR>   
$draw_pt2=new pointObj();<BR>   $draw_pt2->{x} = 
$x;<BR>   $draw_pt2->{y} = $y;<BR>   
$draw_pt2->draw($map, $pt_layer, $image, undef, undef); <BR>   
$i++;<BR>}</FONT></DIV></FONT></DIV></BODY></HTML>