test_pre-mlib/HTML/arboldb.php

   1 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
   2 -------------------------------------------------------------------------------
   3                              Ministerio de Economía
   4                                     meconlib
   5 -------------------------------------------------------------------------------
   6 This file is part of meconlib.
   7
   8 meconlib is free software; you can redistribute it and/or modify it under
   9 the terms of the GNU General Public License as published by the Free
  10 Software Foundation; either version 2 of the License, or (at your option)
  11 any later version.
  12
  13 meconlib is distributed in the hope that it will be useful, but WITHOUT
  14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  15 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License; if not,
  18 write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  19 Boston, MA  02111-1307  USA
  20 -------------------------------------------------------------------------------
  21 Creado: jue jul 17 15:33:41 ART 2003
  22 Autor:  Gonzalo Merayo <gmeray@mecon.gov.ar>
  23 -------------------------------------------------------------------------------
  24 $Id$
  25 -----------------------------------------------------------------------------*/
  26
  27 require_once '../../lib/MECON/HTML/ArbolDB.php';
  28 require_once 'DB.php';
  29
  30 PEAR::setErrorHandling(PEAR_ERROR_TRIGGER);
  31
  32 $dsn = 'mysql://intranet:intranet@bal747f.mecon.ar/intranet';
  33 $db =& DB::connect($dsn,true);
  34
  35 $dbdata = array(
  36     'db' => &$db,
  37     'tabla' => 'grupo_secciones',
  38     'id' => 'grupo',
  39     'id_activo' => '7',
  40     'nombre' => 'nombre',
  41     'id_padre' => 'grupo_padre',
  42 );
  43
  44 $arbol = new MECON_HTML_ArbolDB($dbdata, 'TITULO', 'noticias.php?grupo=');
  45 echo '<link rel="stylesheet" href="'.$arbol->getCSS().'">';
  46 echo $arbol->toHTML();
  47 echo '<SELECT name="id">';
  48 foreach ($arbol->toArray(false) as $id => $val) {
  49     echo '<OPTION value="'.$id.'">'.$val.'</OPTION>';
  50 }
  51 echo '</SELECT>';
  52 echo '<SELECT name="id">';
  53 foreach ($arbol->toArray(true) as $id => $val) {
  54     echo '<OPTION value="'.$id.'">'.$val.'</OPTION>';
  55 }
  56 echo '</SELECT>';
  57 var_dump($arbol->setActivo(34));
  58 echo $arbol->toHTML();
  59 echo '<SELECT name="id">';
  60 foreach ($arbol->toArray() as $id => $val) {
  61     echo '<OPTION value="'.$id.'">'.$val.'</OPTION>';
  62 }
  63 echo '</SELECT>';
  64
  65 ?>