source: sipes/0.3-modules/causas_criticas/causas_criticas.module @ eb502b4

<?php
  /**
  * Sistema Automatizado para la Planificación Estratégico-Situacional en la Administración Pública Venezolana
  * @file causas_criticas.module
  * Drupal part Module to code ente planificador module
  * Copyright 2011 Sistema Automatizado para la Planificación Estratégico-Situacional en la Administración Pública Venezolana (CENDITEL)
  *
  * This program 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.
  * 
  * This program 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 this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *
  * @author Cenditel Merida - Msc. Juan Vizcarrondo
  * @date 2011-12-01 // (a&#241;o-mes-dia)
  * @date 2017-08-01 // (a&#241;o-mes-dia)
  * @version 0.2 // (0.2)
  *
  */

define("CAUSA_CRITICA_PLAN", 'situacion_actual');

/*
 * Implementation of hook_ente_procesos_alter()
 */
function causas_criticas_ente_procesos_alter(&$procesos, $type) {
  if ($type != 'status') {
    $procesos['causas_criticas'] = array(
      'title' => t('Causas críticas'),
      'description' => t('Permite editar las causas críticas.'),
      'message' => 'Se podrán registrar y/o modificar las causas críticas desde %fecha hasta la fecha %fecha1',
      'message_expire' => 'Registrar y/o modificar las causas críticas no se encuentra disponible, se podra realizar desde %fecha hasta la fecha %fecha1)',
      'weight' => 4,
      'proceso' => 'explicacion',
    );
  }
}

/*
 * Implementation of _get_causa_critica_acceso()
 * Obtiene el acceso de modificar causas criticas
 */
function _get_causa_critica_acceso($ente_planificador, $tipo_plan = array(), $causa = 0) {
  global $user;
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $ente = usuario_tiene_ente($user->uid);
  $tipo_plan = CAUSA_CRITICA_PLAN;
  $planns = _situacion_actual_preliminar_get_planns();
  $plan = $planns[$tipo_plan];
  $campo = 'field_causas_' . $plan['short'];
  $mi_ente = user_access('admin all planificador') || ($ente && $ente->nid && $ente->nid == $ente_planificador->nid);
  return $plan['ente_type'][$ente_planificador->tipo] && $mi_ente && (($mi_fecha[1]  + 86399 > $current_time) && ($mi_fecha[0] < $current_time) && (!$causa || ($causa->type == 'causas' && $causa->{$campo}[0]['value'] && $causa->field_causas_year[0]['value'] == variable_get('situacional_actual_preliminar_anho_creacion', 0))));
}

/*
 * Implementation of hook_menu()
 */
function causas_criticas_menu() {
  $items = array();
  $items['planificacion/%ente_planificador_menu/explicacion/causas'] = array(
    'title' => t('Causas Críticas'),
    'page callback' => 'ente_planificador_view_causas_criticas',
    'page arguments' => array(1),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1),
    'weight' => -5,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/view'] = array(
    'title' => t('Causas Críticas'),
    'type' => MENU_DEFAULT_LOCAL_TASK,
    'weight' => -10
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/relaciones'] = array(
    'title' => t('Relaciones entre causas'),
    'page callback' => 'causas_criticas_view_seleccionar',
    'page arguments' => array(1),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1),
    'weight' => -8,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/relaciones/%node/%lcausa'] = array(
    'title' => t('Relaciones entre causas'),
    'page callback' => 'drupal_get_form',
    'page arguments' => array('causas_criticas_view_select_form', 1, 5, 6),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1, 6),
    'weight' => -8,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/posibles'] = array(
    'title' => t('Posibles Causas críticas'),
    'page callback' => 'drupal_get_form',
    'page arguments' => array('causas_criticas_posibles_view_form', 1),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1),
    'weight' => -8,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/posibles/view'] = array(
    'title' => t('Situación Actual'),
    'page callback' => 'ente_planificador_view_causas_relaciones_posibles_view',
    'page arguments' => array(1),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1),
    'weight' => -8,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/select'] = array(
    'title' => t('Situación Actual'),
    'page callback' => 'drupal_get_form',
    'page arguments' => array('causas_criticas_select_causas_form', 1),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1),
    'weight' => -8,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/description'] = array(
    'title' => t('Situación Actual'),
    'page callback' => 'ente_planificador_view_causas_criticas_description',
    'page arguments' => array(1),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1),
    'weight' => -8,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/causas/description/%lcausa'] = array(
    'title' => t('Situación Actual'),
    'page callback' => 'drupal_get_form',
    'page arguments' => array('causas_criticas_select_causas_descriptores_form', 1, 5),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1, 5),
    'weight' => -8,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/situacion_objetivo'] = array(
    'title' => t('Situación Objetivo'),
    'page callback' => 'ente_planificador_view_situacion_objetivo',
    'page arguments' => array(1),
    'access callback' => '_get_causa_critica_acceso',
    'access arguments' => array(1),
    'weight' => -4,
    'type' => MENU_LOCAL_TASK,
  );
  $items['planificacion/%ente_planificador_menu/explicacion/situacion_objetivo/view'] = array(
    'title' => t('Descripción de la Situación Objetivo'),
    'type' => MENU_DEFAULT_LOCAL_TASK,
    'weight' => 0,
  );
  return $items;
}

/*
 * Implementation of causas_criticas_status_planificacion_explicacion()
 */
function causas_criticas_status_planificacion_explicacion($ente_planificador, $tipo = 2) {
  $causas_criticas = array();
  if ($tipo == 1) {
    $mi_fecha = ente_planificador_user_acceso_proceso('causas', $tipo);
    //muestre el estado de la explicacion situacional
    //Get current causas
    $sql_query = "SELECT c.nid FROM {content_type_causas} AS c INNER JOIN {node} AS n ON c.nid = n.nid AND c.vid = n.vid WHERE c.field_ente_planifiador_nid = %d  AND n.created >= %d AND n.created <= %d";
    $sql_variables = array();
    $sql_variables[] = $ente_planificador;
    $sql_variables[] = $mi_fecha[0];
    $sql_variables[] = $mi_fecha[1]  + 86399;
    $result = db_query($sql_query, $sql_variables);
    $causas = array();
    $relacions = array();
    while($causa = db_fetch_object($result)) {
      $causas[$causa->nid] = node_load($causa->nid);
    }
    if (count($causas)) {
      foreach ($causas as $idy => $itemy) {
        if (count($itemy->field_causas_relacion)) {
          foreach($itemy->field_causas_relacion as $relacion){
            if ($relacion['nid']) {
              $relacions[$relacion['nid']] = 1;
            }
          }
        }
      }
    }
    $causas_criticas['causa_relacion']['value'] = count($relacions) ? 1 : 0;
    $causas_criticas['causa_relacion']['title'] = t('Relación entre causas');
    $causas_criticas['causa_relacion']['link'] = 'planificacion/' . $ente_planificador . '/explicacion/causas/posibles/relaciones';
    $causas_criticas['causa_relacion']['mylink'] = 'mi_ente_planificador/planificacion/explicacion/causas/posibles/relaciones';
    $causas_criticas['causa_relacion']['weight'] = 1;
    $sql_query = "SELECT c.nid FROM {content_type_causas} AS c INNER JOIN {node} AS n ON c.nid = n.nid AND c.vid = n.vid WHERE c.field_ente_planifiador_nid = %d AND c.field_causa_posible_value = '1' AND n.created >= %d AND n.created <= %d";
    $result = db_query($sql_query, $sql_variables);
    $causas = array();
    $rows = array();
    while($causa = db_fetch_object($result)) {
      $causas[] = $causa;
    }
    $causas_criticas['causa_posibles']['value'] = count($causas) ? 1 : 0;
    $causas_criticas['causa_posibles']['title'] = t('Posibles Causas Críticas');
    $causas_criticas['causa_posibles']['link'] = 'planificacion/' . $ente_planificador . '/explicacion/causas/posibles/view';
    $causas_criticas['causa_posibles']['mylink'] = 'mi_ente_planificador/planificacion/explicacion/causas/posibles/view';
    $causas_criticas['causa_posibles']['weight'] = 1;
    //Get current causas
    $sql_query = "SELECT c.nid FROM {content_type_causas} AS c INNER JOIN {node} AS n ON c.nid = n.nid AND c.vid = n.vid WHERE c.field_ente_planifiador_nid = %d AND c.field_causa_posible_value = '1' AND n.created >= %d AND n.created <= %d";
    $result = db_query($sql_query, $sql_variables);
    $causas = array();
    while($causa = db_fetch_object($result)) {
      $causas[] = node_load($causa->nid);
    }
    $causas_criticas['causa_seleccionar']['value'] = count($causas) ? 1 : 0;
    $causas_criticas['causa_seleccionar']['title'] = t('Seleccionar Causas Críticas');
    $causas_criticas['causa_seleccionar']['link'] = 'planificacion/' . $ente_planificador . '/explicacion/causas/select';
    $causas_criticas['causa_seleccionar']['mylink'] = 'mi_ente_planificador/planificacion/explicacion/causas/select';
    $causas_criticas['causa_seleccionar']['weight'] = 1;
    $describir = array();
    if (count($causas)) {
      foreach($causas as $causa) {
        if (isset($causa->field_causa_descriptores[0]['value']) && $causa->field_causa_descriptores[0]['value'] && trim($causa->field_causa_descriptores[0]['value']) != '') {
          $describir[] = $causa->field_causa_descriptores[0]['value'];
        }
      }
    }
    $causas_criticas['causa_describir']['value'] = count($describir) ? 1 : 0;
    $causas_criticas['causa_describir']['title'] = t('Describir Causas Críticas');
    $causas_criticas['causa_describir']['link'] = 'planificacion/' . $ente_planificador . '/explicacion/causas/description';
    $causas_criticas['causa_describir']['mylink'] = 'mi_ente_planificador/planificacion/explicacion/causas/description';
    $causas_criticas['causa_describir']['weight'] = 1;
  }
  return $causas_criticas;
}

