X-Git-Url: https://git.llucax.com/mecon/ai.git/blobdiff_plain/6e0df7b212f1a721cf8df887c629b67957871225..929da9471027949b8a0ccff5d4769f9920dcd773:/sistema/www/index.php diff --git a/sistema/www/index.php b/sistema/www/index.php index 5b5c97e..b41957a 100644 --- a/sistema/www/index.php +++ b/sistema/www/index.php @@ -27,32 +27,41 @@ // $Id$ // +require_once 'MECON/general.php'; +prepend_include_path('/var/www/sistemas/ai/sistema/local_lib'); +require_once 'MECON/HTML/Error.php'; +require_once 'permisos.php'; + +// Si no está logueado, se redirige a la Intranet. {{{ +if (!@$_SESSION['usuario']) { + header('Location: /sistemas/intranet/login?redirect=' + . urlencode($_SERVER['REQUEST_URI'])); +} +// }}} + // Debug. {{{ require_once 'PEAR.php'; -PEAR::setErrorHandling(PEAR_ERROR_TRIGGER); +#PEAR::setErrorHandling(PEAR_ERROR_TRIGGER); +PEAR::setErrorHandling(PEAR_ERROR_RETURN); // }}} -// Creo el Marco. {{{ -require_once 'MECON/Marco.php'; -$marco = new Marco('../conf/Marco.php'); +// Creo la base de datos. {{{ +require_once 'AI/DB.php'; +$db =& AI_DB::connect('../conf/DB.ini'); +if (DB::isError($db)) { + die($db->getMessage()); +} // }}} -// Agrego una barra al costado con el listado de objetos (XXX - va a ir en Marco). {{{ -require_once 'HTML/Table.php'; -$layout = new HTML_Table( - array( - 'width' => '100%', - 'align' => 'center', - 'valign' => 'top', - 'border' => 0, - 'cellspacing' => 0, - 'cellpadding' => 0, - ) -); -$layout->setAutoGrow(true); -$layout->setCellAttributes(0, 0, array('width' => '1')); -$layout->setCellAttributes(0, 1, array('width' => '10')); -$layout->setCellContents(0, 1, ' '); +// Creo el objeto de permisos y chequeo que tenga al menos un permiso para seguir. {{{ +require_once 'SAMURAI/Perm.php'; +$perm = new SAMURAI_Perm($_SESSION['usuario'], AI_PERM, $db); +$perm->chequear(); +// }}} + +// Creo el Marco. {{{ +require_once 'MECON/Marco.php'; +$marco = new MECON_Marco('../conf/Marco.php', $perm); // }}} // Averiguo si estoy administrando algún tipo de objeto. {{{ @@ -61,26 +70,32 @@ if (@$_SERVER['PATH_INFO']) { $tmp = ltrim($_SERVER['PATH_INFO'], '/'); if ($tmp == 'grupo') { $tipo = $tmp; - $clase = "AI_GrupoSecciones"; + $clase = 'AI_GrupoSecciones'; $require = 'AI/GrupoSecciones.php'; $tabla = 'grupo_secciones'; + $nombre = 'grupo de secciones'; + $perm->chequear(AI_PERM_NOTICIAS); } elseif ($tmp == 'servicio') { $tipo = $tmp; $clase = 'AI_Servicio'; $require = 'AI/Servicio.php'; $tabla = $tipo; + $nombre = $tipo; + $perm->chequear(AI_PERM_SERVICIOS); } elseif ($tmp == 'sistema') { $tipo = $tmp; $clase = 'AI_Sistema'; $require = 'AI/Sistema.php'; $tabla = $tipo; + $nombre = $tipo; + $perm->chequear(AI_PERM_SISTEMAS); } else { // No hay un objeto válido para administrar. header('Location: '.$_SERVER['SCRIPT_NAME']); } } // }}} -// Si tiene un tipo, estamos editando algo. {{{ +// Si tiene un tipo, estamos administrando algun objeto. {{{ if ($tipo) { // Creo formulario. {{{ @@ -94,7 +109,7 @@ if ($tipo) { $obj->$tipo = @$_REQUEST['id']; // }}} - // Verifico que la acción sea válida. {{{ + // Verifico que la acción sea válida y si no lo es hago que sea un alta. {{{ switch(@$_REQUEST['accion']) { case AI_BAJA: case AI_MODIF: @@ -105,7 +120,7 @@ if ($tipo) { } // }}} - // Verifico si ya se envio el formulario. {{{ + // Modifico la acción si ya se envió el formulario. {{{ $botones = $form->getSubmitValue('botones'); if ($boton = @join('', array_keys($botones))) { $boton = $boton . '_' . strtolower($botones[$boton]); @@ -131,109 +146,113 @@ if ($tipo) { } // }}} - // Creo la base de datos. {{{ - require_once 'AI/DB.php'; - $db =& AI_DB::connect('../conf/DB.ini'); - if (DB::isError($db)) { - die($db->getMessage()); - } - // }}} - // Inicio el formulario, cargando datos de ser necesario. {{{ if ($accion & (AI_BAJA | AI_MODIF)) { $err =& $obj->cargar($db); if (PEAR::isError($err)) { die($err->getMessage()); } - $form->iniciar($obj, $accion); + $form->iniciar($obj, $accion, $db); } else { $accion = AI_ALTA; - $form->iniciar($obj); + $form->iniciar($obj, $accion, $db); } // }}} - // Freezo de ser necesario. {{{ + // Freezo el formulario si se está confirmando. {{{ if (@$a_confirmar) { $form->freeze(); } // }}} - // Me fijo si se cargo un formulalrio y si es válido hago el ABM. {{{ + // Si los datos del formulario son válidos, hago el ABM. {{{ if ($form->validate()) { - switch ($accion) { case AI_ALTA: // {{{ $form->llenarObjeto($obj); - $err =& $obj->guardar($db); + $err =& $obj->guardar($db, true); if (PEAR::isError($err)) { - die($err->getMessage()); + if (DB::isError($err) + and $err->getCode() == DB_ERROR_ALREADY_EXISTS) { + $error = new MECON_HTML_Error( + "Ya existe un $nombre con el identificador " + . $obj->$tipo); + } else { + $error = new MECON_HTML_Error('Error no esperado: ' + . $err->getMessage()); + } + $marco->addBody($error); + } else { + header(sprintf('Location: %s?accion=%d&id=%d', + $tipo, AI_MODIF, $obj->$tipo)); + exit; } - header(sprintf('Location: %s?accion=%d&id=%d', - $tipo, AI_MODIF, $obj->$tipo)); - exit; break; - // }}} + // }}} case AI_BAJA: // {{{ if (!@$a_confirmar) { $form->llenarObjeto($obj); $err =& $obj->borrar($db); - if (PEAR::isError($err)) { - die($err->getMessage()); + if (AI_Error::isError($err) + and $err->getCode() == AI_ERROR_TIENE_HIJOS) { + $error = new MECON_HTML_Error('No se puede borrar el ' + . $nombre . ' porque todavía tiene "hijos".' + . ' Elimine todos los "hijos" y pruebe otra vez.'); + $marco->addBody($error); + } elseif (PEAR::isError($err)) { + $error = new MECON_HTML_Error('Error no esperado: ' + . $err->getMessage()); + $marco->addBody($error); + } else { + header("Location: $tipo"); + exit; } - header("Location: $tipo"); - exit; } break; - // }}} + // }}} case AI_MODIF: // {{{ if (!@$cancelado) { $form->llenarObjeto($obj); $err =& $obj->guardar($db); if (PEAR::isError($err)) { - die($err->getMessage()); + $error = new MECON_HTML_Error('Error no esperado: ' . $err->getMessage()); + $marco->addBody($error); + } else { + header(sprintf('Location: %s?accion=%d&id=%d', + $tipo, AI_MODIF, $obj->$tipo)); + exit; } - header(sprintf('Location: %s?accion=%d&id=%d', - $tipo, AI_MODIF, $obj->$tipo)); - exit; } break; - // }}} + // }}} } } // }}} - // Creo el árbol con el tipo de objeto que manejo. {{{ - require_once 'MECON/HTML/Arbol/ArbolDB.php'; - $dbdata = array( - 'db' => &$db, - 'tabla' => $tabla, - 'id' => $tipo, - 'nombre' => $tipo, - 'prepend_link' => $tipo.'?accion='.AI_MODIF.'&id=' - ); - if ($tipo == 'grupo' or $tipo == 'servicio') { - $dbdata['nombre'] = 'nombre'; - $dbdata['id_padre'] = $tipo . '_padre'; - } - $arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif'); + // Creo el árbol con el tipo de objeto que manejo y lo agrego a la página. {{{ + require_once 'AI/Arbol.php'; + $arbol = new AI_Arbol($obj, $db, false); // }}} - // Agrego al cuerpo de la página las cosas que voy a dibujar. {{{ - $layout->setCellContents(0, 0, $arbol); - $layout->setCellContents(0, 2, $form); - $marco->addBody($layout); + // Agrego el menu, link para nuevo y formulario a la página. {{{ + $marco->addMenuVertical($arbol); + if ($accion & ~AI_ALTA) { + $form->renderer->tabla->addLink('nuevo', $tipo); + } + $marco->addBody($form); // }}} + // }}} -// No se está editando nada, agrego al cuerpo de la página la pantalla de entrada {{{ +// No se está editando nada, agrego la imágen de bienvenida a la página. {{{ } else { - require_once 'HTML/Image.php'; + require_once 'MECON/HTML/Image.php'; $marco->setEspacios(false); - $marco->addBody(new HTML_Image('images/home', 'Adminitrador de Intranet')); + $marco->addBody(new MECON_HTML_Image('images/home', 'Adminitrador de Intranet')); } // }}} -// Dibujo. {{{ +// Muestro la página. {{{ $marco->display(); // }}}