Non geocoded addresses could not be saved.
[platal.git] / modules / geoloc.php
CommitLineData
7b14a2a0 1<?php
2/***************************************************************************
8d84c630 3 * Copyright (C) 2003-2009 Polytechnique.org *
7b14a2a0 4 * http://opensource.polytechnique.org/ *
5 * *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
10 * *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
15 * *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
22class GeolocModule extends PLModule
23{
24 function handlers()
25 {
26 return array(
0bf274a8 27 'geoloc' => $this->make_hook('default', AUTH_COOKIE),
92423144 28 'admin/geoloc' => $this->make_hook('admin', AUTH_MDP, 'admin'),
29 'admin/geoloc/dynamap' => $this->make_hook('admin_dynamap', AUTH_MDP, 'admin'),
b235d980 30 'admin/geoloc/country' => $this->make_hook('admin_country', AUTH_MDP, 'admin')
7b14a2a0 31 );
32 }
33
8c4a0c30 34 function handler_default(&$page, $action = null, $subaction = null)
7b14a2a0 35 {
36 global $globals;
37
8c4a0c30 38 $set = new UserSet();
39 $set->addMod('geoloc', 'Geolocalisation', true);
0e2472b6 40 $set->apply('geoloc', $page, $action, $subaction);
7b14a2a0 41 }
92423144 42
43 function handler_admin(&$page, $action = false) {
163eddd2 44 $page->changeTpl('geoloc/admin.tpl');
92423144 45 require_once("geoloc.inc.php");
46f272fe 46 $page->setTitle('Administration - Geolocalisation');
eaf30d86 47
92423144 48 $nb_synchro = 0;
eaf30d86 49
92423144 50 if (Env::has('id') && is_numeric(Env::v('id'))) {
51 if (synchro_city(Env::v('id'))) $nb_synchro ++;
52 }
eaf30d86 53
92423144 54 if ($action == 'missinglat') {
55 $res = XDB::iterRow("SELECT id FROM geoloc_city WHERE lat = 0 AND lon = 0");
56 while ($a = $res->next()) if (synchro_city($a[0])) $nb_synchro++;
57 }
eaf30d86
PH
58
59 if ($nb_synchro)
a7d35093 60 $page->trigSuccess(($nb_synchro > 1)?($nb_synchro." villes ont été synchronisées"):"Une ville a été synchronisée");
eaf30d86 61
92423144 62 $res = XDB::query("SELECT COUNT(*) FROM geoloc_city WHERE lat = 0 AND lon = 0");
63 $page->assign("nb_missinglat", $res->fetchOneCell());
64 }
eaf30d86 65
92423144 66 function handler_admin_dynamap(&$page, $action = false) {
163eddd2 67 $page->changeTpl('geoloc/admin_dynamap.tpl');
eaf30d86 68
92423144 69 if ($action == 'cities_not_on_map') {
70 require_once('geoloc.inc.php');
71 if (!fix_cities_not_on_map(20))
a7d35093 72 $page->trigError("Impossible d'accéder au webservice");
92423144 73 else
74 $refresh = true;
75 }
eaf30d86 76
92423144 77 if ($action == 'smallest_maps') {
78 require_once('geoloc.inc.php');
79 set_smallest_levels();
80 }
eaf30d86 81
92423144 82 if ($action == 'precise_coordinates') {
de0485fd
FB
83 XDB::execute("UPDATE adresses AS a
84 INNER JOIN geoloc_city AS c ON(a.cityid = c.id)
85 SET a.glat = c.lat / 100000, a.glng = c.lon / 100000");
92423144 86 }
eaf30d86 87
92423144 88 if ($action == 'newmaps') {
89 require_once('geoloc.inc.php');
90 if (!get_new_maps(Env::v('url')))
a7d35093 91 $page->trigError("Impossible d'accéder aux nouvelles cartes");
92423144 92 }
eaf30d86 93
92423144 94 $countMissing = XDB::query("SELECT COUNT(*) FROM geoloc_city AS c LEFT JOIN geoloc_city_in_maps AS m ON(c.id = m.city_id) WHERE m.city_id IS NULL");
95 $missing = $countMissing->fetchOneCell();
eaf30d86 96
92423144 97 $countNoSmallest = XDB::query("SELECT SUM(IF(infos = 'smallest',1,0)) AS n FROM geoloc_city_in_maps GROUP BY city_id ORDER BY n");
98 $noSmallest = $countNoSmallest->fetchOneCell() == 0;
eaf30d86 99
92423144 100 $countNoCoordinates = XDB::query("SELECT COUNT(*) FROM adresses WHERE cityid IS NOT NULL AND glat = 0 AND glng = 0");
101 $noCoordinates = $countNoCoordinates->fetchOneCell();
eaf30d86 102
92423144 103 if (isset($refresh) && $missing) {
91ebb7ff 104 $page->assign("pl_extra_header", "<meta http-equiv='Refresh' content='3'/>");
92423144 105 }
106 $page->assign("nb_cities_not_on_map", $missing);
107 $page->assign("no_smallest", $noSmallest);
108 $page->assign("no_coordinates", $noCoordinates);
109 }
eaf30d86 110
b235d980
GB
111 function handler_admin_country(&$page, $action = 'list', $id = null)
112 {
113 $page->assign('xorg_title', 'Polytechnique.org - Administration - Pays');
114 $page->assign('title', 'Gestion des pays');
115 $table_editor = new PLTableEditor('admin/geoloc/country', 'geoloc_pays', 'a2', true);
116 $table_editor->describe('a2', 'alpha-2', true);
117 $table_editor->describe('a3', 'alpha-3', false);
118 $table_editor->describe('n3', 'ISO numeric', false);
119 $table_editor->describe('num', 'num', false);
120 $table_editor->describe('worldrgn', 'Continent', false);
121 $table_editor->describe('subd', 'Subdivisions territoriales', false);
122 $table_editor->describe('post', 'post', false);
123 $table_editor->describe('pays', 'Nom (fr)', true);
124 $table_editor->describe('country', 'Nom (en)', true);
125 $table_editor->describe('phoneprf', 'Préfixe téléphonique', true);
126 $table_editor->describe('phoneformat', 'Format du téléphone (ex: (+p) ### ## ## ##)', false);
127 $table_editor->describe('capital', 'Capitale', true);
128 $table_editor->describe('nat', 'Nationalité', true);
129 $table_editor->describe('display', 'Format des adresses', false);
130
131 if ($action == 'update') {
132 if (Post::has('a2') && (Post::v('a2') == $id) && Post::has('phoneprf') && (Post::v('phoneprf') != '')) {
133 if (Post::has('phoneformat')) {
134 $new_format = Post::v('phoneformat');
135 } else {
136 $new_format = '';
137 }
138 $res = XDB::query("SELECT phoneformat
139 FROM geoloc_pays
140 WHERE phoneprf = {?}
141 LIMIT 1",
142 Post::v('phoneprf'));
143 $old_format = $res->fetchOneCell();
144 if ($new_format != $old_format) {
145 require_once("profil.func.inc.php");
146 XDB::execute("UPDATE geoloc_pays
147 SET phoneformat = {?}
148 WHERE phoneprf = {?}",
149 $new_format, Post::v('phoneprf'));
150 }
151 }
152 }
153 $table_editor->apply($page, $action, $id);
154 }
155
7b14a2a0 156}
157
a7de4ef7 158// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
7b14a2a0 159?>