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 require_once '../../../local_lib/HTML_Institucional.php';
  15
  16 if(!isset($_SESSION['usuario'])){
  17         header('Location: ../../servicios.php');
  18         exit;
  19 }
  20
  21 // Marco de servicios en intranet
  22 $MARCO     = new HTML_DietMarco('servicios', 'Encuestas');
  23
  24 // Array de usuarios responsables de las encuestas de la DTO
  25 $array_usuarios = SAMURAI_Perm::getUsuariosPermiso($DB,
  26                                         ENCUESTAS_PERM,
  27                                         ENCUESTAS_PERM_CARGAR_ENCUESTAS,
  28                                         'DTO');
  29
  30 $usuarios = "'default@mecon'";
  31 foreach ($array_usuarios as $item)
  32     $usuarios.= ",'$item[0]'";
  33
  34 // Encuesta de la DTO publicadas a la fecha
  35 $encuestas = Encuestas_Encuesta::obtenerDisponibles($DB, $usuarios);
  36
  37 // Introducción
  38 $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.';
  39 $intro =& new HTML_Table ('width="760" align="center"');
  40 $img =& new MECON_HTML_Image ('../../images/servicios_dto_encuestas.gif', 'Encuestas');
  41 $intro->addRow(array($img->toHtml(), $texto), 'width="95%" align="left" class="encuestas_intro" valign="top"');
  42 $intro->updateColAttributes (0, 'width="5%"');
  43
  44 if (count($encuestas) > 0){
  45     // Listado de Encuestas disponibles
  46     $tabla =& new MECON_HTML_Tabla('width="60%"', 'oscuro');
  47     $link =& new MECON_HTML_Link ('encuesta.php', '<nombre de la encuesta>');
  48     foreach ($encuestas as $item){
  49         $link->setContents($item['nombre']);
  50         $link->setGetVars(array('id'=>$item['id'], 'fecha'=>$item['fechaP']));
  51         $tabla->addRow (array($link->toHtml()), 'align="left"');
  52     }
  53 }
  54 else{
  55     // Mensaje de error
  56     $tabla =& new HTML_Table('width="60%" align="center"');
  57     $tabla->addRow(array('No hay encuestas actualmente publicadas'), 'class="encuestas_cursiva" align="center"');
  58 }
  59
  60 $TABLA_INSTITUCIONAL = new HTML_Table('border="0" width="760" align="left"');
  61 $INST = new HTML_Institucional ('/sistemas/intranet/servicios/estatico/institucionales/dto/dto_areas.php',
  62                                         'Institucional de la D. Técnica Operativa',300,550,500);
  63 $TABLA_INSTITUCIONAL->addRow(array($INST), 'align="center"');
  64
  65 $MARCO->addBodyContent($intro);
  66 $MARCO->addBodyContent('<br>');
  67 $MARCO->addBodyContent($tabla);
  68 $MARCO->addBodyContent('<br>');
  69 $MARCO->addBodyContent($TABLA_INSTITUCIONAL);
  70 $MARCO->addStyleSheet('../../css/servicios_dto.css');
  71
  72 $MARCO->display();
  73 ?>