sistema/www/noticias.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
   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 require_once 'MECON/HTML/Arbol/ArbolDB.php';
  31 require_once 'GrupoSecciones.php';
  32
  33 $dbdata = array(
  34     'db'            => &$db,
  35     'tabla'         => 'grupo_secciones',
  36     'id'            => 'grupo',
  37     'nombre'        => 'nombre',
  38     'id_padre'      => 'grupo_padre',
  39     'prepend_link'  => 'noticias?grupo='
  40 );
  41 $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');
  42
  43 if (@$_REQUEST['grupo']) {
  44     $grupo = new GrupoSecciones($_REQUEST['grupo']);
  45     $grupo->cargar($db);
  46     $body = '';
  47     foreach ($grupo as $key => $val) {
  48         if (is_array($val)) {
  49             $val = join(',', $val);
  50         }
  51         $body .= "$key = $val<BR>";
  52     }
  53 } else {
  54     $body = 'Seleccione un grupo de secciones de noticias para trabajar.';
  55 }
  56
  57 $LAYOUT->setCellContents(0, 0, $arbol);
  58 $LAYOUT->setCellContents(0, 2, $body);
  59 $MARCO->addBody($LAYOUT);
  60 $MARCO->display();
  61
  62 ?>