Changes between Initial Version and Version 1 of layerObj


Ignore:
Timestamp:
Jan 29, 2009, 10:17:37 AM (13 years ago)
Author:
jmckenna
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • layerObj

    v1 v1  
     1= layerObj =
     2{{{
     3#!perl
     4$layer = new mapscript::layerObj($map);
     5
     6$num_classes = $layer->{numclasses};
     7
     8$result_cache = $layer->{resultcache};
     9
     10$qryresult = $layer->queryByPoint($map,$point,$mapscript::MS_SINGLE,0);
     11
     12$resultmember = $layer->getResult(0);
     13
     14$query = "(([AREA]>500000 AND [AREA]<=1000000) AND ([CODE]=311 OR [CODE]=312))";
     15$layer->setFilter($query);
     16
     17my $layer = $map->getLayerByName('parcel');
     18
     19$layer->{status} = $mapscript::MS_ON;
     20
     21$layer->{data} = "$scan.tif";
     22
     23$layer->{transparency} = 100;
     24
     25my $class = $layer->getClass(0);
     26
     27my $query_status = $st_poly_layer->queryByRect($map,$rectang);
     28my $result_mem = $st_poly_layer->getResult(0);
     29my $result_cache = $st_poly_layer->{resultcache};
     30
     31my $sing_layer_idx = $sing_layer->{index};
     32$sing_layer->queryByRect($map,$rectang); # ** set of results **
     33$prcl_dim_layer->queryByFeatures($map,$sing_layer_idx);
     34}}}
     35----
     36back to PerlMapScript