<?php

// Sécurité
if (!defined('_ECRIRE_INC_VERSION')) {
	return;
}

include_spip('inc/formidable');
include_spip('inc/config');

function formulaires_exporter_formulaire_analyse_charger($id_formulaire = 0) {
	$contexte = array();
	$contexte['id_formulaire'] = intval($id_formulaire);
	return $contexte;
}

function formulaires_exporter_formulaire_analyse_verifier($id_formulaire = 0) {
	$erreurs = array();

	return $erreurs;
}

function formulaires_exporter_formulaire_analyse_traiter($id_formulaire = 0) {
	$retours = array();

	if (_request('type_export') == 'csv') {
		action_exporter_analyse_reponses($id_formulaire);
	} else if (_request('type_export') == 'xls') {
			action_exporter_analyse_reponses($id_formulaire, 'TAB');
	}

	return $retours;
}


/*
 * Exporter les analyses d'un formulaire (anciennement action/exporter_analyse_reponses_dist)
 * @param integer $id_formulaire
 * @return unknown_type
 */
function action_exporter_analyse_reponses($id_formulaire, $delim = ',') {
	// on ne fait des choses seulements si le formulaire existe et qu'il a des enregistrements
	$ok = false;
	if ($id_formulaire > 0
		and $formulaire = sql_fetsel('*', 'spip_formulaires', 'id_formulaire = '.$id_formulaire)
		and $reponses = sql_allfetsel('*', 'spip_formulaires_reponses', 'id_formulaire = '.$id_formulaire.' and statut = '.sql_quote('publie'))
	) {
		include_spip('inc/saisies');
		include_spip('classes/facteur');
		include_spip('inc/filtres');
		$reponses_completes = array();

		$saisies = saisies_lister_par_nom(unserialize($formulaire['saisies']), false);

		// exclure les champs non analysés
		$traitement = unserialize($formulaire['traitements']);
		foreach (explode('|', $traitement['enregistrement']['analyse_exclure_champs']) as $exclure) {
			unset($saisies[$exclure]);
		}
		$res = sql_select(
			array('nom, valeur'),
			'spip_formulaires_reponses_champs AS FRC,
			spip_formulaires_reponses AS FR,
			spip_formulaires AS F',
			"FRC.id_formulaires_reponse=FR.id_formulaires_reponse AND FR.statut='publie'
			AND F.id_formulaire=FR.id_formulaire
			AND F.id_formulaire=$id_formulaire"
		);

		$valeurs = array();
		while ($r = sql_fetch($res)) {
			$valeurs[$r['nom']][] = is_array(unserialize($r['valeur']))
				? unserialize($r['valeur'])
				: $r['valeur'];
		}

		foreach ($saisies as $nom => $saisie) {
			$valeur = sql_getfetsel(
				'valeur',
				'spip_formulaires_reponses_champs',
				'id_formulaires_reponse = '.intval($reponse['id_formulaires_reponse']).' and nom = '.sql_quote($nom)
			);
			if (is_array(unserialize($valeur))) {
				$valeur = unserialize($valeur);
			}

			$reponse_complete[] = formidable_analyser_saisie($saisie, $valeurs, 0, true);
		}

		$colonnes = array(_T('formidable:champs'), _T('formidable:sans_reponses'));
		foreach ($reponse_complete as $reponses) {
			foreach ($reponses as $key => $reponse) {
				if ($key == 'header' || $key == 'sans_reponse') {
					continue;
				}
				if (in_array($key, $colonnes) == false) {
					array_push($colonnes, $key);
				}
			}
		}

		$csv = array();
		foreach ($reponse_complete as $reponses) {
			foreach ($colonnes as $colonne) {
				$csv[$reponses['header']][$colonne] =
					isset($reponses[$colonne])
						? $reponses[$colonne]
						: '';
			}
			$csv[$reponses['header']][_T('formidable:champs')] = $reponses['header'];
			$csv[$reponses['header']][_T('formidable:sans_reponses')]
				= $reponses['formidable:sans_reponse'];
		}

		$cpt_ligne = 1;
		$reponses_completes = array();
		$reponses_completes[0] = $colonnes;
		foreach ($csv as $ligne => $colonnes) {
			$cpt_colonne = 0;
			foreach ($colonnes as $colonne) {
				$reponses_completes[$cpt_ligne][$cpt_colonne++] = $colonne;
			}
			$cpt_ligne++;
		}

		if ($reponses_completes and $exporter_csv = charger_fonction('exporter_csv', 'inc/', true)) {
			$exporter_csv('analyses-formulaire-'.$formulaire['identifiant'], $reponses_completes, $delim);
			exit();
		}
	}
}