los envía a otro script para ser procesadas.
*/
// Comprobando que haya sido superado el acceso como participante
if (!isset($_COOKIE['destinatario']) || !isset($_COOKIE['target'])) {
header("Location: http://localhost/HCXET/Estudio/formestudio.php");
die;
}
// Importando clase de consultas
require_once '../Web/Classes/DB_functions.php';
// Captura de datos
$id_destinatario = $_COOKIE['destinatario'];
$id_target = $_COOKIE['target'];
// Instancia de objeto consultas
$db = new DB_Functions();
// Nombre del estudio actual
$study = $db->getNombreestudio($id_target);
$sistema = $db->getNombresistema($id_target);
?>
<!DOCTYPE html>
<html lang = "en">
<head>
<!-- ---------------------------------------------------------------------------
Project: Human Centeredness experimental evaluation tool
Author: Olga Peñalba, Miguel Revuelta
Date: 2015-09-1
Version: 2.1 (english)
---------------------------------------------------------------------------- -->
Este script realiza una llamada al script de R encargado de gestionar los
resultados de una encuesta mediante lógica borrosa para posteriormente
cargar las imágenes generadas por el procesamiento de R.
*/
// Comprobando autorización de sesión
include '../Session/checksession.php';
// Comprobando autorización
// Importando e instanciando clase consultas
require_once '../Classes/DB_functions.php';
$db = new DB_Functions();
// Adquisición de cookies
$u = $_COOKIE['usuario'];
$t = $_POST['target'];
// Consultas
$nomuser = $db->getNombreusuario($u);
$estudio = $db->getNombreestudio($t);
$resultado = $db->mediasRespuesta($t);
// Determinar nombre del directorio del que es propietario el usuario en el sistema
if (!isset($nomuser)) {
$folder = $u;
} else {
$folder = $u . $nomuser;
}
// Evitar llamar a R si es nulo el primer índice del array de medias de respuestas
if (!isset($t) || !isset($resultado[0][0])) {
header("Location: /HCXET-EN/Web/misresultados.php");
die;
}
// Captura de datos y preparación de los datos que envíar a R (incluye folder)
$test = $resultado[0][0] . ' ' . $resultado[0][1] . ' ' . $resultado[0][2] . ' ' . $resultado[0][3] . ' ' . $resultado[0][4] . ' ' . $resultado[0][5] . ' ' . $resultado[0][6] . ' ' . $resultado[0][7] . ' ' . $resultado[0][8] . ' ' . $resultado[0][9] . ' ' . $resultado[0][10] . ' ' . $resultado[0][11] . ' ' . $resultado[0][12] . ' ' . $resultado[0][13] . ' ' . $resultado[0][14] . ' ' . $folder;
// Ejecutar script de R
