]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/una_noticia.php
Corrijo los estilos que se pisaban entre si
[mecon/intranet.git] / sistema / www / una_noticia.php
1 <link rel="stylesheet" href="css/noticias.css">
2 <body bgcolor="#FFFFFF" class="subtitulo" link="#003366" vlink="#660066" alink="#0066FF" topmargin="0">
3 <?
4   require_once '../local_lib/copete.php';
5   $c = new Copete('noticias');
6   $c->display();
7   $noticias = new HTML_Table(array('width' => '760', 'border' => '0'));
8   require_once '../local_lib/intranetdb.php';
9   require_once 'MECON/HTML/Arbol/ArbolDB.php';
10   $db = IntranetDB::connect();
11   $dbdata = array(
12                 'db' => $db,
13                 'tabla' => 'grupo_secciones',
14                 'id' => 'grupo',
15                 'nombre' => 'nombre',
16                 'id_padre' => 'grupo_padre',
17                 'prepend_link' => 'noticias.php?grupo=');
18   $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');
19
20   require_once '../../lib/noticia.php';
21   require_once '../local_lib/HTML_Noticia.php';
22   $noticia = new HTML_Noticia(new noticia($_GET['numero']));
23   $noticia->setVolver('noticias.php');
24   $noticia->setCompleta(true);
25   $noticias->addRow(array($arbol,$noticia));
26   $noticias->updateCellAttributes(0, 0, array('valign'=>'top'));
27   $noticias->updateCellAttributes(0, 1, array('valign'=>'top'));
28   $noticias->display();
29 ?>
30 </body>