PagUbicacion.php

<?php
// vim: set expandtab tabstop=4 shiftwidth=4 foldmethod=marker fileencoding=utf-8:
/**
 * Página del multi-formulario para capturar caso (captura_caso.php).
 *
 * PHP version 5
 *
 * @category  SIVeL
 * @package   SIVeL
 * @author    Vladimir Támara <vtamara@pasosdeJesus.org>
 * @copyright 2004 Dominio público. Sin garantías.
 * @license   https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público. Sin garantías.
 * @link      http://sivel.sf.net
 * Acceso: SÓLO DEFINICIONES
 */

/**
 * Pestaña Ubicación de la ficha de captura de un caso
 */
require_once 'PagBaseMultiple.php';
require_once 'DataObjects/Caso.php';
require_once 'misc_importa.php';
require_once 'DB/DataObject/Cast.php';

/**
 * Responde a evento cambio de departamento
 *
 * @category SIVeL
 * @package  SIVeL
 * @author   Vladimir Támara <vtamara@pasosdeJesus.org>
 * @license  https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público.
 * @link     http://sivel.sf.net/tec
 */
class CamDepartamento extends HTML_QuickForm_Action
{
    var $nomcampodep = 'id_departamento';

    /**
     * Constructora
     *
     * @param string $nomcampodep Nombre del campo con municipio en formulario
     *
     * @return void
     */
    function CamDepartamento($nomcampodep = 'id_departamento')
    {
        $this->nomcampodep = $nomcampodep;
    }

    /** * Ejecuta acción
     *
     * @param object &$page      Página
     * @param string $actionName Acción
     *
     * @return void
     */
    function perform(&$page, $actionName)
    {
        $_SESSION['camDepartamento']
            = (int)$page->_submitValues[$this->nomcampodep];
        //echo "OJO perform session=" .$_SESSION['camDepartamento'] . "<br>";
        $_SESSION['camMunicipio'] = '';
        $pageName =  $page->getAttribute('id');
        $data     =& $page->controller->container();
        $data['values'][$pageName] = $page->exportValues();
        $data['valid'][$pageName]  = $page->validate();
        $page->handle('display');
    }
}

/**
 * Responde a evento cambio de municipio
 *
 * @category SIVeL
 * @package  SIVeL
 * @author   Vladimir Támara <vtamara@pasosdeJesus.org>
 * @license  https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público.
 * @link     http://sivel.sf.net/tec
 */
class CamMunicipio extends HTML_QuickForm_Action
{

    var $nomcampodep = 'id_departamento';
    var $nomcampomun = 'id_municipio';

    /**
     * Constructora
     *
     * @param string $nomcampodep Nombre del campo con departamento
     * @param string $nomcampomun Nombre del campo con municipio
     *
     * @return void
     */
    function CamMunicipio($nomcampodep = 'id_departamento',
        $nomcampomun = 'id_municipio'
    ) {
        $this->nomcampodep = $nomcampodep;
        $this->nomcampomun = $nomcampomun;
    }


    /**
     * Ejecuta acción
     *
     * @param object &$page      Página
     * @param string $actionName Acción
     *
     * @return void
     */
    function perform(&$page, $actionName)
    {
        //echo "OJO perform Municipio<br>";
        $_SESSION['camDepartamento']
            = (int)$page->_submitValues[$this->nomcampodep];
        $_SESSION['camMunicipio']
            = (int)$page->_submitValues[$this->nomcampomun];
        $pageName =  $page->getAttribute('id');
        $data     =& $page->controller->container();
        $data['values'][$pageName] = $page->exportValues();
        $data['valid'][$pageName]  = $page->validate();

        $page->handle('display');
    }
}



/**
 * Ubicación.
 * Ver documentación de funciones en clase base.
 *
 * @category SIVeL
 * @package  SIVeL
 * @author   Vladimir Támara <vtamara@pasosdeJesus.org>
 * @license  https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público.
 * @link     http://sivel.sf.net/tec
 * @see      PagBaseMultiple
 */