/**
 * Implementation of hook_theme().
 */
function causas_criticas_theme() {
  return array(
    'causas_criticas_view_form' => array(
      'arguments' => array('form' => NULL),
    ),
    'causas_criticas_tapir_table' => array(
      'arguments' => array('form' => NULL),
    ),
  );
}

/**
 * Themes form data into a table for display.
 *
 * @param $form
 *   The array of form information needing to be rendered into the table.
 * @return
 *   The table output rendered in HTML.
 * @ingroup themeable
 */
function theme_causas_criticas_tapir_table($element) {
  $header = array();
  $rows = array();
  $count = 0;
  // Loop through the columns and create the header array.
  foreach ($element['#columns'] as $col_id => $col_data) {
    // Add the cell if available.


    if (!isset($col_data['access']) || $col_data['access'] !== FALSE) {
      $count++;
      $header[] = array('data' => $col_data['cell']);
    }
  }
  $row = array();
  $row[] = array('data' => '<b>' . t('Causas Productoras') . '</b>', 'align' => 'center');
  $row[] = array('data' => '<b>' . t('Causas Derivadas') . '</b>', 'colspan' => $count - 1, 'align' => 'center');
  $rows[] = $row;
  // Loop through the row data and create rows with the data in the right order.
  foreach ($element['#rows'] as $data) {
    $attributes = array();
    $row = array();
    // Loop through each column in the header.
    foreach ($element['#columns'] as $col_id => $col_data) {
      // If this row defines cell data for the current column...
      if ((!isset($col_data['access']) || $col_data['access'] !== FALSE) && isset($data[$col_id])) {
        $cell = array();
        if (isset($data[$col_id]['#cell_attributes']) && is_array($data[$col_id]['#cell_attributes'])) {
          foreach ($data[$col_id]['#cell_attributes'] as $property => $value) {
            if ($property == 'colspan' && $value == 'full') {
              // Extend full-width cells to the number of columns actually
              // displayed.
              $value = count($header);
            }
            $cell[$property] = $value;
          }
          $cell['data'] = drupal_render($data[$col_id]);
        }
        else {
          $cell = drupal_render($data[$col_id]);
        }
        // Add it to the row array.
        $row[] = $cell;
      }
    }
    // Merge the row data into a single row array along with the attributes.
    $row = array_merge(array('data' => $row), (array)$data['#attributes']);
    // Add the current row to the table rows array.
    $rows[] = $row;
  }
  // Return the rendered table.
  return theme('table', $header, $rows, (array)$element['#attributes'], $element['#title']) . (isset($element['#children']) ? $element['#children'] : '');
}

/*
 * Implementation of _get_causas_derivadas()
 * Obtiene las causas derivadas por tipo de plan
 */
function _get_causas_derivadas($ente_planificador = 0, $tipo_plan = array(), $year = 0){
  $sql = "SELECT d.nid AS descriptor, cr.* FROM {content_type_descriptores} AS d INNER JOIN {content_field_descriptores_causa} AS dc ON dc.nid = d.nid AND dc.vid = d.vid INNER JOIN {content_field_causas_relacion} AS cr ON cr.nid = dc.field_descriptores_causa_nid INNER JOIN {node} AS n ON cr.nid = n.nid AND cr.vid = n.vid  WHERE d.field_descriptores_planificador_nid = %d AND d.field_descriptores_year_value = %d";
  $inputs = array();
  $inputs[] = $ente_planificador;
  $inputs[] = $year;
  if ($tipo_plan['short']) {
    $sql .= ' AND d.field_descriptores_' . $tipo_plan['short'] . '_value = %d';
    $inputs[] = 1;
  }
  $result = db_query($sql, $inputs);
  $relaciones = array();
  while($causa = db_fetch_object($result)) {
    $relaciones[$causa->descriptor][$causa->nid][$causa->field_causas_relacion_nid] = $causa->field_causas_relacion_nid;
  }
  return $relaciones;
}


/*
 * Implementation of causas_criticas_view_form()
 */
function causas_criticas_view_seleccionar($ente_planificador) {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $texto = t('Relaciones entre causas');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje("causas_criticas", $ente_planificador);
  }
  else {
    $ente = usuario_tiene_ente($user->uid);
    if (user_access('admin all planificador') || $ente->nid == $ente_planificador->nid) {
      muestra_mensaje("causas_criticas", $ente_planificador, 0);
      $ente_has_acceso = TRUE;
    }
  }
  $year = variable_get('situacional_actual_preliminar_anho_creacion', 0);
  $tipo_plan = CAUSA_CRITICA_PLAN;
  $planns = _situacion_actual_preliminar_get_planns();
  $plan = $planns[$tipo_plan];
  $descriptores = _get_situacion_actual_listar_all_descriptores($ente_planificador->nid, $plan, $year);
  $acceso = TRUE;
  $derivadas = _get_causas_derivadas($ente_planificador->nid, $plan, $year);
  $headers_table = array();
  $headers_table[] = array('data' => t('Descriptores'));
  $headers_table[] = array('data' => t('Causas Productoras'));
  $headers_table[] = array('data' => t('Causas Derivadas'));
  $rows = array();
  foreach($descriptores as $descriptor) {
    $row = array();
    $cuenta_causa = count($descriptor['causas']);
    $row[] = array('data' => $descriptor['body'], 'rowspan' => $cuenta_causa);
    foreach ($descriptor['causas'] as $causa) {
      $row[] = array('data' => $causa['body'],);
      $causas = array();
      if (isset($derivadas[$descriptor['nid']][$causa['nid']]) && count($derivadas[$descriptor['nid']][$causa['nid']])) {
        foreach($derivadas[$descriptor['nid']][$causa['nid']] as $id => $causa_d){
          if (isset($descriptor['causas'][$id])) {
            $causas[$id] = $descriptor['causas'][$id]['body'];
          }

        }
      }
      $lista = count($causas)? theme('item_list', $causas) : t('No existen causas derivadas.');
      if ($acceso && $cuenta_causa > 1) {
        $lista .= '<br>' .l(t("Agregar Relación"), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/relaciones/' . $descriptor['nid'] . '/' . $causa['nid'], array('query' => array('destination' => $_GET['q'])));
      }
      $row[] = array('data' => $lista);
      $rows[] = $row;
      $row = array();
    }
  }
  if (!count($rows)) {
    $row = array();
    $row[] = array('data' => t('No se encontrarón descriptores para este ente'), 'colspan' => count($headers_table));
    $rows[] = $row;
  }
  return theme('table', $headers_table, $rows);
}

