123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136 |
- <?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
- */
- 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');
- }
- $object = new Opensurveysondage($db);
- $result = $object->fetch(0, $numsondage);
- if ($result <= 0) {
- dol_print_error('', 'Failed to get survey id '.$numsondage);
- }
- // Security check
- if (empty($user->rights->opensurvey->read)) {
- accessforbidden();
- }
- /*
- * Actions
- */
- /*
- * View
- */
- $now = dol_now();
- $nbcolonnes = substr_count($object->sujet, ',') + 1;
- $toutsujet = explode(",", $object->sujet);
- // 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++) {
- $car = substr($ensemblereponses, $k, 1);
- if ($car == "1") {
- $input .= 'OK;';
- $somme[$k]++;
- } elseif ($car == "2") {
- $input .= 'KO;';
- $somme[$k]++;
- } else {
- $input .= ';';
- }
- }
- $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;
|