class PagUbicacion extends PagBaseMultiple
{
    /** Ubicación independiente del caso */
    var $bubicacion;

    var $pref = "fub";

    var $nuevaCopia = false;

    var $clase_modelo = 'ubicacion';

    var $titulo = 'Ubicación';


    /**
     * Pone en null variables asociadas a tablas de la pestaña.
     *
     * @return null
     */
    function nullVar()
    {
        $this->bubicacion = null;
    }

    /**
     * Retorna una identificación del registro actual.
     *
     * @return string Identifación
     */
    function copiaId()
    {
        return $this->bubicacion->_do->id;
    }

    /**
     * Elimina de base de datos el registro actual.
     *
     * @param array &$valores Valores enviados por formulario.
     *
     * @return boolean
     */
    function elimina(&$valores)
    {
        if ($valores['id'] != null) {

            $du =& objeto_tabla('ubicacion');
            $du->id = var_escapa($valores['id'], $db);
            $du->id_caso = $_SESSION['basicos_id'];

            if ($du->find()==1) {
                $du->delete();
                $_SESSION['fub_total']--;
            }
            return true;
        }
        return false;
    }

    /**
     * Inicializa variables y datos de la pestaña.
     * Ver documentación completa en clase base.
     *
     * @param array $apar Arreglo de parametros. Vacio aqui.
     *
     * @return handle Conexión a base de datos
     */
    function iniVar($apar = null)
    {
        $dubicacion =& objeto_tabla('ubicacion');

        $db =& $dubicacion->getDatabaseConnection();
        $idcaso =& $_SESSION['basicos_id'];
        if (!isset($idcaso) || $idcaso == null) {
            die(_("Bug: idcaso no debería ser null"));
        }
        $result = hace_consulta($db, "SELECT  id FROM caso WHERE id='$idcaso'");
        $row = array();
        if (!isset($result) || PEAR::isError($result)
            || (!$result->fetchInto($row) && $idcaso != $GLOBALS['idbus'])
        ) {
            die(_("No pudo consultarse caso") . " " . $idcaso);
        }

        $idu = array();
        $row = array();
        $tot = 0;
        $q = "SELECT id FROM ubicacion " .
            "WHERE id_caso='$idcaso' " .
            "ORDER BY id";
        $result = hace_consulta($db, $q);
        while (isset($result) && !PEAR::isError($result)
            && $result->fetchInto($row)
        ) {
            $idu[] = $row[0];
            $tot++;
        }

        $_SESSION['fub_total'] = $tot;
        $ni = $_SESSION['fub_pag'];
        if ($ni >= 0 && $ni < $tot) {
            $dubicacion->id = $idu[$ni];
            if ($dubicacion->find()>0) {
                $dubicacion->fetch();
            }
        }

        $this->bubicacion =& DB_DataObject_FormBuilder::create(
            $dubicacion,
            array('requiredRuleMessage' => $GLOBALS['mreglareq'],
            'ruleViolationMessage' => $GLOBALS['mreglavio']
            )
        );
        $this->bubicacion->useMutators = true;

        return $db;
    }


    /**
     * Constructora.
     * Ver documentación completa en clase base.
     *
     * @param string $nomForma Nombre
     *
     * @return void
     */
    function PagUbicacion($nomForma)
    {
        $this->PagBaseMultiple($nomForma);
        $this->titulo = _('Ubicación');
        $this->tcorto = _('Ubicación');
        if (isset($GLOBALS['etiqueta']['Ubicacion'])) {
            $this->titulo = $GLOBALS['etiqueta']['Ubicacion'];
            $this->tcorto = $GLOBALS['etiqueta']['Ubicacion'];
        }
        $this->addAction('id_departamento', new CamDepartamento());
        $this->addAction('id_municipio', new CamMunicipio());

        $this->addAction('siguiente', new Siguiente());
        $this->addAction('anterior', new Anterior());
    }

