]> git.llucax.com Git - mecon/samurai.git/blob - sistema/www/sel-sistema.php
Libreria de Perl terminada.
[mecon/samurai.git] / sistema / www / sel-sistema.php
1 <?php
2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
3 // +----------------------------------------------------------------------+
4 // | PHP Version 4                                                        |
5 // +----------------------------------------------------------------------+
6 // | Copyright (c) 1997-2003 The PHP Group                                |
7 // +----------------------------------------------------------------------+
8 // | This source file is subject to version 2.02 of the PHP license,      |
9 // | that is bundled with this package in the file LICENSE, and is        |
10 // | available at through the world-wide-web at                           |
11 // | http://www.php.net/license/2_02.txt.                                 |
12 // | If you did not receive a copy of the PHP license and are unable to   |
13 // | obtain it through the world-wide-web, please send a note to          |
14 // | license@php.net so we can mail you a copy immediately.               |
15 // +----------------------------------------------------------------------+
16 // | Created: lun jul  7 10:39:58 ART 2003
17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
18 // +----------------------------------------------------------------------+
19 //
20 // $Id$
21 // 
22
23 //REQUIRE ONCE {{{
24     require_once 'MECON/HTML/QuickForm.php';
25     require_once 'MECON/HTML/Tabla.php';
26     require_once 'SAMURAI/Sistema.php';
27 //}}}
28
29 //CREO LOS OBJETOS NECESARIOS {{{
30     $FORM     = new MECON_HTML_QuickForm ('sel_sistema','post','sel-sistema');
31     $TABLAFORM =& new MECON_HTML_Tabla ('width="400"', 'comun');
32     $FORM->renderer->setTable($TABLAFORM);
33     $SISTEMAS = SAMURAI_Sistema::getArraySistemasSeleccionar($DB);
34 // }}}
35 //AGREGO LOS ELEMENTOS DEL FORM {{{
36     $FORM->addElement ('header', 'cabecera', 'Seleccione el sistema con el cual quiere trabajar');
37     $FORM->addElement ('select', 'sistemas', 'Sistemas', $SISTEMAS, array('size' => '1'));
38     if (@$_GET['redirect']) {
39         $redirect = $_GET['redirect'];
40     }
41     elseif (@$_POST['redirect']) {
42         $redirect = $_POST['redirect'];
43     }
44     else {
45         $redirect = 'index';
46     }
47     $FORM->addElement ('hidden', 'redirect', $redirect);
48     $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Seleccionar');
49     $FORM->addGroup($group,'botones', '', ',&nbsp;');
50 // }}}
51 //VALIDO EL FORMULARIO {{{
52     if ($FORM->validate()) {
53         $sistema =& $FORM->getElement ('sistemas');
54         $tmp     =  $sistema->getSelected();
55         $_SESSION['samurai']['id_sistema'] = $tmp['0'];
56         
57         if ($FORM->elementExists('responsable')) {
58             $responsable =& $FORM->getElement ('responsable');
59             $_SESSION['usuario'] = $responsable->getValue();
60         }
61         header('Location: '.$_POST['redirect']);
62     }
63 // }}}
64 // DIBUJO LA PAGINA {{{
65     $MARCO->habilitarLinks(false); //MODIFICAR ESTO CUANDO SE HAGA LA FUNCION DESHABILITAR LINKS
66     $MARCO->addBody($FORM);
67     $MARCO->display();
68 // }}}
69 ?>