<PRE class=literal-block>CAN ANY BODY HELP ME IN TRANSLATE THIS TO TCL</PRE><PRE class=literal-block> map = mapscript.Map('rquery.map')</PRE><PRE class=literal-block> layer = map.getLayer(0)    </PRE><PRE class=literal-block> pnt = mapscript.Point()  </PRE><PRE class=literal-block> pnt.x = 440780  pnt.y = 3751260      </PRE><PRE class=literal-block>layer.queryByPoint( map, pnt, mapscript.MS_MULTIPLE, 180.0 )    </PRE><PRE class=literal-block>layer.open()  for i in range(1000):    </PRE><PRE class=literal-block>result = layer.getResult( i )    </PRE><PRE class=literal-block>if result is None:      </PRE><PRE class=literal-block>break            </PRE><PRE class=literal-block>print '(%d,%d)' % (result.shapeindex, result.tileindex)            </PRE><PRE class=literal-block>s = layer.getShape( result.shapeindex, result.tileindex )    </PRE><PRE class=literal-block>for i in range(layer.numitems):      </PRE><PRE class=literal-block>print '%s: %s' % (layer.getItem(i), s.getValue(i))       
       </PRE><PRE class=literal-block>layer.close()  </PRE><p>
                <hr size=1>Yahoo! Mail<br>
Bring photos to life! <a href="http://pa.yahoo.com/*http://us.rd.yahoo.com/evt=39174/*http://photomail.mail.yahoo.com">New PhotoMail </a> makes sharing a breeze.