    /**
     * Crea campos departamento, municipio y clase en blanco para
     * completar con la función modCampos
     *
     * @param object $form  Formulario
     * @param object $iddep Nombre campo departamento
     * @param object $idmun Nombre campo municipio
     * @param object $idcla Nombre campo clase
     *
     * @return array Con elementos para formulario (dep, mun, clase)
     */
    static function creaCampos(&$form, $iddep = 'id_departamento',
        $idmun = 'id_municipio', $idcla = 'id_clase'
    ) {
        assert($iddep != null);
        $dep =& $form->createElement(
            'select', $iddep,
            $GLOBALS['etiqueta']['departamento'],
            array()
        );
        $mun = null;
        if ($idmun != null) {
            $mun =& $form->createElement(
                'select', $idmun,
                $GLOBALS['etiqueta']['municipio'],
                array()
            );
        }
        $cla = null;
        if ($idcla != null) {
            $cla =& $form->createElement(
                'select', $idcla,
                $GLOBALS['etiqueta']['clase'],
                array()
            );
        }

        return array($dep, $mun, $cla);
    }


    /**
     * Modifica campos interdependientes Departamento/Muncipio/Clase
     *
     * @param object &$db     Base de datos
     * @param object $form   Formulario
     * @param object $nomcdep Nombre campo departamento
     * @param object $nomcmun Nombre campo municipio
     * @param object $nomccla Nombre campo clase
     * @param int    $vdep    Valor inicial de departamento
     * @param int    $vmun    Valor inicial de municipio
     * @param int    $vcla    Valor inicial de clase
     *
     * @return void
     */
    static function modCampos(&$db, &$form,
        $nomcdep = 'id_departamento', $nomcmun = 'id_municipio',
        $nomccla = 'id_clase', $vdep = null, $vmun = null, $vcla = null
    ) {
        assert($nomcdep != null);
        /*echo "OJO modCampos(db, form, nomcdep=$nomcdep, "
         . "nomcmun=$nomcmun, nomccla=$nomccla, vdep=$vdep, "
         . "vmun=$vmun, vcla=$vcla)<br>"; */
        if (PEAR::isError($db)) {
            die($db->getMessage()." - ".$db->getUserInfo());
        }

        $d = $m = $c = null;
        $d =& toma_elemento_recc($form, $nomcdep);
        sin_error_pear($d);
        if ($d == null) {
            die("d es null");
        }
        if ($nomcmun == null) {
            $d->updateAttributes(array("id" => "$nomcdep"));
        } else {
            $sincoord = "false";
            if (isset($_SESSION['forma_modo'])
                && $_SESSION['forma_modo'] == 'busqueda'
            ) {
                $sincoord = "true";
            }

            $d->updateAttributes(
                array(
                    "id" => "$nomcdep",
                    "onchange" => "llenaMunicipio('$nomcdep', "
                    . "'$nomcmun', '$nomccla', $sincoord)"
                )
            );
            $m =& toma_elemento_recc($form, $nomcmun);
            sin_error_pear($m);
            if ($nomccla == null) {
                $m->updateAttributes(array("id" => "$nomcmun"));
            } else {
                $m->updateAttributes(
                    array("id" => "$nomcmun",
                    "onchange" => "llenaClase('$nomcdep', "
                    . "'$nomcmun', '$nomccla', $sincoord)")
                );
                $c =& toma_elemento_recc($form, $nomccla);
                sin_error_pear($c);
                $c->updateAttributes(
                    array("id" => "$nomccla",
                    "onchange" => "llenaCoord('$nomcdep', "
                    . "'$nomcmun', '$nomccla', $sincoord)")
                );
            }
        }
        $options = array('' => '') + htmlentities_array(
            $db->getAssoc(
                "SELECT id, nombre FROM departamento "
                . " ORDER BY nombre"
            )
        );
        $d->loadArray($options);
        if ($vdep !== null && $vdep != DB_DataObject_Cast::sql('NULL')) {
            $d->setValue($vdep);
            if ($m != null) {
                $m->_options = array();
                $options = array('' => '') + htmlentities_array(
                    $db->getAssoc(
                        "SELECT id, nombre FROM municipio "
                        . "WHERE id_departamento='" . (int)$vdep . "' "
                        . " ORDER BY nombre"
                    )
                );
                $m->loadArray($options);
                if ($vmun !== null
                    && $vmun != DB_DataObject_Cast::sql('NULL')
                ) {
                    $m->setValue($vmun);
                    if ($c != null) {
                        $c->_options = array();
                        $options = array('' => '') + htmlentities_array(
                            $db->getAssoc(
                                "SELECT id, nombre || ' (' || id_tclase || ')' FROM clase "
                                . " WHERE id_departamento='" . (int)$vdep . "' "
                                . " AND id_municipio='" .(int)$vmun . "' "
                                . " ORDER BY nombre"
                            )
                        );
                        $c->loadArray($options);
                        if ($vcla !== null
                            && $vcla != DB_DataObject_Cast::sql('NULL')
                        ) {
                            $c->setValue($vcla);
                        }
                    }
                } else if ($c != null) {
                    $c->updateAttributes(
                        array("id" => "$nomccla", "disabled" => "true")
                    );
                }
            }
        } else if ($m != null) {
            $m->updateAttributes(
                array("id" => "$nomcmun", "disabled" => "true")
            );
            if ($c != null) {
                $c->updateAttributes(
                    array("id" => "$nomccla", "disabled" => "true")
                );
            }
        }
    }


