source: sipp/0.3-stable-modules/ente_planificador_sipp/ente_planificador_sipp.install @ a0b4327

<?php
  /**
  * Sistema Automatizado para la Planificación Estratégico-Situacional en la Administración Pública Venezolana
  * @file entes_planificadores_toolbar.install
  * 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 - Ing. Luis Gerardo Peña Camacho
  * @date 2013-01-31 // (a&#241;o-mes-dia)
  * @version 0.1 // (0.1)
  *
  */

module_load_include('module', 'workflow', 'workflow');

/*
 * Implementación del hook_install del ente_planificador_sipp
 */
function ente_planificador_sipp_install() {
  //colocar el modulo ente planificador sipp de los ultimos a leer 
  db_query("UPDATE {system} SET weight = 6 WHERE name = 'ente_planificador_sipp'");
  
  create_roles_sipp();
  create_permission_roles_sipp();
  
  //Nombre del Flujo de trabajo, estados y transición de Proyectos Operativos   
  $name_wf_po="Proyectos_Operativos";  
  $states_wf_po=array(
    Preingresado,
    Ingresado,
    Enviado_a_supervisor,
    Enviado_a_control,
    Aprobado,
    Devuelto_a_control,
    Devuelto_a_enlace,
    Anulado
    );  
  //Definición de las reglas de trasnsición Proyectos Operativos
  $reglas_transicion_po[t('(creation)')]['Preingresado']['author'] = 1;
  $reglas_transicion_po[t('(creation)')]['Preingresado']['Enlace'] = 1;
  $reglas_transicion_po['Ingresado']['Anulado']['Enlace'] = 1;
  $reglas_transicion_po['Ingresado']['Enviado_a_supervisor']['Enlace'] = 1;
  $reglas_transicion_po['Enviado_a_supervisor']['Devuelto_a_enlace']['Supervisor'] = 1;
  $reglas_transicion_po['Enviado_a_supervisor']['Enviado_a_control']['Supervisor'] = 1;
  $reglas_transicion_po['Enviado_a_control']['Aprobado']['Control'] = 1;
  $reglas_transicion_po['Enviado_a_control']['Devuelto_a_enlace']['Control'] = 1; //Hacer envio de mensaje a supervisor (notificación)
  $reglas_transicion_po['Aprobado']['Devuelto_a_control']['Administrador'] = 1; //Solo Administrador puede des-aprobar un proyecto operativo
  $reglas_transicion_po['Devuelto_a_control']['Aprobado']['Control'] = 1;
  $reglas_transicion_po['Devuelto_a_control']['Devuelto_a_enlace']['Control'] = 1;
  $reglas_transicion_po['Devuelto_a_enlace']['Anulado']['Enlace'] = 1;
  $reglas_transicion_po['Devuelto_a_enlace']['Enviado_a_supervisor']['Enlace'] = 1;
  $reglas_transicion_po['Anulado']['Preingresado']['Administrador'] = 1;
  
  $tab_roles_po=array(    
    Administrador,
    Enlace,
    Supervisor,
    Control    
  );
  
  //Nombre del Flujo de trabajo, estados y transición de Acciones Centralizadas
  $name_wf_ac="Acciones_Centralizadas";  
  $states_wf_ac=array(
    Ingresadas,
    Enviadas_a_supervisor,
    Devueltas_a_enlace,
    Enviadas_a_control,
    Aprobadas,
    Devueltas_a_control,
        Anulada
    );
  //Definición de las reglas de trasnsición Acciones Centralizadas
  $reglas_transicion_ac[t('(creation)')]['Ingresadas']['author'] = 1;
  $reglas_transicion_ac[t('(creation)')]['Ingresadas']['Enlace'] = 1;
  $reglas_transicion_ac['Ingresadas']['Enviadas_a_supervisor']['Enlace'] = 1;
  $reglas_transicion_ac['Enviadas_a_supervisor']['Enviadas_a_control']['Supervisor'] = 1; //enviadas a Supervisor -> enviadas a control (supervisor)
  $reglas_transicion_ac['Enviadas_a_supervisor']['Devueltas_a_enlace']['Supervisor'] = 1;
  $reglas_transicion_ac['Enviadas_a_control']['Aprobadas']['Control'] = 1;                                      //enviadas a control -> aprobadas (control)
  $reglas_transicion_ac['Enviadas_a_control']['Devueltas_a_enlace']['Control'] = 1;             //enviadas a control -> devueltas a enlace (control)
  $reglas_transicion_ac['Devueltas_a_enlace']['Enviadas_a_supervisor']['Enlace'] = 1;
  $reglas_transicion_ac['Aprobadas']['Devueltas_a_control']['Administrador'] = 1;
  $reglas_transicion_ac['Devueltas_a_control']['Devueltas_a_enlace']['Control'] = 1;            //Devueltas_a_control -> devueltas a enlace (control)
  $reglas_transicion_ac['Devueltas_a_control']['Aprobadas']['Control'] = 1;

  $tab_roles_ac=array(
    Administrador,
    Enlace,
    Supervisor,
    Control    
  );
     
  //Creando el Workflow de Proyectos Operativos del proyecto SIPP  
  $wid_po=create_workflow_sipp($name_wf_po, $states_wf_po);
  //Generando las transiciones del Workflow
  workflow_transition_for_sipp($wid_po,$reglas_transicion_po);
  update_tab_roles_workflow($wid_po, $tab_roles_po);
  
  //Creando el Workflow de Acciones Centralizadas del proyecto SIPP  
  $wid_ac=create_workflow_sipp($name_wf_ac, $states_wf_ac);
  //Generando las transiciones del Workflow
  workflow_transition_for_sipp($wid_ac,$reglas_transicion_ac);
  update_tab_roles_workflow($wid_ac, $tab_roles_ac);
  content_notify('install', 'ente_planificador_sipp');
}  

