]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/servicios/bandas/index.php
Se pasa Php2Embperl_Session.epl al repositorio scripts y se actualiza documentacion.
[mecon/intranet.git] / sistema / www / servicios / bandas / index.php
1 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 foldmethod=marker:
2 -------------------------------------------------------------------------------
3                              Ministerio de Economía
4                                     agenda
5 -------------------------------------------------------------------------------
6 This file is part of agenda.
7
8 agenda is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2 of the License, or (at your option)
11 any later version.
12
13 agenda is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
15 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16  
17 You should have received a copy of the GNU General Public License; if not,
18 write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
19 Boston, MA  02111-1307  USA
20 -------------------------------------------------------------------------------
21 Creado: lun ago 11 14:10:35 ART 2003
22 Autor:  Martin Marrese <mmarre@mecon.gov.ar>
23 -------------------------------------------------------------------------------
24 $Id: agenda1.php 64 2003-08-21 18:48:28Z mmarre $
25 -----------------------------------------------------------------------------*/
26
27 //REQUIRE ONCE {{{
28 require_once 'HTML/Table.php';
29 require_once '../../../local_lib/HTML_DietMarco.php';
30 require_once '../../../local_lib/HTML_Mensaje.php';
31 require_once 'BandasNovedades/Buscador.php';
32 require_once 'MECON/HTML/Tabla.php';
33 require_once 'MECON/HTML/QuickForm.php';
34 require_once 'MECON/HTML/Image.php';
35 require_once 'MECON/Agente.php';
36 require_once 'DB.php';
37 //}}}
38
39 //CHEQUEO QUE EL USUARIO YA ESTÉ LOGUEADO {{{
40 if(!isset($_SESSION['documento']))
41 {
42         header('Location: ../../servicios.php');
43 }
44 //}}}
45
46 //CREO LA CONEXION A LA BASE DE DATOS {{{
47 $DB = DB::connect("mysql://intranet:intranet@bal747f/bandas",true);
48 if (DB::isError($DB)) {
49     die ($DB->getMessage());
50 }
51 //}}}
52 //{{{ INSTANCIO EL MARCO
53 $MARCO =& new HTML_DietMarco('servicios','Bandas Horarias');
54 //}}}
55
56 //{{{ CHEQUEO SI EL USUARIO NO ES CONTRATADO O NO ESTA EN LAS BASES DE RRHH
57 $agente =& new MECON_Agente($_SESSION['documento']);
58
59 if(!$agente->buscarAgente($_SESSION['documento']))
60 {
61         $HTML_Mensaje =& new HTML_Mensaje("alerta","El agente no está en las bases de RRHH",450);
62         $MARCO->addStyleSheet($HTML_Mensaje->getCSS());
63         $MARCO->addBodyContent($HTML_Mensaje);
64         $MARCO->display();
65         die;
66 }
67
68 /* Si el agente es un contratado entonces no muestro la info */
69 if(preg_match('/^CON/',$agente->getTipo()))
70 {
71         $HTML_Mensaje =& new HTML_Mensaje("alerta","Información no disponible",300);
72         $MARCO->addStyleSheet($HTML_Mensaje->getCSS());
73         $MARCO->addBodyContent($HTML_Mensaje);
74         $MARCO->display();
75         die;
76 }
77
78 //}}}
79
80 //CREO LOS OBJETOS NECESARIOS PARA EL RESTO DE LA PAGINA{{{
81 $TABLAFORM = new MECON_HTML_Tabla ('width="500"', 'medio');
82 $FORM      = new MECON_HTML_QuickForm('bandas', 'post', 'banda_agente', '', array ('action' => ''));
83 $FORM->renderer->setTable($TABLAFORM);
84 $TABLA     = new HTML_Table('width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"');
85 $IMG      = new MECON_HTML_Image('../../images/servicios_flecha_naranja.gif');
86 //}}}
87 //OBTENGO LOS DATOS DE LAS BASES {{{
88 setlocale (LC_ALL, 'es_AR');
89 $RESULT_MESES = BandasNovedades_Buscador::getMeses($DB);
90 $MESES = array();
91 foreach ($RESULT_MESES as $m)
92 {
93         $mes = strftime("%B", mktime(0,0,0,$m[0],1,$m[1]));
94     ($m[0]<10)?$m[0]='0'.$m[0]:0;
95         $MESES[$m[1].'-'.$m[0].'-01'] = $m[1].'-'.$mes;
96 }
97
98 //}}}
99 //AGREGO LOS ELEMENTOS AL FORM {{{
100 $header        =& $FORM->addElement('header', 'cabecera'      , $IMG->toHtml().'Ingreso de fecha');
101 $edificio      =& $FORM->addElement('select', 'fecha'   , 'Meses Disponibles'   , $MESES, array('size' => '1'));
102 //Agrego el botón del formulario
103 $grupo   = array();
104 $grupo[] =& HTML_QuickForm::createElement('submit', 'aceptar' , 'Buscar');
105 $botones  =& $FORM->addGroup($grupo, 'botones');
106
107 //}}}
108
109 //ACOMODO EL FORM {{{
110 $MARCO->addStyleSheet($TABLAFORM->getCSS()); //EL PROBLEMA QUE ESTO LO NECESITO PARA QUE FUNCIONE EL RENDERER NUEVO
111 //}}}
112
113
114 //ARMO LA TABLA {{{
115 $TABLA->addRow(array($FORM));
116
117 //}}}
118 //MUESTRO LA INFO {{{
119 //$MARCO->addTitle('Bandas Horarias');
120 $MARCO->addBodyContent('<BR>');
121 $MARCO->addBodyContent($TABLA);
122 $MARCO->display();
123 //}}}
124 ?>