sistema/www/secciones_ocultas.php

   1 <?php
   2 // vim: set expandtab tabstop=4 shiftwidth=4 foldmethod=marker:
   3 // +--------------------------------------------------------------------+
   4 // |                      Ministerio de Economía                        |
   5 // |                  AI (Administrador de Intranet)                    |
   6 // +--------------------------------------------------------------------+
   7 // | This file is part of AI.                                           |
   8 // |                                                                    |
   9 // | AI is free software; you can redistribute it and/or modify         |
  10 // | it under the terms of the GNU General Public License as published  |
  11 // | by the Free Software Foundation; either version 2 of the License,  |
  12 // | or (at your option) any later version.                             |
  13 // |                                                                    |
  14 // | AI is distributed in the hope that it will be useful, but          |
  15 // | WITHOUT ANY WARRANTY; without even the implied warranty of         |
  16 // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU   |
  17 // | General Public License for more details.                           |
  18 // |                                                                    |
  19 // | You should have received a copy of the GNU General Public License  |
  20 // | along with Hooks; if not, write to the Free Software Foundation,   |
  21 // | Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      |
  22 // +--------------------------------------------------------------------+
  23 // | Creado: vie jun 27 17:08:18 ART 2003                               |
  24 // | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
  25 // +--------------------------------------------------------------------+
  26 //
  27 // $Id$
  28 //
  29
  30 // Requires {{{
  31 require_once 'MECON/general.php';
  32 prepend_include_path('/var/www/sistemas/ai/sistema/local_lib');
  33 require_once 'permisos.php';
  34 require_once 'AI/GrupoSecciones.php';
  35 require_once 'MECON/HTML/QuickForm.php';
  36 //require_once 'MECON/HTML/Error.php';
  37 // }}}
  38
  39 // Si no está logueado, se redirige a la Intranet. {{{
  40 if (!@$_SESSION['usuario']) {
  41     header('Location: /sistemas/intranet/login?redirect='
  42         . urlencode($_SERVER['REQUEST_URI']));
  43 }
  44 // }}}
  45
  46 // Debug. {{{
  47 require_once 'PEAR.php';
  48 #PEAR::setErrorHandling(PEAR_ERROR_TRIGGER);
  49 PEAR::setErrorHandling(PEAR_ERROR_RETURN);
  50 // }}}
  51
  52 // Creo la base de datos. {{{
  53 require_once 'AI/DB.php';
  54 $db =& AI_DB::connect('../conf/DB.ini');
  55 if (DB::isError($db)) {
  56     trigger_error($db->getMessage(), E_USER_ERROR);
  57 }
  58 // }}}
  59
  60 // Creo el objeto de permisos y chequeo que tenga permiso para administrar noticias para seguir. {{{
  61 require_once 'SAMURAI/Perm.php';
  62 $perm = new SAMURAI_Perm($_SESSION['usuario'], AI_PERM, $db);
  63 $perm->chequear(AI_PERM_NOTICIAS);
  64 // }}}
  65
  66 // Creo el Marco. {{{
  67 require_once 'MECON/Marco.php';
  68 $marco = new MECON_Marco('../conf/Marco.php', $perm);
  69 // }}}
  70
  71 // Creo formulario. {{{
  72 $form =& new MECON_HTML_QuickForm('', 'post', $_SERVER['PHP_SELF']);
  73 $form->renderer->tabla->updateAttributes(array('width' => '400'));
  74 $form->addElement('header','cabecera', 'Secciones Ocultas');
  75 $f_secciones =& $form->addElement('select', 'secciones', 'Secciones',
  76     AI_GrupoSecciones::getAllSeccionesArray($db),
  77     array('multiple' => 'multiple', 'size' => 8));
  78 $form_btn_actualizar =& MECON_HTML_QuickForm::createElement('submit', 'actualizar' , 'Actualizar');
  79 $form->addGroup(array(&$form_btn_actualizar), 'botones');
  80 $marco->addBody($form);
  81 // }}}
  82
  83 // Si los datos del formulario son válidos, hago el ABM. {{{
  84 if ($form->validate()) {
  85     $secciones = $form->getSubmitValue('secciones');
  86     $res = AI_GrupoSecciones::setSeccionesOcultas($db, $secciones);
  87 }
  88 // }}}
  89
  90 // Cargo formulario con los datos actualizados. {{{
  91 $f_secciones->setSelected(AI_GrupoSecciones::getSeccionesOcultasArray($db));
  92 // }}}
  93
  94 // Muestro la página. {{{
  95 $marco->display();
  96 // }}}
  97
  98 ?>