dolibarr/htdocs/opensurvey/exportcsv.php

<?php
/* Copyright (C) 2013      Laurent Destailleur        <eldy@users.sourceforge.net>
 * Copyright (C) 2014      Marcos García              <marcosgdf@gmail.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

/**
 *    \file       htdocs/opensurvey/exportcsv.php
 *    \ingroup    opensurvey
 *    \brief      Page to list surveys
 */


// Load Dolibarr environment
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php";
require_once DOL_DOCUMENT_ROOT."/core/lib/files.lib.php";
require_once DOL_DOCUMENT_ROOT."/opensurvey/class/opensurveysondage.class.php";


$action = GETPOST('action', 'aZ09');
$numsondage = '';
if (GETPOST('id')) {
	$numsondage = GETPOST("id", 'alpha');
}

// Initialize Objects
$object = new Opensurveysondage($db);
$result = $object->fetch(0, $numsondage);
if ($result <= 0) {
	dol_print_error('', 'Failed to get survey id '.$numsondage);
}

// Security check
if (!$user->hasRight('opensurvey', 'read')) {
	accessforbidden();
}


/*
 * Actions
 */



/*
 * View
 */

$now = dol_now();

$nbcolonnes = substr_count($object->sujet, ',') + 1;
$toutsujet = explode(",", $object->sujet);
$somme = array();
// affichage des sujets du sondage
$input = $langs->trans("Name").";";
for ($i = 0; $toutsujet[$i]; $i++) {
	if ($object->format == "D") {
		$input .= dol_print_date($toutsujet[$i], 'dayhour').';';
	} else {
		$input .= $toutsujet[$i].';';
	}
}

$input .= "\r\n";

if (strpos($object->sujet, '@') !== false) {
	$input .= ";";
	for ($i = 0; $toutsujet[$i]; $i++) {
		$heures = explode("@", $toutsujet[$i]);
		$input .= $heures[1].';';
	}

	$input .= "\r\n";
}


$sql = 'SELECT nom as name, reponses';
$sql .= ' FROM '.MAIN_DB_PREFIX."opensurvey_user_studs";
$sql .= " WHERE id_sondage='".$db->escape($numsondage)."'";
$sql .= " ORDER BY id_users";
$resql = $db->query($sql);
if ($resql) {
	$num = $db->num_rows($resql);
	$i = 0;
	while ($i < $num) {
		$obj = $db->fetch_object($resql);

		// Le name de l'utilisateur
		$nombase = str_replace("°", "'", $obj->name);
		$input .= $nombase.';';

		//affichage des resultats
		$ensemblereponses = $obj->reponses;
		for ($k = 0; $k < $nbcolonnes; $k++) {
			if (empty($somme[$k])) {
				$somme[$k] = 0;
			}
			$car = substr($ensemblereponses, $k, 1);
			if ($car == "1") {
				$input .= 'OK;';
				$somme[$k]++;
			} elseif ($car == "2") {
				$input .= ';';
				$somme[$k]++;
			} else {
				$input .= 'KO;';
			}
		}

		$input .= "\r\n";
		$i++;
	}
} else {
	dol_print_error($db);
}


$filesize = strlen($input);
$filename = $numsondage."_".dol_print_date($now, '%Y%m%d%H%M').".csv";



header('Content-Type: text/csv; charset=utf-8');
header('Content-Length: '.$filesize);
header('Content-Disposition: attachment; filename="'.$filename.'"');
header('Cache-Control: max-age=10');
echo $input;

exit;