104 lines
3.1 KiB
PHP
104 lines
3.1 KiB
PHP
|
<?php
|
||
|
|
//==========================================================================
|
||
|
|
//
|
||
|
|
//Université de Strasbourg - Direction Informatique
|
||
|
|
//Auteur : Guilhem BORGHESI
|
||
|
|
//Création : Février 2008
|
||
|
|
//
|
||
|
|
//borghesi@unistra.fr
|
||
|
|
//
|
||
|
|
//Ce logiciel est régi par la licence CeCILL-B soumise au droit français et
|
||
|
|
//respectant les principes de diffusion des logiciels libres. Vous pouvez
|
||
|
|
//utiliser, modifier et/ou redistribuer ce programme sous les conditions
|
||
|
|
//de la licence CeCILL-B telle que diffusée par le CEA, le CNRS et l'INRIA
|
||
|
|
//sur le site "http://www.cecill.info".
|
||
|
|
//
|
||
|
|
//Le fait que vous puissiez accéder à cet en-tête signifie que vous avez
|
||
|
|
//pris connaissance de la licence CeCILL-B, et que vous en avez accepté les
|
||
|
|
//termes. Vous pouvez trouver une copie de la licence dans le fichier LICENCE.
|
||
|
|
//
|
||
|
|
//==========================================================================
|
||
|
|
//
|
||
|
|
//Université de Strasbourg - Direction Informatique
|
||
|
|
//Author : Guilhem BORGHESI
|
||
|
|
//Creation : Feb 2008
|
||
|
|
//
|
||
|
|
//borghesi@unistra.fr
|
||
|
|
//
|
||
|
|
//This software is governed by the CeCILL-B license under French law and
|
||
|
|
//abiding by the rules of distribution of free software. You can use,
|
||
|
|
//modify and/ or redistribute the software under the terms of the CeCILL-B
|
||
|
|
//license as circulated by CEA, CNRS and INRIA at the following URL
|
||
|
|
//"http://www.cecill.info".
|
||
|
|
//
|
||
|
|
//The fact that you are presently reading this means that you have had
|
||
|
|
//knowledge of the CeCILL-B license and that you accept its terms. You can
|
||
|
|
//find a copy of this license in the file LICENSE.
|
||
|
|
//
|
||
|
|
//==========================================================================
|
||
|
|
|
||
|
|
include_once('fonctions.php');
|
||
|
|
|
||
|
|
if(!isset($_GET['numsondage']) || ! preg_match(";^[\w\d]{16}$;i", $_GET['numsondage']))
|
||
|
|
header('Location: studs.php');
|
||
|
|
|
||
|
|
$user_studs=$connect->Execute("SELECT * FROM user_studs WHERE id_sondage=" . $_GET['numsondage'] . " ORDER BY id_users");
|
||
|
|
|
||
|
|
$dsondage = get_sondage_from_id($_GET['numsondage']);
|
||
|
|
$nbcolonnes=substr_count($dsondage->sujet,',')+1;
|
||
|
|
|
||
|
|
$toutsujet=explode(",",$dsondage->sujet);
|
||
|
|
#$toutsujet=str_replace("°","'",$toutsujet);
|
||
|
|
|
||
|
|
//affichage des sujets du sondage
|
||
|
|
|
||
|
|
$input.=";";
|
||
|
|
for ($i=0;$toutsujet[$i];$i++){
|
||
|
|
if ($dsondage->format=="D"||$dsondage->format=="D+"){
|
||
|
|
$input.=''.date("j/n/Y",$toutsujet[$i]).';';
|
||
|
|
}
|
||
|
|
else{
|
||
|
|
$input.=''.$toutsujet[$i].';';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$input.="\r\n";
|
||
|
|
|
||
|
|
if (strpos($dsondage->sujet,'@') !== false){
|
||
|
|
$input.=";";
|
||
|
|
for ($i=0;$toutsujet[$i];$i++){
|
||
|
|
$heures=explode("@",$toutsujet[$i]);
|
||
|
|
$input.=''.$heures[1].';';
|
||
|
|
}
|
||
|
|
$input.="\r\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
while ( $data=$user_studs->FetchNextObject(false)) {
|
||
|
|
// Le nom de l'utilisateur
|
||
|
|
$nombase=str_replace("°","'",$data->nom);
|
||
|
|
$input.=$nombase.';';
|
||
|
|
//affichage des resultats
|
||
|
|
$ensemblereponses=$data->reponses;
|
||
|
|
for ($k=0;$k<$nbcolonnes;$k++){
|
||
|
|
$car=substr($ensemblereponses,$k,1);
|
||
|
|
if ($car=="1"){
|
||
|
|
$input.='OK;';
|
||
|
|
$somme[$k]++;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
$input.=';';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$input.="\r\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
$filesize = strlen( $input );
|
||
|
|
$filename=$_GET["numsondage"].".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;
|
||
|
|
die();
|
||
|
|
?>
|