class_user.php

Go to the documentation of this file.

<?php

/*
 *   This file is part of NOALYSS.
 *
 *   NOALYSS 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.
 *
 *   NOALYSS 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 NOALYSS; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
// Copyright Author Dany De Bontridder danydb@aevalys.eu
/** 
 * @file
 * @brief Data & function about connected users
 */

/**
 * @brief Data & function about connected users
 *   
 */

require_once NOALYSS_INCLUDE.'/constant.php';
require_once NOALYSS_INCLUDE.'/lib/user_common.php';
require_once NOALYSS_INCLUDE.'/class/class_dossier.php';
require_once NOALYSS_INCLUDE.'/lib/ac_common.php';

class User
{

        var $id;
        var $pass;
        var $db;
        var $admin;
        var $valid;
        var $first_name;
        var $name;
        var $active ;
        var $login ;
        var $password ;
        var $email ;
        
        function __construct(&$p_cn, $p_id = -1)
        {
                // if p_id is not set then check the connected user
                if ($p_id == -1)
                {
                        if (!isset($_SESSION['g_user']))
                        {
                                echo '<h2 class="error">' . _('Session expirée<br>Utilisateur déconnecté') . '</h2>';
                                redirect('index.php', 1);
                                exit();
                        }

                        $this->login =strtolower($_SESSION['g_user']);
                        $this->pass = $_SESSION['g_pass'];
                        $this->lang = (isset($_SESSION['g_lang'])) ? $_SESSION['g_lang'] : 'fr_FR.utf8';
                        $this->valid = (isset($_SESSION['isValid'])) ? 1 : 0;
                        $this->db = $p_cn;
                        $this->id = -1;
                        if (isset($_SESSION['g_theme']))
                                $this->theme = $_SESSION['g_theme'];

                        $this->admin = ( isset($_SESSION['use_admin']) ) ? $_SESSION['use_admin'] : 0;

                        if (isset($_SESSION['use_name']))
                                $this->name = $_SESSION['use_name'];
                        if (isset($_SESSION['use_first_name']))
                                $this->first_name = $_SESSION['use_first_name'];
                        $this->load();
                }
                else // if p_id is set get data of another user
                {
                        $this->id = $p_id;
                        $this->db = $p_cn;
                        $this->load();
                }
        }

        /**\brief load data from database.
         * if this->id == -1, it is unknown so we have to retrieve it
          from the database by the login
         * return -1 if nothing is found
         */

        function load()
        {
                /* if this->id == -1, it is unknown so we have to retrieve it from
                  the database thanks it login */
                if ($this->id < 0)
                {
                        $sql_cond = "   where lower(use_login)=lower($1)";
                        $sql_array = array($this->login);
                }
                else
                {
                        $sql_cond = "   where use_id=$1";
                        $sql_array = array($this->id);
                }
                $sql = "select use_id,
                            use_first_name,
                            use_name,
                            use_login,
                            use_active,
                            use_admin,
                            use_pass,
                            use_email
                        from ac_users ";
                $cn = new Database();
                $Res = $cn->exec_sql($sql . $sql_cond, $sql_array);
                if (($Max = Database::num_row($Res)) == 0)
                        return -1;
                $row = Database::fetch_array($Res, 0);
                $this->id = $row['use_id'];
                $this->first_name = $row['use_first_name'];
                $this->last_name = $row['use_name'];
                $this->name = $row['use_name'];
                $this->active = $row['use_active'];
                $this->login = $row['use_login'];
                $this->admin = $row['use_admin'];
                $this->password = $row['use_pass'];
                $this->email=$row['use_email'];
        }

        function save()
        {

                $Sql = "update ac_users set use_first_name=$1, use_name=$2
             ,use_active=$3,use_admin=$4,use_pass=$5 ,use_email = $7 where use_id=$6";
                $cn = new Database();
                $Res = $cn->exec_sql($Sql, array($this->first_name, $this->last_name, $this->active, $this->admin, $this->pass, $this->id,$this->email));
        }
        function insert()
        {

                $Sql = "INSERT INTO ac_users(
                        use_first_name, use_name, use_login, use_active,  
                        use_admin, use_pass, use_email)
                            VALUES ($1, $2, $3, $4, $5, $6, $7) returning use_id";