/**
 *  form relations of causas
 */
function causas_criticas_view_select_form($form_state,  $ente_planificador,  $descriptor, $causa) {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $breadcrumb[] = l(t('Relaciones entre Causas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/relaciones');
  $texto = t('Agregar relación');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title(t('Relaciones de la causa @causa', array('@causa' => $causa->body)));
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje("causas_criticas", $ente_planificador);
  }
  else {
    $ente = usuario_tiene_ente($user->uid);
    if (user_access('admin all planificador') || $ente->nid == $ente_planificador->nid) {
      muestra_mensaje("causas_criticas", $ente_planificador, 0);
      $ente_has_acceso = TRUE;
    }
  }
  $form = array();
  $form['#ente_planificador'] = $ente_planificador;
  $form['#descriptor'] = $descriptor;
  $form['#causa'] = $causa;
  $causas_options = array();
  $inpunts_values = array();
  $inpunts_values[] = $descriptor->nid;
  $sql = "SELECT c.field_descriptores_causa_nid as nid, nr.body FROM {content_field_descriptores_causa} AS c INNER JOIN {node} AS n ON c.field_descriptores_causa_nid = n.nid INNER JOIN {node} AS n1 ON c.nid = n1.nid AND c.vid = n1.vid INNER JOIN {node_revisions} AS nr ON n.nid = nr.nid AND n.vid = nr.vid WHERE c.nid = %d ORDER BY nr.body";
  $result = db_query($sql, $inpunts_values);
  while($causa_sql = db_fetch_object($result)) {
    if ($causa->nid != $causa_sql->nid) {
      $causas[$causa_sql->nid] = $causa_sql->body;
    }
  }
  $default_value = array();
  $default_nid = array();
  $causas_relacion = array();
  foreach($causa->field_causas_relacion as $causa_r) {
    if ($causa_r['nid'] && isset($causas[$causa_r['nid']])) {
      $default_value[$causa_r['nid']] = $causa_r['nid'];
      $default_nid[]['nid'] = $causa_r['nid'];
    }
    $causas_relacion[$causa_r['nid']] = $causa_r['nid'];
    $default_nid[]['nid'] = $causa_r['nid'];
  }
  $form['#causas_relacion'] = $causas_relacion;
  $form['causa_name'] = array(
    '#value' => '<br><b>' .  t('Descriptor:') . '</b> ' . $descriptor->body . '<br><b>' .  t('Causa Productora:') . '</b> ' . $causa->body,
  );
  $form['causas_select'] = array(
    '#title' => t('Causas Derivadas'), 
    '#type' => 'checkboxes',
    '#default_value'  => $default_value,
    '#options' => $causas,
    '#required' => FALSE,
  );
  if ($ente_has_acceso) {
    $form['buttons']['submit'] = array(
      '#type' => 'submit',
      '#value' => t('Submit'),
      '#weight' => 20
    );
    $form['buttons']['cancel'] = array(
      '#type' => 'submit',
      '#value' => t('Cancel'),
      '#weight' => 21
    );
  }
  return $form;
}

/*
 * Implementation of causas_criticas_view_form_submit()
 */
function causas_criticas_view_select_form_submit($form, &$form_state) {
  if (!$_REQUEST['destination']) {
    // add redirect
    $form_state['redirect'] = 'planificacion/' . $form['#ente_planificador']->nid . '/explicacion/causas/relaciones'; 
  }
  $op = isset($form_state['values']['op']) ? $form_state['values']['op'] : '';
  if ($op == t('Cancel')) {
    return;
  }
  $causa = $form['#causa'];
  $default_nid = $form['#default_nid'];
  $causas_relacion = $form['#causas_relacion'];
  foreach($form_state['values']['causas_select'] as $id => $idc) {
    if ($idc && !isset($causas_relacion[$idc])) {
      $causas_relacion[$idc] = $idc;
    }
    else if (!$idc && isset($causas_relacion[$id])) {
      unset($causas_relacion[$id]);
    }
  }
  $relaciones = array();
  foreach($causas_relacion as $id) {
    $relaciones[]['nid'] = $id;
  }
  module_load_include('inc', 'content', 'includes/content.node_form');
  $causa->field_causas_relacion = $relaciones;
  $causa = node_submit($causa);
  $causa->log = t('Modificada la relación entre las causas');
  $causa->revision = 1;
  node_save($causa);
  drupal_set_message(t('Se han agregado las relaciones de la posible causa crítica'));
}

/*
 * Implementation of causas_criticas_view_form()
 */
function causas_criticas_view_form($form_state, $ente_planificador) {
  global $user;
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $texto = t('Relaciones entre causas');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $ente = usuario_tiene_ente($user->uid);
  $ente_has_acceso = FALSE;
  $mi_fecha = ente_planificador_user_acceso_proceso('causas_causas', $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje('causas_causas', $ente_planificador);
  }
  else {
    if ($ente->nid == $ente_planificador->nid) {
      muestra_mensaje('causas_causas', $ente_planificador, 0);
    }
  }
  if ($fecha && (user_access('admin planificador') || $ente->nid == $ente_planificador->nid)) {
    $ente_has_acceso = TRUE;
  }
  if ($ente_planificador->tipo > 1) {
    $ente_has_acceso = FALSE;
    if (module_exists('ente_planificador_hierarchical')) {
      if ($ente_planificador->tipo <= variable_get('situacion_actual_preliminar_hierarchical_count', 2)) {
        if (count($ente_planificador->ente_planificador_hierarchical['fathers'])) {
           $ente_has_acceso = TRUE;
        }
      }
    }
    $macro = ente_planificador_ente_macro($ente_planificador);
    if ($macro) {
      $ente_planificador = node_load($macro);
    }
  }
  $form = array();
  $form['items'] = array(
    '#type' => 'causas_criticas_tapir_table',
    '#tree' => TRUE,
  );
  $form['#ente_planificador'] = $ente_planificador;
  //Get current causas
  $mi_fecha = ente_planificador_user_acceso_proceso('causas', $ente_planificador);
  $sql_query = "SELECT c.nid FROM {content_type_causas} AS c INNER JOIN {node} AS n ON c.nid = n.nid AND c.vid = n.vid WHERE c.field_ente_planifiador_nid = %d  AND n.created >= %d AND n.created <= %d";
  $sql_query = "SELECT n.nid as nid FROM {content_type_causas} AS c INNER JOIN  {node} AS n ON c.nid = n.nid AND c.vid = n.vid WHERE c.field_ente_planifiador_nid = %d AND n.created >= %d AND n.created <= %d";
  $sql_variables = array();
  $sql_variables[] = $ente_planificador->nid;
  $sql_variables[] = $mi_fecha[0];
  $sql_variables[] = $mi_fecha[1]  + 86399;
  $result = db_query($sql_query, $sql_variables);
  $causas = array();
  while($causa = db_fetch_object($result)) {
    $causa_load = node_load($causa->nid);
    if (is_array($causa_load->field_descriptores_causa) && count($causa_load->field_descriptores_causa) && $causa_load->field_descriptores_causa[0]['nid']) {
      $causas[$causa->nid] = $causa_load;
    }
  }
  foreach ($causas as $idy => $itemy) {
    $relacions = array();
    if (count($itemy->field_causas_relacion)){
      foreach($itemy->field_causas_relacion as $relacion) {
        $relacions[$relacion['nid']] = 1;
      }
    }
    $element = array();
    $element['title_nid'] = array(
      '#value' => '<b>' . $itemy->title . '</b>',
      '#cell_attributes' =>
      array(
        'align' => 'center',
        'class' => 'causa_title'
      )
    );
    foreach ($causas as $idx => $itemx) {
      if ($idy == $idx) {
        $element['causa_' . $idx] = array(
          '#value' => '<b>' . '-' . '</b>',
          '#cell_attributes' => array(
            'align' => 'center',
            'class' => 'causa'
          )
        );
      }
      else {
        if ($ente_has_acceso) {
          $default_value = isset($relacions[$idx]) ? 1 : 0;
          $element['causa_' . $idx] = array(
            '#type' => 'checkbox',
            '#default_value' => $default_value,
            '#cell_attributes' => array(
              'align' => 'center',
              'class' => 'causa'
            )
          );
        }
        else {
          $default_value = isset($relacions[$idx]) ? t('SI') : t('NO');
          $element['causa_' . $idx] = array(
            '#value' => '<b>' . $default_value . '</b>',
            '#cell_attributes' => array(
              'align' => 'center',
              'class' => 'causa'
            )
          );
        }
      }
    }
    $form['items'][$idy] = $element;
  }
  $form['items']['#causas'] = $causas;
  $form['#causas'] = $causas;
  $form['items'] = causas_tapir_get_table('causas_criticas_view_table', $form['items']);
  unset($form['items']['#causas']);
  if ($ente_has_acceso) {
    $form['buttons']['submit'] = array(
      '#type' => 'submit',
      '#value' => t('Submit'),
      '#weight' => 20
    );
    $form['buttons']['cancel'] = array(
      '#type' => 'submit',
      '#value' => t('Cancel'),
      '#weight' => 21
    );
  }
  return $form;
}

