smindel /
silverstripe-gis
| 1 | <?php |
||
| 2 | |||
| 3 | namespace Smindel\GIS\Forms; |
||
| 4 | |||
| 5 | use SilverStripe\Core\Config\Configurable; |
||
| 6 | use SilverStripe\Forms\GridField\GridField; |
||
| 7 | use SilverStripe\Forms\GridField\GridField_HTMLProvider; |
||
| 8 | use SilverStripe\Forms\GridField\GridField_DataManipulator; |
||
| 9 | use SilverStripe\View\Requirements; |
||
| 10 | use SilverStripe\Core\Injector\Injectable; |
||
| 11 | use SilverStripe\Core\Config\Config; |
||
| 12 | use SilverStripe\ORM\SS_List; |
||
| 13 | use Smindel\GIS\GIS; |
||
| 14 | use proj4php\Proj4php; |
||
| 15 | use proj4php\Proj; |
||
| 16 | use proj4php\Point; |
||
| 17 | |||
| 18 | /** |
||
| 19 | * GridFieldPaginator paginates the {@link GridField} list and adds controls |
||
| 20 | * to the bottom of the {@link GridField}. |
||
| 21 | */ |
||
| 22 | class GridFieldMap implements GridField_HTMLProvider, GridField_DataManipulator |
||
| 23 | { |
||
| 24 | use Injectable; |
||
| 25 | |||
| 26 | use Configurable; |
||
| 27 | |||
| 28 | protected $attribute; |
||
| 29 | |||
| 30 | 1 | public function __construct($attribute = null) |
|
| 31 | { |
||
| 32 | 1 | $this->attribute = $attribute; |
|
| 33 | 1 | } |
|
| 34 | |||
| 35 | /** |
||
| 36 | * |
||
| 37 | * @param GridField $gridField |
||
| 38 | * @return array |
||
| 39 | */ |
||
| 40 | 1 | public function getHTMLFragments($gridField) |
|
| 41 | { |
||
| 42 | 1 | $srid = GIS::config()->default_srid; |
|
| 43 | 1 | $proj = GIS::config()->projections[$srid]; |
|
| 44 | |||
| 45 | 1 | Requirements::javascript('smindel/silverstripe-gis: client/dist/js/leaflet.js'); |
|
| 46 | 1 | Requirements::javascript('smindel/silverstripe-gis: client/dist/js/leaflet.markercluster.js'); |
|
| 47 | 1 | Requirements::javascript('smindel/silverstripe-gis: client/dist/js/leaflet-search.js'); |
|
| 48 | 1 | Requirements::javascript('smindel/silverstripe-gis: client/dist/js/proj4.js'); |
|
| 49 | 1 | Requirements::customScript(sprintf('proj4.defs("EPSG:%s", "%s");', $srid, $proj), 'EPSG:' . $srid); |
|
| 50 | 1 | Requirements::javascript('smindel/silverstripe-gis: client/dist/js/GridFieldMap.js'); |
|
| 51 | 1 | Requirements::css('smindel/silverstripe-gis: client/dist/css/leaflet.css'); |
|
| 52 | 1 | Requirements::css('smindel/silverstripe-gis: client/dist/css/MarkerCluster.css'); |
|
| 53 | 1 | Requirements::css('smindel/silverstripe-gis: client/dist/css/MarkerCluster.Default.css'); |
|
| 54 | 1 | Requirements::css('smindel/silverstripe-gis: client/dist/css/leaflet-search.css'); |
|
| 55 | |||
| 56 | 1 | $defaultLocation = Config::inst()->get(MapField::class, 'default_location'); |
|
| 57 | |||
| 58 | return array( |
||
| 59 | 1 | 'before' => sprintf( |
|
| 60 | 1 | '<div class="grid-field-map" data-map-center="%s" data-list="%s" style="z-index:0;"></div>', |
|
| 61 | 1 | GIS::create([$defaultLocation['lon'], $defaultLocation['lat']]), |
|
| 62 | 1 | htmlentities( |
|
| 63 | 1 | self::get_geojson_from_list( |
|
| 64 | 1 | $gridField->getList(), |
|
| 65 | 1 | $this->attribute ?: GIS::of($gridField->getList()->dataClass()) |
|
|
0 ignored issues
–
show
Bug
introduced
by
Loading history...
|
|||
| 66 | ), |
||
| 67 | 1 | ENT_QUOTES, |
|
| 68 | 1 | 'UTF-8' |
|
| 69 | ) |
||
| 70 | ), |
||
| 71 | ); |
||
| 72 | } |
||
| 73 | |||
| 74 | 1 | public static function get_geojson_from_list($list, $geometryField = null) |
|
| 75 | { |
||
| 76 | 1 | $modelClass = $list->dataClass(); |
|
| 77 | |||
| 78 | 1 | $geometryField = $geometryField ?: GIS::of($modelClass); |
|
| 79 | |||
| 80 | 1 | $collection = []; |
|
| 81 | |||
| 82 | 1 | foreach ($list as $item) { |
|
| 83 | 1 | if (!$item->canView()) { |
|
| 84 | continue; |
||
| 85 | } |
||
| 86 | |||
| 87 | 1 | $geo = GIS::create($item->$geometryField)->reproject(4326); |
|
| 88 | |||
| 89 | 1 | $collection[$item->ID] = [ |
|
| 90 | 1 | $item->Title, |
|
| 91 | 1 | $geo->type, |
|
| 92 | 1 | $geo->coordinates, |
|
| 93 | ]; |
||
| 94 | } |
||
| 95 | |||
| 96 | 1 | return json_encode($collection); |
|
| 97 | } |
||
| 98 | |||
| 99 | /** |
||
| 100 | * Manipulate the {@link DataList} as needed by this grid modifier. |
||
| 101 | * |
||
| 102 | * @param GridField $gridField |
||
| 103 | * @param SS_List $dataList |
||
| 104 | * @return \SilverStripe\ORM\DataList |
||
| 105 | */ |
||
| 106 | public function getManipulatedData(GridField $gridField, SS_List $dataList) |
||
| 107 | { |
||
| 108 | return $dataList; |
||
| 109 | } |
||
| 110 | } |
||
| 111 |