    /**
     * Agrega elementos al formulario.
     * Ver documentación completa en clase base.
     *
     * @param handle &$db    Conexión a base de datos
     * @param string $idcaso Id del caso
     *
     * @return void
     *
     * @see PagBaseSimple
     */
    function formularioAgrega(&$db, $idcaso)
    {
        $vv = isset($this->bubicacion->id) ? $this->bubicacion->id : '';
        $this->addElement('hidden', 'id', $vv);

        $this->bubicacion->createSubmit = 0;
        $this->bubicacion->useForm($this);
        $this->bubicacion->getForm($this);

        PagUbicacion::modCampos(
            $db, $this, 'id_departamento', 'id_municipio', 'id_clase',
            $this->bubicacion->_do->id_departamento,
            $this->bubicacion->_do->id_municipio,
            $this->bubicacion->_do->id_clase
        );

        if (isset($this->bubicacion->_do->latitud)
            && isset($this->bubicacion->_do->longitud)
        ) {
            $this->addElement(
                'static', _('Ver mapa'), _('Ver'),
                '<a href="http://www.openstreetmap.org/?lat=' .
                $this->bubicacion->_do->latitud .  '&lon=' .
                $this->bubicacion->_do->longitud .
                '&zoom=14&layers=B000FTFT" target="_mapa">'
                . _('Mapa') . '</a>'
            );
        }

        agrega_control_CSRF($this);
    }

    /**
     * Llena valores de ubicación en formulario.
     *
     * @param handle  $form       Formulario
     * @param integer $depdef      Departamento por defecto
     * @param integer $mundef      Municipio por defecto
     * @param integer $cladef      Clase por defecto
     * @param object  $dep         Objeto departamento en formulario
     * @param object  $mun         Objeto municipio en formulario
     * @param object  $cla         Objeto clase en formulario
     * @param string  $nomcampodep Nombre del campo con depto
     * @param string  $nomcampomun Nombre del campo con municipio
     * @param string  $nomcampocla Nombre del campo con clase
     *
     * @return void
     * @see PagBaseSimple
     */
    static function valoresUbicacion(&$form, $depdef, $mundef, $cladef,
        $dep, $mun, $cla, $nomcampodep = 'id_departamento',
        $nomcampomun = 'id_municipio',
        $nomcampocla = 'id_clase'
    ) {
        $ndepartamento = $depdef;
        if ($ndepartamento != null && $dep != null) {
            $dep->setValue($ndepartamento);
        }
        $nmunicipio = $mundef;
        if ($nmunicipio != null && $mun != null) {
            $mun->setValue($nmunicipio);
        }
        $nclase = $cladef;
        if ($nclase != null && $cla != null) {
            $cla->setValue($nclase);
        }
    }

