26 require
'../main.inc.php';
27 require_once DOL_DOCUMENT_ROOT.
"/core/lib/admin.lib.php";
28 require_once DOL_DOCUMENT_ROOT.
"/core/lib/files.lib.php";
29 require_once DOL_DOCUMENT_ROOT.
"/opensurvey/class/opensurveysondage.class.php";
31 $action =
GETPOST(
'action',
'aZ09');
34 $numsondage =
GETPOST(
"id",
'alpha');
38 $result = $object->fetch(0, $numsondage);
44 if (empty($user->rights->opensurvey->read)) {
61 $nbcolonnes = substr_count($object->sujet,
',') + 1;
62 $toutsujet = explode(
",", $object->sujet);
65 $input .= $langs->trans(
"Name").
";";
66 for ($i = 0; $toutsujet[$i]; $i++) {
67 if ($object->format ==
"D") {
68 $input .=
''.dol_print_date($toutsujet[$i],
'dayhour').
';';
70 $input .=
''.$toutsujet[$i].
';';
76 if (strpos($object->sujet,
'@') !==
false) {
78 for ($i = 0; $toutsujet[$i]; $i++) {
79 $heures = explode(
"@", $toutsujet[$i]);
80 $input .=
''.$heures[1].
';';
87 $sql =
'SELECT nom as name, reponses';
88 $sql .=
' FROM '.MAIN_DB_PREFIX.
"opensurvey_user_studs";
89 $sql .=
" WHERE id_sondage='".$db->escape($numsondage).
"'";
90 $sql .=
" ORDER BY id_users";
93 $num = $db->num_rows(
$resql);
96 $obj = $db->fetch_object(
$resql);
99 $nombase = str_replace(
"°",
"'", $obj->name);
100 $input .= $nombase.
';';
103 $ensemblereponses = $obj->reponses;
104 for ($k = 0; $k < $nbcolonnes; $k++) {
105 $car = substr($ensemblereponses, $k, 1);
109 } elseif ($car ==
"2") {
125 $filesize = strlen($input);
126 $filename = $numsondage.
"_".
dol_print_date($now,
'%Y%m%d%H%M').
".csv";
130 header(
'Content-Type: text/csv; charset=utf-8');
131 header(
'Content-Length: '.$filesize);
132 header(
'Content-Disposition: attachment; filename="'.$filename.
'"');
133 header(
'Cache-Control: max-age=10');