index.php

<?php
// vim: set expandtab tabstop=4 shiftwidth=4 foldmethod=marker fileencoding=utf-8:

/**
 * Menú de SIVeL.
 *
 * 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.
 * @version   CVS: $Id: index.php,v 1.60.2.3 2012/01/24 01:34:04 vtamara Exp $
 * @link      http://sivel.sf.net
 * @link      http://pear.php.net/manual/en/package.html.html-menu.intro.php
 */

/**
 * Menú de SIVeL.
 */
require_once 'aut.php';
require_once 'HTML/Menu.php';
require_once 'confv.php';
require_once $_SESSION['dirsitio'] . '/conf.php';
require_once 'misc.php';
require_once 'misc_caso.php';
require_once 'PresentaMenuPrincipal.php';

/**
 * Lee menú de base de datos y construye una estructura apropiada para
 * HTML/Menu.
 *
 * @param handle  &$db Conexión a base de datos
 * @param integer $id  Identificación de menú por revisar
 *
 * @return array apropiado para HTML_Menu
 */
function bd_a_menu(&$db, $id)
{
    $q = "SELECT id_opcion, descripcion, nomid FROM opcion  " .
        " WHERE id_mama='$id' ORDER by id_opcion;";
    $result = hace_consulta($db, $q);
    $row = array();
    $r = array();
    while ($result->fetchInto($row)) {
        if ($row[2] != '') {
            if (strchr($row[2], '?')) {
                $url = str_replace('?', '.php?', $row[2]);
            } else {
                $url = $row[2] . '.php';
            }
        } else {
            $url = '';
        }
        $r[] = array(
            'title' => $row[1],
            'url' => $url,
            'sub' => bd_a_menu($db, $row[0])
        );
    }
    return $r;
}


/**
 * Presenta menú principal.
 *
 * @param handle &$db Conexión a base de datos
 *
 * @return void
 */
function menu_principal(&$db)
{

    $datMenu = bd_a_menu($db, 0);
    $menu =& new HTML_Menu($datMenu, 'sitemap');

    encabezado_envia(
        'SIVeL ' . $GLOBALS['PRY_VERSION'].
        ': ' . 'Sistema de Información de Violencia Política'
    );
    if ($GLOBALS['cabezote_principal'] != ''
        && file_exists($GLOBALS['cabezote_principal'])
    ) {
        muestra_archivo($GLOBALS['cabezote_principal']);
    } else {
        echo '<table width = "100%" align = "center" cellpadding = "0" '
            . ' border = "0" cellspacing = "0">';
        echo '<tr><td align = "center" padding = "0" class = "blanco"> '
            . ' <br><br></td></tr>';
        echo '</table>';
    }

    $renderer =& new PresentaMenuPrincipal();
    $menu->render($renderer, '');
    $html_r = $renderer->toHtml();
    echo $html_r;
    if (isset($GLOBALS['centro_principal'])
        && file_exists($GLOBALS['centro_principal'])
    ) {
        $fh = fopen($GLOBALS['centro_principal'], 'rb');
        $html_contents = fread($fh, filesize($GLOBALS['centro_principal']));
        fclose($fh);
        echo $html_contents;
    } else {
        echo '<p>&nbsp;</p>';
    }
    echo '<table border = "0" width = "100%" ' .
        'style = "white-space: nowrap; background-color:#CCCCCC;"><tr>' .
        '<tr><td> ' .  $GLOBALS['REPORTA_FALLAS'] .
        '</td></tr></table>';

    pie_envia();

}

/**
 * Inicializa variables cada vez que llega al índice (en particular para
 * búsquedas).
 *
 * @param handle &$db Conexión a base de datos
 *
 * @return void
 */
function inicializa(&$db)
{
    $_SESSION['forma_modo'] = 'editar';
    $idbus = $GLOBALS['idbus'];
    if ($idbus <= 0) {
        eliminaCaso($db, $idbus);
    } else {
        die(
            "Variable Global idbus con id. de caso para búsquedas debería " .
            "ser no positiva"
        );
    }
}

$aut_usuario = "";
$db = autenticaUsuario($dsn, $accno, $aut_usuario, 0);

$res = hace_consulta($db, 'SELECT count(*) FROM acto', false);
if (PEAR::isError($res)) {
    echo '<p>Se recomienda que ejecute ' .
        '<a href="actualiza.php">actualiza.php</a></p><hr/>';
}
inicializa($db);

menu_principal($db);

unset_var_session();


?>