4 if (!defined("_ECRIRE_INC_VERSION")) return;
7 * Exporter l'analyse des réponses d'un formulaire
8 * @param unknown_type $arg
11 function action_exporter_analyse_reponses_dist($arg=null) {
13 $securiser_action = charger_fonction('securiser_action', 'inc');
14 $arg = $securiser_action();
17 // on ne fait des choses seulements si le formulaire existe et qu'il a des enregistrements
20 $id_formulaire = intval($arg)
21 and $formulaire = sql_fetsel('*','spip_formulaires','id_formulaire = '.$id_formulaire)
22 and $reponses = sql_allfetsel('*', 'spip_formulaires_reponses', 'id_formulaire = '.$id_formulaire.' and statut = '.sql_quote('publie'))
24 include_spip('inc/saisies');
25 include_spip('classes/facteur');
26 include_spip('inc/filtres');
27 $reponses_completes = array();
29 $saisies = saisies_lister_par_nom(unserialize($formulaire['saisies']), false);
34 'spip_formulaires_reponses_champs AS FRC,
35 spip_formulaires_reponses AS FR,
36 spip_formulaires AS F',
38 "FRC.id_formulaires_reponse=FR.id_formulaires_reponse
39 AND FR.statut='publie'
40 AND F.id_formulaire=FR.id_formulaire
41 AND F.id_formulaire=$id_formulaire"
45 while($r = sql_fetch($res)) {
46 $valeurs[$r['nom']][] = is_array(unserialize($r['valeur']))
47 ?
unserialize($r['valeur'])
51 foreach ($saisies as $nom=>$saisie){
52 $valeur = sql_getfetsel(
54 'spip_formulaires_reponses_champs',
55 'id_formulaires_reponse = '.intval($reponse['id_formulaires_reponse']).' and nom = '.sql_quote($nom)
57 if (is_array(unserialize($valeur)))
58 $valeur = unserialize($valeur);
60 $reponse_complete[] = formidable_analyser_saisie($saisie, $valeurs, 0, true);
63 $colonnes = array(_T('formidable:champs'), _T('formidable:sans_reponses'));
64 foreach($reponse_complete as $reponses) {
65 foreach($reponses as $key => $reponse) {
66 if ($key == 'header' ||
$key == 'sans_reponse') continue;
67 if (in_array($key, $colonnes) == false)
68 array_push($colonnes, $key);
73 foreach($reponse_complete as $reponses) {
74 foreach($colonnes as $colonne) {
75 $csv[$reponses['header']][$colonne] =
76 isset($reponses[$colonne])
80 $csv[$reponses['header']][_T('formidable:champs')] = $reponses['header'];
81 $csv[$reponses['header']][_T('formidable:sans_reponses')]
82 = $reponses['formidable:sans_reponse'];
86 $reponses_completes = array();
87 $reponses_completes[0] = $colonnes;
88 foreach($csv as $ligne => $colonnes) {
90 foreach($colonnes as $colonne) {
91 $reponses_completes[$cpt_ligne][$cpt_colonne++
] = $colonne;
96 if ($reponses_completes and $exporter_csv = charger_fonction('exporter_csv', 'inc/', true)){
97 echo $exporter_csv('analyses-formulaire-'.$formulaire['identifiant'], $reponses_completes);