/*
 * Implementation of causas_criticas_view_form_validate()
 */
function causas_criticas_view_form_validate($form, &$form_state) {
  $op = isset($form_state['values']['op']) ? $form_state['values']['op'] : '';
  $ente_planificador = $form['#ente_planificador'];
  if ($op == t('Cancel')) {
    drupal_goto('planificacion/' . $ente_planificador->nid . '/explicacion/causas');
    return;
  }
}

/*
 * Implementation of causas_criticas_view_form_submit()
 */
function causas_criticas_view_form_submit($form, &$form_state) {
  $causas = $form['#causas'];
  $causas_values = $form_state['values']['items'];
  $ente_planificador = $form['#ente_planificador'];
  module_load_include('inc', 'content', 'includes/content.node_form');
  foreach ($causas as $idy => $itemy) {
    $element = array();
    $itemy->field_causas_relacion = array();
    $itemy->field_causa_posible = array();
    $itemy->field_causa_posible[]['value'] = 0;
    $itemy->field_causa_critica = array();
    $itemy->field_causa_critica[]['value'] = 0;
    foreach ($causas as $idx => $itemx) {
      if ($idx != $idy && $causas_values[$idy]['causa_' . $idx]) {
        $itemy->field_causas_relacion[] = array('nid' => $idx);
      }
    }
    $itemy = node_submit($itemy);
    $itemy->log = t('Modificada la relación entre las causas');
    $itemy->revision = 1;
    node_save($itemy);
  }
  drupal_set_message(t('Se han agregado las relaciones de las posibles causas críticas'));
  drupal_goto('planificacion/' . $ente_planificador->nid . '/explicacion/causas/posibles/posibles');
}

/**
 * Load a table element for use in the Forms API or simply drupal_render().
 *
 * @param $table_id
 *   The string identifying the table you want to display, like a form ID.
 * @param ...
 *   Any additional arguments will be passed on to the table builder function
 *     specified as the $table_id.
 * @return
 *   The table form element.
 */
function causas_tapir_get_table($table_id) {
  // Get any additional arguments.
  $args = func_get_args();
  array_shift($args);
  // Retrieve the table data and allow modules to alter it.
  $table = call_user_func_array($table_id, $args);
  array_unshift($args, $table_id);
  $data = &$table;
  // Pass the arguments in the table so that alter functions can use them.
  $data['#parameters'] = $args;
  drupal_alter('tapir_table', $data, $table_id);
  return $table;
}

/**
 * List the products in the cart in a TAPIr table.
 */
function causas_criticas_view_table($table) {
  $table['#attributes'] = array('width' => '100%', 'align' => 'center', 'border' => '1');
  $causas = $table['#causas'];
  $table['#columns'] = array();
  $row = array();
  $row['title_nid'] = array(
    'cell' => t('Causas'),
    'weight' => 0,
    'align' => 'center',
    'colspan' => '2',
  );
  foreach ($causas as $idy => $itemy) {
    $row['causa_' . $idy] = array(
      'cell' => $itemy->title,
      'weight' => 0,
    );
  }
  $table['#columns'] = $row;
  return $table;
}
/**
 * Implementation of hook_elements().
 */
function causas_criticas_elements() {
  $types = array();
  $types['causas_criticas_tapir_table'] = array(
    '#columns' => array(),
    '#rows' => array(),
    '#tree' => TRUE,
    '#value' => NULL,
    '#pre_render' => array('causas_criticas_tapir_gather_rows'),
    '#process' => 'form_expand_ahah',
  );
  return $types;
}

/**
 * Pre-render callback for tapir_table elements.
 *
 * Gathers children of the tapir_table element into the #rows array. This
 * allows the element to render the children within the table as rows. Non-row
 * children are rendered after the table.
 */
function causas_criticas_tapir_gather_rows($element) {
  foreach (element_children($element) as $row) {
    foreach (array_keys($element['#columns']) as $col_id) {
      $element['#rows'][$row][$col_id] = $element[$row][$col_id];
      unset($element[$row][$col_id]);
    }
    $element['#rows'][$row]['#attributes'] = isset($element[$row]['#attributes']) ? $element[$row]['#attributes'] : array();
  }
  return $element;
}



/**
 * @ingroup themeable
 * @see causas_criticas_view_form()
 */
function theme_causas_criticas_view_form($form) {
  $output = '<div id="causas-criticas-form-causas">' . drupal_render($form['items']) .'</div>';
  $output .= '<div id="causas-criticas-form-buttons">'. drupal_render($form) .'</div>';
  return $output;
}

/*
 * Implementation of ente_planificador_view_causas_criticas()
 */
function ente_planificador_view_causas_criticas($ente_planificador) {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $texto = t('Causas Críticas');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $submenu = array();
  $smenu = array();
  $i = 0;
  $submenu[$i] = array(
    'name'=> t("Posibles Causas Críticas"),
    'description' => t("Gestiona las posibles causas críticas"),
    'call' => "explicacion_causas_criticas"
  );
  $aux_menu = array();
  foreach (module_list() as $module) {
    if ($data = module_invoke($module, 'items_menu_situacion_' . $submenu[$i]['call'], $ente_planificador)) {
      $aux_menu = array_merge_recursive($data, $aux_menu);
    }
  }
  $smenu[$i] = $aux_menu;
  if (!isset($i)) {
    $i = -1;
  }
  $i++;
  $submenu[$i] = array(
    'name'=> t("Causas Críticas"),
    'description' => t("Lista las causas críticas"),
    'call' => "explicacion_causas"
  );
  $aux_menu = array();
  foreach (module_list() as $module) {
    if ($data = module_invoke($module, 'items_menu_situacion_' . $submenu[$i]['call'], $ente_planificador)) {
      $aux_menu = array_merge_recursive($data, $aux_menu);
    }
  }
  $smenu[$i] = $aux_menu;
  return theme('planificacion_submenu_interfaz', $submenu, $smenu);
}

/*
 * Implementation of hook_items_menu_planificacion_explicacion_situacional()
 * Add menus items in explicación Situacional 
 */
function causas_criticas_items_menu_situacion_explicacion_causas_criticas($ente_planificador) {
  $resultado = array();
  $resultado[] = array(
    'name' => t('Relaciones entre Causas'),
    'path' => 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/relaciones',
    'description' => t('Relaciones entre Causas Críticas')
  );
  $children = FALSE;
  if (module_exists('ente_planificador_hierarchical')) {
    if ($ente_planificador->tipo <= variable_get('situacion_actual_preliminar_hierarchical_count', 2)) {
      if (count($ente_planificador->ente_planificador_hierarchical['fathers'])) {
         $children = TRUE;
      }
    }
  }
  if ($ente_planificador->tipo == 1 || $children) {
    $resultado[] = array(
      'name' => t('Seleccionar Posibles Causas Críticas'),
      'path' => 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/posibles',
      'description' => t('Seleccionar Posibles Causas Críticas')
    );
    $resultado[] = array(
      'name' => t('Posibles Causas Críticas'),
      'path' => 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/posibles/view',
      'description' => t('Posibles Causas Críticas')
    );
  }
  return $resultado;
}

