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/Page.php';
  25 require_once 'MECON/HTML/QuickForm.php';
  26 require_once 'MECON/HTML/Tabla.php';
  27 require_once 'SAMURAI/Sistema.php';
  28 require_once 'MECON/HTML/Image.php';
  29 //}}}
  30
  31 //CREO LOS OBJETOS NECESARIOS {{{
  32 $PAGE =& new MECON_HTML_Page();
  33 $FORM =& new MECON_HTML_QuickForm ('sel_sistema','post','sel-sistema');
  34 $TABLAFORM =& new MECON_HTML_Tabla ('width="400"', 'comun');
  35 $FORM->renderer->setTable($TABLAFORM);
  36 $SISTEMAS = SAMURAI_Sistema::getArraySistemasSeleccionar($DB);
  37 //}}}
  38
  39 //AGREGO LOS ELEMENTOS DEL FORM {{{
  40 $FORM->addElement ('header', 'cabecera', 'Seleccione el sistema con el cual quiere trabajar');
  41 $FORM->addElement ('select', 'sistemas', 'Sistemas', $SISTEMAS, array('size' => '1'));
  42 if (@$_GET['redirect']) {
  43     $redirect = $_GET['redirect'];
  44 }
  45 elseif (@$_POST['redirect']) {
  46     $redirect = $_POST['redirect'];
  47 }
  48 else {
  49     $redirect = 'index';
  50 }
  51 $FORM->addElement ('hidden', 'redirect', $redirect);
  52 $group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Seleccionar');
  53 $FORM->addGroup($group,'botones', '', ',&nbsp;');
  54 //}}}
  55
  56 //VALIDO EL FORMULARIO {{{
  57 if ($FORM->validate()) {
  58     $sistema =& $FORM->getElement ('sistemas');
  59     $tmp     =  $sistema->getSelected();
  60     $_SESSION['samurai']['id_sistema'] = $tmp['0'];
  61
  62     if ($FORM->elementExists('responsable')) {
  63         $responsable =& $FORM->getElement ('responsable');
  64         $_SESSION['usuario'] = $responsable->getValue();
  65     }
  66     header('Location: '.$_POST['redirect']);
  67 }
  68 //}}}
  69
  70 //DIBUJO LA PAGINA {{{
  71 $im =& new MECON_HTML_Image('images/copete.jpg',
  72         'Intranet - MEcon - SAMURAI');
  73 $PAGE->addBodyContent('<div align="center">');
  74 $PAGE->addBodyContent($im);
  75 $PAGE->addBodyContent($FORM);
  76 $PAGE->addBodyContent('</div>');
  77 $PAGE->setTitle('Seleccionar Sistema');
  78 $PAGE->display();
  79 // }}}
  80 ?>