                $cn = new Database();
                $this->id= $cn->get_value($Sql, array($this->first_name, $this->last_name, $this->login,1,0, $this->pass,$this->email));
        }

        /**
         * \brief Check if user is active and exists in therepository
         * Automatically redirect, it doesn't check if a user can access a folder
         * \param $silent false, echo an error message and exit, true : exit without warning
         * default is false
         *
          ++ */

        function Check($silent = false, $from = '')
        {

                $res = 0;
                $pass5 = md5($this->pass);

                $cn = new Database();
                $sql = "select ac_users.use_login,ac_users.use_active, ac_users.use_pass,
             use_admin,use_first_name,use_name
             from ac_users
             where ac_users.use_id='$this->id'
             and ac_users.use_active=1
             and ac_users.use_pass='$pass5'";
                $ret = $cn->exec_sql($sql);
                $res = Database::num_row($ret);
                if ($res > 0)
                {
                        $r = Database::fetch_array($ret, 0);
                        $_SESSION['use_admin'] = $r['use_admin'];
                        $_SESSION['use_name'] = $r['use_name'];
                        $_SESSION['use_first_name'] = $r['use_first_name'];
                        $_SESSION['isValid'] = 1;

                        $this->admin = $_SESSION['use_admin'];
                        $this->name = $_SESSION['use_name'];
                        $this->first_name = $_SESSION['use_first_name'];
                        $this->load_global_pref();
                }
                $sql = "insert into audit_connect (ac_user,ac_ip,ac_module,ac_url,ac_state) values ($1,$2,$3,$4,$5)";

                if ($res == 0)
                {
                        $cn->exec_sql($sql, array($_SESSION['g_user'], $_SERVER["REMOTE_ADDR"], $from, $_SERVER['REQUEST_URI'], 'FAIL'));
                        if (!$silent)
                        {
                                echo '<script> alert(\''._('Utilisateur ou mot de passe incorrect').'\')</script>';
                                redirect('index.html');
                        }
                        $this->valid = 0;
                        session_unset();
                        exit - 1;
                }
                else
                {
                        if ($from == 'LOGIN')
                                $cn->exec_sql($sql, array($_SESSION['g_user'], $_SERVER["REMOTE_ADDR"], $from, $_SERVER['REQUEST_URI'], 'SUCCESS'));
                        $this->valid = 1;
                }

                return $ret;
        }

        /**
         * \brief return  the access to a folder,
         * \param $p_dossier id if it is == 0 then we take the value from $_SESSION
         * \return the priv_priv
         *          - X no access
         *          - R has access (normal user)
         
         *
         */

        function get_folder_access($p_dossier = 0)
        {

                if ($p_dossier == 0)
                        $p_dossier = dossier::id();
                if ($this->admin == 1)          return 'R';
                $cn = new Database();

                $sql = "select 'R' from jnt_use_dos where use_id=$1 and dos_id=$2";

                $res = $cn->get_value($sql, array($this->id, $p_dossier));
                
                if ($cn->get_affected()== 0) return 'X';
                return $res;
        }

        /**
         * \brief save the access of a folder
         * \param $db_id the dossier id
         * \param $priv boolean, true then it is granted, false it is removed
         */

        function set_folder_access($db_id, $priv)
        {

            $cn=new Database();
            if ($priv)
            {
                // the access is granted
                $jnt=$cn->get_value("select jnt_id from jnt_use_dos where dos_id=$1 and use_id=$2", array($db_id, $this->id));

                if ($cn->size()==0)
                {

                    $Res=$cn->exec_sql("insert into jnt_use_dos(dos_id,use_id) values($1,$2)", array($db_id, $this->id));
                }
            } 
            else 
            {
                // Access is revoked
                $cn->exec_sql('delete from jnt_use_dos where use_id  = $1 and dos_id = $2 ', array($this->id, $db_id));
            }
        }

    /**
         * \brief check that a user is valid and the access to the folder
         * \param $p_ledger the ledger to check
         * \return the priv_priv
         * - O only predefined operation
         * - W write
         * - R read only
         * - X no access
         *

         *
         */

        function get_ledger_access($p_ledger)
        {
                if ($this->admin == 1 ||
                                $this->is_local_admin(dossier::id()) == 1)
                        return 'W';

                $sql = "select uj_priv from user_sec_jrn where uj_login=$1 and uj_jrn_id=$2";
                $res = $this->db->get_value($sql, array($this->login, $p_ledger));

                if ($res == '')
                        $res = 'X';
                return $res;
        }

        /**
         * \brief get all the available ledgers for the current user
         * \param $p_type = ALL or the type of the ledger (ACH,VEN,FIN,ODS)
         * \param $p_access =3 for Read or WRITE, 2  write, 1 for readonly
         *  \return a double array of available ledgers
          @verbatim
          [0] => [jrn_def_id]
          [jrn_def_type]
          [jrn_def_name]
          [jrn_def_class_deb]
          [jrn_def_class_cred]
          [jrn_type_id]
          [jrn_desc]
          [uj_priv]
          @endverbatim
         */

        function get_ledger($p_type = 'ALL', $p_access = 3)
        {
                if ($this->admin != 1 && $this->is_local_admin() != 1)
                {
                        $sql_type = ($p_type == 'ALL') ? '' : "and jrn_def_type=upper('" . sql_string($p_type) . "')";
                        switch ($p_access)
                        {
                                case 3:
                                        $sql_access = " and uj_priv!= 'X'";
                                        break;
                                case 2:
                                        $sql_access = " and uj_priv = 'W'";
                                        break;

                                case 1:
                                        $sql_access = " and ( uj_priv = 'R' or uj_priv='W') ";
                                        break;
                        }

                        $sql = "select jrn_def_id,jrn_def_type,
                 jrn_def_name,jrn_def_class_deb,jrn_def_class_cred,jrn_type_id,jrn_desc,uj_priv,
                 jrn_deb_max_line,jrn_cred_max_line,jrn_def_description
                 from jrn_def join jrn_type on jrn_def_type=jrn_type_id
                 join user_sec_jrn on uj_jrn_id=jrn_def_id
                 where
                 uj_login='" . $this->login . "'" .
                                        $sql_type . $sql_access .
                                        " order by jrn_Def_name";
                }
                else
                {
                        $sql_type = ($p_type == 'ALL') ? '' : "where jrn_def_type=upper('" . sql_string($p_type) . "')";
                        $sql = "select jrn_def_id,jrn_def_type,jrn_def_name,jrn_def_class_deb,jrn_def_class_cred,jrn_deb_max_line,jrn_cred_max_line,
                 jrn_type_id,jrn_desc,'W' as uj_priv,jrn_def_description
                 from jrn_def join jrn_type on jrn_def_type=jrn_type_id
                 $sql_type
                 order by jrn_Def_name";
                }
                $res = $this->db->exec_sql($sql);
                if (Database::num_row($res) == 0)
                        return null;
                $array = Database::fetch_all($res);
                return $array;
        }

        /**
         * \brief return an sql condition for filtering the permitted ledger
         * \param $p_type = ALL or the type of the ledger (ACH,VEN,FIN,ODS)
         * \param $p_access =3 for READ or WRITE, 2 READ and write, 1 for readonly
         *
         * \return sql condition like = jrn_def_id in (...)
         */

        function get_ledger_sql($p_type = 'ALL', $p_access = 3)
        {
                $aLedger = $this->get_ledger($p_type, $p_access);
                if (empty($aLedger))
                        return ' jrn_def_id < 0 ';
                $sql = " jrn_def_id in (";
                foreach ($aLedger as $row)
                {
                        $sql.=$row['jrn_def_id'] . ',';
                }
                $sql.='-1)';
                return $sql;
        }

        /**
         * \brief  Check if an user is an admin
         *
         * \return 1 for yes 0 for no
         */

        function Admin()
        {
            $this->admin = 0;
                if ($this->login != NOALYSS_ADMINISTRATOR )
                {
                        $pass5 = md5($this->pass);
                        $sql = "select use_admin from ac_users where use_login=$1
                 and use_active=1  ";

                        $cn = new Database();
                        $res = $cn->exec_sql($sql, array($this->login));
                        if (Database::num_row($res) == 0)
                                throw  new Exception(__FILE__ . " " . __LINE__ . " aucun resultat");
                        $this->admin = Database::fetch_result($res, 0);
                }
                else
                        $this->admin = 1;

                return $this->admin;
        }

        /**
         * \brief  Set the selected periode in the user's preferences
         *
         * \param $p_periode periode
         * \param     - $p_user
         *
         */

        function set_periode($p_periode)
        {
                $sql = "update user_local_pref set parameter_value='$p_periode' where user_id='$this->id' and parameter_type='PERIODE'";
                $Res = $this->db->exec_sql($sql);
        }

        private function set_default_periode()
        {

                /* get the first periode */
                $sql = 'select min(p_id) as pid from parm_periode where p_closed = false and p_start = (select min(p_start) from parm_periode)';
                $Res = $this->db->exec_sql($sql);

                $pid = Database::fetch_result($Res, 0, 0);
                /* if all the periode are closed, then we use the last closed period */
                if ($pid == null)
                {
                        $sql = 'select min(p_id) as pid from parm_periode where p_start = (select max(p_start) from parm_periode)';
                        $Res2 = $this->db->exec_sql($sql);
                        $pid = Database::fetch_result($Res2, 0, 0);
                        if ($pid == null)
                        {
                                throw  new Exception( _("Aucune période trouvéee !!!"));
                        }

                        $pid = Database::fetch_result($Res2, 0, 0);
                }

                $sql = sprintf("insert into user_local_pref (user_id,parameter_value,parameter_type)
                     values ('%s','%d','PERIODE')", $this->id, $pid);
                $Res = $this->db->exec_sql($sql);
        }

        /**
         * \brief  Get the default periode from the user's preferences
         *
         * \return the default periode
         *
         *
         */

        function get_periode()
        {

                $array = $this->get_preference();
                if (!isset($array['PERIODE']))
                {
                        $this->set_default_periode();
                        $array = $this->get_preference();
                }
                return $array['PERIODE'];
        }

        /**
         * 
         * \brief return the mini rapport to display on the welcome page
         * \return 0 if nothing if found or the report to display (formdef.fr_id)
         */

        function get_mini_report()
        {
                $array = $this->get_preference();
                $fr_id = (isset($array['MINIREPORT'])) ? $array['MINIREPORT'] : 0;
                return $fr_id;
        }

        /**\brief set the mini rapport to display on the welcome page
         */

        function set_mini_report($p_id)
        {
                $count = $this->db->get_value("select count(*) from user_local_pref where user_id=$1 and parameter_type=$2", array($this->id, 'MINIREPORT'));
                if ($count == 1)
                {
                        $sql = "update user_local_pref set parameter_value=$1 where user_id=$2 and parameter_type='MINIREPORT'";
                        $Res = $this->db->exec_sql($sql, array($p_id, $this->id));
                }
                else
                {
                        $sql = "insert into user_local_pref (user_id,parameter_type,parameter_value)" .
                                        "values($1,'MINIREPORT',$2)";
                        $Res = $this->db->exec_sql($sql, array($this->id, $p_id));
                }
        }
        /**
         * Save the preference , the scope is global, the settings are saved
         * into account_repository
         * @param $key THEME,  LANG , PAGESIZE
         * @param $value value of the key
         */

        function save_global_preference($key, $value)
        {
                $repo = new Database();
                $count = $repo->get_value("select count(*)
            from
            user_global_pref
            where
            parameter_type=$1 and user_id=$2", array($key, $this->login));
                if ($count == 1)
                {
                        $repo->exec_sql("update user_global_pref set parameter_value=$1
                where parameter_type=$2 and user_id=$3", array($value, $key, $this->login));
                }
                elseif ($count == 0)
                {
                        $repo->exec_sql("insert into user_global_pref(user_id,parameter_type,parameter_value)
                values($1,$2,$3)", array($this->login, $key, $value));
                }
        }

        /**
         * \brief  Get the default user's preferences
         * \return array of (parameter_type => parameter_value)
         */

        function get_preference()
        {
                $sql = "select parameter_type,parameter_value from user_local_pref where user_id=$1";
                $Res = $this->db->exec_sql($sql, array($this->id));
                $l_array = array();
                for ($i = 0; $i < Database::num_row($Res); $i++)
                {
                        $row = Database::fetch_array($Res, $i);
                        $type = $row['parameter_type'];
                        $l_array[$type] = $row['parameter_value'];
                }


                return $l_array;
        }

        /**
         * Check if an user can access a module, return 1 if yes, otherwise 0
         * record in audit log
         * This function works only if user is connected to a Folder
         * @param string $p_module menu_ref.me_code
         */
        function check_module($p_module)
        {
                $acc = $this->db->get_value("select count(*) from v_all_menu where p_id = $1
                and me_code=$2", array($this->get_profile(), $p_module));
                if ($acc == 0)
                {
                        $this->audit("FAIL", $p_module);
                        return 0;
                }
                $this->audit("SUCCESS", $p_module);
                return 1;
        }

        /**
         * \brief  Check if an user is allowed to do an action
         * \param p_action_id
         * \return
         *      - 0 no priv
         *      - 1 priv granted
         * @see constant.security.php
         */

        function check_action($p_action_id)
        {
                /*  save it into the log */
                global $audit;
                if ($this->Admin() == 1)
                        return 1;
                if ($this->is_local_admin(dossier::id()) == 1)
                        return 1;

                $Res = $this->db->exec_sql(
                                "select * from user_sec_act where ua_login=$1 and ua_act_id=$2", array($this->login, $p_action_id));
                $Count = Database::num_row($Res);
                if ($Count == 0)
                {
                        if (isset($audit) && $audit == true)
                        {
                                $cn = new Database();
                                $sql = "insert into audit_connect (ac_user,ac_ip,ac_module,ac_url,ac_state) values ($1,$2,$3,$4,$5)";
                                $cn->exec_sql($sql, array($_SESSION['g_user'], $_SERVER["REMOTE_ADDR"], $p_action_id, $_SERVER['REQUEST_URI'], 'FAIL'));
                        }
                        return 0;
                }
                if ($Count == 1)
                        return 1;
                echo "<H2 class=\"error\"> Action Invalide !!! $Count select * from user_sec_act where ua_login='$p_login' and ua_act_id=$p_action_id </H2>";
                exit();
        }

        /**
         * \brief  Get the global preferences from user_global_pref
         *        in the account_repository db
         *
         * \note set $SESSION[g_variable]
         */

        function load_global_pref()
        {
                $cn = new Database();
                // Load everything in an array
                $Res = $cn->exec_sql("select parameter_type,parameter_value from
                            user_global_pref
                            where user_id='" . $this->login . "'");
                $Max = Database::num_row($Res);
                if ($Max == 0)
                {
                        $this->insert_default_global_pref();
                        $this->load_global_pref();
                        return;
                }
                // Load value into array
                $line = array();
                for ($i = 0; $i < $Max; $i++)
                {
                        $row = Database::fetch_array($Res, $i);
                        $type = $row['parameter_type'];
                        $line[$type] = $row['parameter_value'];
                        ;
                }
                // save array into g_ variable
                $array_pref = array('g_theme' => 'THEME', 'g_pagesize' => 'PAGESIZE', 'g_topmenu' => 'TOPMENU', 'g_lang' => 'LANG');
                foreach ($array_pref as $name => $parameter)
                {
                        if (!isset($line[$parameter]))
                        {
                                $this->insert_default_global_pref($parameter);
                                $this->load_global_pref();
                                return;
                        }
                        $_SESSION[$name] = $line[$parameter];
                }
        }

        /**
         * \brief  insert default pref
         *        if no parameter are given insert all the existing
         *        parameter otherwise only the requested
         * \param $p_type parameter's type or nothing
         * \param $p_value parameter value
         *
         */

        function insert_default_global_pref($p_type = "", $p_value = "")
        {

                $default_parameter = array("THEME" => "classic",
                        "PAGESIZE" => "50",
                        'TOPMENU' => 'TEXT',
                        'LANG' => 'fr_FR.utf8');
                $cn = new Database();
                $Sql = "insert into user_global_pref(user_id,parameter_type,parameter_value)
             values ('%s','%s','%s')";
                if ($p_type == "")
                {
                        foreach ($default_parameter as $name => $value)
                        {
                                $Insert = sprintf($Sql, $this->login, $name, $value);
                                $cn->exec_sql($Insert);
                        }
                }
                else
                {
                        $value = ($p_value == "") ? $default_parameter[$p_type] : $p_value;
                        $Insert = sprintf($Sql, $this->login, $p_type, $value);
                        $cn->exec_sql($Insert);
                }
        }

        /**
         * \brief  update default pref
         *           if value is not given then use the default value
         *
         * \param $p_type parameter's type
         * \param $p_value parameter's value value of the type
         */

        function update_global_pref($p_type, $p_value = "")
        {
                $default_parameter = array("THEME" => "classic",
                        "PAGESIZE" => "50",
                        "LANG" => 'fr_FR.utf8',
                        'TOPMENU' => 'SELECT');
                $cn = new Database();
                $Sql = "update user_global_pref set parameter_value=$1
             where parameter_type=$2 and
             user_id=$3";
                $value = ($p_value == "") ? $default_parameter[$p_type] : $p_value;
                $cn->exec_sql($Sql, array($value, $p_type, $this->login));
        }

//end function
        /**\brief Return the year of current Periode
         *        it is the parm_periode.p_exercice col
         *        if an error occurs return 0
         */

        function get_exercice()
        {
                $sql = "select p_exercice from parm_periode where p_id=" . $this->get_periode();
                $Ret = $this->db->exec_sql($sql);
                if (Database::num_row($Ret) == 1)
                {
                        $r = Database::fetch_array($Ret, 0);
                        return $r['p_exercice'];
                }
                else
                        return 0;
        }

        /**\brief Check if the user can access
         * otherwise warn and exit
         * \param $p_action requested action
         * \param $p_js = 1 javascript, or 0 just a text
         * \return nothing the program exits automatically
         */

        function can_request($p_action, $p_js = 0)
        {
                if ($this->check_action($p_action) == 0)
                {
                        $this->audit('FAIL');
                        if ($p_js == 1)
                        {
                                echo "<script>";
                                echo "alert ('Cette action ne vous est pas autorisée. Contactez votre responsable');";
                                echo "</script>";
                        }
                        else
                        {
                                echo '<div class="redcontent">';
                                echo '<h2 class="error"> Cette action ne vous est pas autorisée Contactez votre responsable</h2>';
                                echo '</div>';
                        }
                        exit(-1);
                }
        }

        /**
         *@brief Check if the user can print (in menu_ref p_type_display=p)
         *      otherwise warn and exit
         * @param $p_action requested action
         * @return nothing the program exits automatically
         */
        function check_print($p_action)
        {
                global $audit, $cn;
                $this->audit('AUDIT', $p_action);
                if ($this->Admin() == 1)
                        return 1;
                
                $res = $cn->get_value("select count(*) from profile_menu
                        join profile_user using (p_id)
                        where user_name=$1 and me_code=$2 ", array($this->login, $p_action));
                return $res;
        }

        /**\brief Check if the user can print (in menu_ref p_type_display=p)
         * otherwise warn and exit
         * \param $p_action requested action
         * \return nothing the program exits automatically
         */

        function can_print($p_action, $p_js = 0)
        {
                if ($this->check_print($p_action) == 0)
                {
                        $this->audit('FAIL');
                        if ($p_js == 1)
                        {
                                echo "<script>";
                                echo "alert ('Cette action ne vous est pas autorisée. Contactez votre responsable');";
                                echo "</script>";
                        }
                        else
                        {
                                echo '<div class="redcontent">';
                                echo '<h2 class="error"> Cette action ne vous est pas autorisée Contactez votre responsable</h2>';
                                echo '</div>';
                        }
                        exit(-1);
                }
        }

        /**
         * \brief  Check if an user is an local administrator
         * @deprecated since version 6.7
         *
         *
         * \param $p_dossier : dossier_id
         *
         * \return
         *      - 0 if no
         *      - 1 if yes
         *
         */

        function is_local_admin($p_dossier = -1)
        {
            return 0;
        }
        /**
         *@brief return array of available repository
         *
         * @param $p_access  R for read W for write
         * @return an array
         */
        function get_available_repository($p_access='R')
        {
                 $profile=$this->get_profile();
                 $r=array();
                if ($p_access=='R')
                {
                        $r=$this->db->get_array("select distinct u.r_id,r_name
                from
                                        profile_sec_repository as u
                                        join stock_repository as s on(u.r_id=s.r_id)
                where
                p_id =$1
                and ur_right='W'
                                order by 2
                                ",array($profile));
                }
                if ($p_access == 'W')
                {
                         $r=$this->db->get_array("select distinct u.r_id,r_name
                from
                                        profile_sec_repository as u
                                        join stock_repository as s on(u.r_id=s.r_id)
                where
                p_id =$1 order by 2
               ",array($profile));
                }
                return $r;
        }
        /**
         * \brief return an array with all the active users who can access 
         *  $p_dossier including the global admin. 
         *  The user must be activated
         *
         * \param $p_dossier dossier
         * \return an array of user's  object
         *  array indices
         *    - use_id (id )
         *    - use_login (login of the user)
         *    - use_name
         *    - use_first_name
         *
         * \exception throw an exception if nobody can access
         */

        static function get_list($p_dossier)
        {
                $sql = "select distinct use_id,use_login,use_first_name,use_name from ac_users
             left outer join  jnt_use_dos using (use_id)
             where
              (dos_id=$1 and use_active=1) or (use_active=1 and use_admin=1)
              order by use_login,use_name";


                $repo = new Database();
                $array = $repo->get_array($sql, array($p_dossier));
                if ($repo->size() == 0)
                        throw new Exception('Error inaccessible folder');
                return $array;
        }

        /**
         * \brief check the access of an user on a ledger
         *
         * \param $p_jrn the ledger id
         * \return
         * - O only predefined operation
         * - W write
         * - R read only
         * - X no access
         *
         */

        function check_jrn($p_jrn)
        {
                return $this->get_ledger_access($p_jrn);
        }

        /**
         * \brief check if an user can access a folder, if he cannot display a dialog box
         * and exit
         * \param the folder if
         * \param $silent false, echo an error message and exit, true : exit without warning
         * default is false
         * \return
         *  - L for administrator (local and global)
         *  - X no access
         *  - R regular user
         */

        function check_dossier($p_dossier_id, $silent = false)
        {
                $this->Admin();
                if ($this->admin == 1 || $this->is_local_admin($p_dossier_id) == 1)
                        return 'L';
                $cn = new Database();

                $dossier = $cn->get_value("select 'R' from jnt_use_dos where dos_id=$1 and use_id=$2", array($p_dossier_id, $this->id));
                $dossier = ($dossier == '') ? 'X' : $dossier;
                if ($dossier == 'X')
                {
                        $this->audit('FAIL', "Access folder ");
                        if (!$silent)
                        {
                                alert(_('Dossier non accessible'));
                                exit();
                        }
                }
                return $dossier;
        }

        /**
         * @brief return the first date and the last date of the current exercice for the current user
         * @return and array ([0] => start_date,[1] => end_date)
         */
        function get_limit_current_exercice()
        {
                $current_exercice = $this->get_exercice();
                $periode = new Periode($this->db);
                list($per_start, $per_end) = $periode->get_limit($current_exercice);
                $start = $per_start->first_day();
                $end = $per_end->last_day();
                return array($start, $end);
        }

        /**
         * \brief   Show all the available folder  for the users
         *          at the login page. For the special case 'E'
         *          go directly to extension and bypasse the dashboard
         * \param $p_filtre user
         *
         * \return table in HTML
         *
         */

        function show_dossier($p_filtre = "")
        {
                $p_array = $this->get_available_folder($p_filtre);

                $result = "";
                
                $result.="<TABLE id=\"folder\" class=\"result\">";
                $result.="<tr>";
                $result.="<th>";
                $result.=_("Id");
                $result.="</th>";
                $result.="<th>";
                $result.=_("Nom");
                $result.="</th>";
                $result.="<th>";
                $result.=_("Description");
                $result.="</th>";
                $result.="</tr>";
                if ($p_array == 0) {
                    $result.="<tr>";
                    $result.='<td style="width:auto" colspan=3>';
                    $result.=_("Aucun dossier disponible");
                    $result.='</td>';
                    $result.="</tr>";
                    return $result;
                }
                
                for ($i = 0; $i < sizeof($p_array); $i++)
                {

                        $id = $p_array[$i]['dos_id'];
                        $name = $p_array[$i]['dos_name'];
                        $desc = $p_array[$i]['dos_description'];
                        if ($i % 2 == 0)
                                $tr = "odd";
                        else
                                $tr = "even";
                        $target = "do.php?gDossier=$id";

                        $result.="<TR class=\"$tr\">";

                        $result.=td($id, ' class="num" ');
                        $result.="<TD class=\"$tr\">";
                        $result.="<A class=\"dossier\" HREF=\"$target\">";
                        $result.= "  <B>" . h($name) . "</B>";
                        $result.="</A>";
                        $result.="</TD>";
                        $desc = ($desc == "") ? "<i>Aucune description</i>" : h($desc);
                        $desc = "<A class=\"dossier\" HREF=\"$target\">$desc</A>";
                        $result.="<TD class=\"$tr\" >" . $desc;
                        $result.="</TD>";
                        $result.="</TR>";
                }
                $result.="</TABLE>";
                return $result;
        }

        /**
         * \brief   Get all the available folders
         *          for the users, checked with the security
         *
         * \param  $p_filter
         * \return array containing
         *       - ac_dossier.dos_id
         *       - ac_dossier.dos_name
         *       - ac_dossier.dos_description
         *
         */

        function get_available_folder($p_filter = "")
        {
                $cn = new Database();
                $filter = "";
                if ($this->admin == 0)
                {
                        // show only available folders
                        // if user is not an admin
                        $Res = $cn->exec_sql("select distinct dos_id,dos_name,dos_description 
                            from ac_users
                            natural join jnt_use_dos
                            natural join  ac_dossier
                            where
                            use_login= $1
                            and use_active = 1
                            and ( dos_name ~* $2 or dos_description ~* $2 )
                            order by dos_name", array($this->login, $p_filter));
                }
                else
                {
                        $Res = $cn->exec_sql("select distinct dos_id,dos_name,dos_description from ac_dossier
             where   dos_name ~* $1 or dos_description ~* $1 order by dos_name", array($p_filter));
                }
                require_once NOALYSS_INCLUDE.'/lib/class_database.php';

                $max = Database::num_row($Res);
                if ($max == 0)
                        return 0;

                for ($i = 0; $i < $max; $i++)
                {
                        $array[] = Database::fetch_array($Res, $i);
                }
                return $array;
        }

        function audit($action = 'AUDIT', $p_module = "")
        {
                global $audit;
                if ($audit)
                {
                        if ($p_module == "" && isset($_REQUEST['ac']))
                        {
                                $p_module = $_REQUEST['ac'];
                        }
                        $cn = new Database();
                        if (isset($_REQUEST['gDossier']))
                                $p_module.= " dossier : " . $_REQUEST['gDossier'];
                        $sql = "insert into audit_connect (ac_user,ac_ip,ac_module,ac_url,ac_state) values ($1,$2,$3,$4,$5)";

                        $cn->exec_sql($sql, array(
                                $_SESSION['g_user'],
                                $_SERVER["REMOTE_ADDR"],
                                $p_module,
                                $_SERVER['REQUEST_URI'],
                                $action));
                }
        }

        function save_profile($p_id)
        {
                $count = $this->db->get_value("select count(*) from profile_user where user_name=$1", array($this->login));
                if ($count == 0)
                {
                        $this->db->exec_sql("insert into profile_user(p_id,user_name)
                                                                values ($1,$2)", array($p_id, $this->login));
                }
                else
                {
                        $this->db->exec_sql("update profile_user set p_id=$1 where user_name=$2", array($p_id, $this->login));
                }
        }
        /**
         *return the profile (p_id)
         * @return profile.p_id
         */
        function get_profile()
        {
                $profile = $this->db->get_value("select p_id from profile_user where
                                lower(user_name)=lower($1)", array($this->login));
                return $profile;
        }
        /**
        * Compute the SQL string for the writable profile, 
         * the subselect for p_id , example
        * p_id in $g_user->get_writable_profile.
        * The administrator can access all the profiles
        * @return SQL string with the subselect for p_id 
        */
       function get_writable_profile() 
       {
           if ( $this->admin != 1)
           {
               $sql = " (select p_granted "
                   . "     from user_sec_action_profile "
                   . "     where ua_right='W' and p_id=".$this->get_profile().") ";
           } else {
               $sql = "(select p_id from profile)";
           }
           return $sql;
       }
        /**
        * Compute the SQL string for the readable profile, 
         * the subselect for p_id , example
        * p_id in $g_user->get_readable_profile.
        * The administrator can read all the profiles
        * @return SQL string with the subselect for p_id 
        */
       function get_readable_profile() 
       {
           if ( $this->admin != 1)
           {
               $sql = " (select p_granted "
                   . "     from user_sec_action_profile "
                   . "     where ua_right in ('W','R') and p_id=".$this->get_profile().") ";
           } else {
               $sql = "(select p_id from profile)";
           }
           return $sql;
       }
        /**
         * Check if the current user can add an action in the profile given
         * in parameter
         * @param type $p_profile profile.p_id = action_gestion.ag_dest
         * @return boolean
         */
        function can_add_action($p_profile)
        {
            $r=$this->db->get_value (' select count(*) 
                from user_sec_action_profile
                where p_granted=$2
                and p_id=$1',
                    array($this->get_profile(),$p_profile));
            if ($r == 0 ) 
            {
                return false;
            } 
            return true;
        }
        /**
         *Check if the profile of the user can write for this profile
         * @param  $dtoc action_gestion.ag_id
         * @return true if he can write otherwise false
         */
        function can_write_action($dtoc)
        {
            if ( $this->Admin() == 1 ) return true;
                $profile = $this->get_profile();
                    $r = $this->db->get_value(" select count(*) from action_gestion where ag_id=$1 and ag_dest in
                                (select p_granted from user_sec_action_profile where ua_right='W' and p_id=$2) ", array($dtoc, $profile));
                if ($r == 0)
                        return false;
                return true;
        }

        /**
         *Check if the profile of the user can write for this profile
         * @param  $dtoc action_gestion.ag_id
         * @return true if he can write otherwise false
         */
        function can_read_action($dtoc)
        {
                if ( $this->Admin() == 1 ) return true;
                $profile = $this->get_profile();
                $r = $this->db->get_value(" select count(*) from action_gestion where ag_id=$1 and (ag_dest in
                                (select p_granted from user_sec_action_profile where p_id=$2) or ag_owner=$3)", array($dtoc, $profile, $this->login));
                if ($r == 0)
                        return false;
                return true;
        }
        /**
         *Check if the profile of the user can write for this repository
         * @param  $p_repo stock_repository.r_id
         * @return true if he can write otherwise false
         */
        function can_write_repo($p_repo)
        {
            if ( $this->Admin() == 1 ) return true;
            $profile=$this->get_profile();
            $r=$this->db->get_value("select count(*)
                from profile_sec_repository
                where
                r_id=$1
                and p_id =$2
                and ur_right='W'",array($p_repo,$profile));
            if ( $r==0)
                return false;
            return true;
        }
       /**
         *Check if the profile of the user can read for this repository
         * @param  $p_repo stock_repository.r_id
         * @return true if he read write otherwise false
         */
        function can_read_repo($p_repo)
        {
            if ( $this->Admin() == 1 ) return true;
            $profile=$this->get_profile();
            $r=$this->db->get_value("select count(*)
                from profile_sec_repository
                where
                r_id=$1
                and p_id =$2
               ",array($p_repo,$profile));
            if ( $r==0)
                return false;
            return true;
        }
   function save_password($p_pass1, $p_pass2) {
        if ($p_pass1 == $p_pass2) {
            $repo = new Database();
            $l_pass = md5($_POST['pass_1']);
            $repo->exec_sql("update ac_users set use_pass=$1 where use_login=$2", array($l_pass, $_SESSION['g_user']));
            $_SESSION['g_pass'] = $_POST['pass_1'];
        } else {
            alert(_("Les mots de passe ne correspondent pas. Mot de passe inchangé"));
        }
    }
    /**
     * Save the password from PREFERENCE MODULE
     * @param type $p_email
     */
    function save_email($p_email)
    {
        $repo=new Database();
        $repo->exec_sql("update ac_users set use_email=$1 where use_login=$2", array($p_email, $_SESSION['g_user']));
    }
    /**
     * Remove a user and all his privileges
     * So it cannot connect anymore and all his privileges are removed from
     * the dossier
     * 
     */
    static function revoke_access($p_login,$p_dossier) {
        // connect to the repository
        $repo_cnx=new Database();
        
        // Retrieve the user
        $user=$repo_cnx->get_array('select use_id,use_login from ac_users where use_login=$1',
                array($p_login));
        if ( ! $user ) return false;
        
        // remove him from jnt_use_dos
        $repo_cnx->exec_sql("delete from jnt_use_dos WHERE use_id=$1 and dos_id=$2",
            array($user[0]['use_id'],$p_dossier));

        // Remove user from user's dossier
        $cn_dossier=new Database($p_dossier);
        $cn_dossier->exec_sql("delete from profile_user where user_name=$1",array($p_login));
        $cn_dossier->exec_sql("delete from user_sec_act where ua_login=$1",array($p_login));
            
    }
    
    /**
     * Grant access to folder, grant administrator profile , all the ledgers and all the action
     * 
     */
    static function grant_admin_access($p_login,$p_dossier) 
    {
         $repo_cnx=new Database();
        $user=$repo_cnx->get_array("select use_id,use_login
                                from ac_users
                                where use_login=$1", array($p_login));

        if ( ! $user ) return false;
        $cn_dossier=new Database($p_dossier);
        // if not access to DB
        if ( 
                $repo_cnx->get_value("select count(*) from jnt_use_dos where use_id=$1 and dos_id=$2",
                        array($user[0]['use_id'],$p_dossier)) == 0
                )
        {
            $repo_cnx->exec_sql("insert into jnt_use_dos(use_id,dos_id) values ($1,$2)",
                array($user[0]['use_id'], $p_dossier));
        }
        //------  Give him the admin menu
        if ( $cn_dossier->get_value("select count(*) from profile_user where user_name=$1",
                array($user[0]['use_login'])) == 0)
        {
            $cn_dossier->exec_sql('insert into profile_user(user_name,p_id) values($1,1)',
                    array($user[0]['use_login']));
        }
        // Grant all action + ledger to him
        $cn_dossier->exec_sql("delete from user_sec_act where ua_login=$1",array($p_login));

        $cn_dossier->exec_sql("insert into user_sec_act (ua_login,ua_act_id)"
                ." select $1 ,ac_id from action ",array($p_login));

        $cn_dossier->exec_sql("delete from user_sec_jrn where uj_login=$1",array($p_login));
        $cn_dossier->exec_sql("insert into user_sec_jrn(uj_login,uj_jrn_id,uj_priv)"
                ." select $1,jrn_def_id,'W' from jrn_def",
                        array($p_login));


    }
    static function remove_inexistant_user($p_dossier)
    {
        $cnx_repo=new Database();
        $cnx_dossier=new Database($p_dossier);
        
        $a_user=$cnx_dossier->get_array('select user_name from profile_user');
        if ( ! $a_user ) return;
        $nb=count($a_user);
        for ($i=0;$i < $nb;$i++) {
            if ( $cnx_repo->get_value('select count(*) from ac_users where use_login=$1',
                    array($a_user[$i]['user_name'])) == 0) {
                $cnx_dossier->exec_sql("delete from user_sec_jrn where uj_login=$1",array($a_user[$i]['user_name']));
                $cnx_dossier->exec_sql("delete from profile_user where user_name=$1",array($a_user[$i]['user_name']));
                $cnx_dossier->exec_sql("delete from user_sec_act where ua_login=$1",array($a_user[$i]['user_name']));
                $cnx_dossier->exec_sql("delete from user_sec_jrn where uj_login=$1",array($a_user[$i]['user_name']));
            }
        }
    }
}

?>