/*
 * Implementation of hook_items_menu_planificacion_explicacion_situacional()
 * Add menus items in explicación Situacional 
 */
function causas_criticas_items_menu_situacion_explicacion_causas($ente_planificador) {
  $resultado = array();
  $children = FALSE;
  if (module_exists('ente_planificador_hierarchical')) {
    if ($ente_planificador->tipo <= variable_get('situacion_actual_preliminar_hierarchical_count', 2)) {
      if (count($ente_planificador->ente_planificador_hierarchical['fathers'])) {
         $children = TRUE;
      }
    }
  }
  if ($ente_planificador->tipo == 1 || $children) {
    $resultado[] = array(
      'name' => t('Seleccionar Causas Críticas'),
      'path' => 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/select',
      'description' => t('Seleccionar Causas Críticas')
    );
  }
  $resultado[] = array(
    'name' => t('Consultar Causas Críticas'),
    'path' => 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/description',
    'description' => t('Muestra las Causas Críticas')
  );
  return $resultado;
}

function causas_criticas_obtiene_algoritmo(){
  $algoritmo = module_invoke_all('algoritmo');
  return $algoritmo;
}

function causas_criticas_algoritmo() {
  return array('cc' => t('Causa Critica'));
}

/*
 * Implementation of causas_criticas_posibles_view_form()
 */
function causas_criticas_posibles_view_form($form_state, $ente_planificador) {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $texto = t('Seleccionar Posibles Causas Críticas');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje("causas_criticas", $ente_planificador);
  }
  else {
    $ente = usuario_tiene_ente($user->uid);
    if (user_access('admin all planificador') || $ente->nid == $ente_planificador->nid) {
      muestra_mensaje("causas_criticas", $ente_planificador, 0);
      $ente_has_acceso = TRUE;
    }
  }
  $year = variable_get('situacional_actual_preliminar_anho_creacion', 0);
  $tipo_plan = CAUSA_CRITICA_PLAN;
  $planns = _situacion_actual_preliminar_get_planns();
  $plan = $planns[$tipo_plan];
  $descriptores = _get_situacion_actual_listar_all_descriptores($ente_planificador->nid, $plan, $year);
  $acceso = TRUE;
  $derivadas = _get_causas_derivadas($ente_planificador->nid, $plan, $year);
  $headers_table = array();
  $headers_table[] = array('data' => t('Descriptores'));
  $headers_table[] = array('data' => t('Causas Productoras'));
  $headers_table[] = array('data' => t('Causas Derivadas'));
  $rows = array();
  $causas_to_load = array();
  foreach($descriptores as $descriptor) {
    $row = array();
    $cuenta_causa = count($descriptor['causas']);
    $row[] = array('data' => $descriptor['body'], 'rowspan' => $cuenta_causa);
    foreach ($descriptor['causas'] as $causa) {
      $causas_to_load[$causa['nid']] = $causa;
      $row[] = array('data' => $causa['body'],);
      $causas = array();
      if (isset($derivadas[$descriptor['nid']][$causa['nid']]) && count($derivadas[$descriptor['nid']][$causa['nid']])) {
        foreach($derivadas[$descriptor['nid']][$causa['nid']] as $id => $causa_d){
          if (isset($descriptor['causas'][$id])) {
            $causas[$id] = $descriptor['causas'][$id]['body'];
          }

        }
      }
      $lista = count($causas)? theme('item_list', $causas) : t('No existen causas derivadas.');
      $row[] = array('data' => $lista);
      $rows[] = $row;
      $row = array();
    }
  }
  if (!count($rows)) {
    $row = array();
    $row[] = array('data' => t('No se encontrarón descriptores para este ente'), 'colspan' => count($headers_table));
    $rows[] = $row;
  }
  $html = theme('table', $headers_table, $rows);
  $form['muestra_causas']['#value'] = $html;
  $form['#descriptores'] = $descriptores;
  $form['#derivadas'] = $derivadas;
  $form['#causas_to_load'] = $causas_to_load;
  $form['#ente_planificador'] = $ente_planificador;
  $options = causas_criticas_obtiene_algoritmo();
  $form['algoritm'] = array(
    '#prefix' => t('@cantidad causas encontradas', array('@cantidad' => count($form['#causas_to_load']))), 
    '#type' => 'select',
    '#default_value' => 'cc',
    '#options' => $options,
    '#title' => t('Seleccione el algoritmo que desee utilizar para seleccionar las posibles causas críticas'),
  );
  if ($ente_has_acceso) {
    $form['buttons']['submit'] = array(
      '#type' => 'submit',
      '#value' => t('Calcular'),
      '#weight' => 20
    );
    $form['buttons']['cancel'] = array(
      '#type' => 'submit',
      '#value' => t('Cancel'),
      '#weight' => 21
    );
  }
  return $form;
}

/*
 * Implementation of causas_criticas_posibles_view_form_submit()
 */
function causas_criticas_posibles_view_form_submit($form, &$form_state) {
  if (!$_REQUEST['destination']) {
    // add redirect
    $form_state['redirect'] = 'planificacion/' . $form['#ente_planificador']->nid . '/explicacion/causas/posibles/view'; 
  }
  $op = isset($form_state['values']['op']) ? $form_state['values']['op'] : '';
  if ($op == t('Cancel')) {
    return;
  }


  $causas = $form['#causas'];
  if (function_exists('causas_criticas_posibles_algoritm_' . $form_state['values']['algoritm'])) {
    module_load_include('inc', 'node', 'node.pages');
    $causas_arg = array();
    $causas_arg[] = array(
      'descriptores' => $form['#descriptores'],
      'derivadas' => $form['#derivadas'],
    );
    $causa_to_descriptor = array();
    $causas_criticas = call_user_func_array('causas_criticas_posibles_algoritm_' . $form_state['values']['algoritm'], $causas_arg);
    foreach($form['#descriptores'] as $nid => $descriptores) {
      $posibles = array();
      foreach ($causas_criticas[$nid] as $cnid => $valor) {
        $posibles[]['nid'] = $cnid;
        $causa_to_descriptor[$cnid][]['nid'] = $nid;
      }
      $node = node_load($nid);
      if ($node->nid) {
        $node->field_descriptores_posibles = $posibles;
        $node->field_descriptores_criticas = array();
        node_object_prepare($node);
        $node->log = t('Causas seleccionada como posible por el algoritmo @algoritmo', array('@algoritmo' => $form_state['values']['algoritm']));
        $node->revision = 1;
        node_save($node);
      }
    }
    foreach($form['#causas_to_load'] as $nid => $value) {
      $node = node_load($nid);
      if ($node->nid) {
        $node->field_causa_posible = array();
        $cuenta = count($causa_to_descriptor[$node->nid]) ? 1 : 0;
        $node->field_causa_posible[]['value'] = (string) $cuenta;
        $node->field_causas_posibles = $cuenta ? $causa_to_descriptor[$node->nid] : array();
        $node->field_causa_critica = array();
        $node->field_causa_critica[]['value'] = 0;
        $node->field_causas_criticos = array();
        node_object_prepare($node);
        if ($valor) {
          $node->log = t('Causa seleccionada como posible por el algoritmo @algoritmo', array('@algoritmo' => $form_state['values']['algoritm']));
        }
        $node->revision = 1;
        node_save($node);
      }
    } 
  }
  drupal_set_message(t('Se han seleccionado las posibles causas críticas con el algoritmo'));
}

/*
 * Implementation of causas_criticas_posibles_algoritm_cc()
 */
