Se termina la primera versión funcional de servicios.

[mecon/ai.git] / sistema / www / servicios.php

diff --git a/sistema/www/servicios.php b/sistema/www/servicios.php
index 320247654286c3c9d736fe13af16ffe1f3c03bee..417dd2a232f4f53b714b37951384e280e8d5c6f5 100644 (file)
--- a/sistema/www/servicios.php
+++ b/sistema/www/servicios.php
@@ -1,5 +1,5 @@
 <?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
+// vim: set expandtab tabstop=4 shiftwidth=4 foldmethod=marker:
 // +--------------------------------------------------------------------+
 // |                      Ministerio de Economía                        |
 // |                  AI (Administrador de Intranet)                    |
@@ -27,7 +27,135 @@
 // $Id$
 //
 
-$MARCO->addBody("SERVICIOS");
+// Requires. {{{
+require_once 'MECON/HTML/Arbol/ArbolDB.php';
+require_once 'AIForm.php';
+require_once 'Servicio.php';
+// }}}
+
+// Creo el árbol con los servicios. {{{
+$dbdata = array(
+    'db'            => &$DB,
+    'tabla'         => 'servicio',
+    'id'            => 'servicio',
+    'nombre'        => 'nombre',
+    'id_padre'      => 'servicio_padre',
+    'prepend_link'  => 'servicios?accion='.MODIFICACION.'&id='
+);
+$arbol = new HTML_ArbolDB($dbdata, '/MECON/images/arbol_noticias.gif');
+// }}}
+
+// Creo un servicio y seteo su id. {{{
+$servicio = new Servicio;
+$servicio->servicio = @$_REQUEST['id'];
+// }}}
+
+// Creo formulario. {{{
+$form =& new AIForm;
+// }}}
+
+// Verifico que la accion sea válida. {{{
+switch(@$_REQUEST['accion']) {
+    case BAJA:
+    case MODIFICACION:
+        $accion = $_REQUEST['accion'];
+        break;
+    default:
+        $accion = ALTA;
+}
+// }}}
+
+// Verifico si ya se envio el formulario. {{{
+$botones = $form->getSubmitValue('botones');
+if ($boton = @join('', array_keys($botones))) {
+    $boton = $boton . '_' . strtolower($botones[$boton]);
+}
+switch ($boton) {
+    case 'aceptar_agregar':
+        $accion = ALTA;
+        break;
+    case 'modificar_borrar':
+        // Viene de modificar,  hay que confirmar primero.
+        $a_confirmar = true;
+    case 'aceptar_borrar':
+        $accion = BAJA;
+        $servicio->servicio = $form->getSubmitValue('servicio');
+        break;
+    case 'borrar_cancelar':
+        // Indico que viene de un formulario cancelado.
+        $cancelado = true;
+    case 'aceptar_modificar':
+        $accion = MODIFICACION;
+        $servicio->servicio = $form->getSubmitValue('servicio');
+        break;
+}
+// }}}
+
+// Inicio el formulario, cargando datos de ser necesario. {{{
+if ($accion & (BAJA | MODIFICACION)) {
+    $err =& $servicio->cargar($DB);
+    if (PEAR::isError($err)) {
+        die($err->getMessage());
+    }
+    $form->iniciar($servicio, $accion);
+} else {
+    $accion = ALTA;
+    $form->iniciar($servicio);
+}
+// }}}
+
+// Freezo de ser necesario. {{{
+if (@$a_confirmar) {
+    $form->freeze();
+}
+// }}}
+
+// Me fijo si se cargo un formulalrio y si es válido. {{{
+if ($form->validate()) {
+    switch ($accion) {
+        case ALTA:
+            $form->llenarObjeto($servicio);
+            $err =& $servicio->guardar($DB);
+            if (PEAR::isError($err)) {
+                die($err->getMessage());
+            }
+            header(sprintf('Location: servicios?accion=%d&id=%d',
+                MODIFICACION, $servicio->servicio));
+            exit;
+            break;
+        case BAJA:
+            if (!@$a_confirmar) {
+                $form->llenarObjeto($servicio);
+                $err =& $servicio->borrar($DB);
+                if (PEAR::isError($err)) {
+                    die($err->getMessage());
+                }
+                header('Location: servicios');
+                exit;
+            }
+            break;
+        case MODIFICACION:
+            if (!@$cancelado) {
+                $form->llenarObjeto($servicio);
+                $err =& $servicio->guardar($DB);
+                if (PEAR::isError($err)) {
+                    die($err->getMessage());
+                }
+                header(sprintf('Location: servicios?accion=%d&id=%d',
+                    MODIFICACION, $servicio->servicio));
+                exit;
+            }
+            break;
+    }
+}
+$body =& $form;
+// }}}
+
+// Dibujo. {{{
+$LAYOUT->setCellContents(0, 0, $arbol);
+$LAYOUT->setCellContents(0, 2, $body);
+$MARCO->addBody($LAYOUT);
 $MARCO->display();
+// }}}
 
 ?>