source: spip-zone/_plugins_/formidable/trunk/formulaires/exporter_formulaire_reponses.php @ 106383

Last change on this file since 106383 was 106383, checked in by marcimat@…, 2 years ago

L’export de 1000 réponses passe de 1000 requêtes à 9 requêtes SQL, et 10s de travail.
C'est encore très long.

File size: 8.6 KB
Line 
1<?php
2
3// Sécurité
4if (!defined('_ECRIRE_INC_VERSION')) {
5        return;
6}
7
8include_spip('inc/formidable');
9include_spip('inc/formidable_fichiers');
10include_spip('inc/config');
11
12function formulaires_exporter_formulaire_reponses_charger($id_formulaire = 0) {
13        $contexte                  = array();
14        $contexte['id_formulaire'] = intval($id_formulaire);
15
16        return $contexte;
17}
18
19function formulaires_exporter_formulaire_reponses_verifier($id_formulaire = 0) {
20        $erreurs = array();
21
22        if (_request('date_debut') && _request('date_fin')) {
23                // Vérifions que la date debut soit < date de fin
24                if (strtotime(str_replace('/', '-', _request('date_debut'))) > strtotime(str_replace('/', '-', _request('date_fin')))) {
25                        $erreurs['message_erreur'] = _T('formidable:exporter_formulaire_date_erreur');
26                }
27        }
28
29        return $erreurs;
30}
31
32function formulaires_exporter_formulaire_reponses_traiter($id_formulaire = 0) {
33        $retours         = array();
34        $statut_reponses = _request('statut_reponses');
35        // Normaliser la date
36        $verifier = charger_fonction('verifier', 'inc/');
37        $verifier(_request('date_debut'), 'date', array('normaliser' => 'datetime'), $date_debut);
38        $verifier(_request('date_fin'), 'date', array('normaliser' => 'datetime'), $date_fin);
39
40        if (_request('type_export') == 'csv') {
41                $ok = exporter_formulaires_reponses($id_formulaire, ',', $statut_reponses, $date_debut, $date_fin);
42        } elseif (_request('type_export') == 'xls') {
43                $ok = exporter_formulaires_reponses($id_formulaire, 'TAB', $statut_reponses, $date_debut, $date_fin);
44        }
45
46        if (!$ok) {
47                $retours['editable']       = 1;
48                $retours['message_erreur'] = _T('formidable:info_aucune_reponse');
49        }
50
51        return $retours;
52}
53
54/*
55 * Exporter toutes les réponses d'un formulaire (anciennement action/exporter_formulaire_reponses)
56 * @param integer $id_formulaire
57 * @return unknown_type
58 */
59function exporter_formulaires_reponses($id_formulaire, $delim = ',', $statut_reponses = 'publie', $date_debut = '', $date_fin = '') {
60        include_spip('inc/puce_statut');
61        // on ne fait des choses seulements si le formulaire existe et qu'il a des enregistrements
62        if ($id_formulaire > 0
63                and $formulaire = sql_fetsel('*', 'spip_formulaires', 'id_formulaire = ' . $id_formulaire)
64                and $reponses = sql_allfetsel(
65                        '*',
66                        'spip_formulaires_reponses',
67                        'id_formulaire = ' . intval($id_formulaire) . ($statut_reponses == 'publie' ? ' and statut = "publie"' : '')
68                        . (strlen($date_debut) > 0 ? ' and date >= "'. $date_debut. '"' : '')
69                        . (strlen($date_fin) > 0 ? ' and date <= "'.$date_fin.'"' : '')
70                )) {
71
72                include_spip('inc/saisies');
73                include_spip('facteur_fonctions');
74                include_spip('inc/filtres');
75                $reponses_completes = array();
76
77                // La première ligne des titres
78                $titres = array(
79                        _T('formidable:id_formulaires_reponse'),
80                        _T('public:date'),
81                        _T('formidable:reponses_auteur'),
82                        _T('formidable:reponses_ip'),
83                );
84                if ($statut_reponses != 'publie') {
85                        $titres[] = _T('formidable:reponse_statut');
86                }
87
88                $saisies = saisies_lister_par_nom(unserialize($formulaire['saisies']), false);
89                foreach ($saisies as $nom => $saisie) {
90                        if ($saisie['saisie'] != 'explication') {    // on exporte tous les champs sauf explications
91                                $options  = $saisie['options'];
92                                $titres[] = sinon(
93                                        isset($options['label_case']) ? $options['label_case'] : '',
94                                        sinon(
95                                                isset($options['label']) ? $options['label'] : '',
96                                                $nom
97                                        )
98                                );
99                        }
100                }
101
102                // On passe la ligne des titres de colonnes dans un pipeline
103                $titres = pipeline(
104                        'formidable_exporter_formulaire_reponses_titres',
105                        array(
106                                'args' => array('id_formulaire' => $id_formulaire, 'formulaire' => $formulaire),
107                                'data' => $titres,
108                        )
109                );
110
111                $reponses_completes[] = $titres;
112                $saisies_fichiers = array();
113
114                // sélectionner tous les auteurs d’un coup. Évite N requetes SQL…
115                $ids_auteurs = array_filter(array_map('intval', array_column($reponses, 'id_auteur')));
116                $auteurs = sql_allfetsel('id_auteur, nom', 'spip_auteurs', sql_in('id_auteur', $ids_auteurs));
117                $auteurs = array_column($auteurs, 'nom', 'id_auteur');
118
119                // Sélectionner toutes valeurs des réponses d’un coup. Éviten N requetes SQL...
120                $ids_reponses = array_column($reponses, 'id_formulaires_reponse');
121                $_reponses_valeurs = sql_allfetsel(
122                        'id_formulaires_reponse, nom, valeur',
123                        'spip_formulaires_reponses_champs',
124                        array(
125                                sql_in('id_formulaires_reponse', $ids_reponses),
126                                //sql_in('nom', array_keys($saisies)) // ralentit la requête, et inutile
127                        ),
128                        '',
129                        'id_formulaires_reponse ASC'
130                );
131
132                // grouper par identifiant de réponse
133                $reponses_valeurs = array();
134                foreach ($_reponses_valeurs as $r) {
135                        if (empty($reponses_valeurs[$r['id_formulaires_reponse']])) {
136                                $reponses_valeurs[$r['id_formulaires_reponse']] = array();
137                        }
138                        $reponses_valeurs[$r['id_formulaires_reponse']][$r['nom']] = $r['valeur'];
139                }
140                unset($_reponses_valeurs);
141
142                // On parcourt chaque réponse
143                foreach ($reponses as $i => $reponse) {
144                        // Est-ce qu'il y a un auteur avec un nom
145                        $nom_auteur = '';
146                        if ($id_auteur = intval($reponse['id_auteur'])) {
147                                $nom_auteur = !empty($auteurs[$id_auteur]) ? $auteurs[$id_auteur] : '';
148                        }
149
150                        // Le début de la réponse avec les infos (date, auteur, etc)
151                        $reponse_complete = array(
152                                $reponse['id_formulaires_reponse'],
153                                $reponse['date'],
154                                $nom_auteur,
155                                $reponse['ip'],
156                        );
157                        if ($statut_reponses != 'publie') {
158                                $reponse_complete[] = statut_texte_instituer('formulaires_reponse', $reponse['statut']);
159                        }
160
161                        // Ensuite tous les champs
162                        $tenter_unserialize = charger_fonction('tenter_unserialize', 'filtre/');
163
164                        // Liste de toutes les valeurs
165                        $valeurs = $reponses_valeurs[$reponse['id_formulaires_reponse']];
166
167                        foreach ($saisies as $nom => $saisie) {
168                                if ($saisie['saisie'] != 'explication') {
169                                        $valeur = $tenter_unserialize($valeurs[$nom]);
170
171                                        // Saisie de type fichier ?
172                                        if ($saisie['saisie'] == 'fichiers' and is_array($valeur)) {//tester s'il y a des saisies parmi les fichiers
173                                                $chemin = _DIR_FICHIERS_FORMIDABLE . 'formulaire_' . $id_formulaire . '/reponse_' . $reponse['id_formulaires_reponse'];
174                                                foreach ($valeur as $v) {
175                                                        $chemin_fichier = $chemin . '/' . $saisie['options']['nom'] . '/' . $v['nom'];
176                                                        if (file_exists($chemin_fichier)) {
177                                                                $saisies_fichiers[] = $chemin_fichier;
178                                                        }
179                                                }
180                                        }
181
182                                        $reponse_complete[] = formidable_generer_valeur_texte_saisie($valeur, $saisie);
183                                }
184                        }
185
186                        // On passe la ligne de réponse dans un pipeline
187                        $reponse_complete = pipeline(
188                                'formidable_exporter_formulaire_reponses_reponse',
189                                array(
190                                        'args' => array(
191                                                'id_formulaire' => $id_formulaire,
192                                                'formulaire'    => $formulaire,
193                                                'reponse'       => $reponse,
194                                        ),
195                                        'data' => $reponse_complete,
196                                )
197                        );
198
199                        // On ajoute la ligne à l'ensemble des réponses
200                        $reponses_completes[] = $reponse_complete;
201                }
202
203                if (!count($saisies_fichiers)) {// si pas de saisie fichiers, on envoie directement le csv
204                        if ($reponses_completes and $exporter_csv = charger_fonction('exporter_csv', 'inc/', true)) {
205                                $exporter_csv('reponses-formulaire-' . $formulaire['identifiant'], $reponses_completes, $delim);
206                                exit();
207                        }
208                } else {
209                        if ($reponses_completes and $exporter_csv = charger_fonction('exporter_csv', 'inc/', true)) {
210                                $fichier_csv = $exporter_csv('reponses-formulaire-' . $formulaire['identifiant'], $reponses_completes, $delim, null, false);
211                                $fichier_zip = sous_repertoire(_DIR_CACHE, 'export') . 'reponses-formulaire-' . $formulaire['identifiant'] . '.zip';
212                                include_spip('inc/formidable_fichiers');
213                                $fichier_zip = formidable_zipper_reponses_formulaire($formulaire['id_formulaire'], $fichier_zip, $fichier_csv, $saisies_fichiers);
214                                if (!$fichier_zip) {// si erreur lors du zippage
215                                        return false;
216                                } else {
217                                        formidable_retourner_fichier($fichier_zip, basename($fichier_zip));
218                                }
219                        }
220                }
221        } else {
222                return false;
223        }
224}
225
226/**
227 * Cette fonction retourne le texte d’une réponse pour un type de saisie donnée.
228 *
229 * On limite les calculs lorsque 2 valeurs/types de saisies sont identiques
230 * de fois de suite.
231 *
232 * @param string $valeur
233 * @param array $saisie
234 * @return string
235 */
236function formidable_generer_valeur_texte_saisie($valeur, $saisie) {
237        static $resultats = [];
238
239        $hash = md5($saisie['saisie'] . ':'  . serialize($saisie['options']) . ':' . $valeur);
240
241        if (!isset($resultats[$hash])) {
242                // Il faut éviter de passer par là… ça prend du temps…
243                $resultats[$hash] = facteur_mail_html2text(
244                        recuperer_fond(
245                                'saisies-vues/_base',
246                                array_merge(
247                                        array(
248                                                'valeur_uniquement' => 'oui',
249                                                'type_saisie'       => $saisie['saisie'],
250                                                'valeur'            => $valeur,
251                                        ),
252                                        $saisie['options']
253                                )
254                        )
255                );
256
257        }
258
259        return $resultats[$hash];
260}
Note: See TracBrowser for help on using the repository browser.