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