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