sistema/www/servicios/dto/index.php

   1 <?php
   2 /*-----------------------------------------------------------------------------
   3 Intranet del Ministerio de Economía
   4 Introducción a la encuesta de la DTO
   5 -------------------------------------------------------------------------------
   6 Myrna Degano <mdegan@mecon.gov.ar>
   7 ------------------------------------------------------------------------------*/
   8
   9 require_once 'HTML_DietMarco.php';
  10 require_once 'MECON/HTML/Tabla.php';
  11 require_once 'SAMURAI/Perm.php';
  12 require_once 'Encuestas/Encuesta.php';
  13 require_once '/var/www/sistemas/encuestas/sistema/local_lib/permisos.php';
  14
  15 if(!isset($_SESSION['usuario'])){
  16         header('Location: ../../servicios.php');
  17         exit;
  18 }
  19
  20 // Marco de servicios en intranet
  21 $MARCO     = new HTML_DietMarco('servicios', 'Encuestas');
  22
  23 // Array de usuarios responsables de las encuestas de la DTO
  24 $array_usuarios = SAMURAI_Perm::getUsuariosPermiso($DB,
  25                                         ENCUESTAS_PERM,
  26                                         ENCUESTAS_PERM_CARGAR_ENCUESTAS,
  27                                         'DTO');
  28
  29 $usuarios = "'default@mecon'";
  30 foreach ($array_usuarios as $item)
  31     $usuarios.= ",'$item[0]'";
  32
  33 // Encuesta de la DTO publicadas a la fecha
  34 $encuestas = Encuestas_Encuesta::obtenerDisponibles($DB, $usuarios);
  35
  36 // Introducción
  37 $texto = 'La Dirección Técnica Operativa ha iniciando un programa de encuestas con el objeto de medir la satisfacción del usuario, en lo concerniente a los servicios que la misma presta.';
  38 $intro =& new HTML_Table ('width="760" align="center"');
  39 $img =& new MECON_HTML_Image ('../../images/servicios_dto_encuestas.gif', 'Encuestas');
  40 $intro->addRow(array($img->toHtml(), $texto), 'width="95%" align="left" class="encuestas_intro" valign="top"');
  41 $intro->updateColAttributes (0, 'width="5%"');
  42
  43 if (count($encuestas) > 0){
  44     // Listado de Encuestas disponibles
  45     $tabla =& new MECON_HTML_Tabla('width="60%"', 'oscuro');
  46     $link =& new MECON_HTML_Link ('encuesta.php', '<nombre de la encuesta>');
  47     foreach ($encuestas as $item){
  48         $link->setContents($item['nombre']);
  49         $link->setGetVars(array('id'=>$item['id'], 'fecha'=>$item['fechaP']));
  50         $tabla->addRow (array($link->toHtml()), 'align="left"');
  51     }
  52 }
  53 else{
  54     // Mensaje de error
  55     $tabla =& new HTML_Table('width="60%" align="center"');
  56     $tabla->addRow(array('No hay encuestas actualmente publicadas'), 'class="encuestas_cursiva" align="center"');
  57 }
  58
  59 $MARCO->addBodyContent($intro);
  60 $MARCO->addBodyContent('<br>');
  61 $MARCO->addBodyContent($tabla);
  62 $MARCO->addStyleSheet('../../css/servicios_dto.css');
  63
  64 $MARCO->display();
  65 ?>