<?php
 
//--------------------------------------------------------------
// Fichero:  encuesta.php
// Objetivo: Rutinas PHP de apoyo de Encuesta
// Fecha:    D.11.12.2016
// Autor:    Pedro Reina <[email protected]>
// Licencia: CC0 1.0 Universal
//           http://creativecommons.org/publicdomain/zero/1.0/
//--------------------------------------------------------------
 
//----------------------------
// Archivos requeridos
//----------------------------
 
require "basedato.php";
 
//----------------------------
// Funciones
//----------------------------
 
//--------------------------------------------------------------
// Emite el DTD de la página web
function Encuesta_EmiteDTD()
  {
  print ("<!-- HTML 4.01 estricto -->\n");
  print ("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"\n");
  print ("  \"http://www.w3.org/TR/html4/strict.dtd\">\n");
  }
 
//--------------------------------------------------------------
// Emite la cabecera de la página
function Encuesta_EmiteCabecera ($Titulo)
  {
  // El icono
  // http://icons.iconarchive.com/icons/deleket/sleek-xp-basic/128/Help-icon.png
  $Icono = "encuesta.png";
 
  // La hoja de estilos
  $Hoja = "encuesta.css";
 
  // Imprimimos la cabecera
  print ("<HEAD>\n");
  print ("<TITLE>$Titulo</TITLE>\n");
  print ("<META HTTP-EQUIV=\"Content-Type\" " .
         "CONTENT=\"text/html; charset=UTF-8\">\n");
  print ("<LINK REL=\"icon\" HREF=\"$Icono\" " .
         "TYPE=\"image/png\">\n");
  print ("<LINK REL=\"StyleSheet\" HREF=\"$Hoja\" TYPE=\"text/css\">\n");
  print ("</HEAD>\n");
  }
 
//--------------------------------------------------------------
// Lista los límites de fechas para hacer la encuesta
function Encuesta_ListaLimites()
  {
  $Consulta = "SELECT limite FROM plazo ORDER BY limite";
  return BD_ConsultaListaTexto ($Consulta);
  }
 
//--------------------------------------------------------------
// Devuelve la fecha de hoy con formato AAAA-MM-DD
function Encuesta_FechaHoy()
  { return date ("Y-m-d"); }
 
//--------------------------------------------------------------
// Dice si una clave es válida y aún no ha sido utilizada
function Encuesta_ClaveValidaNoUsada ($Clave)
  {
  $Consulta = "SELECT COUNT(*) FROM codigo " .
              "WHERE clave ='$Clave' AND usado=0";
 
  return BD_ConsultaValor ($Consulta);
  }
 
//--------------------------------------------------------------
// Devuelve una lista con las preguntas de la encuesta
function Encuesta_ListaPreguntas()
  {
  $Consulta = "SELECT rowid, texto FROM pregunta";
  return BD_ConsultaListaRegistro ($Consulta);
  }
 
//--------------------------------------------------------------
// Incrementa el número de respuestas de una puntuación de una pregunta
function Encuesta_Incrementa ($IdPregunta, $Puntuacion)
  {
  // Preparamos el nombre del campo que hay que incrementar
  $NombreCampo = "r" . $Puntuacion;
 
  // Aumentamos su valor en 1
  $Consulta = "UPDATE pregunta SET $NombreCampo=$NombreCampo+1 " .
              "WHERE rowid=$IdPregunta";
  BD_EjecutaConsulta ($Consulta);
  }
 
//--------------------------------------------------------------
// Anula un código de acceso para que no se pueda volver a usar
function Encuesta_Anula ($Clave)
  {
  $Consulta = "UPDATE codigo SET usado=1 WHERE clave='$Clave'";
  BD_EjecutaConsulta ($Consulta);
  }
 
?>