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