]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/una_noticia.php
Se pasa Php2Embperl_Session.epl al repositorio scripts y se actualiza documentacion.
[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/ArbolDB.php';
5   require_once '../../lib/noticia.php';
6   require_once '../local_lib/HTML_Noticia.php';
7   require_once 'AI/GrupoSecciones.php';
8   
9   $m = new HTML_DietMarco('noticias', 'Noticias');
10   $noticias = new HTML_Table(array('width' => '760', 'border' => '0'));
11   
12   $db = IntranetDB::connect();
13   $db2 = DB::Connect('mysql://intranet:intranet@bal747f/intranet');//FIXME
14   $n = new noticia($_GET['numero']);
15   $grupo = AI_GrupoSecciones::getGrupo($n->getIdSeccion(), $db2);
16   $dbdata = array(
17                 'db' => $db,
18                 'tabla' => 'grupo_secciones',
19                 'id' => 'grupo',
20                 'id_activo' => $grupo,
21                 'habilitado' => 'habilitado',
22                 'nombre' => 'nombre',
23                 'id_padre' => 'grupo_padre',
24                 'order' => '',
25                 'prepend_link' => 'noticias.php?grupo=');
26   $arbol = new MECON_HTML_ArbolDB($dbdata, 'NOTICIAS');
27
28   $noticia = new HTML_Noticia($n);
29   $noticia->setVolver('noticias.php');
30   $noticia->setVolver("noticias?grupo=".
31                             AI_GrupoSecciones::getGrupo($n->getIdSeccion(), $db2));
32   $noticia->setCompleta(true);
33   $noticias->addRow(array($arbol,$noticia));
34   $m->addStyleSheet($arbol->getCSS());
35   $m->addStyleSheet($noticia->getCSS());
36   $noticias->updateCellAttributes(0, 0, array('valign'=>'top'));
37   $noticias->updateCellAttributes(0, 1, array('valign'=>'top'));
38   $m->addBodyContent($noticias);
39   $m->display();
40 ?>
41 </body>