Cambios en la definicion de constantes. Utiliza el archivo generado por SAMURAI en...

[mecon/samurai.git] / sistema / www / sel-sistema.php

diff --git a/sistema/www/sel-sistema.php b/sistema/www/sel-sistema.php
index 9c674240bf513e55e2b2976ec5e7f8080d0d1dfc..36e9f28c3a23b700f7b8fb7adb4e96a1c4a62746 100644 (file)
--- a/sistema/www/sel-sistema.php
+++ b/sistema/www/sel-sistema.php
@@ -19,10 +19,12 @@
 //
 // $Id$
 // 
+
+//REQUIRE ONCE {{{
     require_once 'MECON/HTML/QuickForm.php';
     require_once 'MECON/HTML/Tabla.php';
     require_once 'SAMURAI/Sistema.php';
-
+//}}}
 
 //CREO LOS OBJETOS NECESARIOS {{{
     $FORM     = new MECON_HTML_QuickForm ('sel_sistema','post','sel-sistema');
@@ -31,13 +33,16 @@
 //AGREGO LOS ELEMENTOS DEL FORM {{{
     $FORM->addElement ('header', 'cabecera', 'Seleccione el sistema con el cual quiere trabajar');
     $FORM->addElement ('select', 'sistemas', 'Sistemas', $SISTEMAS, array('size' => '1'));
-    
-    //SI ESTA EL LOGIN NO LO PIDO {{{
-    if (!@$_SESSION['samurai']['login']) {
-        $FORM->addElement ('text', 'responsable', 'Responsable', array('size' => '30'));
-        $FORM->addRule ('responsable', 'El campo responsable es obligatorio', 'required');
+    if (@$_GET['redirect']) {
+        $redirect = $_GET['redirect'];
+    }
+    elseif (@$_POST['redirect']) {
+        $redirect = $_POST['redirect'];
+    }
+    else {
+        $redirect = 'index';
     }
-    // }}}
+    $FORM->addElement ('hidden', 'redirect', $redirect);
     $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Seleccionar');
     $FORM->addGroup($group,'botones', '', ', ');
 // }}}
@@ -49,9 +54,9 @@
         
         if ($FORM->elementExists('responsable')) {
             $responsable =& $FORM->getElement ('responsable');
-            $_SESSION['samurai']['login'] = $responsable->getValue();
+            $_SESSION['usuario'] = $responsable->getValue();
         }
-        header('Location: index');
+        header('Location: '.$_POST['redirect']);
     }
 // }}}
 // DIBUJO LA PAGINA {{{