function causas_criticas_posibles_algoritm_cc($causas = array()) {
  $descriptores = $causas['descriptores'];
  $derivadas = $causas['derivadas'];
  $causas_criticas = array();
  foreach($descriptores as $descriptor) {
    $sum = array();
    $sumy = array();
    foreach ($descriptor['causas'] as $causa) {
      $causas = array();
      if (isset($derivadas[$descriptor['nid']][$causa['nid']]) && count($derivadas[$descriptor['nid']][$causa['nid']])) {
        foreach($derivadas[$descriptor['nid']][$causa['nid']] as $id => $causa_d){
          if (isset($descriptor['causas'][$id])) {        
            $sum[$causa['nid']]++;
            $sumy[$id]++;
          }
        }
      }
    }
    $cuenta_causa = count($descriptor['causas']);
    if ($cuenta_causa){
      $avg = array_sum($sum)/$cuenta_causa;
      $avgy = array_sum($sumy)/$cuenta_causa;
      foreach ($descriptor['causas'] as $causa) {
        if ($sum[$causa['nid']] >= $avg && $sumy[$causa['nid']] <= $avg) {
          $causas_criticas[$descriptor['nid']][$causa['nid']] = 1;
        }
        elseif($sum[$causa['nid']] >= 0 && $sumy[$causa['nid']] == 0) {
          $causas_criticas[$descriptor['nid']][$causa['nid']] = 1;
        }
      }
    }
  }
  return $causas_criticas;
}

/*
 * Implementation of _get_causas_all_causas()
 * Obtiene las causas derivadas por tipo de plan
 */
function _get_causas_all_causas($ente_planificador = 0, $tipo_plan = array(), $year = 0, $tipo = 'posibles'){
  $tabla = ($tipo == 'posibles')? 'content_field_descriptores_posibles' : 'content_field_descriptores_criticas';
  $campo = 'field_descriptores_' . $tipo . '_nid';
  $sql = "SELECT d.*, ds." . $campo . " AS causa FROM {" . $tabla . "} AS ds INNER JOIN {content_type_descriptores} AS d ON d.nid = ds.nid AND d.vid = ds.vid INNER JOIN {node} AS n ON n.nid = ds.nid AND n.vid = ds.vid WHERE d.field_descriptores_planificador_nid = %d AND d.field_descriptores_year_value = %d";

  $inputs = array();
  $inputs[] = $ente_planificador;
  $inputs[] = $year;
  if ($tipo_plan['short']) {
    $sql .= ' AND d.field_descriptores_' . $tipo_plan['short'] . '_value = %d';
    $inputs[] = 1;
  }
  $result = db_query($sql, $inputs);
  $descriptores = array();
  while($descriptor = db_fetch_object($result)) {
    if ($descriptor->nid && $descriptor->causa) {
      $descriptores[$descriptor->nid][$descriptor->causa] = $descriptor->causa;
    }
  }
  return $descriptores;
}

/*
 * Implementation of ente_planificador_view_causas_relaciones_posibles_view()
 */
function ente_planificador_view_causas_relaciones_posibles_view($ente_planificador) {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $texto = t('Posibles Causas Críticas');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje("causas_criticas", $ente_planificador);
  }
  else {
    $ente = usuario_tiene_ente($user->uid);
    if (user_access('admin all planificador') || $ente->nid == $ente_planificador->nid) {
      muestra_mensaje("causas_criticas", $ente_planificador, 0);
    }
  }
  $year = variable_get('situacional_actual_preliminar_anho_creacion', 0);
  $tipo_plan = CAUSA_CRITICA_PLAN;
  $planns = _situacion_actual_preliminar_get_planns();
  $plan = $planns[$tipo_plan];
  $descriptores = _get_situacion_actual_listar_all_descriptores($ente_planificador->nid, $plan, $year);
  $posibles = _get_causas_all_causas($ente_planificador->nid, $plan, $year);
  drupal_set_title(t('Posibles Causas Críticas'));
  $headers_table = array();
  $headers_table[] = array('data' => t('Descriptor')); 
  $headers_table[] = array('data' => t('Causas')); 
  $headers_table[] = array('data' => t('Posibles Causas Crítica')); 
  $rows = array();
  foreach($descriptores as $descriptor) {
    $row = array();
    $row[] = array('data' => $descriptor['body'],);
    $criticas = array();
    $causas = array();
    foreach ($descriptor['causas'] as $causa) {
      $causas[$causa['nid']] = $causa['body'];
      if (isset($posibles[$descriptor['nid']][$causa['nid']])) {
        $criticas[$causa['nid']] = $causa['body'];
      }
    }
    $row[] = array('data' => theme('item_list', $causas));
    $row[] = array('data' => theme('item_list', $criticas));
    $rows[] = $row;
  }
  if (!count($rows)) {
    $row = array();
    $row[] = array('data' => t('No se encontrarón descriptores para este ente'), 'colspan' => count($headers_table));
    $rows[] = $row;
  }
  return theme('table', $headers_table, $rows);
}

/*
 * Implementation of causas_criticas_select_causas_form()
 */
function causas_criticas_select_causas_form($form_state, $ente_planificador) {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $texto = t('Seleccionar Causas Críticas');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje("causas_criticas", $ente_planificador);
  }
  else {
    $ente = usuario_tiene_ente($user->uid);
    if (user_access('admin all planificador') || $ente->nid == $ente_planificador->nid) {
      muestra_mensaje("causas_criticas", $ente_planificador, 0);
      $ente_has_acceso = TRUE;
    }
  }
  $year = variable_get('situacional_actual_preliminar_anho_creacion', 0);
  $tipo_plan = CAUSA_CRITICA_PLAN;
  $planns = _situacion_actual_preliminar_get_planns();
  $plan = $planns[$tipo_plan];
  $descriptores = _get_situacion_actual_listar_all_descriptores($ente_planificador->nid, $plan, $year);
  $posibles = _get_causas_all_causas($ente_planificador->nid, $plan, $year);
  $seleccionadas = _get_causas_all_causas($ente_planificador->nid, $plan, $year, 'criticas');
  $header = array();
  $header[] = t('Descriptores');
  $header[] = t('Causa');
  $header[] = t('Posibles Causas Critica Seleccionadas por el Sistema');
  $header[] = t('Seleccionar Causas Criticas');
  $prefijo = '<table width="100%" style="border: 0;"><tr>';
  foreach($header as $texto) {
    $prefijo .= '<th>' . $texto . '&nbsp;</th>';
  }
  $c_criticas = array();
  $c_posibles = array();
  $causas = array();
  $causas = array();
  $causas_load = array();
  $prefijo .= '</tr>';
  $form = array();
  if (!count($descriptores)) {
      $prefijo .= '<tr><td colspan="' . count($header) . '">' . t('No se han ingresado Descriptores') . '&nbsp;</td></tr></table>';
      $form['seleccionar'] = array(
        '#value' => $prefijo,
      );
  }
  else {
    foreach($descriptores as $descriptor) {
      foreach ($descriptor['causas'] as $causa) {
        $causas[$descriptor['nid']][$causa['nid']] = $causa['body'];
        $causas_load[$causa['nid']] = $causa['body'];
        if (isset($posibles[$descriptor['nid']][$causa['nid']])) {
          $c_posibles[$descriptor['nid']][$causa['nid']] = $causa['body'];
        }
        if (isset($seleccionadas[$descriptor['nid']][$causa['nid']])) {
          $c_criticas[$descriptor['nid']][$causa['nid']] = $causa['nid'];
        }
      }
      $prefijo .= '<tr><td>' . $descriptor['body'] . '</td><td>' . theme('item_list', $causas[$descriptor['nid']]) . '</td><td>' . theme('item_list', $c_posibles[$descriptor['nid']]) . ' </td>';
      $form['seleccionar_' . $descriptor['nid']] = array(
        '#type' => 'checkboxes',
        '#title' => '',
        '#options' => $causas[$descriptor['nid']],
        '#default_value' => $c_criticas[$descriptor['nid']],
        '#prefix' => $prefijo . '<td>',
        '#suffix' => '</td></tr>',
        '#multiple' => TRUE,
      );
      $prefijo = '';
    }
    $form['seleccionar_' . $descriptor['nid']]['#suffix'] .= '</table>';
  }
  $form['#descriptores'] = $descriptores;
  $form['#causas'] = $causas;
  $form['#posibles'] = $posibles;
  $form['#criticas'] = $criticas;
  $form['#ente_planificador'] = $ente_planificador;
  $form['#causas_load'] = $causas_load;
  if (count($descriptores) && $ente_has_acceso){
    $form['buttons']['submit'] = array(
      '#type' => 'submit',
      '#value' => t('Seleccionar'),
      '#weight' => 20
    );
    $form['buttons']['cancel'] = array(
      '#type' => 'submit',
      '#value' => t('Cancel'),
      '#weight' => 21
    );
  }
  return $form;
}

