exportcsv.php

Go to the documentation of this file.

<?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/>.
 */
 
// 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 (empty($user->rights->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;