www/plugins/formidable_1_0/action/exporter_analyse_reponses.php

   1 <?php
   2
   3 // Sécurité
   4 if (!defined("_ECRIRE_INC_VERSION")) return;
   5
   6 /*
   7  * Exporter l'analyse des réponses d'un formulaire
   8  * @param unknown_type $arg
   9  * @return unknown_type
  10  */
  11 function action_exporter_analyse_reponses_dist($arg=null) {
  12         if (is_null($arg)){
  13                 $securiser_action = charger_fonction('securiser_action', 'inc');
  14                 $arg = $securiser_action();
  15         }
  16
  17         // on ne fait des choses seulements si le formulaire existe et qu'il a des enregistrements
  18         $ok = false;
  19         if (
  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'))
  23         ) {
  24                 include_spip('inc/saisies');
  25                 include_spip('classes/facteur');
  26                 include_spip('inc/filtres');
  27         $reponses_completes = array();
  28
  29         $saisies = saisies_lister_par_nom(unserialize($formulaire['saisies']), false);
  30
  31                 $res = sql_select(
  32             array('nom, valeur'),
  33
  34             'spip_formulaires_reponses_champs AS FRC,
  35             spip_formulaires_reponses AS FR,
  36             spip_formulaires AS F',
  37
  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"
  42         );
  43
  44         $valeurs = array();
  45         while($r = sql_fetch($res)) {
  46             $valeurs[$r['nom']][] = is_array(unserialize($r['valeur']))
  47                 ? unserialize($r['valeur'])
  48                 : $r['valeur'];
  49         }
  50
  51         foreach ($saisies as $nom=>$saisie){
  52             $valeur = sql_getfetsel(
  53                 'valeur',
  54                 'spip_formulaires_reponses_champs',
  55                 'id_formulaires_reponse = '.intval($reponse['id_formulaires_reponse']).' and nom = '.sql_quote($nom)
  56             );
  57             if (is_array(unserialize($valeur)))
  58                 $valeur = unserialize($valeur);
  59
  60             $reponse_complete[] = formidable_analyser_saisie($saisie, $valeurs, 0, true);
  61         }
  62
  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);
  69             }
  70         }
  71
  72         $csv = array();
  73         foreach($reponse_complete as $reponses) {
  74             foreach($colonnes as $colonne) {
  75                 $csv[$reponses['header']][$colonne] =
  76                     isset($reponses[$colonne])
  77                         ? $reponses[$colonne]
  78                         : '';
  79             }
  80             $csv[$reponses['header']][_T('formidable:champs')] = $reponses['header'];
  81             $csv[$reponses['header']][_T('formidable:sans_reponses')]
  82                 = $reponses['formidable:sans_reponse'];
  83         }
  84
  85         $cpt_ligne = 1;
  86         $reponses_completes = array();
  87         $reponses_completes[0] = $colonnes;
  88         foreach($csv as $ligne => $colonnes) {
  89             $cpt_colonne = 0;
  90             foreach($colonnes as $colonne) {
  91                 $reponses_completes[$cpt_ligne][$cpt_colonne++] = $colonne;
  92             }
  93             $cpt_ligne++;
  94         }
  95
  96                 if ($reponses_completes and $exporter_csv = charger_fonction('exporter_csv', 'inc/', true)){
  97                         echo $exporter_csv('analyses-formulaire-'.$formulaire['identifiant'], $reponses_completes);
  98                         exit();
  99                 }
 100         }
 101 }
 102
 103 ?>