/*
 * Implementation of causas_criticas_select_causas_form_submit()
 */
function causas_criticas_select_causas_form_submit($form, &$form_state) {
  if (!$_REQUEST['destination']) {
    // add redirect
    $form_state['redirect'] = 'planificacion/' . $form['#ente_planificador']->nid . '/explicacion/causas/description'; 
  }
  $op = isset($form_state['values']['op']) ? $form_state['values']['op'] : '';
  if ($op == t('Cancel')) {
    return;
  }
  $ente_planificador = $form['#ente_planificador'];
  $causas_values = $form_state['values'];
  module_load_include('inc', 'node', 'node.pages');
  $causa_to_descriptor = array();
  foreach($form['#descriptores'] as $nid => $descriptor) {
    $criticas = array();
    foreach ($form['#causas'][$nid] as $cnid => $causa) {
      if (isset($form_state['values']['seleccionar_' . $nid][$cnid]) && $form_state['values']['seleccionar_' . $nid][$cnid]) {
        $criticas[]['nid'] = $cnid;
        $causa_to_descriptor[$cnid][]['nid'] = $nid;
      }
    }
    $node = node_load($nid);
    if ($node->nid) {
      $node->field_descriptores_criticas = $criticas;
      node_object_prepare($node);
      $node->log = t('Causas seleccionadas como criticas');
      $node->revision = 1;
      node_save($node);
    }
  }
  foreach($form['#causas_load'] as $nid => $value) {
    $node = node_load($nid);
    if ($node->nid) {
      $node->field_causa_critica = array();
      $cuenta = count($causa_to_descriptor[$node->nid]) ? 1 : 0;
      $node->field_causa_critica[]['value'] = (string) $cuenta;
      $node->field_causas_criticos = $cuenta ? $causa_to_descriptor[$node->nid] : array();
      node_object_prepare($node);
      $node->log = t('Causa seleccionada como critica');
      $node->revision = 1;
      node_save($node);
    }
  } 
  drupal_set_message(t('Se han seleccionado las causas críticas'));
}

function ente_planificador_view_situacion_objetivo($ente_planificador, $tipo = 'situacion_objetivo') {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $texto = t('Situación Objetivo');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $ente = usuario_tiene_ente($user->uid);
  $ente_has_acceso = FALSE;
  $mi_fecha = ente_planificador_user_acceso_proceso('causas_criticas', $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje('causas_criticas', $ente_planificador);
  }
  else {
    if ($ente->nid == $ente_planificador->nid) {
      muestra_mensaje('causas_criticas', $ente_planificador, 0);
    }
  }
  if ($fecha && (user_access('admin planificador') || $ente->nid == $ente_planificador->nid)) {
    $ente_has_acceso = TRUE;
  }
  if ($ente_planificador->tipo > 1) {
    $ente_has_acceso = FALSE;
    if (module_exists('ente_planificador_hierarchical')) {
      if ($ente_planificador->tipo <= variable_get('situacion_actual_preliminar_hierarchical_count', 2)) {
        if (count($ente_planificador->ente_planificador_hierarchical['fathers'])) {
           $ente_has_acceso = TRUE;
        }
      }
    }
    $macro = ente_planificador_ente_macro($ente_planificador);
    if ($macro) {
      $ente_planificador = node_load($macro);
    }
  }
  $tipos = array(
    'situacion_objetivo' => t('Situación Objetivo'),
   );

  if ($view_id = variable_get('situacion_actual_preliminar_' . $tipo . '_' . $tipo, 0)) {
    $view = views_get_view($view_id);
    $display_id = variable_get('situacion_actual_preliminar_display_views_' . $tipo . '_' . $tipo, 'default');
    $view->set_display($display_id);

    $title = $tipos[$tipo];

    $view->override_path = $_GET['q'];
    $view->pre_execute();
    $view->execute();
    $output = $view->render();
  }
  else {
    $output = t("No se ha realizado la configuración de la vista Para este tipo de proceso") . '. ' . l(t("Configurar"), 'admin/settings/ente_planificador/explicacion');
  }
  $url = $_REQUEST['destination'] ? $_REQUEST['destination'] : 'planificacion/' . $ente_planificador->nid . '/explicacion/' . $tipo;
  $links = array();
  $links[] = l(t('Regresar'), $url);
  return $output . theme('item_list', $links);
}

/*
 * Implementation of ente_planificador_view_causas_criticas_description()
 */