    /**
     * Llena valores del formulario.
     * Ver documentación completa en clase base.
     *
     * @param handle  &$db    Conexión a base de datos
     * @param integer $idcaso Id del caso
     *
     * @return void
     * @see PagBaseSimple
     */
    function formularioValores(&$db, $idcaso)
    {
        $tot = $_SESSION['fub_total'];
        $ni = $_SESSION['fub_pag'];

        $dep =& $this->getElement('id_departamento');
        $mun =& $this->getElement('id_municipio');
        $cla =& $this->getElement('id_clase');

        if ($ni >= $tot) {
            $dep->setValue("");
            $mun->setValue(null);
            $cla->setValue(null);
        } else {
            $dep->setValue($this->bubicacion->_do->id_departamento);
        }
        PagUbicacion::valoresUbicacion(
            $this, $this->bubicacion->_do->id_departamento,
            $this->bubicacion->_do->id_municipio,
            $this->bubicacion->_do->id_clase,
            $dep, $mun, $cla
        );

        $ubi =& $this->getElement('id');
        if (isset($_SESSION['nuevo_copia_id'])) {
            $id = $_SESSION['nuevo_copia_id'];
            unset($_SESSION['nuevo_copia_id']);
            $d =& objeto_tabla('ubicacion');
            $d->get($id);
            foreach (array_merge(
                $d->fb_fieldsToRender,
                array('id_departamento', 'id_municipio', 'id_clase')
            ) as $c
            ) {
                $cq = $this->getElement($c);
                $cq->setValue($d->$c);
            }
        }
    }


    /**
     * Elimina registros de tablas relacionadas con caso de este formulario.
     * Ver documentación completa en clase base.
     *
     * @param handle  &$db    Conexión a base de datos
     * @param integer $idcaso Id del caso
     *
     * @return void
     * @see PagBaseSimple
     */
    static function eliminaDep(&$db, $idcaso)
    {
        assert($db != null);
        assert(isset($idcaso));
        hace_consulta($db, "DELETE FROM ubicacion WHERE id_caso='$idcaso'");
    }