/*
 * Implementacion del hook_uninstall() del ente_planificador_sipp
 */
function ente_planificador_sipp_uninstall() {  
        db_query("DELETE FROM {variable} WHERE name LIKE '%s'", 'ente_planificador_sipp_%');  
        content_notify('uninstall', 'ente_planificador_sipp');  
        //Eliminando permisos y roles del SIPP
        $roles = array("Administrador", "Enlace", "Supervisor", "Control");
        foreach ($roles as $rol) {
                $rid_role = get_rid_role_sipp($rol);
                if (!is_null($rid_role)){
                        db_query('DELETE FROM {permission} WHERE rid = %d', $rid_role);      
                        db_query("DELETE FROM {role} WHERE rid = %d", $rid_role);    
                        drupal_set_message(t('Se elimino el rol @name_rol y sus permisos asignados en el sistema SIPP', array('@name_rol' => $rol),'status'));
                }
        };
        //Eliminado Workflow del SIPP
        $workflow_sipp = array("Proyectos_Operativos", "Acciones_Centralizadas");
        foreach ($workflow_sipp as $name_wf){
                $wid_workflow = get_wid_workflow_sipp($name_wf);
      if (!is_null($wid_workflow)){
                   workflow_deletewf($wid_workflow);
                   drupal_set_message(t('Se elimino el Workflow @wf con workflow id(wid): @wid', array('@wf' => $name_wf, '@wid' => $wid_workflow ),'status'));         
                
                }
           //$wid_workflow = db_result(db_query("SELECT wid FROM {workflows} WHERE name = '%s'", $name_wf));    

        };
}

function create_workflow_sipp($name_wf, $states_wf){
  $wid = workflow_create($name_wf);  
  foreach($states_wf as $i => $value) {
    $state_wf = array('wid' => $wid, 'state' => $value, 'weight' => $i+1);
    $sid = workflow_state_save($state_wf);    
  }  
  variable_set('ente_planificador_sipp_wf_' . $name_wf, $wid);  
  return $wid;
}

function workflow_transition_for_sipp($wid,$reglas_transicion){
  $transition = array();
  $roles = workflow_get_roles();
  $states = workflow_get_states($wid);    
  
  foreach ($states as $state_id => $name) {    
    foreach ($states as $nested_state_id => $nested_name) {    
      if ($nested_name == t('(creation)')) {
        // Don't allow transition TO (creation).
        continue;
      }      
      if ($nested_state_id != $state_id) {
        // Need to generate checkboxes for transition from $state to $nested_state.
        $from = $state_id;
        $to = $nested_state_id; 
        foreach ($roles as $rid => $role_name) {                    
          if($reglas_transicion[$name][$nested_name][$role_name] == 1){     
            $transition[$from][$to][$rid]=TRUE;
          }
          else
            $transition[$from][$to][$rid]=0;      
        }
      }
    }
  }  
  workflow_update_transitions($transition);  
}

function update_tab_roles_workflow($wid, $tab_roles_wf){
  $tab_roles = array();  
  $roles = workflow_get_roles();
  foreach ($tab_roles_wf as $id_role_wf => $name_role_wf){
    foreach ($roles as $rid => $role_name){      
      if($name_role_wf == $role_name){  
        $tab_roles[$id_role_wf]=$rid; 
      }      
    }    
  }
  db_query("UPDATE {workflows} SET tab_roles = '%s' WHERE wid = %d", implode(',', $tab_roles), $wid);  
}

function create_roles_sipp(){
  db_query("INSERT INTO {role} (rid, name) VALUES (3, '%s')", 'Administrador');
  db_query("INSERT INTO {role} (rid, name) VALUES (4, '%s')", 'Enlace');
  db_query("INSERT INTO {role} (rid, name) VALUES (5, '%s')", 'Supervisor');
  db_query("INSERT INTO {role} (rid, name) VALUES (6, '%s')", 'Control'); 
}

function create_permission_roles_sipp(){
db_query("INSERT INTO {permission} (rid, perm, tid) VALUES (4, 'edit own planificador, ver planificador, access user profiles, change own username', 0)");
  db_query("INSERT INTO {permission} (rid, perm, tid) VALUES (5, 'edit own planificador, ver planificador, access user profiles, change own username', 0)");
  db_query("INSERT INTO {permission} (rid, perm, tid) VALUES (6, 'admin planificador, edit own planificador, ver planificador, access user profiles, change own username', 0)");
}


function get_rid_role_sipp($role) {
  $result = db_query("SELECT rid FROM {role} WHERE name = '%s'",$role);
  $rid = NULL;
  if ($obj_role = db_fetch_object($result)) {
    $rid = $obj_role->rid;
  };
  return $rid;
}


function get_wid_workflow_sipp($name_wf) {
        $wid_workflow = db_query("SELECT wid FROM {workflows} WHERE name = '%s'", $name_wf);    
        $wid = NULL;
   if ($obj_wid = db_fetch_object($wid_workflow)) {
      $wid = $obj_wid->wid;
  };
  return $wid;
}