]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/una_noticia.php
Correcciones en los style sheets
[mecon/intranet.git] / sistema / www / una_noticia.php
1 <?
2   require_once '../local_lib/HTML_DietMarco.php';
3   require_once '../local_lib/intranetdb.php';
4   require_once 'MECON/HTML/Arbol/ArbolDB.php';
5   require_once '../../lib/noticia.php';
6   require_once '../local_lib/HTML_Noticia.php';
7   
8   $m = new HTML_DietMarco('noticias');
9   $noticias = new HTML_Table(array('width' => '760', 'border' => '0'));
10   
11   $db = IntranetDB::connect();
12   $dbdata = array(
13                 'db' => $db,
14                 'tabla' => 'grupo_secciones',
15                 'id' => 'grupo',
16                 'nombre' => 'nombre',
17                 'id_padre' => 'grupo_padre',
18                 'prepend_link' => 'noticias.php?grupo=');
19   $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');
20
21   $noticia = new HTML_Noticia(new noticia($_GET['numero']));
22   $noticia->setVolver('noticias.php');
23   $noticia->setCompleta(true);
24   $noticias->addRow(array($arbol,$noticia));
25   $noticias->updateCellAttributes(0, 0, array('valign'=>'top'));
26   $noticias->updateCellAttributes(0, 1, array('valign'=>'top'));
27   $m->addBodyContent($noticias);
28   $m->display();
29 ?>
30 </body>