    /**
     * Procesa valores del formulario enviados por el usuario.
     * Ver documentación completa en clase base.
     *
     * @param handle &$valores Valores ingresados por usuario
     *
     * @return boolean Verdadero si y solo si puede completarlo con éxito
     * @see PagBaseSimple
     */
    function procesa(&$valores)
    {
        if (isset($GLOBALS['no_permite_editar']) && $GLOBALS['no_permite_editar']) {
            $htmljs = new HTML_Javascript();
            echo $htmljs->startScript();
            echo $htmljs->alert( 'Edición deshabilitada.');
            echo $htmljs->endScript();
            return true;
        }
        $es_vacio = (!isset($valores['lugar']) || $valores['lugar'] == '')
            && (!isset($valores['sitio']) || $valores['sitio'] == '')
            && (!isset($valores['latitud']) || $valores['latitud'] == '')
            && (!isset($valores['longitud']) || $valores['longitud'] == '')
            && ($valores['id_departamento'] == null
            || $valores['id_departamento'] == ''
            )
            && (!isset($valores['id_municipio'])
            || $valores['id_municipio'] == ''
            )
            && (!isset($valores['id_clase']) || $valores['id_clase'] == '' )
        ;

        if ($es_vacio) {
            return true;
        }
        if (!$this->validate() ) {
            return false;
        }
        verifica_sin_CSRF($valores);
        if (in_array(31, $_SESSION['opciones'])
            && !in_array(21, $_SESSION['opciones'])
        ) {
            return true;
        }


        $db = $this->iniVar();

        $idcaso = $_SESSION['basicos_id'];

        $this->bubicacion->_do->id_caso = $idcaso;
        $this->bubicacion->_do->id = var_escapa($valores['id'], $db);

        $this->bubicacion->_do->useMutators = true;
        if ($this->bubicacion->_do->id == null
            || $this->bubicacion->_do->id == ''
        ) {
            $this->bubicacion->forceQueryType(
                DB_DATAOBJECT_FORMBUILDER_QUERY_FORCEINSERT
            );
            $_SESSION['fub_total']++;
        } else {
            if ($this->bubicacion->_do->id_municipio == '') {
                $this->bubicacion->_do->id_municipio = 'null';
            }
            if ($this->bubicacion->_do->id_clase == '') {
                $this->bubicacion->_do->id_clase = 'null';
            }
            $this->bubicacion->forceQueryType(
                DB_DATAOBJECT_FORMBUILDER_QUERY_FORCEUPDATE
            );
        }
        if ($this->bubicacion->_do->id_municipio == 0
            || $this->bubicacion->_do->id_municipio == null
            || $this->bubicacion->_do->id_municipio == ''
        ) {
            $this->bubicacion->_do->id_municipio = 'null';
            /*DB_DataObject_Cast::sql(
                'NULL'
            ); */
        }
        if ($valores['id_municipio'] == '') {
            //print_r($valores); die("x");
            //unset($valores['id_municipio']);
            $valores['id_municipio'] = 'null';
        }
        $ret = $this->process(array(&$this->bubicacion, 'processForm'), false);
        if (PEAR::isError($ret)) {
            die($ret->getMessage());
        }

        caso_usuario($_SESSION['basicos_id']);
        return  true;
    }

    /**
     * Prepara consulta SQL para buscar datos de este formulario.
     * Ver documentación completa en clase base.
     *
     * @param string &$w       Consulta que se construye
     * @param string &$t       Tablas
     * @param object &$db      Conexión a base de datos
     * @param object $idcaso   Identificación del caso
     * @param string &$subcons Subconsulta
     *
     * @return void
     * @see PagBaseSimple
     */
    function datosBusqueda(&$w, &$t, &$db, $idcaso, &$subcons)
    {
        //prepara_consulta_gen($w, $t, $dCaso->id, 'ubicacion', null, null, false);

        $du=& objeto_tabla('ubicacion');
        $du->id_caso = (int)$idcaso;
        if ($du->find()>0) {
            $t .= ", ubicacion";
            consulta_and_sinap($w, "ubicacion.id_caso", "caso.id", "=", "AND");
            $w3="";
            while ($du->fetch()) {
                $w2="";
                if ($du->id_departamento != null) {
                    consulta_and(
                        $db, $w2, "ubicacion.id_departamento",
                        (int)($du->id_departamento), '=', 'AND'
                    );
                }
                if ($du->id_municipio != null) {
                    consulta_and(
                        $db, $w2, "ubicacion.id_municipio",
                        (int)($du->id_municipio), '=', 'AND'
                    );
                }
                if ($du->id_clase != null) {
                    consulta_and(
                        $db, $w2, "ubicacion.id_clase",
                        (int)($du->id_clase), '=', 'AND'
                    );
                }
                if (trim($du->lugar) != '') {
                    consulta_and(
                        $db, $w2, "ubicacion.lugar",
                        "%" .  trim($du->lugar) . "%", ' ILIKE ', 'AND'
                    );
                }
                if (trim($du->sitio) != '') {
                    consulta_and(
                        $db, $w2, "ubicacion.sitio",
                        "%" .  trim($du->sitio) . "%", ' ILIKE ', 'AND'
                    );
                }
                if (trim($du->latitud) != '') {
                    consulta_and(
                        $db, $w2, "ubicacion.latitud",
                        (double)($du->latitud), '=', 'AND'
                    );
                }
                if (trim($du->longitud) != '') {
                    consulta_and(
                        $db, $w2, "ubicacion.longitud",
                        (double)($du->longitud), '=', 'AND'
                    );
                }
                if ($du->id_tsitio != 1) {
                    consulta_and(
                        $db, $w2, "ubicacion.id_tsitio",
                        (int)($du->id_tsitio), '=', 'AND'
                    );
                }

                if ($w2!="") {
                    $w3 = $w3=="" ? "($w2)" : "$w3 OR ($w2)";
                }
            }
            if ($w3!="") {
                $w .= " AND ($w3)";
            }
        }
    }

