$Id$
-- Falta sacar la debependencia de la DB de Banda.
+* Modificar HIT como habíamos charlado y congelar su API para poder
+ empezar a usarla.
+* Empezar a meter HIT en alguna clase de prueba y empezar a másticar
+ mejor como encajaría en todo esto.
+
+++ /dev/null
-<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
--------------------------------------------------------------------------------
- Ministerio de Economía
- meconlib
--------------------------------------------------------------------------------
-This file is part of meconlib.
-
-meconlib is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2 of the License, or (at your option)
-any later version.
-
-meconlib is distributed in the hope that it will be useful, but WITHOUT
-ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License; if not,
-write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
-Boston, MA 02111-1307 USA
--------------------------------------------------------------------------------
-Creado: Thu Jun 19 15:17:11 2003
-Autor: Gonzalo Merayo <gmeray@mecon.gov.ar>
--------------------------------------------------------------------------------
-$Id$
------------------------------------------------------------------------------*/
-
-require_once 'DB.php';
-require_once 'MECON/Tiempo/Hora.php';
-
-/**
- * @access public
- */
-class MECON_Agente {
-
- /**
- * Documento del agente.
- */
- var $agente;
-
- /**
- * Datos del agente
- */
- var $datos=array();
-
- /**
- * @return string
- */
- function getDependencia()
- {
- if(in_array('codep',array_keys($this->datos)))
- return $this->datos['codep'];//TODO esta no es la columna correcta
- else
- return false;
- }
-
- /**
- * @return void
- * @access public
- */
- function getTipo()
- {
- if(in_array('marco_legal',array_keys($this->datos)))
- return 'CON '.$this->datos['marco_legal'];
- elseif(in_array('tipo_agente',array_keys($this->datos)))
- return $this->datos['tipo_agente'];
- else
- return false;
- }
-
- /**
- * @param dbh $db
- * @param int $agente
- *
- * @return void
- * @access public
- */
- function MECON_Agente(&$db,$agente=null)
- {
- $this->_db = $db;
- //$this->_db = DB::connect('mysql://intranet:intranet@intranet-db.mecon.ar/novedades');
- if(! is_null($agente)) {
- $this->buscarAgente($agente);
- }
- }
-
- /**
- * @return void
- * @access public
- */
- function getNombre()
- {
- if(in_array('nombre',array_keys($this->datos)))
- return $this->datos['nombre'];
- else
- return false;
- }
-
- /**
- * @return void
- * @access public
- */
- function getHoraDesde()
- {
- if(in_array('hora_desde',$this->datos))
- return new MECON_Tiempo_Hora($this->datos['hora_desde']);
- elseif(in_array('hentra',$this->datos))
- return new MECON_Tiempo_Hora($this->datos['hentra']);
- else
- return false;
- }
-
- /**
- * @return void
- * @access public
- */
- function getHoraHasta()
- {
- if(in_array('hora_hasta',$this->datos))
- return new MECON_Tiempo_Hora($this->datos['hora_hasta']);
- elseif(in_array('hsale',$this->datos))
- return new MECON_Tiempo_Hora($this->datos['hsale']);
- else
- return false;
- }
-
- /**
- * @return void
- * @access public
- */
- function getCuil()
- {
- if(in_array('cuil',$this->datos))
- {
- $aux = $this->datos['cuil'];
- $aux = preg_replace('/(\d{2})(\d*)(\d{1})/','$1-$2-$3',$aux);
- return $aux;
- }else
- {
- return false;
- }
- }
-
- /**
- * @return void
- * @access public
- */
- function getOtrosDatos()
- {
- if(!is_null($this->datos['tipo_agente'])) {
- $aux['tipo_doc'] = $this->datos['tipodoc'];
- $aux['fecha_nac'] = $this->datos['fecha_nac'];
- $aux['edad'] = $this->datos['edad'];
- $aux['estado_civil'] = $this->datos['estado_civil'];
- $aux['domicilio'] = $this->datos['domicilio'];
- $aux['puerta'] = $this->datos['num_puerta'];
- $aux['piso'] = $this->datos['piso'];
- $aux['depto'] = $this->datos['depto'];
- $aux['localidad'] = $this->datos['localidad'];
- $aux['provincia'] = $this->datos['provincia'];
- $aux['calle1'] = $this->datos['calle1'];
- $aux['calle2'] = $this->datos['calle2'];
- $aux['cp'] = $this->datos['cp'];
- $aux['telefono'] = $this->datos['telefono'];
- $aux['cargo'] = $this->datos['cargo'];
- $aux['nivel'] = $this->datos['nivel'];
- $aux['grado'] = $this->datos['grado'];
- $aux['func_ejec'] = $this->datos['func_ejec'];
- $aux['obra_social'] = $this->datos['obra_social'];
- $aux['afiliado'] = $this->datos['afiliado'];
- $aux['conyuge'] = $this->datos['conyuge'];
- $aux['fecha_nac_conyuge'] = $this->datos['fecha_nac_cony'];
- $aux['tipo_doc_conyuge'] = $this->datos['tipodoc_cony'];
- $aux['nro_doc_cony'] = $this->datos['nrodoc_cony'];
- return $aux;
- } else {
- return false;
- }
- }
-
- /**
- * @param int $agente
- *
- * @return void
- * @access public
- */
- function buscarAgente($agente)
- {
- $this->agente = $agente;
- $sql = "SELECT *
- FROM novedades.web003
- WHERE nrodoc = ".$agente." AND tipo_agente <> 'AUT'";
- $result = $this->_db->query($sql);
- if(DB::isError($result))
- trigger_error($result->getMessage("query mal hecho"), E_USER_ERROR);
- if($result->numRows() > 0) {
- $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
- } else {
- $sql = "SELECT *
- FROM Contratados.Contratados
- WHERE nrodoc = ".$agente;
- $result = $this->_db->query($sql);
- if(DB::isError($result)) {
- trigger_error($result->getMessage("query mal hecho"), E_USER_ERROR);
- }
- if($result->numRows() > 0) {
- $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
- } else {
- return false;
- }
- }
- return true;
- }
-
-}
-?>
\ No newline at end of file
+++ /dev/null
-<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
--------------------------------------------------------------------------------
- Ministerio de Economía
- meconlib
--------------------------------------------------------------------------------
-This file is part of meconlib.
-
-meconlib is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2 of the License, or (at your option)
-any later version.
-
-meconlib is distributed in the hope that it will be useful, but WITHOUT
-ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License; if not,
-write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
-Boston, MA 02111-1307 USA
--------------------------------------------------------------------------------
-Creado: Thu Jun 19 16:54:08 2003
-Autor: Gonzalo Merayo <gmeray@mecon.gov.ar>
--------------------------------------------------------------------------------
-$Id$
------------------------------------------------------------------------------*/
-
-#require_once 'PEAR.php';
-require_once 'MECON/Agente.php';
-require_once 'DB.php';
-
-/**
- * @access protected
- */
-class MECON_Dependencia {
-
- /**
- * @protected
- */
- var $_dbh;
-
- /**
- * @protected
- */
- var $_database;
-
- /**
- * @var int $codep
- * @access public
- */
- var $codep;
-
- /**
- * @var int $nombre
- * @access public
- */
- var $nombre;
-
- /**
- * @var int $nombre_breve
- * @access public
- */
- var $nombre_breve;
-
- /**
- * Id de la dependencia en la base.
- *
- * @var int $dependencia_id
- * @access public
- */
- var $dependencia_id = null;
-
- /**
- * @param string $codep
- * @param int $id
- *
- * @return void
- * @access public
- */
- function MECON_Dependencia(&$db, $codep, $id = null, $database = 'CODEP')
- {
- $this->_db = $db;
- $this->_database = $database;
-
- if(!is_null($codep)) {
- $this->codep = $codep;
-
- $sql = "SELECT nombre, nombre_breve, dependencia_id, codigo_actual
- FROM ".$database.".Dependencias
- WHERE codigo_actual = '".$this->codep."' AND
- dependencia_esta_activa = 1";
-
- $result = $this->_db->query($sql);
- }
- else {
- $this->dependencia_id = $id;
-
- $sql = "SELECT nombre, nombre_breve, dependencia_id, codigo_actual
- FROM ".$database.".Dependencias
- WHERE dependencia_id = ".$this->dependencia_id." AND
- dependencia_esta_activa = 1";
- $result = $this->_db->query($sql);
- }
-
- if(DB::isError($result))
- trigger_error($result->getMessage("query mal hecho"), E_USER_ERROR);
-
- if($result->numRows() > 0) {
- $row = $result->fetchRow(DB_FETCHMODE_ASSOC);
- $this->codep = $row['codigo_actual'];
- $this->nombre = $row['nombre'];
- $this->nombre_breve = $row['nombre_breve'];
- $this->dependencia_id = $row['dependencia_id'];
- }
- }
-
-
- /**
- * @return void
- * @access public
- */
- function getAgentes()
- {
- //Planta y becarios
- $agentes = array();
- $sql = "SELECT nrodoc
- FROM novedades.web003
- WHERE codep = '".$this->codep."'";
- $result = $this->_db->query($sql);
- if(DB::isError($result))
- trigger_error($result->getMessage("query mal hecho"), E_USER_ERROR);
- while($row = $result->fetchRow())
- $agentes[$row[0]] = new MECON_Agente($this->_db, $row[0]);
- //Contratados
- $sql = "SELECT nrodoc
- FROM Contratados.Contratados
- WHERE codep = '".$this->codep."'";
- $result = $this->_db->query($sql);
- if(DB::isError($result))
- trigger_error($result->getMessage("query mal hecho"), E_USER_ERROR);
- while($row = $result->fetchRow())
- $agentes[$row[0]] = new MECON_Agente($this->_db, $row[0]);
- return $agentes;
- }
-
-
- /**
- * @return dependencia
- * @access public
- * @static
- */
- function getDependencias()
- {
- $base = (isset($this->_database))? $this->_database : "CODEP";
- $sql = "SELECT codigo_actual
- FROM ".$base.".Dependencias
- WHERE dependencia_esta_activa = 1";
- $result = $this->_db->query($sql);
- if(DB::isError($result))
- trigger_error($result->getMessage("query mal hecho"), E_USER_ERROR);
- $dependencias = array();
- while($row = $result->fetchRow())
- $dependencias[] = $row[0];
- return $dependencias;
- }
-
-
- /**
- * @return void
- * @access public
- */
- function getNombre()
- {
- return $this->nombre;
- }
-
-
- /**
- * @return void
- * @access public
- */
- function getNombreBreve()
- {
- return $this->nombre_breve;
- }
-
-
-
- /**
- * Buscar dependencias por el codep.
- *
- * @param db &$dbh Base de Datos
- * @param string $codep COdigo de dependencia, o parte del mismo seguido del comodIn (*)
- *
- * @return array
- * @access public
- * @static
- */
- function buscarPorCodigo(&$dbh, $codep, $database = 'CODEP')
- {
- //Reemplazar el comodín
- $codep = preg_replace ('/\*/', '%', $codep);
-
- $sql = " SELECT codigo_actual, codigo_comdoc, nombre,
- dependencia_id, nombre_breve
- FROM ".$database.".Dependencias
- WHERE dependencia_esta_activa = 1
- AND codigo_actual LIKE '".$codep."'
- ORDER BY codigo_actual ";
-
- $dbh->setFetchMode(DB_FETCHMODE_ASSOC);
- $result = $dbh->query($sql);
-
- return $result;
- }
-
-
-
- /**
- * @param db &$dbh Base de Datos
- * @param string $clave Cadena de palabras clave del nombre de la dependencia.
- *
- * @return array
- * @access public
- * @static
- */
- function buscarPorNombre(&$dbh, $clave, $database = 'CODEP')
- {
- //ReducciOn de espacios en blanco
- $clave = preg_replace ('/\s+/', ' ', $clave);
-
- $sql = " SELECT codigo_actual, codigo_comdoc, nombre, dependencia_id,
- nombre_breve
- FROM ".$database.".Dependencias
- WHERE dependencia_esta_activa = 1 ";
-
- //Separar la cadena de palabras clave
- $items = split(' ', $clave);
- foreach ($items as $i){
- $sql.= " AND nombre like '%".$i."%' ";
- }
-
- $sql.= " ORDER BY codigo_actual";
-
- $dbh->setFetchMode(DB_FETCHMODE_ASSOC);
- $result = $dbh->query($sql);
-
- return $result;
- }
-
-
-}
-?>
\ No newline at end of file
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | Ministerio de Economía |
-// | Intranet |
-// +--------------------------------------------------------------------+
-// | This file is part of Intranet. |
-// | |
-// | Intranet is free software; you can redistribute it and/or modify |
-// | it under the terms of the GNU General Public License as published |
-// | by the Free Software Foundation; either version 2 of the License, |
-// | or (at your option) any later version. |
-// | |
-// | Intranet is distributed in the hope that it will be useful, but |
-// | WITHOUT ANY WARRANTY; without even the implied warranty of |
-// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
-// | General Public License for more details. |
-// | |
-// | You should have received a copy of the GNU General Public License |
-// | along with Hooks; if not, write to the Free Software Foundation, |
-// | Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
-// +--------------------------------------------------------------------+
-// | Creado: Mon Jul 7 17:22:10 2003 |
-// | Autor: Matías Sklar <msklar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $Id: Intranet_Legajos_Estudios.php 23 2003-07-15 18:56:42Z msklar $
-//
-
-
-
-// +X2C includes
-require_once 'DB.php';
-// ~X2C
-
-// +X2C Class 163 :Servicios_Legajos_Estudios
-/**
- * Estudios del agente
- *
- * @access public
- */
-// XXX - Pregunta llucar: POR QUE CATSO HEREDA DE DB???
-class MECON_Legajos_Estudios extends DB {
- /**
- * @var int $agente
- * @access public
- */
- var $agente;
-
- /**
- * @var int $datos
- * @access public
- */
- var $datos;
-
- // ~X2C
-
- // +X2C Operation 166
- /**
- * @param int $agente
- *
- * @return void
- * @access public
- */
- function MECON_Legajos_Estudios($db,$agente) // ~X2C
- {
- $this->agente = $agente;
- $sql = "SELECT *
- FROM novedades.web005
- WHERE documento = $agente";
- $result = $db->query($sql);
- if (DB::isError($result))
- trigger_error($result->getMessage('Query mal hecho'), E_USER_ERROR);
-
- for ($fila = 0; $fila < $result->numRows(); $fila++) {
- $this->datos[$fila] = $result->fetchRow(DB_FETCHMODE_ASSOC);
- }
- }
- // -X2C
-
- // +X2C Operation 172
- /**
- * @return void
- * @access public
- */
- function getEstudios() // ~X2C
- {
- return $this->datos;
- }
- // -X2C
-
-} // -X2C Class :Servicios_Legajos_Estudios
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | Ministerio de Economía |
-// | Intranet |
-// +--------------------------------------------------------------------+
-// | This file is part of Intranet. |
-// | |
-// | Intranet is free software; you can redistribute it and/or modify |
-// | it under the terms of the GNU General Public License as published |
-// | by the Free Software Foundation; either version 2 of the License, |
-// | or (at your option) any later version. |
-// | |
-// | Intranet is distributed in the hope that it will be useful, but |
-// | WITHOUT ANY WARRANTY; without even the implied warranty of |
-// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
-// | General Public License for more details. |
-// | |
-// | You should have received a copy of the GNU General Public License |
-// | along with Hooks; if not, write to the Free Software Foundation, |
-// | Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
-// +--------------------------------------------------------------------+
-// | Creado: Mon Jul 7 17:22:10 2003 |
-// | Autor: Matías Sklar <msklar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $Id: Intranet_Legajos_ExperienciaLaboral.php 23 2003-07-15 18:56:42Z msklar $
-//
-
-// +X2C includes
-require_once 'DB.php';
-// ~X2C
-
-// +X2C Class 155 :Servicios_Legajos_ExperienciaLaboral
-/**
- * Antigüedad laboral del agente
- *
- * @access public
- */
-// XXX - Pregunta llucar: POR QUE CATSO HEREDA DE DB???
-class MECON_Legajos_ExperienciaLaboral extends DB {
- /**
- * @var int $agente
- * @access public
- */
- var $agente;
-
- /**
- * @var int $antiguedad
- * @access public
- */
- var $antiguedad;
-
- /**
- * @var int $experiencia
- * @access public
- */
- var $experiencia;
-
- // ~X2C
-
- // +X2C Operation 159
- /**
- * @param int $agente
- *
- * @return void
- * @access public
- */
- function MECON_Legajos_ExperienciaLaboral($db,$agente) // ~X2C
- {
- $this->agente = $agente;
- $sql = "SELECT *
- FROM novedades.web032
- WHERE nrodoc = $agente
- ORDER BY desde";
- $result_exp = $db->query($sql);
- if (DB::isError($result_exp))
- trigger_error($result_exp->getMessage('Query mal hecho'), E_USER_ERROR);
-
- for ($fila = 0; $fila < $result_exp->numRows(); $fila++) {
- $this->experiencia[$fila] = $result_exp->fetchRow(DB_FETCHMODE_ASSOC);
- }
-
- $sql = "SELECT *
- FROM novedades.web031
- WHERE nrodoc = $agente";
- $result_ant = $db->query($sql);
- if (DB::isError($result_ant))
- trigger_error($result_ant->getMessage('Query mal hecho'), E_USER_ERROR);
-
- if ($result_ant->numRows() > 0) {
- $this->antiguedad = $result_ant->fetchRow(DB_FETCHMODE_ASSOC);
- }
-
- }
- // -X2C
-
- // +X2C Operation 160
- /**
- * @return void
- * @access public
- */
- function getAntiguedad() // ~X2C
- {
- return $this->antiguedad;
- }
- // -X2C
-
- // +X2C Operation 161
- /**
- * @return void
- * @access public
- */
- function getExperiencia() // ~X2C
- {
- return $this->experiencia;
- }
- // -X2C
-
-} // -X2C Class :Servicios_Legajos_ExperienciaLaboral
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | Ministerio de Economía |
-// | Intranet |
-// +--------------------------------------------------------------------+
-// | This file is part of Intranet. |
-// | |
-// | Intranet is free software; you can redistribute it and/or modify |
-// | it under the terms of the GNU General Public License as published |
-// | by the Free Software Foundation; either version 2 of the License, |
-// | or (at your option) any later version. |
-// | |
-// | Intranet is distributed in the hope that it will be useful, but |
-// | WITHOUT ANY WARRANTY; without even the implied warranty of |
-// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
-// | General Public License for more details. |
-// | |
-// | You should have received a copy of the GNU General Public License |
-// | along with Hooks; if not, write to the Free Software Foundation, |
-// | Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
-// +--------------------------------------------------------------------+
-// | Creado: Mon Jul 7 17:22:10 2003 |
-// | Autor: Matías Sklar <msklar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $Id: Intranet_Legajos_Familiares.php 23 2003-07-15 18:56:42Z msklar $
-//
-
-// +X2C includes
-require_once 'DB.php';
-// ~X2C
-
-// +X2C Class 154 :Servicios_Legajos_Familiares
-/**
- * @access public
- */
-// XXX - Pregunta llucar: POR QUE CATSO HEREDA DE DB???
-class MECON_Legajos_Familiares extends DB {
- /**
- * @var int $agente
- * @access public
- */
- var $agente;
-
- /**
- * @var int $datos
- * @access public
- */
- var $datos;
-
- // ~X2C
-
- // +X2C Operation 169
- /**
- * @param int $agente
- *
- * @return void
- * @access public
- */
- function MECON_Legajos_Familiares($db,$agente) // ~X2C
- {
- $this->agente = $agente;
- $sql = "SELECT *
- FROM novedades.web004
- WHERE documento = $agente";
- $result = $db->query($sql);
- if (DB::isError($result))
- trigger_error($result->getMessage('Query mal hecho'), E_USER_ERROR);
-
- for ($fila = 0; $fila < $result->numRows(); $fila++) {
- $this->datos[$fila] = $result->fetchRow(DB_FETCHMODE_ASSOC);
- }
- }
- // -X2C
-
- // +X2C Operation 170
- /**
- * @return void
- * @access public
- */
- function getHijos() // ~X2C
- {
- $aux = array();
- $fila = 0;
- if(is_array($this->datos)) {
- foreach (array_keys($this->datos) as $key) {
- if($this->datos[$key]['parentesco']=='H') {
- $aux[$fila]['nombre'] = $this->datos[$key]['nombre'];
- $aux[$fila]['tipo_doc'] = $this->datos[$key]['tipodoc'];
- $aux[$fila]['nro_doc'] = $this->datos[$key]['nrodoc'];
- $aux[$fila]['fecha_nac'] = $this->datos[$key]['fecha_nac'];
- $aux[$fila]['parentesco'] = $this->datos[$key]['parentesco'];
- $fila++;
- }
- }
- }
- return $aux;
- }
- // -X2C
-
- // +X2C Operation 171
- /**
- * @return void
- * @access public
- */
- function getFamiliares() // ~X2C
- {
- $aux = array();
- $fila = 0;
- if(is_array($this->datos)) {
- foreach (array_keys($this->datos) as $key) {
- if($this->datos[$key]['parentesco']!="H") {
- $aux[$fila]['nombre'] = $this->datos[$key]['nombre'];
- $aux[$fila]['tipo_doc'] = $this->datos[$key]['tipodoc'];
- $aux[$fila]['nro_doc'] = $this->datos[$key]['nrodoc'];
- $aux[$fila]['fecha_nac'] = $this->datos[$key]['fecha_nac'];
- $aux[$fila]['parentesco'] = $this->datos[$key]['parentesco'];
- $fila++;
- }
- }
- }
- return $aux;
- }
- // -X2C
-
-} // -X2C Class :Servicios_Legajos_Familiares
-?>
+++ /dev/null
-<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
--------------------------------------------------------------------------------
- Ministerio de Economía
- meconlib
--------------------------------------------------------------------------------
-This file is part of meconlib.
-
-meconlib is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2 of the License, or (at your option)
-any later version.
-
-meconlib is distributed in the hope that it will be useful, but WITHOUT
-ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License; if not,
-write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
-Boston, MA 02111-1307 USA
--------------------------------------------------------------------------------
-Creado: Mon Apr 14 16:23:22 2003
-Autor: Martin Marrese <mmarre@mecon.gov.ar>
--------------------------------------------------------------------------------
-$Id$
------------------------------------------------------------------------------*/
-
-require_once 'PEAR.php';
-require_once 'MECON/Marco/Copete.php';
-require_once 'MECON/Marco/Menu.php';
-require_once 'MECON/Marco/MenuPrincipal.php';
-
-//Agregado para el uso de HTML_Page (Uso la version Original de Pear)
-require_once 'MECON/HTML/Page.php';
-require_once 'HTML/Table.php';
-
-//Defino los directorios por default
-define ('DIR_IMAGENES', 'images');
-define ('DIR_ESTILOS' , 'css' );
-define ('DIR_JS' , 'js' );
-define ('DIR_WWW' , 'www' );
-define ('DIR_CACHE' , '/tmp' );
-
-//Defino las constantes
-define ('SCRIPT_DIR_BASE', '/MECON/js/' );
-define ('ESTILO_DIR_BASE', '/MECON/css/');
-define ('SCRIPT_GENERICO', 'marco.js' );
-define ('ESTILO_GENERICO', 'marco.css' );
-
-/**
- * Clase encargada del manejo del Marco de los sistemas.
- *
- * @access public
- */
-class MECON_Marco extends MECON_HTML_Page {
- /**
- * Array con los datos de configuracion del sistema.
- *
- * @var array $configuracion
- * @access private
- */
- var $_configuracion;
-
- /**
- * Mantiene el estado de los espacios
- *
- * @var bool $espacios
- * @access private
- */
- var $_espacios = true;
-
- /**
- * Menu vertical para agregar en la pantalla.
- *
- * @var mixed $menuVertical
- * @access private
- */
- var $_menuVertical = null;
-
- /**
- * Mantiene el estado de los links en la pagina. (True habilitados, False no)
- *
- * @var bool $links
- * @access private
- */
- var $_links = true;
-
- /**
- * Constructor. Recibe como parametro el path del archivo de configuracion
- *
- * @param string $arch_configuracion indicacion de la ubicacion y nombre del archivo de configuracion
- * @param MECON_Perm $obj_permiso Objeto Permisos
- *
- * @return void
- * @access public
- */
- function MECON_Marco($arch_configuracion, $obj_permiso = null)
- {
- //Creo el objeto pagina
- parent::MECON_HTML_Page();
- //Obtengo y arreglo la configuracion
- $this->_obtenerConfiguracion($arch_configuracion);
- //Agrego el objeto permiso a la configuracion
- if (@$obj_permiso) {
- $this->_configuracion['obj_permiso'] = $obj_permiso;
- }
- //Agrego el estilo y el script genericos
- $this->addScript(SCRIPT_DIR_BASE.SCRIPT_GENERICO);
- $this->addStyleSheet(ESTILO_DIR_BASE.ESTILO_GENERICO);
- //Seteo el titulo
- $this->setTitle($this->_configuracion['titulo_sistema']);
- $this->_configuracion['subtitulo'] = '';
- $this->_configuracion['titulo_sistema2'] = '';
- }
-
- /**
- * Funcion que se encarga de la obtencion y generacion del array de configuracion. Recibe como parametro el path del archivo de configuracion
- *
- * @param string $archivo Archivo de configuracion del sistema
- *
- * @return array
- * @access private
- */
- function _obtenerConfiguracion($archivo)
- {
- $this->_configuracion = include $archivo;
- //Verifico que existan los directorios, si no es asi los reemplazo por los defaults
- if (!@$this->_configuracion['directorios']['root']) {
- trigger_error('Es obligatorio ingresar el directorio root!', E_USER_ERROR);
- }
- if (!@$this->_configuracion['directorios']['imagenes']){
- $this->_configuracion['directorios']['imagenes'] = $this->_configuracion['directorios']['root'].'/'.DIR_IMAGENES;
- }
- if (!@$this->_configuracion['directorios']['estilos']){
- $this->_configuracion['directorios']['estilos'] = $this->_configuracion['directorios']['root'].'/'.DIR_ESTILOS;
- }
- if (!@$this->_configuracion['directorios']['js']){
- $this->_configuracion['directorios']['js'] = $this->_configuracion['directorios']['root'].'/'.DIR_JS;
- }
- if (!@$this->_configuracion['directorios']['www']){
- $this->_configuracion['directorios']['www'] = $this->_configuracion['directorios']['root'].'/'.DIR_WWW;
- }
- if (!@$this->_configuracion['directorios_fs']['cache']){
- $this->_configuracion['directorios_fs']['cache'] = DIR_CACHE;
- }
- }
-
- /**
- * Redefinicion de la funcion que permite agregar objetos o html al body de la pagina
-Si es un objeto debe tener un metodo toHtml y opcionalmente puede tener un getCSS.
-@deprecated
- *
- * @param Mixed $body Mixed. Recibe el contenido a agregar como body de la pagina
- *
- * @return void
- * @access public
- */
- function addBody($body)
- {
- $this->addBodyContent($body);
- }
-
- /**
- * Funcion que permite concatenar lo pasado como parametro al titulo del sistema
- *
- * @param string $titulo String que se quiere agregar al titulo del sistema
- *
- * @return void
- * @access public
- */
- function addTitle($titulo)
- {
- $this->_configuracion['titulo_sistema2'].= ' - '.$titulo;
- }
-
- /**
- * Setea la variable que define si hay que separar el body del menu
- *
- * @param bool $espacios Si es verdadero agrega los espacios, sino los elimina
- *
- * @return void
- * @access public
- */
- function setEspacios($espacios = true)
- {
- $this->_espacios = $espacios;
- }
-
- /**
- * Agrega un menu vertical a la izquierda en la pantalla.
- *
- * @param mixed $menuVertical Objeto u Html que representa el menu a mostrar.
- *
- * @return void
- * @access public
- */
- function addMenuVertical($menuVertical)
- {
- if ((is_object($menuVertical)) && (method_exists($menuVertical, 'getcss'))) {
- $this->addStyleSheet($menuVertical->getCSS());
- }
- $this->_menuVertical = $menuVertical;
- }
-
- /**
- * Permite habilitar o deshabilitar los links de una pagina (todos)
- *
- * @param bool $param True habilita los links, False no.
- *
- * @return void
- * @access public
- */
- function habilitarLinks($param = true)
- {
- $this->_links = $param;
- }
-
- /**
- * Devuelve el html de la pagina
- *
- * @return string
- * @access public
- */
- function toHTML()
- {
- //Seteo el titulo de la pagina
- parent::setTitle($this->_configuracion['titulo_sistema'].$this->_configuracion['titulo_sistema2']);
- //Agrego la opcion seleccionada de links a la configuracion
- $this->_configuracion['links'] = $this->_links;
- //Agrego la opcion seleccionada de espacios a la configuracion
- $this->_configuracion['espacios'] = $this->_espacios;
- //Creo el menu principal
- $menu = new MECON_Marco_MenuPrincipal ($this->_configuracion);
- //Agrego el contenido de la pagina
- $body = array ( 'body' => $this->_body, 'menuVertical' => $this->_menuVertical);
- //Page
- //Agrego el contenido al menu
- $menu->addBody($body);
- //Agrego el Marco completo a Page
- $this->setBody('<div style="width: 760px" align="left">');
- foreach ($menu->resultado AS $res) {
- $this->addBodyContent($res);
- }
- $this->addBodyContent('</div>');
- return parent::toHTML();
- }
-
- /**
- * Funcion que permite concatenar lo pasado como parametro al titulo del sistema
- *
- * @param string $subtitulo Subtitulo a agregar
- *
- * @return void
- * @access public
- */
- function addSubTitle($subtitulo)
- {
- if (is_a($subtitulo, 'mecon_html_link')) {
- $subtitulo->updateAttributes(
- array('class' => 'mecon_marco_subtitle'));
- }
- if (method_exists($subtitulo, 'tohtml')) {
- $subtitulo = $subtitulo->toHtml();
- }
- $this->_configuracion['subtitulo'] .= ' - ' . $subtitulo;
- }
-
- /**
- * Concatena lo pasado por parametro al titulo del sistema
- *
- * @param string $titulo Titulo a agregar. Si se pasa vacio se borra lo que pudiera estar
- *
- * @return void
- * @access public
- */
- function setTitle($titulo = '')
- {
- $this->_configuracion['titulo_sistema2'] = ($titulo) ? ' - '.$titulo :
- '';
- }
-
- /**
- * Concatena lo pasado por parametro al titulo de seccion
- *
- * @param string $subtitulo Setea el subtitulo. Si se pasa vacio borra lo que pudiera estar.
- *
- * @return void
- * @access public
- */
- function setSubtitle($subtitulo = '')
- {
- $this->_configuracion['subtitulo'] = ($subtitulo) ? ' - '.$subtitulo :
- '';
- }
-
- /**
- * Permite hacer que en el copete aparezca un icono de ayuda, en un lugar predefinido. Sobreescribe lo seteado anteriormente por cualquier metodo.
- *
- * @param mixed $ayuda Objeto MECON_HTML_Link o string para utilizar en el map.
- *
- * @return void
- * @access public
- */
- function setAyuda($ayuda)
- {
- $this->_configuracion['ayuda'] = $ayuda;
- }
-
- /**
- * Permite obtener el array de configuracion completo. En caso de recibir una clave como parametro devuelve su valor. Solo se tienen en cuenta las claves del primer nivel.
- *
- * @param string $clave Clave del array de configuracion a obtener.
- *
- * @return mixed
- * @access public
- */
- function getConf($clave = null)
- {
- if ($clave) {
- return @$this->_configuracion[$clave];
- }
- else {
- return $this->_configuracion;
- }
- }
-}
-?>
\ No newline at end of file
+++ /dev/null
-<?php
-
-require_once 'MECON/Tiempo/Intervalo.php';
-
-/**
- * Clase que permite obtener la descripcion de la novedad correspondiente a un
- * código determinado
- *
- */
-class MECON_Novedad {
- /**
- * @var DB $_db
- * @access private
- */
- var $_db;
-
- /**
- * @var string $codigo
- * @access public
- */
- var $codigo;
-
- /*
- * @var string $descripcion
- * @access public
- */
- var $descripcion;
-
- /*
- * @var MECON_Tiempo_Intervalo $intervalo
- * @access public
- */
- var $intervalo;
-
- /**
- * Constructor. Recibe un objeto db y un código de novedad.
- *
- * @param DB $db
- * @param string $codigo
- *
- * @return void
- * @access public
- *
- */
- function MECON_Novedad($db = NULL, $codigo = NULL) {
- if(!is_null($db))
- {
- $this->_db = $db;
-
- if(!is_null($codigo))
- {
-
- $this->codigo = $codigo;
- $sql = "SELECT descripcion FROM novedades.webnov WHERE codigo='".$this->codigo."'";
- $result = $this->_db->getOne($sql);
- $this->descripcion = $result;
- }
- }
- }
-
- /**
- * Devuelve el código de la novedad
- *
- * @return string codigo
- * @access public
- *
- */
- function getCodigo() {
- return $this->codigo;
- }
-
- /**
- * Devuelve la descripción de la novedad
- *
- * @return string descripcion
- * @access public
- *
- */
- function getDescripcion() {
- return $this->descripcion;
- }
-}
-
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun abr 22 16:05:33 ART 2002 |
-// | Autor: Gonzalo Merayo <gmeray@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/tronco/src/lib/he/HE/NovedadesDia.php $
-// $Rev: 380 $
-// $Date: 2003-05-08 18:40:47 -0300 (Thu, 08 May 2003) $
-// $Author: gmeray $
-//
-
-require_once 'DB.php';
-require_once 'Date.php';
-require_once 'MECON/Novedad.php';
-require_once 'MECON/Tiempo/Hora.php';
-
-/**
- * Representa un Intervalo entre 2 horas del mismo dia
- *
- * @package HE
- * @abstract
- * @version $Rev: 380 $
- * @author Gonzalo Merayo <gmeray@mecon.gov.ar>
- */
-class MECON_NovedadesDia {
-
- var $novedades = array();
-
- var $agente = null;
-
- var $fecha = null;
-
- var $_db = null;
-
-
- function MECON_NovedadesDia(&$db, $agente, $fecha) {
-#validar el tipo de $fecha
- $this->agente = $agente;
- $this->fecha = $fecha;
-
-#Ver de donde sacar esto bonito...
-
- $this->_db = $db;
- if(DB::isError($this->_db))
- trigger_error($this->_db->getMessage(), E_USER_ERROR);
-#Carga las novedades del agente/fecha en la lista de novedades
-
- $this->BuscarLicencia();
- $this->BuscarNovedadesTemporales();
- $this->BuscarNovedadDiaria();
- }
-
- function deLicencia() {
- $licencias = array('Adp','Asa','Fal','Fran','FES/REL','Grem','Interrup','Sus','10a','10a/d','10c','10d','10g','10h','10i','10j','10j/c','13Ia','13Ia/s','13Ia/u','13Ib','13Ic','13Id','13Id/a','13Id/h','13Ie','13Ig','13IIa','13IIb','13IIc','13IId', '13IIe','1363/97-2','14a','14b','14b1','14b2','14c','14d','14f','14g','14h','15a', '15b','15c','9');
- $anti_licencias = array('Interr/13a','Interr/9');
- foreach($this->novedades as $nov) {
- if(in_array($nov->codigo, $anti_licencias))
- return false;
- if(in_array($nov->codigo, $licencias))
- return true;
- }
- return false;
- }
-
- function enComicion() {
- foreach($this->novedades as $nov)
- if($nov->codigo == 'com')
- return true;
- return false;
- }
-
- function esFranco() {
- foreach($this->novedades as $nov)
- if($nov->codigo == 'Fran')
- return true;
- return false;
- }
-
- function debioVenir() {
- $ret = true;
- foreach($this->novedades as $novedad) {
- if(!($novedad->codigo == 'adde'
- or $novedad->codigo == 'aden'
- or $novedad->codigo == 'adden'
- or $novedad->codigo == 'ahp'
- or $novedad->codigo == 'anul'
- or $novedad->codigo == 'ato'
- or $novedad->codigo == 'atp'
- or $novedad->codigo == 'interr/13a'
- or $novedad->codigo == 'interr/9'
- or $novedad->codigo == 'interrup'
- or $novedad->codigo == 'lta'
- or $novedad->codigo == 'sinnov'
- or $novedad->codigo == 'tsj'
- or $novedad->codigo == '10a/c'
- or $novedad->codigo == '10b'
- or $novedad->codigo == '10e'
- or $novedad->codigo == '15a'
- or $novedad->codigo == '15b'
- ))
- $ret = false;
- }
- return $ret;
- }
-
- function getAtos() {
- $atos = array();
- foreach($this->novedades as $nov)
- if($nov->codigo == 'ato')
- array_push($atos, $nov);
- return $atos;
- }
-
- function BuscarLicencia() {
- $fecha = $this->fecha->format("%Y%m%d");
- $query = "SELECT codnov,descripcion
- FROM novedades.web018,novedades.webnov
- WHERE docagente = $this->agente
- AND diadesde <= $fecha
- AND diahasta >= $fecha
- AND codnov = codigo";
- $result = $this->_db->query($query);
- if(DB::isError($result))
- trigger_error($result->getMessage(), E_USER_ERROR);
- while($r = $result->fetchRow()) {
- $novedad = new MECON_Novedad();
- $novedad->codigo = $r[0];
- $novedad->descripcion = $r[1];
- array_push($this->novedades, $novedad);
- }
- }
-
- function BuscarNovedadesTemporales() {
- $fecha = $this->fecha->getYear()."-".
- $this->fecha->getMonth()."-".
- $this->fecha->getDay();
- $query = "SELECT novedad, desde, hasta, descripcion
- FROM novedades.parciales,novedades.webnov
- WHERE fecha = '$fecha'
- AND nrodoc = $this->agente
- AND novedad = codigo";
- $result = $this->_db->query($query);
- if(DB::isError($result))
- trigger_error($result->getMessage(), E_USER_ERROR);
- while($r = $result->fetchRow()) {
- $novedad = new MECON_Novedad();
- $novedad->codigo = $r[0];
- $novedad->descripcion = $r[3];
- $novedad->intervalo = new MECON_Tiempo_Intervalo(new MECON_Tiempo_Hora($r[1]), new MECON_Tiempo_Hora($r[2]));
- array_push($this->novedades, $novedad);
- }
-
- }
-
- function BuscarNovedadDiaria() {
- $mes = $this->fecha->getMonth();
- $dia = $this->fecha->getDay() + 0; //el +0 hace que tome al dia como numero
- //y no le agregue un 0 si es < que 10
- $ano = $this->fecha->getYear();
- $query = "SELECT novedad,descripcion
- FROM novedades.web020,novedades.webnov
- WHERE anio = $ano
- AND mes = $mes
- AND nrodoc = $this->agente
- AND dia$dia = 1
- AND novedad = codigo";
- $result = $this->_db->query($query);
- if(DB::isError($result))
- trigger_error($result->getMessage(), E_USER_ERROR);
- if($c = $result->fetchRow()) {
- $codigo = $c[0];
- $descripcion = $c[1];
- $novedad = new MECON_Novedad();
- $novedad->codigo = $codigo;
- $novedad->descripcion = $descripcion;
- array_push($this->novedades, $novedad);
- }
- }
-
-}
+++ /dev/null
-<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
--------------------------------------------------------------------------------
- Ministerio de Economía
- meconlib
--------------------------------------------------------------------------------
-This file is part of meconlib.
-
-meconlib is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2 of the License, or (at your option)
-any later version.
-
-meconlib is distributed in the hope that it will be useful, but WITHOUT
-ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License; if not,
-write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
-Boston, MA 02111-1307 USA
--------------------------------------------------------------------------------
-Creado: Thu Aug 11 15:17:11 2003
-Autor: Manuel Nazar <manazar@mecon.gov.ar>
--------------------------------------------------------------------------------
-$Id: Usuario.php 242 2003-08-11 18:02:16Z manazar $
------------------------------------------------------------------------------*/
-require_once 'MECON/Agente.php';
-
-require_once 'DB.php';
-require_once 'PEAR.php';
-
-/**
- * @access public
- */
-class MECON_Usuario {
- /**
- * @var int $dni
- * @access public
- */
- var $dni;
-
- /**
- * @var string $login
- * @access public
- */
- var $login;
-
- /**
- * @var string $nivelygrado
- * @access public
- */
- var $nivelygrado;
-
-
- /**
- * @var string $codep
- * @access public
- */
- var $codep;
-
-
- /**
- * @var string $nombre
- * @access public
- */
- var $nombre;
-
- /**
- * @var string $tipo
- * @access public
- */
- var $tipo;
-
- /**
- * @protected
- */
- var $_db;
-
- /**
- * @param string $dni
- *
- * @return void
- * @access public
- */
- function ArmarconDNI($dni)
- {
- $sql = "SELECT login,nombre
- from usuario.Usuario
- where dni = $dni";
- $result = $this->_db->query($sql);
- if (DB::isError($result)) {
- return $result;
- } elseif ($result->NumRows()>0) {
- $row = $result->fetchRow(DB_FETCHMODE_ORDERED);
- $login = $row[0];
- $nombre = $row[1];
- $this->login=$login;
- $this->nombre=$nombre;
- $this->dni=$dni;
- } else {
- return new PEAR_Error ('El dni '.$dni.' no existe, debe loguearse al
- menos una vez a la intranet.');
- }
- }
-
- /**
- * @param string $login
- *
- * @return void
- * @access public
- */
- function ArmarconLOGIN($login)
- {
- //$login = ereg_replace ("@", "\\\@", $login);
- $sql = "SELECT dni,nombre
- from usuario.Usuario
- where login = '$login'";
-
- $result = $this->_db->query($sql);
-
- if (DB::isError($result)) {
- return $result;
- } elseif ($result->NumRows()>0) {
- $row = $result->fetchRow(DB_FETCHMODE_ORDERED);
- $this->dni = $row[0];
- $this->nombre = $row[1];
- $this->login = $login;
- } else {
- return new PEAR_Error ('El usuario '.$login.' no existe, debe loguearse al
- menos una vez a la intranet.');
- }
- }
-
- /**
- * @param int $dni
- *
- * @return void
- * @access public
- */
- function MECON_Usuario($db, $dni = null, $login = null)
- {
- $this->_db = $db;
- if(! is_null($dni)) {
- $this->ArmarconDNI($dni);
- $this->buscarUsuarioDNI($dni);
- }
- if(! is_null($login)) {
- $this->ArmarconLOGIN($login);
- $this->buscarUsuarioDNI($this->getDni());
- }
-
- }
-
- /**
- * @param int $uario
- *
- * @return lo que devuelve el query (DB_Result o DB_Error).
- * @access public
- */
- function Insertar_Usuario($dni, $login, $nombre)
- {
- $sql = "REPLACE INTO usuario.Usuario (login,dni,nombre)
- values ('$login',$dni,'$nombre')";
- return $this->_db->query($sql);
- }
-
- /**
- * @return int
- * @access public
- */
- function getDni()
- {
- return $this->dni;
- }
-
- /**
- * @return string
- * @access public
- */
- function getLogin()
- {
- return $this->login;
- }
-
- /**
- * @return string
- * @access public
- */
- function getCodep()
- {
- return $this->codep;
- }
-
-
- /**
- * @return string
- * @access public
- */
- function getNombre()
- {
- return $this->nombre;
- }
-
- /**
- * @return string
- * @access public
- */
- function getNivelygrado()
- {
- return $this->nivelygrado;
- }
-
-
- /**
- * @return string
- * @access public
- */
- function getTipo()
- {
- return $this->tipo;
- }
-
-
- /**
- * @param int $dni
- *
- * @return void
- * @access public
- */
- function buscarUsuarioDNI($dni)
- {
- $MECON_Agente= & new MECON_Agente($this->_db, $dni);
- $this->dni = $dni;
- $nombre = $MECON_Agente->getNombre();
- $this->nombre = $nombre;
- $codep= $MECON_Agente->getDependencia();
- $this->codep = $codep;
- $tipo= $MECON_Agente->getTipo();
- $this->tipo = $tipo;
- $this->nivelygrado="";
- if (isset($MECON_Agente->datos['nivel']))
- {
- $this->nivelygrado= $MECON_Agente->datos['nivel'].$MECON_Agente->datos['grado'];
- }
-
- }
-
- /**
- * Verifica si el login pasado por parametro es valido
- *
- * @param string $login Login a verificar
- *
- * @return mixed
- * @access public
- */
- function verificarLogin($login) {
- $sql = "SELECT count(*) as cuenta FROM usuario.Usuario WHERE login = "
- . $this->_db->quote($login) ;
- $result = $this->_db->query($sql);
- if (PEAR::isError($result)) {
- return $result;
- }
- $row = $result->fetchRow(DB_FETCHMODE_ASSOC);
- if ($row['cuenta'] != 0) {
- return true;
- }
- return false;
- }
-
- /**
- * Devuelve un array de logins con aquellos que cumplan con algun requisito
- * del filtro.
- *
- * @param DB &$db Base de Datos
- * @param string $login Login a filtrar. (Puede ser completo o una parte de el)
- * @param string $nombre Nombre a filtrar.
- *
- * @return mixed
- * @access public
- * @static
- */
- function filtrarUsuarios(&$db, $login, $nombre) {
- if ($login && $nombre) {
- return new PEAR_Error('Solo debe ingresarse una opcion de filtro,
- login o nombre, a la vez.');
- }
- $sql = "SELECT u.login as login, u.nombre as nombre FROM usuario.Usuario as u
- WHERE ";
-
- if ($login) {
- $sql.= ' u.login LIKE \'%'.$login.'%\'';
- }
- else {
- $sql.= ' u.nombre LIKE \'%'.$nombre.'%\'';
- }
- $sql.= 'ORDER BY u.login';
-
- $db->setFetchMode(DB_FETCHMODE_ASSOC);
- $result = $db->query($sql);
- return $result;
- }
-}
-?>
+++ /dev/null
-<html>
-<head>
-<title>ERROR</title>
-<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-</head>
-
-<body bgcolor="#FFFFFF">
-<table align=center background="/MECON/images/general_fondo_gris.gif" border=0
-cellpadding=0 cellspacing=0 width=240>
- <tbody>
- <tr>
- <td colspan=2><img height=3 src="/MECON/images/general_linea_relieve.gif"
- width=240></td>
- </tr>
- <tr align=middle valign=center>
- <td colspan=2>
- <div align=center><img height=120 src="/MECON/images/general_no_autorizado.gif"
- width=120></div>
- </td>
- </tr>
- <tr align=middle valign=center>
- <td class=txt colspan=2>
- <div align=center><font face="Arial, Helvetica, sans-serif" size="2" color="#FF0000"><b>ACCESO
- NO AUTORIZADO</b></font></div>
- </td>
- </tr>
- <tr>
- <td colspan=2><img height=3 src="/MECON/images/general_linea_relieve.gif"
- width=240></td>
- </tr>
- </tbody>
-</table>
-</body>
+++ /dev/null
-<?php
-/* vim: set expandtab tabstop=4 shiftwidth=4: */
-// +----------------------------------------------------------------------+
-// | PHP Version 4 |
-// +----------------------------------------------------------------------+
-// | Copyright (c) 1997 - 2003 The PHP Group |
-// +----------------------------------------------------------------------+
-// | This source file is subject to version 3.0 of the PHP license, |
-// | that is bundled with this package in the file LICENSE, and is |
-// | available at through the world-wide-web at |
-// | http://www.php.net/license/3_0.txt. |
-// | If you did not receive a copy of the PHP license and are unable to |
-// | obtain it through the world-wide-web, please send a note to |
-// | license@php.net so we can mail you a copy immediately. |
-// +----------------------------------------------------------------------+
-// | Authors: Adam Daniel <adaniel1@eesus.jnj.com> |
-// | Klaus Guenther <klaus@capitalfocus.org> |
-// +----------------------------------------------------------------------+
-//
-// $Id$
-
-require_once 'PEAR.php';
-require_once 'HTML/Common.php';
-// HTML/Page/Doctypes.php is required in _getDoctype()
-// HTML/Page/Namespaces.php is required in _getNamespace()
-
-/**
- * Base class for XHTML pages
- *
- * This class handles the details for creating a properly constructed XHTML page.
- * Page caching, stylesheets, client side script, and Meta tags can be
- * managed using this class.
- *
- * The body may be a string, object, or array of objects or strings. Objects with
- * toHtml() and toString() methods are supported.
- *
- *
- * XHTML Examples:
- * ---------------
- *
- * Simplest example:
- * -----------------
- * <code>
- * // the default doctype is XHTML 1.0 Transitional
- * // All doctypes and defaults are set in HTML/Page/Doctypes.php
- * $p = new HTML_Page();
- *
- * //add some content
- * $p->addBodyContent("<p>some text</p>");
- *
- * // print to browser
- * $p->display();
- * </code>
- *
- * Complex XHTML example:
- * ----------------------
- * <code>
- * // The initializing code can also be in in the form of an HTML
- * // attr="value" string.
- * // Possible attributes are: charset, mime, lineend, tab, doctype, namespace, language and cache
- *
- * $p = new HTML_Page(array (
- *
- * // Sets the charset encoding
- * // utf-8 is default
- * 'charset' => 'utf-8',
- *
- * // Sets the line end character
- * // unix (\n) is default
- * 'lineend' => 'unix',
- *
- * // Sets the tab string for autoindent
- * // tab (\t) is default
- * 'tab' => ' ',
- *
- * // This is where you define the doctype
- * 'doctype' => "XHTML 1.0 Strict",
- *
- * // Global page language setting
- * 'language' => 'en',
- *
- * // If cache is set to true, the browser may
- * // cache the output. Else
- * 'cache' => 'false'
- * ));
- *
- * // Here we go
- *
- * // Set the page title
- * $p->setTitle("My page");
- *
- * // Add optional meta data
- * $p->addMetaData("author", "My Name");
- *
- * // Put something into the body
- * $p->addBodyContent = "<p>some text</p>";
- *
- * // If at some point you want to clear the page content
- * // and output an error message, you can easily do that
- * // See the source for {@link toHtml} and {@link _getDoctype}
- * // for more details
- * if ($error) {
- * $p->setTitle("Error!");
- * $p->setBodyContent("<p>Houston, we have a problem: $error</p>");
- * $p->display();
- * die;
- * } // end error handling
- *
- * // print to browser
- * $p->display();
- * </code>
- *
- * Simple XHTML declaration example:
- * <code>
- * $p = new HTML_Page();
- * // An XHTML compliant page (with title) is automatically generated
- *
- * // This overrides the XHTML 1.0 Transitional default
- * $p->setDoctype('XHTML 1.0 Strict');
- *
- * // Put some content in here
- * $p->addBodyContent("<p>some text</p>");
- *
- * // print to browser
- * $p->display();
- * </code>
- *
- *
- * HTML examples:
- * --------------
- *
- * HTML 4.01 example:
- * ------------------
- * <code>
- * $p = new HTML_Page('doctype="HTML 4.01 Strict"');
- * $p->addBodyContent = "<p>some text</p>";
- * $p->display();
- * </code>
- *
- * nuke doctype declaration:
- * -------------------------
- * <code>
- * $p = new HTML_Page('doctype="none"');
- * $p->addBodyContent = "<p>some text</p>";
- * $p->display();
- * </code>
- *
- * @author Adam Daniel <adaniel1@eesus.jnj.com>
- * @author Klaus Guenther <klaus@capitalfocus.org>
- * @version 2.0
- * @since PHP 4.0.3pl1
- */
-class HTML_Page extends HTML_Common {
-
- /**
- * Contains the content of the <body> tag.
- *
- * @var array
- * @access private
- */
- var $_body = array();
-
- /**
- * Controls caching of the page
- *
- * @var bool
- * @access private
- */
- var $_cache = false;
-
- /**
- * Contains the character encoding string
- *
- * @var string
- * @access private
- */
- var $_charset = 'utf-8';
-
- /**
- * Contains the !DOCTYPE definition
- *
- * @var array
- * @access private
- */
- var $_doctype = array('type'=>'xhtml','version'=>'1.0','variant'=>'transitional');
-
- /**
- * Contains the page language setting
- *
- * @var string
- * @access private
- */
- var $_language = 'en';
-
- /**
- * Array of meta tags
- *
- * @var array
- * @access private
- */
- var $_metaTags = array( 'standard' => array ( 'Generator' => 'PEAR HTML_Page' ) );
-
- /**
- * Document mime type
- *
- * @var string
- * @access private
- */
- var $_mime = 'text/html';
-
- /**
- * Document namespace
- *
- * @var string
- * @access private
- */
- var $_namespace = '';
-
- /**
- * Array of linked scripts
- *
- * @var array
- * @access private
- */
- var $_scripts = array();
-
- /**
- * Array of scripts placed in the header
- *
- * @var array
- * @access private
- */
- var $_script = array();
-
- /**
- * Array of linked scripts
- *
- * @var array
- * @access private
- */
- var $_simple = false;
-
- /**
- * Array of included style declarations
- *
- * @var array
- * @access private
- */
- var $_style = array();
-
- /**
- * Array of linked style sheets
- *
- * @var array
- * @access private
- */
- var $_styleSheets = array();
-
- /**
- * HTML page title
- *
- * @var string
- * @access private
- */
- var $_title = '';
-
- /**
- * Class constructor
- * Possible attributes are:
- * - general options:
- * - "lineend" => "unix|win|mac" (Sets line ending style; defaults to unix.)
- * - "tab" => string (Sets line ending style; defaults to \t.)
- * - "cache" => "false|true"
- * - "charset" => charset string (Sets charset encoding; defaults to utf-8)
- * - "mime" => mime encoding string (Sets document mime type; defaults to text/html)
- * - XHTML specific:
- * - "doctype" => string (Sets XHTML doctype; defaults to XHTML 1.0 Transitional.)
- * - "language" => two letter language designation. (Defines global document language; defaults to "en".)
- * - "namespace" => string (Sets document namespace; defaults to the W3C defined namespace.)
- *
- * @param mixed $attributes Associative array of table tag attributes
- * or HTML attributes name="value" pairs
- * @access public
- */
- function HTML_Page($attributes = array())
- {
- $commonVersion = 1.7;
- if (HTML_Common::apiVersion() < $commonVersion) {
- return PEAR::raiseError("HTML_Page version " . $this->apiVersion() . " requires " .
- "HTML_Common version 1.2 or greater.", 0, PEAR_ERROR_TRIGGER);
- }
-
- if ($attributes) {
- $attributes = $this->_parseAttributes($attributes);
- }
-
- if (isset($attributes['lineend'])) {
- $this->setLineEnd($attributes['lineend']);
- }
-
- if (isset($attributes['charset'])) {
- $this->setCharset($attributes['charset']);
- }
-
- if (isset($attributes['doctype'])){
- if ($attributes['doctype'] == 'none') {
- $this->_simple = true;
- } elseif ($attributes['doctype']) {
- $this->setDoctype($attributes['doctype']);
- }
- }
-
- if (isset($attributes['language'])) {
- $this->setLang($attributes['language']);
- }
-
- if (isset($attributes['mime'])) {
- $this->setMimeEncoding($attributes['mime']);
- }
-
- if (isset($attributes['namespace'])) {
- $this->setNamespace($attributes['namespace']);
- }
-
- if (isset($attributes['tab'])) {
- $this->setTab($attributes['tab']);
- }
-
- if (isset($attributes['cache'])) {
- $this->setCache($attributes['cache']);
- }
-
- }
-
- /**
- * Generates the HTML string for the <body< tag
- *
- * @access private
- * @return string
- */
- function _generateBody()
- {
-
- // get line endings
- $lnEnd = $this->_getLineEnd();
- $tab = $this->_getTab();
-
- // If body attributes exist, add them to the body tag.
- // Depreciated because of CSS
- $strAttr = $this->_getAttrString($this->_attributes);
-
- if ($strAttr) {
- $strHtml = "<body $strAttr>" . $lnEnd;
- } else {
- $strHtml = '<body>' . $lnEnd;
- }
-
- // Allow for mixed content in the body array
- // Iterate through the array and process each element
- foreach ($this->_body as $element) {
- if (is_object($element)) {
- if (is_subclass_of($element, "html_common")) {
- $element->setTab($tab);
- $element->setTabOffset(1);
- $element->setLineEnd($lnEnd);
- }
- if (method_exists($element, "toHtml")) {
- $strHtml .= $element->toHtml() . $lnEnd;
- } elseif (method_exists($element, "toString")) {
- $strHtml .= $element->toString() . $lnEnd;
- }
- } elseif (is_array($element)) {
- foreach ($element as $level2) {
- if (is_subclass_of($level2, "html_common")) {
- $level2->setTabOffset(1);
- $level2->setTab($tab);
- $level2->setLineEnd($lnEnd);
- }
- if (is_object($level2)) {
- if (method_exists($level2, "toHtml")) {
- $strHtml .= $level2->toHtml() . $lnEnd;
- } elseif (method_exists($level2, "toString")) {
- $strHtml .= $level2->toString() . $lnEnd;
- }
- } else {
- $strHtml .= $tab . $level2 . $lnEnd;
- }
- }
- } else {
- $strHtml .= $tab . $element . $lnEnd;
- }
- }
-
- // Close tag
- $strHtml .= '</body>' . $lnEnd;
-
- // Let's roll!
- return $strHtml;
- } // end func _generateHead
-
- /**
- * Generates the HTML string for the <head< tag
- *
- * @return string
- * @access private
- */
- function _generateHead()
- {
- // close empty tags if XHTML
- if ($this->_doctype['type'] == 'html'){
- $tagEnd = '>';
- } else {
- $tagEnd = ' />';
- }
-
- // get line endings
- $lnEnd = $this->_getLineEnd();
- $tab = $this->_getTab();
-
- $strHtml = '<head>' . $lnEnd;
- $strHtml .= $tab . '<title>' . $this->getTitle() . '</title>' . $lnEnd;
-
- // Generate META tags
- foreach ($this->_metaTags as $type => $tag) {
- foreach ($tag as $name => $content) {
- if ($type == 'http-equiv') {
- $strHtml .= $tab . "<meta http-equiv=\"$name\" content=\"$content\"" . $tagEnd . $lnEnd;
- } elseif ($type == 'standard') {
- $strHtml .= $tab . "<meta name=\"$name\" content=\"$content\"" . $tagEnd . $lnEnd;
- }
- }
- }
-
- // Generate stylesheet links
- foreach ($this->_styleSheets as $strStyleSheet) {
- $strHtml .= $tab . "<link rel=\"stylesheet\" href=\"$strStyleSheet\" type=\"text/css\"" . $tagEnd . $lnEnd;
- }
-
- // Generate stylesheet declarations
- foreach ($this->_style as $type => $content) {
- $strHtml .= $tab . '<style type="' . $type . '">' . $lnEnd;
-
- // This is for full XHTML supporte.
- if ($this->_mime == 'text/html' ) {
- $strHtml .= $tab . $tab . '<!--' . $lnEnd;
- } else {
- $strHtml .= $tab . $tab . '<![CDATA[' . $lnEnd;
- }
-
- if (is_object($content)) {
-
- // first let's propagate line endings and tabs for other HTML_Common-based objects
- if (is_subclass_of($content, "html_common")) {
- $content->setTab($tab);
- $content->setTabOffset(3);
- $content->setLineEnd($lnEnd);
- }
-
- // now let's get a string from the object
- if (method_exists($content, "toString")) {
- $strHtml .= $content->toString() . $lnEnd;
- } else {
- return PEAR::raiseError('Error: Style content object does not support method toString().',
- 0,PEAR_ERROR_TRIGGER);
- }
-
- } else {
- $strHtml .= $content . $lnEnd;
- }
-
- // See above note
-
- if ($this->_mime == 'text/html' ) {
- $strHtml .= $tab . $tab . '-->' . $lnEnd;
- } else {
- $strHtml .= $tab . $tab . ']]>' . $lnEnd;
- }
- $strHtml .= $tab . '</style>' . $lnEnd;
- }
-
- // Generate script file links
- foreach ($this->_scripts as $strSrc => $strType) {
- $strHtml .= $tab . "<script type=\"$strType\" src=\"$strSrc\"></script>" . $lnEnd;
- }
-
- // Generate script declarations
- foreach ($this->_script as $type => $content) {
- $strHtml .= $tab . '<script type="' . $type . '">' . $lnEnd;
-
- // This is for full XHTML support.
- if ($this->_mime == 'text/html' ) {
- $strHtml .= $tab . $tab . '<!--' . $lnEnd;
- } else {
- $strHtml .= $tab . $tab . '<![CDATA[' . $lnEnd;
- }
-
- if (is_object($content)) {
-
- // first let's propagate line endings and tabs for other HTML_Common-based objects
- if (is_subclass_of($content, "html_common")) {
- $content->setTab($tab);
- $content->setTabOffset(3);
- $content->setLineEnd($lnEnd);
- }
-
- // now let's get a string from the object
- if (method_exists($content, "toString")) {
- $strHtml .= $content->toString() . $lnEnd;
- } else {
- return PEAR::raiseError('Error: Script content object does not support method toString().',
- 0,PEAR_ERROR_TRIGGER);
- }
-
- } else {
- $strHtml .= $content . $lnEnd;
- }
-
- // See above note
- if ($this->_mime == 'text/html' ) {
- $strHtml .= $tab . $tab . '-->' . $lnEnd;
- } else {
- $strHtml .= $tab . $tab . ']]>' . $lnEnd;
- }
- $strHtml .= $tab . '</script>' . $lnEnd;
- }
-
- // Close tag
- $strHtml .= '</head>' . $lnEnd;
-
- // Let's roll!
- return $strHtml;
- } // end func _generateHead
-
- /**
- * Returns the doctype declaration
- *
- * @return mixed
- * @access private
- */
- function _getDoctype()
- {
- require('HTML/Page/Doctypes.php');
-
- if (isset($this->_doctype['type'])) {
- $type = $this->_doctype['type'];
- }
-
- if (isset($this->_doctype['version'])) {
- $version = $this->_doctype['version'];
- }
-
- if (isset($this->_doctype['variant'])) {
- $variant = $this->_doctype['variant'];
- }
-
- $strDoctype = '';
-
- if (isset($variant)) {
- if (isset($doctype[$type][$version][$variant][0])) {
- foreach ( $doctype[$type][$version][$variant] as $string) {
- $strDoctype .= $string.$this->_getLineEnd();
- }
- }
- } elseif (isset($version)) {
- if (isset($doctype[$type][$version][0])) {
- foreach ( $doctype[$type][$version] as $string) {
- $strDoctype .= $string.$this->_getLineEnd();
- }
- } else {
- if (isset($default[$type][$version][0])) {
- $this->_doctype = $this->_parseDoctypeString($default[$type][$version][0]);
- $strDoctype = $this->_getDoctype();
- }
- }
- } elseif (isset($type)) {
- if (isset($default[$type][0])){
- $this->_doctype = $this->_parseDoctypeString($default[$type][0]);
- $strDoctype = $this->_getDoctype();
- }
- } else {
- $this->_doctype = $this->_parseDoctypeString($default['default'][0]);
- $strDoctype = $this->_getDoctype();
- }
-
- if ($strDoctype) {
- return $strDoctype;
- } else {
- return PEAR::raiseError('Error: "'.$this->getDoctypeString().'" is an unsupported or illegal document type.',
- 0,PEAR_ERROR_TRIGGER);
- }
-
- } // end func _getDoctype
-
- /**
- * Retrieves the document namespace
- *
- * @return mixed
- * @access private
- */
- function _getNamespace()
- {
- require('HTML/Page/Namespaces.php');
-
- if (isset($this->_doctype['type'])) {
- $type = $this->_doctype['type'];
- }
-
- if (isset($this->_doctype['version'])) {
- $version = $this->_doctype['version'];
- }
-
- if (isset($this->_doctype['variant'])) {
- $variant = $this->_doctype['variant'];
- }
-
- $strNamespace = '';
-
- if (isset($variant)){
- if (isset($namespace[$type][$version][$variant][0]) && is_string($namespace[$type][$version][$variant][0])) {
- $strNamespace = $namespace[$type][$version][$variant][0];
- } elseif (isset($namespace[$type][$version][0]) && is_string($namespace[$type][$version][0]) ) {
- $strNamespace = $namespace[$type][$version][0];
- } elseif (isset($namespace[$type][0]) && is_string($namespace[$type][0]) ) {
- $strNamespace = $namespace[$type][0];
- }
- } elseif (isset($version)) {
- if (isset($namespace[$type][$version][0]) && is_string($namespace[$type][$version][0]) ) {
- $strNamespace = $namespace[$type][$version][0];
- } elseif (isset($namespace[$type][0]) && is_string($namespace[$type][0]) ) {
- $strNamespace = $namespace[$type][0];
- }
- } else {
- if (isset($namespace[$type][0]) && is_string($namespace[$type][0]) ) {
- $strNamespace = $namespace[$type][0];
- }
- }
-
-
- if ($strNamespace) {
- return $strNamespace;
- } else {
- return PEAR::raiseError('Error: "'.$this->getDoctypeString().'" does not have a default namespace. Use setNamespace() to define your namespace.',
- 0,PEAR_ERROR_TRIGGER);
- }
-
- } // end func _getNamespace
-
- /**
- * Parses a doctype declaration like "XHTML 1.0 Strict" to an array
- *
- * @param string $string The string to be parsed
- * @return string
- * @access private
- */
- function _parseDoctypeString($string)
- {
- $split = explode(' ',strtolower($string));
- $elements = count($split);
-
- if (isset($split[2])){
- $array = array('type'=>$split[0],'version'=>$split[1],'variant'=>$split[2]);
- } elseif (isset($split[1])){
- $array = array('type'=>$split[0],'version'=>$split[1]);
- } else {
- $array = array('type'=>$split[0]);
- }
-
- return $array;
- } // end func _parseDoctypeString
-
- /**
- * Sets the content of the <body> tag. If content already exists,
- * the new content is appended.
- * If you wish to overwrite whatever is in the body, use {@link setBody};
- * {@link unsetBody} completely empties the body without inserting new content.
- * It is possible to add objects, strings or an array of strings and/or objects
- * Objects must have a toString method.
- *
- * @param mixed $content New <body> tag content (may be passed as a reference)
- * @access public
- */
- function addBodyContent($content)
- {
- $this->_body[] =& $content;
- if (is_object($content)) {
- if (method_exists($content, "toStyleSheet")) {
- $this->addStyleSheet($content->toStyleSheet());
- }
- if (method_exists($content, "toScript")) {
- $script = $content->toScript();
- if (is_array($script)) {
- $this->addScript($script[0], $script[1]);
- } else {
- $this->addScript($script);
- }
- }
- } elseif (is_array($content)) {
- foreach ($content as $element) {
- if (is_object($content)) {
- if (method_exists($element, "toStyleSheet")) {
- $this->addStyleSheet($element->toStyleSheet());
- }
- if (method_exists($element, "toScript")) {
- $script = $element->toScript();
- if (is_array($script)) {
- $this->addScript($script[0], $script[1]);
- } else {
- $this->addScript($script);
- }
- }
- }
- }
- }
- } // end addBodyContent
-
- /**
- * Adds a linked script to the page
- *
- * @param string $url URL to the linked script
- * @param string $type Type of script. Defaults to 'text/javascript'
- * @access public
- */
- function addScript($url, $type="text/javascript")
- {
- $this->_scripts[$url] = $type;
- } // end func addScript
-
- /**
- * Adds a script to the page.
- * Content can be a string or an object with a toString method.
- * Defaults to text/javascript.
- *
- * @access public
- * @param mixed $content Script (may be passed as a reference)
- * @param string $type Scripting mime (defaults to 'text/javascript')
- * @return void
- */
- function addScriptDeclaration($content, $type = 'text/javascript')
- {
- $this->_script[strtolower($type)] =& $content;
- } // end func addScriptDeclaration
-
- /**
- * Adds a linked stylesheet to the page
- *
- * @param string $url URL to the linked style sheet
- * @access public
- * @return void
- */
- function addStyleSheet($url)
- {
- $this->_styleSheets[$url] = $url;
- } // end func addStyleSheet
-
- /**
- * Adds a stylesheet declaration to the page.
- * Content can be a string or an object with a toString method.
- * Defaults to text/css.
- *
- * @access public
- * @param mixed $content Style declarations (may be passed as a reference)
- * @param string $type Type of stylesheet (defaults to 'text/css')
- * @return void
- */
- function addStyleDeclaration($content, $type = 'text/css')
- {
- $this->_style[strtolower($type)] =& $content;
- } // end func addStyleDeclaration
-
- /**
- * Returns the current API version
- *
- * @access public
- * @returns double
- */
- function apiVersion()
- {
- return 2.0;
- } // end func apiVersion
-
- /**
- * Returns the document charset encoding.
- *
- * @access public
- * @returns string
- */
- function getCharset()
- {
- return $this->_charset;
- } // end setCache
-
- /**
- * Returns the document type string
- *
- * @access private
- * @return string
- */
- function getDoctypeString()
- {
- $strDoctype = strtoupper($this->_doctype['type']);
- $strDoctype .= ' '.ucfirst(strtolower($this->_doctype['version']));
- if ($this->_doctype['variant']) {
- $strDoctype .= ' ' . ucfirst(strtolower($this->_doctype['variant']));
- }
- return trim($strDoctype);
- } // end func getDoctypeString
-
- /**
- * Returns the document language.
- *
- * @return string
- * @access public
- */
- function getLang ()
- {
- return $this->_language;
- } // end func getLang
-
- /**
- * Return the title of the page.
- *
- * @returns string
- * @access public
- */
- function getTitle()
- {
- if (!$this->_title){
- if ($this->_simple) {
- return 'New Page';
- } else {
- return 'New '. $this->getDoctypeString() . ' Compliant Page';
- }
- } else {
- return $this->_title;
- }
- } // end func getTitle
-
- /**
- * Sets the content of the <body> tag. If content exists, it is overwritten.
- * If you wish to use a "safe" version, use {@link addBodyContent}
- * Objects must have a toString method.
- *
- * @param mixed $content New <body> tag content. May be an object. (may be passed as a reference)
- * @access public
- */
- function setBody($content)
- {
- $this->unsetBody();
- $this->addBodyContent($content);
- } // end setBody
-
- /**
- * Unsets the content of the <body> tag.
- *
- * @access public
- */
- function unsetBody()
- {
- $this->_body = '';
- } // end unsetBody
-
- /**
- * Defines if the document should be cached by the browser. Defaults to false.
- *
- * @param string $cache Options are currently 'true' or 'false'. Defaults to 'false'.
- * @access public
- */
- function setCache($cache = 'false')
- {
- if ($cache == 'true'){
- $this->_cache = true;
- } else {
- $this->_cache = false;
- }
- } // end setCache
-
- /**
- * Defines if the document should be cached by the browser. Defaults to false.
- *
- * @param string $cache Options are currently 'true' or 'false'. Defaults to 'false'.
- * @access public
- * @returns void
- */
- function setCharset($type = 'utf-8')
- {
- $this->_charset = $type;
- } // end setCache
-
- /**
- * Sets or alters the XHTML !DOCTYPE declaration. Can be set to "strict",
- * "transitional" or "frameset". Defaults to "transitional". This must come
- * _after_ declaring the character encoding with {@link setCharset} or directly
- * when the class is initiated {@link HTML_Page}.
- *
- * @param string $type String containing a document type. Defaults to "XHTML 1.0 Transitional"
- * @access public
- * @returns void
- */
- function setDoctype($type = "XHTML 1.0 Transitional")
- {
- $this->_doctype = $this->_parseDoctypeString($type);
- } // end func setDoctype
-
- /**
- * Sets the global document language declaration. Default is English.
- *
- * @access public
- * @param string $lang Two-letter language designation.
- */
- function setLang($lang = "en")
- {
- $this->_language = strtolower($lang);
- } // end setLang
-
- /**
- * Sets or alters a meta tag.
- *
- * @param string $name Value of name or http-equiv tag
- * @param string $content Value of the content tag
- * @param bool $http_equiv META type "http-equiv" defaults to NULL
- * @return void
- * @access public
- */
- function setMetaData($name, $content, $http_equiv = false)
- {
- if ($http_equiv == true) {
- $this->_metaTags['http-equiv'][$name] = $content;
- } else {
- $this->_metaTags['standard'][$name] = $content;
- }
- } // end func setMetaData
-
- /**
- * Sets an http-equiv Content-Type meta tag
- *
- * @access public
- * @returns void
- */
- function setMetaContentType()
- {
- $this->setMetaData('Content-Type', $this->_mime . '; charset=' . $this->_charset , true );
- } // end func setMetaContentType
-
- /**
- * Easily sets or alters a refresh meta tag.
- * If no $url is passed, "self" is presupposed, and the appropriate URL
- * will be automatically generated.
- *
- * @param string $time Time till refresh (in seconds)
- * @param string $url Absolute URL or "self"
- * @param bool $https If $url = self, this allows for the https protocol defaults to NULL
- * @return void
- * @access public
- */
- function setMetaRefresh($time, $url = 'self', $https = false)
- {
- if ($url == 'self') {
- if ($https) {
- $protocol = 'https://';
- } else {
- $protocol = 'http://';
- }
- $url = $protocol . $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI'];
- }
- $this->setMetaData("Refresh", "$time; url=$url", true);
- } // end func setMetaRefresh
-
- /**
- * Sets the document MIME encoding that is sent to the browser.
- *
- * @param string $type
- * @access public
- * @returns void
- */
- function setMimeEncoding($type = 'text/html')
- {
- $this->_mime = strtolower($type);
- } // end func setMimeEncoding
-
- /**
- * Sets the document namespace
- *
- * @param string $namespace Optional. W3C namespaces are used by default.
- * @access public
- * @returns void
- */
- function setNamespace($namespace = '')
- {
- if (isset($namespace)){
- $this->_namespace = $namespace;
- } else {
- $this->_namespace = $this->_getNamespace();
- }
- } // end func setTitle
-
- /**
- * Sets the title of the page
- *
- * @param string $title
- * @access public
- * @returns void
- */
- function setTitle($title)
- {
- $this->_title = $title;
- } // end func setTitle
-
- /**
- * Generates and returns the complete page as a string.
- *
- * @return string
- * @access private
- */
- function toHTML()
- {
-
- // get line endings
- $lnEnd = $this->_getLineEnd();
-
- // get the doctype declaration
- $strDoctype = $this->_getDoctype();
-
- // This determines how the doctype is declared
- if ($this->_simple) {
-
- $strHtml = '<html>' . $lnEnd;
-
- } elseif ($this->_doctype['type'] == 'xhtml') {
-
- // get the namespace if not already set
- if (!$this->_namespace){
- $this->_namespace = $this->_getNamespace();
- }
-
- $strHtml = '<?xml version="1.0" encoding="' . $this->_charset . '"?>' . $lnEnd;
- $strHtml .= $strDoctype . $lnEnd;
- $strHtml .= '<html xmlns="' . $this->_namespace . '" xml:lang="' . $this->_language . '">' . $lnEnd;
-
- } else {
-
- $strHtml = $strDoctype . $lnEnd;
- $strHtml .= '<html>' . $lnEnd;
-
- }
-
- $strHtml .= $this->_generateHead();
- $strHtml .= $this->_generateBody();
- $strHtml .= '</html>';
- return $strHtml;
- } // end func toHtml
-
- /**
- * Outputs the HTML content to the screen.
- *
- * @access public
- */
- function display()
- {
- if(! $this->_cache) {
- header("Expires: Tue, 1 Jan 1980 12:00:00 GMT");
- header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
- header("Cache-Control: no-cache");
- header("Pragma: no-cache");
- }
-
- // set character encoding
- header('Content-Type: ' . $this->_mime . '; charset=' . $this->_charset);
-
- $strHtml = $this->toHTML();
- print $strHtml;
- } // end func display
-
-}
-?>
\ No newline at end of file
+++ /dev/null
-<?php
-/* vim: set expandtab tabstop=4 shiftwidth=4: */
-// +----------------------------------------------------------------------+
-// | PHP Version 4 |
-// +----------------------------------------------------------------------+
-// | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group |
-// +----------------------------------------------------------------------+
-// | This source file is subject to version 2.0 of the PHP license, |
-// | that is bundled with this package in the file LICENSE, and is |
-// | available at through the world-wide-web at |
-// | http://www.php.net/license/2_02.txt. |
-// | If you did not receive a copy of the PHP license and are unable to |
-// | obtain it through the world-wide-web, please send a note to |
-// | license@php.net so we can mail you a copy immediately. |
-// +----------------------------------------------------------------------+
-// | Author: Adam Daniel <adaniel1@eesus.jnj.com> |
-// +----------------------------------------------------------------------+
-//
-// $Id$
-
-require_once 'PEAR.php';
-require_once 'HTML/Common.php';
-
-/**
- * Class to dynamically create an HTML SELECT
- *
- * @author Adam Daniel <adaniel1@eesus.jnj.com>
- * @version 1.2
- * @since PHP4.04pl1
- * @access public
- */
-class HTML_Select extends HTML_Common
-{
-
- /**
- * Contains the select options
- *
- * @var array
- * @since 1.0
- * @access private
- */
- var $_options = array();
-
- /**
- * Default values of the SELECT
- *
- * @var string
- * @since 1.0
- * @access private
- */
- var $_values = array();
-
- /**
- * Class constructor
- *
- * @param string $name (optional)Name attribute of the SELECT
- * @param int $size (optional) Size attribute of the SELECT
- * @param bool $multiple (optional)Whether the select will allow multiple
- * selections or not
- * @param mixed $attributes (optional)Either a typical HTML attribute string
- * or an associative array
- * @param int $tabOffset (optional)Number of tabs to offset HTML source
- * @since 1.0
- * @access public
- * @return void
- * @throws
- */
- function HTML_Select($name = '', $size = 1, $multiple = false, $attributes = null, $tabOffset = 0)
- {
- HTML_Common::HTML_Common($attributes, $tabOffset);
- $attr = array('name' => $name, 'size' => $size);
- if ($multiple) {
- $attr['multiple'] = 'multiple';
- }
- $this->updateAttributes($attr);
- $this->setSelectedValues(array());
- }
-
- /**
- * Returns the current API version
- *
- * @since 1.0
- * @access public
- * @return double
- * @throws
- */
- function apiVersion()
- {
- return 1.3;
- }
-
- /**
- * Sets the default values of the select box
- *
- * @param mixed $values Array or comma delimited string of selected values
- * @since 1.0
- * @access public
- * @return void
- * @throws
- */
- function setSelectedValues($values)
- {
- if (is_string($values)) {
- $values = split("[ ]?,[ ]?", $values);
- }
- $this->_values = $values;
- }
-
- /**
- * Returns an array of the selected values
- *
- * @since 1.0
- * @access public
- * @return array of selected values
- * @throws
- */
- function getSelectedValues()
- {
- return $this->_values;
- }
-
- /**
- * Adds a new OPTION to the SELECT
- *
- * @param string $text Display text for the OPTION
- * @param string $value Value for the OPTION
- * @param bool $selected Whether the option is selected or not
- * @param mixed $attributes Either a typical HTML attribute string
- * or an associative array
- * @since 1.0
- * @access public
- * @return void
- * @throws
- */
- function addOption($text, $value, $selected = false, $attributes = null)
- {
- if ($selected && !in_array($value, $this->_values)) {
- $this->_values[] = $value;
- }
-
- $attributes = $this->_parseAttributes($attributes);
- $attr['value'] = $value;
- $this->_updateAttrArray($attributes, $attr);
- $this->_options[] = array('text' => $text, 'attr' => $attributes);
- }
-
- /**
- * Loads the options from an associative array
- *
- * @param array $arr Associative array of options
- * @param mixed $values (optional) Array or comma delimited string of selected values
- * @since 1.0
- * @access public
- * @return PEAR_Error on error or true
- * @throws PEAR_Error
- */
- function loadArray($arr, $values=null)
- {
- if (!is_array($arr)) {
- return new PEAR_ERROR('First argument to HTML_Select::loadArray is not a valid array');
- }
- if (isset($values)) {
- $this->setSelectedValues($values);
- }
- while (list($key, $value) = each($arr)) {
- $this->addOption($key, $value);
- }
- return true;
- }
-
- /**
- * Loads the options from an array with numeric keys, using the
- * array values as the form values as well as labels.
- *
- * @param array $arr Array of options
- * @param mixed $values (optional) Array or comma delimited string of selected values
- * @since 1.2
- * @access public
- * @return PEAR_Error on error or true
- * @throws PEAR_Error
- */
- function loadValueArray($arr, $values = null)
- {
- if (!is_array($arr)) {
- return new PEAR_ERROR("First argument to HTML_Select::loadArray is not a valid array");
- }
- if (isset($values)) {
- $this->setSelectedValues($values);
- }
- foreach ($arr as $value) {
- $this->addOption($value, $value);
- }
- return true;
- }
-
- /**
- * Loads the options from DB_result object
- *
- * If no column names are specified the first two columns of the result are
- * used as the text and value columns respectively
- * @param object $result DB_result object
- * @param string $textCol (optional) Name of column to display as the OPTION text
- * @param string $valueCol (optional) Name of column to use as the OPTION value
- * @param mixed $values (optional) Array or comma delimited string of selected values
- * @since 1.0
- * @access public
- * @return PEAR_Error on error or true
- * @throws PEAR_Error
- */
- function loadDbResult(&$result, $textCol=null, $valueCol=null, $values=null)
- {
- include_once 'DB.php';
-
- if (!is_object($result) || (get_class($result) != "db_result" &&
- is_subclass_of($result, "db_result"))) {
- return new PEAR_ERROR("First argument to HTML_Select::loadDbResult is not a valid DB_result");
- }
- if (isset($values)) {
- $this->setSelectedValues($values);
- }
- $fetchMode = ($textCol && $valueCol) ? DB_FETCHMODE_ASSOC : DB_FETCHMODE_DEFAULT;
- while (is_array($row = $result->fetchRow($fetchMode)) ) {
- if ($fetchMode == DB_FETCHMODE_ASSOC) {
- $this->addOption($row[$textCol], $row[$valueCol]);
- } else {
- $this->addOption($row[0], $row[1]);
- }
- }
- return true;
- }
-
- /**
- * Queries a database and loads the options from the results
- *
- * @param mixed $conn Either an existing DB connection or a valid dsn
- * @param string $sql SQL query string
- * @param string $textCol (optional) Name of column to display as the OPTION text
- * @param string $valueCol (optional) Name of column to use as the OPTION value
- * @param mixed $values (optional) Array or comma delimited string of selected values
- * @since 1.1
- * @access private
- * @return void
- * @throws
- */
- function loadQuery(&$conn, $sql, $textCol=null, $valueCol=null, $values=null)
- {
- include_once 'DB.php';
-
- if (is_string($conn)) {
- $dbConn = &DB::connect($conn, true);
- if (DB::isError($dbConn)) return $dbConn;
- } elseif (is_subclass_of($conn, "db_common")) {
- $dbConn = $conn;
- } else {
- return $this->raiseError("Argument 1 of HTML_Select::loadQuery is not a valid type");
- }
- $result = @$dbConn->query($sql);
- if (DB::isError($result)) return $result;
- return $this->loadDbResult($result, $textCol, $valueCol, $values);
- }
-
- /**
- * Loads options from different types of data sources
- *
- * This method is a simulated overloaded method. The arguments, other than the
- * first are optional and only mean something depending on the type of the first argument.
- * If the first argument is an array then all arguments are passed in order to loadArray.
- * If the first argument is a db_result then all arguments are passed in order to loadDbResult.
- * If the first argument is a string or a DB connection then all arguments are
- * passed in order to loadQuery.
- * @param mixed $options Options source currently supports assoc array or DB_result
- * @param mixed $param1 (optional) See function detail
- * @param mixed $param2 (optional) See function detail
- * @param mixed $param3 (optional) See function detail
- * @param mixed $param4 (optional) See function detail
- * @since 1.1
- * @access public
- * @return PEAR_Error on error or true
- * @throws PEAR_Error
- */
- function load(&$options, $param1=null, $param2=null, $param3=null, $param4=null)
- {
- switch (true) {
- case is_array($options):
- return $this->loadArray($options, $param1);
- break;
- case (get_class($options) == "db_result" || is_subclass_of($options, "db_result")):
- return $this->loadDbResult($options, $param1, $param2, $param3);
- break;
- case (is_string($options) || is_subclass_of($options, "db_common")):
- return $this->loadQuery($options, $param1, $param2, $param3, $param4);
- break;
- }
- }
-
- /**
- * Returns the SELECT in HTML
- *
- * @since 1.0
- * @access public
- * @return string
- * @throws
- */
- function toHtml()
- {
- $tabs = $this->_getTabs();
- $name = $this->_attributes['name'];
- $strHtml = $tabs;
- if ($this->_comment) {
- $strHtml .= "<!-- $this->_comment -->\n$tabs";
- }
- $strHtml .=
- '<select' . $this->_getAttrString($this->_attributes) . '>';
- foreach ($this->_options as $option) {
- $attrString = $this->_getAttrString($option['attr']);
- $strHtml .=
- '<option' . $attrString
- . (@in_array($option['attr']['value'], $this->_values)
- ? ' selected'
- : '')
- . '>' . htmlspecialchars($option['text']) . '</option>';
- }
- $strHtml .= '</select>';
- return $strHtml;
- }
-
-}
-
-?>
+++ /dev/null
-<?php
-/* vim: set expandtab tabstop=4 shiftwidth=4: */
-//
-// +----------------------------------------------------------------------+
-// | PHP version 4 |
-// +----------------------------------------------------------------------+
-// | Copyright (c) 1997-2003 The PHP Group |
-// +----------------------------------------------------------------------+
-// | This source file is subject to version 3.0 of the PHP license, |
-// | that is bundled with this package in the file LICENSE, and is |
-// | available at through the world-wide-web at |
-// | http://www.php.net/license/3_0.txt. |
-// | If you did not receive a copy of the PHP license and are unable to |
-// | obtain it through the world-wide-web, please send a note to |
-// | license@php.net so we can mail you a copy immediately. |
-// +----------------------------------------------------------------------+
-// | Authors: Martin Marrese <mmare@mecon.gov.ar> |
-// | Based On: lang_es.php - Xavier Noguer |
-// +----------------------------------------------------------------------+
-// $Id$
-//
-// Numbers_Words class extension to spell numbers in Argentinian Spanish
-// (Castellano).
-//
-//
-
-/**
- * Class for translating numbers into Spanish (Castellano).
- *
- * @author Martin Marrese
- * @package Numbers_Words
- */
-
-/**
- * Include needed files
- */
-require_once("Numbers/Words.php");
-
-/**
- * Class for translating numbers into Spanish (Castellano).
- * It supports up to decallones (10^6).
- * It doesn't support spanish tonic accents (acentos).
- *
- * @author Martin Marrese
- * @package Numbers_Words
- */
-class Numbers_Words_es_AR extends Numbers_Words
-{
- // {{{ properties
-
- /**
- * Locale name
- * @var string
- * @access public
- */
- var $locale = 'es_AR';
-
- /**
- * Language name in English
- * @var string
- * @access public
- */
- var $lang = 'Spanish';
-
- /**
- * Native language name
- * @var string
- * @access public
- */
- var $lang_native = 'Español';
-
- /**
- * The word for the minus sign
- * @var string
- * @access private
- */
- var $_minus = 'menos';
-
- /**
- * The sufixes for exponents (singular and plural)
- * @var array
- * @access private
- */
- var $_exponent = array(
- 0 => array('',''),
- 3 => array('mil','mil'),
- 6 => array('millón','millones'),
- 12 => array('billón','billones'),
- 18 => array('trilón','trillones'),
- 24 => array('cuatrillón','cuatrillones'),
- 30 => array('quintillón','quintillones'),
- 36 => array('sextillón','sextillones'),
- 42 => array('septillón','septillones'),
- 48 => array('octallón','octallones'),
- 54 => array('nonallón','nonallones'),
- 60 => array('decallón','decallones'),
- );
- /**
- * The array containing the digits (indexed by the digits themselves).
- * @var array
- * @access private
- */
- var $_digits = array(
- 0 => 'cero', 'uno', 'dos', 'tres', 'cuatro',
- 'cinco', 'seis', 'siete', 'ocho', 'nueve'
- );
- /**
- * The word separator
- * @var string
- * @access private
- */
- var $_sep = ' ';
-
- /**
- * The currency names (based on the below links,
- * informations from central bank websites and on encyclopedias)
- *
- * @var array
- * @link http://30-03-67.dreamstation.com/currency_alfa.htm World Currency Information
- * @link http://www.jhall.demon.co.uk/currency/by_abbrev.html World currencies
- * @link http://www.shoestring.co.kr/world/p.visa/change.htm Currency names in English
- * @access private
- */
- var $_currency_names = array(
- 'ALL' => array(array('lek'), array('qindarka')),
- 'AUD' => array(array('Australian dollar'), array('cent')),
- 'ARS' => array(array('Peso'), array ('centavo')),
- 'BAM' => array(array('convertible marka'), array('fenig')),
- 'BGN' => array(array('lev'), array('stotinka')),
- 'BRL' => array(array('real'), array('centavos')),
- 'BYR' => array(array('Belarussian rouble'), array('kopiejka')),
- 'CAD' => array(array('Canadian dollar'), array('cent')),
- 'CHF' => array(array('Swiss franc'), array('rapp')),
- 'CYP' => array(array('Cypriot pound'), array('cent')),
- 'CZK' => array(array('Czech koruna'), array('halerz')),
- 'DKK' => array(array('Danish krone'), array('ore')),
- 'EEK' => array(array('kroon'), array('senti')),
- 'EUR' => array(array('euro'), array('euro-cent')),
- 'GBP' => array(array('pound', 'pounds'), array('pence')),
- 'HKD' => array(array('Hong Kong dollar'), array('cent')),
- 'HRK' => array(array('Croatian kuna'), array('lipa')),
- 'HUF' => array(array('forint'), array('filler')),
- 'ISK' => array(array('Icelandic króna'), array('aurar')),
- 'JPY' => array(array('yen'), array('sen')),
- 'LTL' => array(array('litas'), array('cent')),
- 'LVL' => array(array('lat'), array('sentim')),
- 'MKD' => array(array('Macedonian dinar'), array('deni')),
- 'MTL' => array(array('Maltese lira'), array('centym')),
- 'NOK' => array(array('Norwegian krone'), array('oere')),
- 'PLN' => array(array('zloty', 'zlotys'), array('grosz')),
- 'ROL' => array(array('Romanian leu'), array('bani')),
- 'RUB' => array(array('Russian Federation rouble'), array('kopiejka')),
- 'SEK' => array(array('Swedish krona'), array('oere')),
- 'SIT' => array(array('Tolar'), array('stotinia')),
- 'SKK' => array(array('Slovak koruna'), array()),
- 'TRL' => array(array('lira'), array('kuruþ')),
- 'UAH' => array(array('hryvna'), array('cent')),
- 'USD' => array(array('dollar'), array('cent')),
- 'YUM' => array(array('dinars'), array('para')),
- 'ZAR' => array(array('rand'), array('cent'))
- );
-
- /**
- * The default currency name
- * @var string
- * @access public
- */
- var $def_currency = 'ARS'; // Argentinian Peso
-
- // }}}
- // {{{ toWords()
- /**
- * Converts a number to its word representation
- * in Spanish (Castellano).
- *
- * @param float $num An float between -infinity and infinity inclusive :)
- * that should be converted to a words representation
- * @param integer $power The power of ten for the rest of the number to the right.
- * For example toWords(12,3) should give "doce mil".
- * Optional, defaults to 0.
- * @return string The corresponding word representation
- *
- * @access private
- * @author Martin Marrese
- */
- function toWords($num, $power = 0)
- {
- // The return string;
- $ret = '';
-
- // add a the word for the minus sign if necessary
- if (substr($num, 0, 1) == '-')
- {
- $ret = $this->_sep . $this->_minus;
- $num = substr($num, 1);
- }
-
-
- // strip excessive zero signs
- $num = preg_replace('/^0+/','',$num);
-
- $num_tmp = split ('\.', $num);
-
- $num = $num_tmp[0];
- $dec = (@$num_tmp[1]) ? $num_tmp[1] : '';
-
- if (strlen($num) > 6)
- {
- $current_power = 6;
- // check for highest power
- if (isset($this->_exponent[$power]))
- {
- // convert the number above the first 6 digits
- // with it's corresponding $power.
- $snum = substr($num, 0, -6);
- $snum = preg_replace('/^0+/','',$snum);
- if ($snum !== '') {
- $ret .= $this->toWords($snum, $power + 6);
- }
- }
- $num = substr($num, -6);
- if ($num == 0) {
- return $ret;
- }
- }
- elseif ($num == 0 || $num == '') {
- return(' '.$this->_digits[0]);
- $current_power = strlen($num);
- }
- else {
- $current_power = strlen($num);
- }
-
- // See if we need "thousands"
- $thousands = floor($num / 1000);
- if ($thousands == 1) {
- $ret .= $this->_sep . 'mil';
- }
- elseif ($thousands > 1) {
- $ret .= $this->toWords($thousands, 3);
- }
-
- // values for digits, tens and hundreds
- $h = floor(($num / 100) % 10);
- $t = floor(($num / 10) % 10);
- $d = floor($num % 10);
-
- // cientos: doscientos, trescientos, etc...
- switch ($h)
- {
- case 1:
- if (($d == 0) and ($t == 0)) { // is it's '100' use 'cien'
- $ret .= $this->_sep . 'cien';
- }
- else {
- $ret .= $this->_sep . 'ciento';
- }
- break;
- case 2:
- case 3:
- case 4:
- case 6:
- case 8:
- $ret .= $this->_sep . $this->_digits[$h] . 'cientos';
- break;
- case 5:
- $ret .= $this->_sep . 'quinientos';
- break;
- case 7:
- $ret .= $this->_sep . 'setecientos';
- break;
- case 9:
- $ret .= $this->_sep . 'novecientos';
- break;
- }
-
- // decenas: veinte, treinta, etc...
- switch ($t)
- {
- case 9:
- $ret .= $this->_sep . 'noventa';
- break;
-
- case 8:
- $ret .= $this->_sep . 'ochenta';
- break;
-
- case 7:
- $ret .= $this->_sep . 'setenta';
- break;
-
- case 6:
- $ret .= $this->_sep . 'sesenta';
- break;
-
- case 5:
- $ret .= $this->_sep . 'cincuenta';
- break;
-
- case 4:
- $ret .= $this->_sep . 'cuarenta';
- break;
-
- case 3:
- $ret .= $this->_sep . 'treinta';
- break;
-
- case 2:
- if ($d == 0) {
- $ret .= $this->_sep . 'veinte';
- }
- else {
- if (($power > 0) and ($d == 1)) {
- $ret .= $this->_sep . 'veintiún';
- }
- else {
- $ret .= $this->_sep . 'veinti' . $this->_digits[$d];
- }
- }
- break;
-
- case 1:
- switch ($d)
- {
- case 0:
- $ret .= $this->_sep . 'diez';
- break;
-
- case 1:
- $ret .= $this->_sep . 'once';
- break;
-
- case 2:
- $ret .= $this->_sep . 'doce';
- break;
-
- case 3:
- $ret .= $this->_sep . 'trece';
- break;
-
- case 4:
- $ret .= $this->_sep . 'catorce';
- break;
-
- case 5:
- $ret .= $this->_sep . 'quince';
- break;
-
- case 6:
- case 7:
- case 9:
- case 8:
- $ret .= $this->_sep . 'dieci' . $this->_digits[$d];
- break;
- }
- break;
- }
-
- // add digits only if it is a multiple of 10 and not 1x or 2x
- if (($t != 1) and ($t != 2) and ($d > 0))
- {
- if($t != 0) // don't add 'y' for numbers below 10
- {
- // use 'un' instead of 'uno' when there is a suffix ('mil', 'millones', etc...)
- if(($power > 0) and ($d == 1)) {
- $ret .= $this->_sep.' y un';
- }
- else {
- $ret .= $this->_sep.'y '.$this->_digits[$d];
- }
- }
- else {
- if(($power > 0) and ($d == 1)) {
- $ret .= $this->_sep.'un';
- }
- else {
- $ret .= $this->_sep.$this->_digits[$d];
- }
- }
- }
-
- if ($power > 0)
- {
- if (isset($this->_exponent[$power])) {
- $lev = $this->_exponent[$power];
- }
-
- if (!isset($lev) || !is_array($lev)) {
- return null;
- }
-
- // if it's only one use the singular suffix
- if (($d == 1) and ($t == 0) and ($h == 0)) {
- $suffix = $lev[0];
- }
- else {
- $suffix = $lev[1];
- }
- if ($num != 0) {
- $ret .= $this->_sep . $suffix;
- }
- }
-
- if ($dec) {
- $dec = $this->toWords(trim($dec));
- $ret.= ' con ' . trim ($dec);
- }
-
- return $ret;
- }
- // }}}
-
- // {{{ toCurrency()
-
- /**
- * Converts a currency value to its word representation
- * (with monetary units) in Agentinian Spanish language
- *
- * @param integer $int_curr An international currency symbol
- * as defined by the ISO 4217 standard (three characters)
- * @param integer $decimal A money total amount without fraction part (e.g. amount of dollars)
- * @param integer $fraction Fractional part of the money amount (e.g. amount of cents)
- * Optional. Defaults to false.
- *
- * @return string The corresponding word representation for the currency
- *
- * @access public
- * @author Martin Marrese
- */
- function toCurrencyWords($int_curr, $decimal, $fraction = false) {
- $int_curr = strtoupper($int_curr);
- if (!isset($this->_currency_names[$int_curr])) {
- $int_curr = $this->def_currency;
- }
- $curr_names = $this->_currency_names[$int_curr];
- $lev = ($decimal == 1) ? 0 : 1;
- if ($lev > 0) {
- if (count($curr_names[0]) > 1) {
- $ret = $curr_names[0][$lev];
- } else {
- $ret = $curr_names[0][0] . 's';
- }
- } else {
- $ret = $curr_names[0][0];
- }
- $ret .= $this->_sep . trim($this->toWords($decimal));
-
- if ($fraction !== false) {
- $ret .= $this->_sep .'con'. $this->_sep . trim($this->toWords($fraction));
- $lev = ($fraction == 1) ? 0 : 1;
- if ($lev > 0) {
- if (count($curr_names[1]) > 1) {
- $ret .= $this->_sep . $curr_names[1][$lev];
- } else {
- $ret .= $this->_sep . $curr_names[1][0] . 's';
- }
- } else {
- $ret .= $this->_sep . $curr_names[1][0];
- }
- }
- return $ret;
- }
- // }}}
-
-
-
-}
-?>
+++ /dev/null
-#!/usr/bin/php4 -qC
-<?
-#require_once 'MECON/Agente.php';
-require_once '../lib/MECON/Agente.php';
-
-#$agente = new Agente('28168081');
-#$agente = new Agente('23878952');
-#$agente = new Agente('25669308');
-#$agente = new Agente('6360582');
-$agente = new Agente('17305638');
-#var_dump($agente->getNombre());
-#var_dump($agente->getDependencia());
-#var_dump($agente->getCuil());
-#var_dump($agente->getTipo());
-#var_dump($agente->getHoraDesde());
-#var_dump($agente->getHoraHasta());
-var_dump($agente->getOtrosDatos());
-
-?>
-
+++ /dev/null
-#!/usr/bin/php4 -qC
-<?
-require_once 'MECON/Dependencia.php';
-
-$dependencia = new Dependencia('3002031000');
-#$dependencia = new Dependencia('3002000006');
-foreach($dependencia->getAgentes() as $a)
- echo $a->getNombre()."\n";
-
-?>
-
projects / mecon / meconlib.git / commitdiff