function ente_planificador_view_causas_criticas_description($ente_planificador) {
  global $user;
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $texto = t('Consultar Causas Críticas');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title($texto);
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje("causas_criticas", $ente_planificador);
  }
  else {
    $ente = usuario_tiene_ente($user->uid);
    if (user_access('admin all planificador') || $ente->nid == $ente_planificador->nid) {
      muestra_mensaje("causas_criticas", $ente_planificador, 0);
      $ente_has_acceso = TRUE;
    }
  }
  $description = variable_get('causas_criticas_description', FALSE);
  $header = array();
  $header[] = array('data' => t('Descriptores'));
  $header[] = array('data' => t('Causa Critica'));
  $header[] = array('data' => t('Formas de Solución'));
  if ($description) {  
    $header[] = array('data' => t('Metas')); 
    $header[] = array('data' => t('Sectores')); 
    $header[] = array('data' => t('Formas de Solución')); 
    $header[] = array('data' => t('Palabras claves'));
  } 
  if ($description && $ente_has_acceso) {
    $header[] = array('data' => t('Action')); 
  }
  $year = variable_get('situacional_actual_preliminar_anho_creacion', 0);
  $tipo_plan = CAUSA_CRITICA_PLAN;
  $planns = _situacion_actual_preliminar_get_planns();
  $plan = $planns[$tipo_plan];
  $descriptores = _get_situacion_actual_listar_all_descriptores($ente_planificador->nid, $plan, $year);
  $seleccionadas = _get_causas_all_causas($ente_planificador->nid, $plan, $year, 'criticas');
  $rows = array();
  $causas_load = array();
  foreach($descriptores as $descriptor) {
    $row = array();
    $row[] = array('data' =>  $descriptor['body'], 'rowspan' => count($seleccionadas[$descriptor['nid']]));
    foreach($seleccionadas[$descriptor['nid']] as $nid) {
      if (!isset($causas_load[$nid])) {
        $causas_load[$nid] = node_load($nid);
      }
      $causa = $causas_load[$nid];
      $row[] = array('data' =>  $causa->body,);
      $campos = array(
        'field_causa_solucion' => 'field_causa_solucion',
      );
      if ($description) {
        $campos['field_causa_metas'] = 'field_causa_metas';
        $campos['field_causa_sectores'] = 'field_causa_sectores';
        $campos['field_causa_solucion'] = 'field_causa_solucion';
        $campos['field_causa_palabras'] = 'field_causa_palabras';
      }
      foreach($campos as $campo) {
        $lista = array();
        if (is_array($causa->{$campo}) && count($causa->{$campo})) {
          foreach ($causa->{$campo} as $valor) {
            $lista[] = $valor['value'];
          }
        }
        $row[] = array('data' => theme('item_list', $lista),);
      }
      if (variable_get('causas_criticas_description', FALSE) && $ente_has_acceso) {
        $row[] = array(
          'data' => l(t('Describir causa'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/description/' . $causa->nid)
        );
      }
      $rows[] = $row;
      $row = array();
    }
  }
  if (!count($rows)) {
    $row = array();
    $row[] = array(
      'data' => t('No se han seleccionados las posibles causas críticas'),
      'colspan' => count($header),
      'align' => 'center'
    );
    $rows[] = $row;
  }
  return theme('table', $header, $rows);
}

/*
 * Implementation of causas_criticas_select_causas_descriptores_form()
 */
function causas_criticas_select_causas_descriptores_form($form_state, $ente_planificador, $node) {
  global $user;
  if (!variable_get('causas_criticas_description', FALSE)) {
    drupal_not_found();
  }
  $breadcrumb[] = l(t('Home'), '<front>');
  $breadcrumb[] = l(t('Explicación Situacional'), 'planificacion/' . $ente_planificador->nid . '/explicacion');
  $breadcrumb[] = l(t('Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas');
  $breadcrumb[] = l(t('Consultar Causas Críticas'), 'planificacion/' . $ente_planificador->nid . '/explicacion/causas/description');
  $texto = t('Describir causa');
  $breadcrumb[] = $texto;
  drupal_set_breadcrumb($breadcrumb);
  drupal_set_title(t('Describir la causa critica @causa', array('@causa' => $node->body)));
  $mi_fecha = ente_planificador_user_acceso_proceso("causas_criticas", $ente_planificador);
  $current_time = time();
  $fecha = FALSE;
  if ($mi_fecha[1]  + 86399 > $current_time && $mi_fecha[0] < $current_time) {
    $fecha = TRUE;
  }
  if (!$fecha) {
    muestra_mensaje("causas_criticas", $ente_planificador);
  }
  else {
    $ente = usuario_tiene_ente($user->uid);
    if (user_access('admin all planificador') || $ente->nid == $ente_planificador->nid) {
      muestra_mensaje("causas_criticas", $ente_planificador, 0);
    }
  }
  $form = array();
  $form['#node'] = $node;
  $form['#ente_planificador'] = $ente_planificador;
  module_load_include('inc', 'content', 'includes/content.node_form');
  $fields = array('field_causa_descriptores', 'field_causa_metas', 'field_causa_sectores', 'field_causa_solucion', 'field_causa_palabras');
  module_load_include('inc', 'content', 'includes/content.node_form');
  foreach($fields as $campo) {
    $field = content_fields($campo, $form['#node']->type);
    $form['#field_info'][$campo] = $field;
    $form += (array) content_field_form($form, $form_state, $field);
  }
  $form['#fields_causas'] = $fields;
  $form['buttons']['#weight'] = 100;
  $form['buttons']['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Submit'),
    '#weight' => 100,
  );
  $form['buttons']['cancel'] = array(
    '#type' => 'submit',
    '#value' => t('Cancel'),
    '#weight' => 101,
  );
  return $form;
}

/*
 * Implementation of causas_criticas_select_causas_descriptores_form_submit()
 */
function causas_criticas_select_causas_descriptores_form_submit($form, &$form_state) {
  if (!$_REQUEST['destination']) {
    // add redirect
    $form_state['redirect'] = 'planificacion/' . $form['#ente_planificador']->nid . '/explicacion/causas/description'; 
  }
  $op = isset($form_state['values']['op']) ? $form_state['values']['op'] : '';
  if ($op == t('Cancel')) {
    return;
  }
  $causa_load = $form['#node'];
  //se obtienen los descriptores
  $field_form = $form['#fields_causas'];
  $form_values = $form_state['values'];
  if (is_array($field_form) && count($field_form)) {
    foreach ($field_form as $field_id) {
      if (isset($form_values[$field_id]) && is_array($form_values[$field_id])) {
        foreach($form_values[$field_id] as $id => $value) {
          if (is_numeric($id) && isset($form_values[$field_id][$id]['_error_element'])) {
            unset($form_values[$field_id][$id]['_error_element']);
          }
        }
        $causa_load->{$field_id} = $form_values[$field_id];
      }
    }
  }
  module_load_include('inc', 'node', 'node.pages');
  node_object_prepare($causa_load);
  $causa_load->log = t('Modificada la descripción de la causa');
  $causa_load->revision = 1;
  node_save($causa_load);
  drupal_set_message(t('Se agregaron los descriptores de la causa crítica'));
  if (!$_REQUEST['destination']) {
    // add redirect
    $form_state['redirect'] = 'planificacion/' . $form['#ente_planificador']->nid . '/explicacion/causas/description'; 
  }
}

/*
 * hook_form_alter()
 */
function causas_criticas_form_alter(&$form, $form_state, $form_id) {
  //impedir que los campos sean borrados con la interfaz
  if ($form_id == 'content_field_overview_form' &&  $form['#type_name'] == 'causas'){
    $arreglo = array('field_causas_relacion', 'field_causa_posible', 'field_causa_critica', 'field_causa_descriptores', 'field_causa_metas', 'field_causa_sectores', 'field_causa_solucion', 'field_causa_palabras');
    foreach ($arreglo as $valor) {
      if (isset($form[$valor]['remove']['#value'])) {
        $form[$valor]['remove']['#value'] = '';
      }
    }
  }
  if ($form_id == 'content_field_remove_form' &&  $form['type_name']['#value'] == 'causas'){
    $arreglo = array('field_causas_relacion', 'field_causa_posible', 'field_causa_critica', 'field_causa_descriptores', 'field_causa_metas', 'field_causa_sectores', 'field_causa_solucion', 'field_causa_palabras');
    foreach ($arreglo as $valor) {
      if($form['field_name']['#value'] == $valor) {
        $form['actions']['submit']['#access'] = FALSE;
        $form['description']['#value'] = t('Acción no permitida este campo ha sido agregado por un modulo.');
      }
    }
  }
  if ($form_id == 'situacional_actual_preliminar_admin_settings') {
    $form['causas_criticas_description'] = array(
      '#type' => 'checkbox',
      '#title' => t('Permitir agregar Descripción de las Causas Criticas.'),
      '#default_value' => variable_get('causas_criticas_description', FALSE),
      '#weight' => -10,
    );
    $planns = array(
      'situacion_objetivo' => t('Situación Objetivo'),
     );
     $tipos = array(
      'situacion_objetivo' => t('Situación Objetivo'),
     );
     $options = array('_none' => 'Ninguna');
     $views = views_get_all_views();
     foreach ($views as $view) {
       $options[$view->name] = $view->human_name;
     }
     foreach ($planns as $plan => $title) {
      $tipo = $plan;
      $form['situacional_actual_preliminar_views']['situacion_actual_preliminar_' . $plan] = array(
        '#title' => $title,
        '#type' => 'fieldset',
      );
      foreach ($tipos as $name => $value) {
        $sap_name = 'situacion_actual_preliminar_' . $plan;
        $form['situacional_actual_preliminar_views'][$sap_name][$sap_name . '_' . $name] = array(
          '#title' => $value,
          '#type' => 'select',
          '#default_value' => variable_get($sap_name . '_' . $name, 0),
          '#description' => t('Seleccione la vista para el proceso de <strong> @plan</strong>', array('@plan' => $title)),
          '#options' => $options,
          '#ahah' => array(
            'event' => 'change',
              'path' => 'situacional_actual_preliminar_views_js/' . $plan. '/' . $name,
              'wrapper' => 'situacion_actual_preliminar_display_views_' . $plan . '_' . $name,
              'method' => 'replace',
              'progress' => array('type' => 'bar', 'message' => t('Please wait...')),
          ),
        );
        if (!variable_get('situacion_actual_preliminar_display_views_' . $plan . '_' . $name, 0)) {
          $form['situacional_actual_preliminar_views'][$sap_name]['situacion_actual_preliminar_display_views_' . $plan . '_' . $name] = array(
            '#prefix' => '<div id="situacion_actual_preliminar_display_views_' . $plan . '_' . $name . '">',
            '#suffix' => '</div>',
            '#type' => 'hidden',
          );
        }
        else {
          $view =  views_get_view(variable_get($sap_name . '_' . $name, 0));
          foreach ($view->display as $key => $display) {
            $options_display[$key] = $display->display_title;
          }
          $form['situacional_actual_preliminar_views'][$sap_name]['situacion_actual_preliminar_display_views_' . $plan . '_' . $name] = array(
            '#title' => t("Seleccione el display de la vista"),
            '#type' => 'select',
            '#default_value' => variable_get('situacion_actual_preliminar_display_views_' . $plan . '_' . $name, 0),
            '#options' => $options_display,
            '#prefix' => '<div id="situacion_actual_preliminar_display_views_' . $plan . '_' . $name . '">',
            '#suffix' => '</div>',
          );
        }
      }
    }
  }
}