    /**
     * Importa de un relato SINCODH lo relacionado con Ubicación
     * creando registros en la base de datos relacionados con el caso $idcaso
     *
     * @param object &$db    Conexión a base de datos
     * @param object $r      Relato en XML
     * @param int    $idcaso Número de caso que se inserta
     * @param string &$obs   Colchon para agregar notas de conversion
     *
     * @return void
     * @see PagBaseSimple
     */
    static function importaRelato(&$db, $r, $idcaso, &$obs)
    {
        assert($db != null);
        assert($r != null);
        assert($idcaso > 0);

        //echo "OJO importaRelato(db, r, idcaso=$idcaso, observaciones=$obs)<br>";
        /*dato_basico_en_obs(
            $db, $obs, $r,
            'region', 'region', 'caso_region', $idcaso, '; ', 'id_region'
        );
        $fro = dato_basico_en_obs(
            $db, $obs, $r,
            'frontera', 'frontera', 'caso_frontera', $idcaso, '; ',
            'id_frontera'
        );*/
        $dubicacion = objeto_tabla('ubicacion');
        $dubicacion->id_caso = $idcaso;
        $departamento = ereg_replace(
            "  *", " ",
            trim((string)$r->departamento)
        );
        if (isset($r->municipio)) {
            $munic = ereg_replace(
                "  *", " ",
                trim((string)$r->municipio)
            );
        } else {
            $munic = null;
        }
        if (isset($r->centro_poblado)) {
            $cenp = ereg_replace(
                "  *", " ",
                trim((string)$r->centro_poblado)
            );
        } else {
            $cenp = null;
        }

        list($id_departamento, $id_municipio, $id_clase)
            = conv_localizacion($db, $departamento, $munic, $cenp, $obs);
        if ($id_municipio != 1000) {
            $dubicacion->id_municipio = $id_municipio;
        }
        if ($id_departamento != 1000) {
            $dubicacion->id_departamento = $id_departamento;
        }
        if ($id_clase != 1000) {
            $dubicacion->id_clase = $id_clase;
        }
        $idtipositio = dato_basico_en_obs(
            $db, $obs, $r, 'tsitio', 'tsitio', '', ''
        );
        if (isset($idtipositio) && $idtipositio != null) {
            $dubicacion->id_tsitio = $idtipositio;
        } else {
            $dubicacion->id_tsitio
                = DataObjects_Tsitio::idSinInfo();
        }
        if (isset($r->latitud) && $r->latitud != '') {
            $dubicacion->latitud = (string)$r->latitud;
        }
        if (isset($r->longitud) && $r->longitud != '') {
            $dubicacion->longitud = (string)$r->longitud;
        }
        foreach (array('lugar', 'sitio') as $c) {
            $d = dato_en_obs($r, $c);
            if ($d !== null) {
                $dubicacion->$c = $d;
            }
        }
        $riu = $dubicacion->insert();
        if (PEAR::isError($riu)) {
            die($riu->getMessage() . " - " . $riu->getUserInfo());
        }
        $idubicacion = $dubicacion->id;
        if ($idubicacion == 0) {
            die(_("idubicacion es 0"));
        }
    }
}

?>