inc_intra.php

<?php
/**
 *
 * eiseIntra core
 * ===
 *
 * Authentication, form elements display, data handling routines
 *
 *
 * @package eiseIntra
 * @version 2.3
 *
 */

GLOBAL $eiseIntraKey;

include "inc_version.php";
include "inc_config.php";
if (!class_exists('eiseSQL')) 
    include "inc_mysqli.php";
include "inc_intra_data.php";
include "inc_item.php";

//define('jQueryVersion', '3.3.1'); // you can re-define this constant in your script if you need more modern jQUery version
//define('jQueryVersion', '1.6.1');
define('jQueryVersion', '1.12.4');

/**
 * eiseIntra is the core class that encapsulates routines for authenication, form elements display, data handling, redirection and debug.
 *
 * This class extends eiseIntraData as base class.
 */
class eiseIntra extends eiseIntraData {

/**
 * Array with data of currently logged user:  
 * - all user data from stbl_user table:
 *      - usrID - user ID
 *      - usrName - user name
 *      - usrNameLocal - user name in local language
 *      - usrPass - user password (password hash)
 *      - usrFlagDeleted - is user account deleted or not
 *      - usrPhone - user's office phone
 *      - usrEmail - user's email address
 *      - usrEmployeeID - employee table's ID
 *      - usrGUID - user GUID
 *      - usrCN - canonical name of the user
 *      - usrMobile - user's mobile phone
 *      - usrInsertBy - user ID who added the user
 *      - usrInsertDate - when user was added
 *      - usrEditBy - user ID who changed the user
 *      - usrEditDate - when user record was changed
 * - pagID - database page ID
 * - pagTitle (string) - page title in English
 * - pagTitleLocal (string) - page title in local language
 * - FlagRead (string*) - always '1'
 * - FlagCreate (string*) - '0' or '1', as set in database
 * - FlagUpdate (string*) - '0' or '1', as set in database
 * - FlagDelete (string*) - '0' or '1', as set in database
 * - FlagWrite (string*) - '0' or '1', as set in database
 * - array roles - array of role titles in currently selected language. Example: `['Managers', 'Users']`
 * - array roleIDs - array of role IDs. Example: `['MNG', 'USR']`
 *
 * (*) - type is 'string' because of PHP function mysql_fetch_assoc()'s nature. It fetches anything like strings despite actual data type in the database.
 * 
 *
 * For more details on how and when this data is obtained, please proceed to [eiseIntra::checkPermissions()](#eiseintra-checkpermissions). 
 *
 * @category Authentication
 */
public $arrUsrData = array();

/**
 * ID of current user.
 *
 * @category Authentication
 */
public $usrID = null;

/**
 * Configuration array. See description at [eiseIntra::$defaultConf](#eiseintra-deafultconf)
 */
public $conf = array();

/**
 * Buffer array with field types that's been generated by the form.
 * @category Forms
 */
public $fieldTypes = array();

private $arrHTML5AllowedInputTypes = 
    Array("color"
        #, "date", "datetime", "datetime-local", "time"
        , "email", "month", "number", "range", "search", "tel", "url", "week", "password", "text", "file");

private $arrClassInputTypes = 
    Array("ajax_dropdown", "date", "datetime", "datetime-local", "time");

/**
 * Default configuration. Exact configuration parameters list is:
 * 
 * - 'dateFormat' - date format, default is "d.m.Y" 
 * - 'prgDate' - regular expression for input validation/converion
 * - 'prgDateReplaceTo' - replace parameter for preg_replace() for dates, to convert dates from local format to ISO
 * - 'timeFormat' - time format, default is "H:i" (24-hours time), both are according to PHP date() format function
 * - 'prgTime' - regular expression for input validation
 * - 'decimalPlaces' - default decimal places, "2" by default
 * - 'decimalSeparator' - decimal seprator, default is "."
 * - 'thousandsSeparator' - default is ","
 * - 'language' - local language, default is 'rus'
 * - 'logofftimeout' - log off timeout in minutes, default is 360 //6 hours
 * - 'addEiseIntraValueClass' - setting for for display true
 * - 'keyboards' - available keyboard variations (default are 'EN,RU')
 * - 'system' - eiseIntra path, last slash stripped (default is `ltrim(dirname($_SERVER['PHP_SELF']), '/')`
 * - 'dataActionKey' - 'DataAction', GET or POST key for data update or retrieval
 * - 'dataReadKey' - 'DataAction', GET or POST key for data update or retrieval
 * - 'flagSetGlobalCookieOnRedirect' - see [eiseIntra::getCookiePath()](#eiseintra-getcookiepath) function for details, default is false
 * - 'cachePreventorVar' - Query string parameter for cache prevention in link elements with CSS and JSS. E.g. 
 * - 'cookiePath' -  `(isset($eiseIntraCookiePath) ? $eiseIntraCookiePath : '/')`
 * - 'cookieExpire' - see [eiseIntra::getCookiePath()](#eiseintra-getcookiepath) function for details
 * - 'UserMessageCookieName' - for cookie used to store user messages, default is 'eiMsg'
 * - 'defaultPage' - the page that user see right after authentication. 
 *
 * @category Initialization
 */
public static $defaultConf = array(
        'versionIntra'=>EISEINTRA_VERSION
        , 'dateFormat' => "d.m.Y" // 
        , 'timeFormat' => "H:i" // 
        , 'decimalPlaces' => "2"
        , 'decimalSeparator' => "."
        , 'thousandsSeparator' => ","
        , 'language' => 'rus'
        , 'logofftimeout' => 360 //6 hours
        , 'addEiseIntraValueClass' => true
        , 'keyboards' => 'EN,RU'
        , 'dataActionKey' => 'DataAction'
        , 'dataReadKey' => 'DataAction'
        , 'cachePreventorVar' => 'nc'
        , 'system' => 'nc'
        , 'cookiePath' => 'nc'
        , 'cookieExpire' => 'nc'
//       , 'flagSetGlobalCookieOnRedirect' = false
        , 'selItemMenu' => null
        , 'selItemTopLevelMenu' => null
        , 'defaultPage' => 'about.php'
        , 'pass_hash' => 'md5'
    );

static $arrKeyboard = array(
        'EN' =>   'qwertyuiop[]asdfghjkl;\'\\zxcvbnm,./QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?'
        , 'RU' => 'йцукенгшщзхъфывапролджэёячсмитьбю/ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЁЯЧСМИТЬБЮ?'
    );

/**
 * Constructor receives eiseSQL object with database connection as input parameter and performs object initialization with configuration options supplied in $conf array.
 *
 * @category Authentication
 * @category Initialization
 * 
 * @param eiseSQL $oSQL - MySQL connection object.
 * @param array $conf - associative array with configuration options. Defaults are set at [eiseIntra::$defaultConf](#eiseintra-deafultconf)
 */
function __construct($oSQL = null, $conf = Array()){ //$oSQL is not mandatory anymore

    GLOBAL $eiseIntraCookiePath
        , $eiseIntraCookieExpire
        , $eiseIntraUserMessageCookieName
        , $localLanguage
        , $flagNoAuth;

    $this->conf = self::$defaultConf;

    $this->conf['system'] = ltrim(dirname($_SERVER['PHP_SELF']), '/');
    $this->conf['cookiePath'] = (isset($eiseIntraCookiePath) ? $eiseIntraCookiePath : '/');
    $this->conf['cookieExpire'] = (isset($eiseIntraCookieExpire) ? $eiseIntraCookieExpire : null);
    $this->conf['UserMessageCookieName'] = ($eiseIntraUserMessageCookieName ? $eiseIntraUserMessageCookieName: 'eiMsg');

    $this->conf = array_merge($this->conf, $conf);

    parent::__construct($oSQL, $this->conf);

    $this->buildLess();

    $this->requireComponent('base');

    if (!$flagNoAuth || $this->conf['context']) {

        try {

            $this->checkPermissions();

        } catch (eiseException $e) {
            
            if(!$this->conf['context']){

                switch($e->getCode()){
                    case 401:
                        $PageNoAuth = $_SERVER["PHP_SELF"].($_SERVER["QUERY_STRING"]!="" ? ("?".$_SERVER["QUERY_STRING"]) : "");
                        SetCookie("PageNoAuth", $PageNoAuth);
                        header ("Location: login.php?error=".$e->getMessage()
                             //.'&noauth='.urlencode($PageNoAuth)
                            );
                        die();
                    default:
                        $backref = $this->backref(false);
                        if($backref){
                            $this->redirect('ERROR: '.$e->getMessage(), $backref);
                        } else
                            die($e->getMessage());
                }
            
            } else {
                throw $e;
            }
        }

    }

    $this->readSettings();

    $this->checkLanguage();
    if ($this->local){
        @include "common/lang.php";
        $this->lang = ($lang ? $lang : array());
    }

}

/**
 * Function decodes authstring login:password
 * using decrypt() method 
 *
 * @category Authentication
 * 
 * @param string $authstring - Encoded string
 *
 * @return array `[string $login, string $password]`
 */
function decodeAuthString($authstring, $flagBase64 = false){

    $auth_str = ($flagBase64 ? base64_decode($authstring) : $this->decrypt($authstring));
        
    preg_match("/^([^\:]+)\:([\S ]+)$/i", $auth_str, $arrMatches);

    return Array($arrMatches[1], $arrMatches[2]);
}

/**
 * Function encodes authstring login:password
 * using encrypt() method.
 *
 * @category Authentication
 * 
 * @param string $login Login
 * @param string $password Password
 *
 * @return string Encoded authentication string.
 */
function encodeAuthString($login, $password){

    return $this->encrypt($login.':'.$password);

}

/**
 * This function returns combination of global variable $eiseIntraKey  
 * stored at eiseIntra's inc_config.php and server variable EISINTRA_KEY that can be set in Nginx or Apache config.
 * Key length is set to 128-bit (32 bytes/chars).
 * 
 * If concatentated key length is less that 32 bytes, all remaining places are padded with zeros (0).
 *
 * When both keys are not set, function returns false and eiseIntra::encrypt() and eiseIntra::decrypt() are forced to work only as base64 encoder/decoder.
 *
 * @return string Key or false, if both key parts are empty.
 *
 */
function getEncryptionKey(){

    GLOBAL $eiseIntraKey;

    $keylen = 32;
    $key = substr($eiseIntraKey.$_SERVER['EISEINTRA_KEY'], 0, $keylen);
    $ll = $keylen - strlen($key);
    if(!$key)
        return false;
    else 
        return ($ll>0
            ? str_pad($key, $keylen, '0')
            : $key
            );
}

/**
 * Function encrypts a string with symmetric encryption 
 * using the key obtained from getEncryptionKey() method and current encoding algorithm 
 * (now RIJNDAEL_256 and mcrypt). In case mcrypt is missed in PHP or encryption key is empty, it encodes string with base64. 
 *
 * @category Authentication
 * 
 * @param string $encrypt String to be encrypted.
 *
 * @return string Encrypted string.
 */
function encrypt($encrypt) {
    $key = $this->getEncryptionKey();

    if(!$key ||  !is_callable('mcrypt_encrypt')){
        return base64_encode($encrypt);
    }

    $encrypt = serialize($encrypt);
    $iv = mcrypt_create_iv(mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_CBC), MCRYPT_DEV_URANDOM);
    $key = pack('H*', $key);
    $mac = hash_hmac('sha256', $encrypt, substr(bin2hex($key), -32));
    $passcrypt = mcrypt_encrypt(MCRYPT_RIJNDAEL_256, $key, $encrypt.$mac, MCRYPT_MODE_CBC, $iv);
    $encoded = base64_encode($passcrypt).'|'.base64_encode($iv);
    return $encoded;
}
 
/**
 * Function decrypts a string with symmetric decryption 
 * using the key obtained from getEncryptionKey() method and current encoding algorithm 
 * (now RIJNDAEL_256 and mcrypt). In case mcrypt is missed in PHP, it encodes string with base64. 
 *
 * @category Authentication
 * 
 * @param string $encrypt String to be encrypted.
 *
 * @return string Encrypted string.
 */
function decrypt($decrypt) {
    $key = $this->getEncryptionKey();

    if(!$key ||  !is_callable('mcrypt_decrypt')){
        return base64_decode($decrypt);
    }

    $decrypt = explode('|', $decrypt.'|');
    $decoded = base64_decode($decrypt[0]);
    $iv = base64_decode($decrypt[1]);
    if(strlen($iv)!==mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_CBC)){ return false; }
    $key = pack('H*', $key);
    $decrypted = trim(mcrypt_decrypt(MCRYPT_RIJNDAEL_256, $key, $decoded, MCRYPT_MODE_CBC, $iv));
    $mac = substr($decrypted, -64);
    $decrypted = substr($decrypted, 0, -64);
    $calcmac = hash_hmac('sha256', $decrypted, substr(bin2hex($key), -32));
    if($calcmac!==$mac){ return false; }
    $decrypted = unserialize($decrypted);
    return $decrypted;
}

/**
 * This function returns password hash according to hashing method specified in $conf['pass_hash'].
 * @category Authentication
 * 
 * @param string $pass The password, the string to be encrypted.
 *
 * @return string Hash of given string.
 */
function password_hash($pass){
    switch ($this->conf['pass_hash']) {
        case 'md5':
            return md5($pass);
        case 'php_password_api':
        default:
            return password_hash($pass);
            break;
    } 
}

/**
 * This function verifies the password across the hash according to hashing method specified in $conf['pass_hash'].
 * @category Authentication
 * 
 * @param string $pass The password.
 * @param string $hash Hash string to be compared with.
 *
 * @return string Hash of given string.
 */
function password_verify($pass, $hash){
    switch ($this->conf['pass_hash']) {
        case 'md5':
            return (md5($pass)===$hash);
        case 'php_password_api':
        default:
            return password_verify($pass, $hash);
            break;
    } 
}

/**
 * Function that checks authentication with credentials database using selected $method.
 * Now it supports the following methods:
 * 1. LDAP - it checks credentials with specified GLOBAL $ldap_server with GLOBAL $ldap_domain
 * 2. database (or DB) - it checks credentials with database table stbl_user
 * 3. mysql - it checks credentials of MySQL database user supplied with $login and $password parameters. Together with authentication this 
 * Function returns true when authentication successfull, otherwise it returns false and $strError parameter 
 * variable becomes updated with authentication error message.
 *
 * LDAP method was successfully tested with Active Directory on Windows 2000, 2003, 2008, 2008R2 servers.
 *
 * @category Authentication
 * 
 * @param string $login - login name
 * @param string $password - password
 * @param string $method - authentication method. Can be 'LDAP', 'database'(equal to 'DB'), 'mysql'
 * @param array $options - Array
 *  - 'flagNoSession' (boolean) - Use true when you need one-time authentication without $_SESSION modification.
 *  - 'dbhost' (string) - Database host, used only with 'mysql' authentication method.
 *  - 'dbname' (string) - Database name. Default database to be selected with 'mysql' authentication method.
 * 
 * @return boolean authentication result: true on success, otherwise false.
 */
function Authenticate($login, $password, $method="LDAP", $options=array()){

    $oSQL = $this->oSQL;
    
    switch($method) {
    case "LDAP":    
        GLOBAL $ldap_server;
        GLOBAL $ldap_domain;
        GLOBAL $ldap_dn;
        GLOBAL $ldap_conn, $ldap_anonymous_login, $ldap_anonymous_pass;
        if (preg_match("/^([a-z0-9]+)[\/\\\]([a-z0-9]+)$/i", $login, $arrMatch)){
            $login = $arrMatch[2];
            $ldap_domain = strtolower($arrMatch[1].".e-ise.com");
        } else
            if (preg_match("/^([a-z0-9\_]+)[\@]([a-z0-9\.\-]+)$/i", $login, $arrMatch)){
                $login = $arrMatch[1];
                $ldap_domain = $arrMatch[2];
            }
            
        $ldap_conn = ldap_connect($ldap_server);
        $binding = @ldap_bind($ldap_conn, $ldap_anonymous_login, $ldap_anonymous_pass);
        
        if (!$binding){
            $method = "database";
        } else {
            $ldap_login = $login."@".$ldap_domain;
            $ldap_pass = $password;
            ldap_set_option($ldap_conn, LDAP_OPT_PROTOCOL_VERSION, 3);
            ldap_set_option($ldap_conn, LDAP_OPT_REFERRALS, 0);

            if ( !($binding = ldap_bind($ldap_conn, $ldap_login, $ldap_pass)) ){
                throw new eiseException("Bad Windows user name or password {$ldap_login}");
            } else 
                break;
        }

    case "database":
    case "DB":

        if(!$oSQL->connect()){
            throw new eiseException("Unable to connect to database");
        }
        $sqlAuth = "SELECT * FROM stbl_user WHERE usrID='{$login}'";
        $rwAuth = $oSQL->f($sqlAuth);
        if (!$rwAuth)
            throw new eiseException($this->translate("User %s not found", $login));
        if ($rwAuth['usrFlagDeleted'])
            throw new eiseException($this->translate("User %s is blocked", $login));
        if (!$this->password_verify($password, $rwAuth['usrPass']))
            throw new eiseException($this->translate("Bad user name or password %s ", $login));
            

        break;
    case "mysql":
        try {
            $this->oSQL = new eiseSQL (
                (!$options['dbhost'] ? 'localhost' : $options['dbhost'])
                , $login
                , $password
                , (!$options["dbname"] ? 'mysql' : $options["dbname"])
                );
        } catch(Exception $e){
            throw new eiseException($e->getMessage());
        }
        break;
    } 

    if($options['flagNoSession'])
        return true;

    $this->session_initialize();
    session_regenerate_id();

    if($method=="mysql"){
        $_SESSION["DBHOST"] = $this->oSQL->dbhost;
        $_SESSION["DBPASS"] = $this->oSQL->dbpass;
    }

    $_SESSION["last_login_time"] = Date("Y-m-d H:i:s");
    $_SESSION["usrID"] = $login;
    //$_SESSION["usrID"] = 'TIKHONOVA';
    $_SESSION["authstring"] = $this->encodeAuthString($login, $password);

    $this->usrID = $_SESSION["usrID"];

    SetCookie("last_succesfull_usrID", $login, $this->conf['cookieExpire'], $this->conf['cookiePath']);

    return true;

}

/**
 * This function intialize session with session cookes placed at path set by $this->conf['cookiePath'] configuration variable.
 *
 * @category Authentication
 */
function session_initialize(){
   @session_set_cookie_params(0, $this->conf['cookiePath']);
   session_start();
   $this->usrID = $_SESSION["usrID"];
} 
 
/**
 * This function quits user session.
 *
 * @category Authentication
 */
function logout(){

    GLOBAL $_DEBUG;

    session_set_cookie_params(0, $this->conf['cookiePath']);

    session_start();
    session_unset();

    $_SESSION = array();

    $params = session_get_cookie_params();
    setcookie(session_name(), '', time() - 42000,
        $params["path"], $params["domain"],
        $params["secure"], $params["httponly"]
    );

    session_destroy();

    SetCookie("last_succesfull_usrID", $this->usrID, $this->conf['cookieExpire'], $this->conf['cookiePath']);

    $prj_dir = str_replace('/login.php', '', $_SERVER['PHP_SELF']);
    if( $prj_dir !== $_SERVER['PHP_SELF']
        && !(isset($_SERVER['HTTP_X_REQUESTED_WITH']) && strtolower($_SERVER['HTTP_X_REQUESTED_WITH']) === 'xmlhttprequest')
        && ( $_SERVER['HTTP_REFERER'] && preg_match('/^'.preg_quote($prj_dir, '/').'/', parse_url($_SERVER['HTTP_REFERER'], PHP_URL_PATH)) )
        && $_DEBUG
        ){

        $PageNoAuth = parse_url($_SERVER['HTTP_REFERER'], PHP_URL_PATH)
            .(parse_url($_SERVER['HTTP_REFERER'], PHP_URL_QUERY)!="" 
                ? "?".parse_url($_SERVER['HTTP_REFERER'], PHP_URL_QUERY) 
                : '');
        SetCookie("PageNoAuth", $PageNoAuth);

    }

    

}

/**
 * This function fills in $arrUsrData['roles'] and $arrUsrData['roleIDs'] arrays. Can be overriden for virtual roles.
 *
 * NOTE: Role membership information is collected from stbl_role_user table basing on rluInsertDate timestamp, 
 * it should not be in the future. It is useful when some actions should be temporarily delegated to the other user in case of vacations, illness etc.
 *
 * Page permissions can be set with eiseAdmin's GUI at < database >/Pages menu.
 * Role membership can be set by system's GUI at system's Setting/Access Control menu or <database>/Roles menu of eiseAdmin.
 *
 * @category Authentication
 * @category Authorization
 *
 * @param string $usrID - user ID to get role membership info. If set, this function doesn't touch `$intra->arrUsrData['roles']` and `$intra->arrUsrData['roleIDs']`
 *
 * @return array with role IDs as keys and role titles are values.
 */
function getUserRoles($usrID = null) {
    
    $usrID_src = $usrID;
    if(!$usrID)
        $usrID = $this->usrID;

    $arrRet = array();
    $this->arrUsrData['roleIDs'] = [];
    $this->arrUsrData['roles'] = [];

    $sql = "SELECT rolID as id, rolTitle{$this->local} as title
       FROM stbl_role ROL
       INNER JOIN stbl_role_user RLU ON RLU.rluRoleID=ROL.rolID
       WHERE (rluUserID='$usrID'   AND DATEDIFF(NOW(), rluInsertDate)>=0)
        OR rolFlagDefault=1";
    $rs = $this->oSQL->q($sql);
    while ($rw = $this->oSQL->f($rs)){
        $arrRet[(string)$rw['id']] = (string)$rw['title'];
        if(!$usrID_src){
            $this->arrUsrData['roleIDs'][] = (string)$rw['id'];
            $this->arrUsrData['roles'][] = (string)$rw['title'];
        }
    }

    return $arrRet;

}

/**
 * This function checks current user's permissions on currently open script.
 * Also it checks session expiration time, and condition when user is blocked or not in the database.
 * Script name is obtained from `$_SERVER['SCRIPT_NAME']` global variable.
 * Permission information is collected from stbl_page_role table and calculated according to user role membership defined at stbl_role_user table.
 * Permissions are calulated in the following way:
 * - if at least one user's role is permitted to do something, it means that this user is permitted to to it.
 * 
 * If user has no permissions to 'Read' the script, function throws an exception.
 * When 'Read' permissions are confirmed for the user, function updates [$intra->arrUsrData property](#eiseintra-arrusrdata). Click on [this link](#eiseintra-arrusrdata) to see full description.
 * 
 * NOTE: Role membership information is collected from stbl_role_user table basing on rluInsertDate timestamp, 
 * it should not be in the future. It is useful when some actions should be temporarily delegated to the other user in case of vacations, illness etc.
 *
 * Page permissions can be set with eiseAdmin's GUI at < database >/Pages menu.
 * Role membership can be set by system's GUI at system's Setting/Access Control menu or <database>/Roles menu of eiseAdmin.
 *
 * @category Authentication
 * @category Authorization
 *
 * @return array `$intra->arrUsrData`
 */
function checkPermissions( ){
   
    $oSQL = $this->oSQL;
   
    if( !$this->conf['context'] ){

        $this->session_initialize();
        if ( !$this->usrID ){
           throw new eiseException('', 401);
        }

        GLOBAL $strSubTitle; // backward-compatibility
        // checking user timeout
        if ($_SESSION["last_login_time"]!="" && $strSubTitle != "DEVELOPMENT" ){
           if (time() - strtotime($_SESSION["last_login_time"])>60*$this->conf['logofftimeout']) {
               $tt = Date("Y-m-d H:i:s", mktime())." - ".$_SESSION["last_login_time"];
               throw new eiseException($this->translate("Session timeout ($tt). Please re-login."), 401);
           }
        }
    } else {
        $this->usrID = $this->conf['usrID'];
    }

    if ( !$this->usrID ){
        throw new eiseException('User ID is not specified', 401);           
    }
   

    if( !$oSQL ){
        return array();
    }
   
   //checking is user blocked or not?
   $rsUser = $oSQL->do_query("SELECT * FROM stbl_user WHERE usrID=".$oSQL->e($this->usrID));
   $rwUser = $oSQL->fetch_array($rsUser);
   
    if (!$rwUser["usrID"]){
        throw new eiseException($this->translate("Your User ID %s doesnt exist in master database. Contact system administrator.", $this->usrID), 401 );
    }
   
    if ($rwUser["usrFlagDeleted"]){
        throw new eiseException( $this->translate("Your User ID %s is blocked.", $this->usrID), 401 );
    }
    $this->usrID = $rwUser['usrID'];

    $this->arrUsrData = array_merge($this->arrUsrData, $rwUser);

    $this->getUserRoles();

    // checking script permissions
    $script_name = ltrim(preg_replace("/^(\/[^\/]+)(\/.*)$/", "\\2", ($this->conf['context']
            ? $this->conf['context']
            : $_SERVER["SCRIPT_NAME"]
        )
    ), '/');

    $aScriptName = array($oSQL->e($script_name), $oSQL->e('/'.$script_name));

    $sqlCheckUser = "SELECT
             pagID
            , pagTitle
            , pagTitleLocal
            , pagFile
            , MAX(pgrFlagRead) as FlagRead
            , MAX(pgrFlagCreate) as FlagCreate
            , MAX(pgrFlagUpdate) as FlagUpdate
            , MAX(pgrFlagDelete) as FlagDelete
            , MAX(pgrFlagWrite) as FlagWrite
           FROM 
        (SELECT 
             pagID
            , pagTitle
            , pagTitleLocal
            , pagFile
            , pgrFlagRead, pgrFlagCreate, pgrFlagUpdate, pgrFlagDelete, pgrFlagWrite
        FROM stbl_page PAG
           INNER JOIN stbl_page_role PGR ON PAG.pagID=PGR.pgrPageID
           WHERE PAG.pagFile IN (".implode(',', $aScriptName).") AND pgrRoleID IN ('".implode("','", $this->arrUsrData['roleIDs'])."')
        UNION 
        SELECT 
             pagID
            , pagTitle
            , pagTitleLocal
            , pagFile
            , pgrFlagRead, pgrFlagCreate, pgrFlagUpdate, pgrFlagDelete, pgrFlagWrite
        FROM stbl_page PAG
           INNER JOIN stbl_page_role PGR ON PAG.pagID=PGR.pgrPageID
           INNER JOIN stbl_role ROL ON PGR.pgrRoleID=ROL.rolID
           WHERE PAG.pagFile IN (".implode(',', $aScriptName).") AND rolFlagDefault=1
           )
        AS t1
        GROUP BY pagID, pagTitle";
    
    $rsChkPerms = $oSQL->do_query($sqlCheckUser);
    $rwPerms = $oSQL->fetch_array($rsChkPerms);

    if (!$rwPerms["FlagRead"]){
        throw new eiseException($this->translate("%s access denied to user %s", ($this->conf['context'] 
                ? $this->conf['context'] 
                : $_SERVER['PHP_SELF']),
        $this->usrID), 403);
    } 
    
    $this->arrUsrData = array_merge($this->arrUsrData, $rwPerms);

    $clear_uri = preg_replace('/^'.preg_quote(dirname($_SERVER['PHP_SELF']), '/').'/', '', $_SERVER['REQUEST_URI']);
    if($rwPage = $oSQL->f($oSQL->q("SELECT * FROM stbl_page WHERE pagFile=".$oSQL->e($clear_uri))) ) {
        $this->arrUsrData = array_merge( $this->arrUsrData, $rwPage);  
    }

    if(!$this->conf['context'])
        $_SESSION["last_login_time"] = Date("Y-m-d H:i:s");
    
    $this->usrID = $this->arrUsrData["usrID"];
    $this->conf['usrID'] = $this->arrUsrData["usrID"];

    $this->arrUsrData_src = $this->arrUsrData;

    return $this->arrUsrData;
     
}

/**
 * This method returns content of top-level "jumper" menu as drop-down list. "Jumper" menu content goes with an associative array passed as parameter to this function.
 *
 * @category Navigation
 */
public function topLevelMenu($arrItems = array(), $options = array()){

    if(!$arrItems)
        return '';

    $defaultOptions = array('format' => 'html'
        , 'element'=>'select'
        , 'class'=>array('ei-top-level-menu')
        , 'target' => null);

    $options = array_merge_recursive($defaultOptions, (array)$options);

    $retVal = '';

    if(count($arrItems)>0 && strtolower($options['format'])=='html')
        $retVal .= '<'.$options['element'].' class="'.implode(' ', $options['class']).'">';

    foreach( (array)$arrItems as $itemID=>$item ){

        $itemID_HTML = preg_replace('/[^a-z0-9]/i', '', $itemID);

        switch( strtolower($options['element']) ){
            case 'select':
                $retVal .= "\r\n".'<option value="'.(is_array($item) && $item['value'] ? $item['value'] : $itemID).'"'
                    .' class="menu-item' .'"'
                    .' id="'.$options['class'][0].'-'.$itemID_HTML .'">'.(is_array($item) 
                        ? $item['title']
                        : $item).'</option>';
                break;
            case 'ul':
            case 'ol':
                $retVal .= "\r\n".'<li id="'.$options['class'][0].'-'.$itemID_HTML.'"'
                    .' class="menu-item"'
                    .'>'
                    .(is_array($item) 
                        ? ($item['href'] ? '<a href="'.$item['href'].'">' : '').$item['title'].($item['href'] ? '</a>' : '')
                        : $item).'</li>';
                break;
            default:
                throw new eiseException('Bad element for top-level menu: '.$options['element']);
        }
    }

    if(count($arrItems)>0)
        $retVal .= '</'.$options['element'].'>';


    return $retVal;
}

/**
 * This method returns system menu `<ul>` HTML for menu structure.
 *
 * @category Navigation
 *
 * @param string $target - base target for all `<a href="...">` inside menu
 *
 * @return string HTML with menu structure
 */
public function menu($target = null){

    $target = ($target ? ' target="'.$target.'"' : '');

    //-----------------------------Standard menu from stbl_page table---------------------------------   
    $sql = "SELECT PG1.*
                , COUNT(DISTINCT PG2.pagID) as iLevelInside
                , (SELECT COUNT(*) FROM stbl_page CH 
                    WHERE CH.pagParentID=PG1.pagID AND CH.pagFlagShowInMenu=1) as nChildren
                , MAX(PGR.pgrFlagRead) as FlagRead
                , MAX(PGR.pgrFlagWrite) as FlagWrite
        FROM stbl_page PG1
                INNER JOIN stbl_page PG2 ON PG2.pagIdxLeft<=PG1.pagIdxLeft AND PG2.pagIdxRight>=PG1.pagIdxRight
                INNER JOIN stbl_page PG3 ON PG3.pagIdxLeft BETWEEN PG1.pagIdxLeft AND PG1.pagIdxRight AND PG3.pagFlagShowInMenu=1
                INNER JOIN stbl_page_role PGR ON PG1.pagID = PGR.pgrPageID
                INNER JOIN stbl_role ROL ON PGR.pgrRoleID=ROL.rolID
                #LEFT JOIN stbl_role_user RLU ON PGR.pgrRoleID=RLU.rluRoleID
        WHERE 
         #(RLU.rluUserID='{$this->usrID}' OR ROL.rolFlagDefault=1)
         (ROL.rolID IN ('".implode("','", $this->arrUsrData['roleIDs'])."') OR ROL.rolFlagDefault=1)
         AND PG1.pagFlagShowInMenu=1
        GROUP BY 
                PG1.pagID
                , PG1.pagParentID
                , PG1.pagTitle{$this->local}
                , PG1.pagFile
                , PG1.pagIdxLeft
                , PG1.pagIdxRight
                , PG1.pagFlagShowInMenu
        HAVING (MAX(PGR.pgrFlagRead)=1 OR MAX(PGR.pgrFlagWrite)=1) 
        ORDER BY PG1.pagIdxLeft";
        
    $rs = $this->oSQL->do_query($sql);

    $ff = $this->oSQL->ff($rs);

    $flagSidebarMenu = isset($ff['pagMenuItemClass']);
    if (!$flagSidebarMenu)
    //if (false)
        return $this->menu_simpleTree($rs, $target);

    $strRet = '<ul class="sidebar-menu ei-menu">'."\n";

    $rw_old["iLevelInside"] = 2;

    while ($rw = $this->oSQL->fetch_array($rs)){
        
        $rw["pagFile"] = preg_replace("/^\//", "", $rw["pagFile"]);

        if($rw['pagEntityID']){
            $rwEnt = $this->oSQL->f("SELECT * FROM stbl_entity WHERE entID='{$rw['pagEntityID']}'");
            $entPrefix = ($rwEnt["entPrefix"] ? $rwEnt["entPrefix"] : $rwEnt['entID']);
        } else {
            unset($rwEnt);
            unset($entPrefix);
        }
        
        $hrefSuffix = "";
        
        for ($i=$rw_old["iLevelInside"]; $i>$rw["iLevelInside"]; $i--)
           $strRet .= "</ul></li>\n\n";
        
        for ($i=$rw_old["iLevelInside"]; $i<$rw["iLevelInside"]; $i++)
           $strRet .= '<ul class="sidebar-submenu">'."\n";
        
        if (preg_match("/list\.php$/", $rw["pagFile"]) && $rw["pagEntityID"]!=""){
           $hrefSuffix = "?".$entPrefix."_staID=".($rw['pagFlagShowMyItems'] ? '&'.$rw["pagEntityID"].'_'.$rw["pagEntityID"].'FlagMyItems=' : '') ;
           $rwEnt = $this->oSQL->f('SELECT * FROM stbl_entity WHERE entID='.$this->oSQL->e($rw["pagEntityID"]));
        }
        
        $pagMenuItemClass = $rw['pagMenuItemClass'] ? $rw['pagMenuItemClass'] : $this->getDefaultClass($rw['pagTitle'], $rw['pagFile']);
        
        $customSubMenu = call_user_func_array(array($this, 'menuItem'), array($rw));

        $strRet .= "<li".($rw["pagParentID"]==1 && ($rw["FlagWrite"] || !$this->conf['menuCollapseAll']) && $rw["nChildren"]>0
                ? ' class="active keep-active"'
                : "")
            ." id=\"".$rw["pagID"]."\">"
            .($rw["pagFile"] ? '<a'.$target.' href="'.$rw["pagFile"].$hrefSuffix.'">' : '<a href="#">')
            ."<i class=\"fa {$pagMenuItemClass}\"></i> "
            ."<span>".$rw["pagTitle{$this->local}"]."</span>"
            .($rw["nChildren"]>0 || preg_match('/^\<ul/i', ltrim($customSubMenu))
                ? ' <i class="fa fa-angle-left pull-right"></i>' 
                : '')
            .'</a>'
            .$customSubMenu
            .($rw["nChildren"]==0 ? "</li>" : "")
            ."\n";
       
        if ($hrefSuffix){

            if($rw['pagFlagShowMyItems']){
                $strRet .= '<li id="'.$rw["pagID"].'-my-items"><a target="pane" href="'
                    .$rw["pagFile"].'?'.$rw["pagEntityID"].'_staID=&'.$rw["pagEntityID"].'_'.$rw["pagEntityID"].'FlagMyItems=1">'
                    .'<i class="fa fa-heart"></i>'
                    .($this->translate('My ').$rwEnt["entTitle{$this->local}Mul"])
                    ."</a>\n";
            }

            $sqlSta = "SELECT * 
                FROM stbl_status 
                LEFT OUTER JOIN stbl_entity ON entID=staEntityID
                WHERE staEntityID='".$rw["pagEntityID"]."' AND staFlagDeleted=0";
            $rsSta = $this->oSQL->do_query($sqlSta);
            while ($rwSta = $this->oSQL->fetch_array($rsSta)){

                

                $staMenuItemClass = $rwSta['staMenuItemClass'] ? $rwSta['staMenuItemClass'] : 'fa-circle-o';
                $customSubMenu_sta = call_user_func_array(array($this, 'menuItem'), array($rw, $rwSta));
                $strRet .= "<li id='".$rw["pagID"]."_".$rwSta["staID"]."'><a{$target} href='"
                    .$rw["pagFile"]."?{$entPrefix}_staID={$rwSta["staID"]}'>"
                    .'<i class="fa '.$staMenuItemClass.'"></i>'
                    .($rwSta["staTitle{$this->local}Mul"] ? $rwSta["staTitle{$this->local}Mul"] : $rwSta["staTitle{$this->local}"])
                    .(preg_match('/^\<ul/i', ltrim($customSubMenu_sta))
                        ? ' <i class="fa fa-angle-left pull-right"></i>' 
                        : '')
                    .'</a>'
                    .$customSubMenu_sta
                    ."\n";
            }
        }
       
        $rw_old = $rw;
    }
    for ($i=$rw_old["iLevelInside"]; $i>1; $i--)
       $strRet .= "</ul>\n\n";

    $strRet .= '</ul>'."\n\n"; // /div.ei-menu

    return $strRet;

}

/**
 * This method is called __before__ each menu item <li> closure. 
 * You can add custom menu items/submenus in your own app overriding this method in the inherited class.
 *
 * @category Navigation
 *
 * @param string $rw - row info from stbl_page for current <li>
 *
 * @return string HTML with submenu structure
 */
public function menuItem($rw){    return '';    }

public function getCurrentUserInfo(){
    $html = '';
    $html .= '<div class="ei-current-user-info">';
    $html .= '<span class="ui-helper-hidden-accessible"><input type="text"/></span>';
    $html .= '<div class="ei-usrName">'.$this->arrUsrData['usrName'.$this->local].'</div>';
    $html .= '<div class="ei-usrRoles">'.$this->translate('Roles:').'</div>';
    $html .= '<ul class="ei-roles">';
    foreach ($this->arrUsrData['roles'] as $ix => $roleTitle) {
        $html .= "<li><span class=\"ei-rolTitle\">{$roleTitle}</span> <small>({$this->arrUsrData['roleIDs'][$ix]})</small></li>";
    }
    $html .= '</ul>';
    $html .= '<div class="ei-logout"><a href="login.php">'.$this->translate('Logout').' <i class="fa fa-sign-out"> </i></a></div>';
    $html .= '</div>';
    return $html;
}

/**
 * This function returns default icon menu class basng on page URI.
 * @ignore
 */
private function getDefaultClass($title, $uri){
    $prfx = 'fa-';
    $allstr = $title.$uri;
    $filename = pathinfo(parse_url($uri, PHP_URL_PATH),PATHINFO_FILENAME);
    if(preg_match('/search/i', $allstr))
        return $prfx.'search';
    if(preg_match('/tools/i', $allstr))
        return $prfx.'wrench';
    if(preg_match('/(settings|setup)/i', $allstr))
        return $prfx.'sliders';
    if(preg_match('/users/i', $allstr))
        return $prfx.'group';
    if(preg_match('/about/i', $allstr))
        return $prfx.'book';
    if(preg_match('/^(rep|report)[\-\_]/i', $filename) || preg_match('/[\-\_]rep$/i', $filename))
        return $prfx.'bar-chart';
    if(preg_match('/^lst[\-\_]/i', $filename) || preg_match('/[\-\_](list|lst)$/i', $filename))
        return $prfx.'table';
    if(preg_match('/^frm[\-\_]/i', $filename) || preg_match('/[\-\_](form|frm)$/i', $filename))
        return $prfx.'list-alt';
    if(!$uri)
        return $prfx.'th';
    return $prfx.'circle-o';

}

/**
 * Old simpleTree menu for backward compatibility
 * @ignore
 */
private function menu_simpleTree($rs, $target){

    $strRet = '<ul class="simpleTree ei-menu">'."\r\n";

    $strRet .= '<li id="menu_root" class="root"><span><strong>Menu</strong></span>'."\r\n";

    $rw_old["iLevelInside"] = 1;

    while ($rw = $this->oSQL->fetch_array($rs)){
        
        $rw["pagFile"] = preg_replace("/^\//", "", $rw["pagFile"]);
        
        $hrefSuffix = "";
        
        for ($i=$rw_old["iLevelInside"]; $i>$rw["iLevelInside"]; $i--)
           $strRet .= "</ul></li>\r\n\r\n";
        
        for ($i=$rw_old["iLevelInside"]; $i<$rw["iLevelInside"]; $i++)
           $strRet .= "<ul>";
        
        if (preg_match("/list\.php$/", $rw["pagFile"]) && $rw["pagEntityID"]!=""){
           $hrefSuffix = "?".$rw["pagEntityID"]."_staID=".($rw['pagFlagShowMyItems'] ? '&'.$rw["pagEntityID"].'_'.$rw["pagEntityID"].'FlagMyItems=' : '') ;
           $rwEnt = $this->oSQL->f('SELECT * FROM stbl_entity WHERE entID='.$this->oSQL->e($rw["pagEntityID"]));
        }
        
        
        $strRet .= "<li".($rw["pagParentID"]==1 && ($rw["FlagWrite"] || !$this->conf['menuCollapseAll'])
                 ? " class='open'"
                 : "")." id='".$rw["pagID"]."'>"
            .($rw["pagFile"] ? "<a{$target} href=\"{$rw["pagFile"]}{$hrefSuffix}\">" : '')
            ."<span>".$rw["pagTitle{$this->local}"]."</span>"
            .($rw["pagFile"] ? "</a>" : '')
            .($rw["nChildren"]==0 ? "</li>" : "")."\r\n";
       
        if ($hrefSuffix){

            if($rw['pagFlagShowMyItems']){
                $strRet .= '<li id="'.$rw["pagID"].'-my-items"><a target="pane" href="'
                    .$rw["pagFile"].'?'.$rw["pagEntityID"].'_staID=&'.$rw["pagEntityID"].'_'.$rw["pagEntityID"].'FlagMyItems=1">'
                    .($this->translate('My ').$rwEnt["entTitle{$this->local}Mul"])
                    ."</a>\r\n";
            }

            $sqlSta = "SELECT * FROM stbl_status WHERE staEntityID='".$rw["pagEntityID"]."' AND staFlagDeleted=0";
            $rsSta = $this->oSQL->do_query($sqlSta);
            while ($rwSta = $this->oSQL->fetch_array($rsSta)){
                $strRet .= "<li id='".$rw["pagID"]."_".$rwSta["staID"]."'><a{$target} href='"
                    .$rw["pagFile"]."?".$rw["pagEntityID"]."_staID=".$rwSta["staID"]."'>"
                    .($rwSta["staTitle{$this->local}Mul"] ? $rwSta["staTitle{$this->local}Mul"] : $rwSta["staTitle{$this->local}"])
                    ."</a>\r\n";
            }
        }
       
       if ($rw["pagFile"]=="entity_form.php" && $rw["pagEntityID"]=="ent"){
          $strRet .= "<ul>\r\n";
          $sqlEnt = "SELECT * FROM stbl_entity";
          $rsEnt = $this->oSQL->do_query($sqlEnt);
          while ($rwEnt = $this->oSQL->fetch_array($rsEnt)){
             $strRet .= "<li id='".$rw["pagID"]."_".$rwEnt["entID"]."'><a{$target} href='".
                $rw["pagFile"]."?entID=".$rwEnt["entID"]."'>".$rwEnt["entTitle{$this->local}"]."</a>\r\n";
          }
          $strRet .= "</ul></li>\r\n";
       }
       
       $rw_old = $rw;
    }
    for ($i=$rw_old["iLevelInside"]; $i>1; $i--)
       $strRet .= "</ul>\r\n\r\n";

    $strRet .= '</ul>'."\r\n\r\n"; // /div.ei-menu

    return $strRet;
}

/**
 * This method returns HTML for "action menu" - the menu that displayed above the functional part of the screen. Menu content is set by __$arrActions__ parameter, the set of associative arrays with menu items.
 * Menu item definition array consists of the following properties:
 * array[] - menu item set. No nested menu items, no dropdowns in this version.  
 *  - 'title'   (string) - Menu item title
 *  - 'action'  (string) - Menu item HREF attribute content. If it starts with 'javascript:' JS call will be encapsulated under ONCLICK attribute.
 *  - 'targer'  (string) - (optional) TARGET attribute content
 *  - 'class'   (string) - (optional) CLASS attribute content
 * All these attributes are related to A element that correspond to given menu item.
 *
 * @category Navigation
 *
 * @param array $arrActions (See above)
 * @param boolean $flagShowLink The flag that defines is there a need to show 'Link' menu element on the right, in case when page opened within a frame. FALSE by default.
 *
 * @return string HTML for "action menu".  
 */
function actionMenu($arrActions = array(), $flagShowLink=false){

    if(!$arrActions || count($arrActions)===0)
        return '';

    $strRet .= '<div class="menubar ei-action-menu">'."\r\n";
    foreach ((array)$arrActions as $act) {
            $strRet .=  "<div class=\"menubutton\">";
            $strRet .= "<a href=\"{$act['action']}\"".($act['id'] ? ' id="'.$act['id'].'"' : '');

            $strRet .= ( preg_match('/^ss\_/', $act['class']) ? " class=\"ss_sprite {$act['class']}\"" : '' );
            $strRet .= self::processHTMLDataset($act);
           
            $isJS = preg_match("/javascript\:(.+)$/", $act['action'], $arrJSAction);

            if ($isJS){
                $strRet .=  " onclick=\"".$arrJSAction[1]."; return false;\"\r\n"; 
            } else {
                $strRet .=  (isset($act["target"]) ? " target=\"{$act["target"]}\"" : '');
            }
            $strRet .= '>';
            $strRet .= ( preg_match('/^fa\-/', $act['class']) ? '<i class="fa '.$act['class'].'"> </i>' : '');
            $strRet .= "<span>{$act["title"]}</span></a>\r\n";
            $strRet .= "</div>\r\n";
    }

    if($flagShowLink){
        $strRet .= '<div class="menubutton float_right no-title"><a target=_top href="index.php?pane='.urlencode($_SERVER["REQUEST_URI"])
            .'" class="ss_sprite ss_link"></a></div>'."\r\n";
    }

    $strRet .= '</div>'."\r\n";

    return $strRet;

}

/**
 * This method includes specified $components into your PHP code by calling corresponding include() PHP functions and filling out __$arrJS__ and __$arrCSS__ arrays.
 * @param variant $components Array or string with eiseIntra's component name. Name set can be the following:  
 * - base - core components, they're included by default
 * - batch - JavaScripts necessary to run batches
 * - list - eiseList
 * - grid - eiseGrid
 * - actions - entity flow routines
 *
 * @category Initialization 
 */
function requireComponent($components){

    GLOBAL $arrJS, $arrCSS, $eiseIntraCSSTheme;

    if(!is_array($components))
        $components = func_get_args();

    foreach($components as $componentName){
        switch ($componentName) {
            case 'base':
                $arrJS[] = jQueryPath."jquery-".jQueryVersion.".min.js";
                $arrJS[] = jQueryUIPath.'jquery-ui.min.js';
                if($this->conf['useBootstrap'])
                    $arrJS[] = eiseIntraLibRelativePath.'bootstrap/dist/js/bootstrap.min.js';
                $arrJS[] = eiseIntraLibRelativePath."sidebar-menu/sidebar-menu.js";
                $arrJS[] = eiseIntraJSPath."intra.js";
                $arrJS[] = eiseIntraJSPath."intra_execute.js";
                $arrCSS[] = ($this->conf['useBootstrap']
                    ? eiseIntraCSSPath.'themes/'.$eiseIntraCSSTheme.'/style.bootstrap.css'
                    : eiseIntraCSSPath.'themes/'.$eiseIntraCSSTheme.'/style.css'
                );
                break;
                
            case 'simpleTree':
                $arrJS[] = eiseIntraLibRelativePath."simpleTree/jquery.simple.tree.js";
                $arrCSS[] = eiseIntraLibRelativePath."simpleTree/simpletree.css";
                break;

            case 'jquery-ui':
                break;

            case 'batch':
                $arrJS[] = eiseIntraJSPath."eiseIntraBatch.jQuery.js";
                break;

            case 'list':
                $this->requireComponent('jquery-ui');
                $this->requireComponent('grid');
                include_once(dirname(__FILE__)."/list/inc_eiseList.php");
                $arrJS[] = eiseIntraRelativePath."list/eiseList.jQuery.js";
                
                break;
            case 'grid':
                $this->requireComponent('jquery-ui');
                include_once (dirname(__FILE__).'/grid/inc_eiseGrid.php');
                $arrJS[] = eiseIntraRelativePath.'grid/eiseGrid.jQuery.js';
                break;

            case 'reports':
                $this->requireComponent('jquery-ui');
                $arrJS[] = eiseIntraRelativePath.'js/eiseIntraReports.jQuery.js';
                break;

            default:
                # code...
                break;
        }
    }

}

/**
 * This function returns cookie path for given location. In case when flagSetGlobalCookieOnRedirect it returns $this->conf['cookiePath'] constant. Otherwise it returns path part of location URL.
 *
 * @category Initialization
 * 
 * @param string $strLocation header('Location: {}') parameter
 * @param array $arrConfig Array with one usable boolean property: flagSetGlobalCookieOnRedirect. See above.
 *
 * @return string A cookie path.
 */
private function getCookiePath($strLocation, $arrConfig = array()){

    $conf = array_merge($this->conf, $arrConfig);
    
    return ($conf['flagSetGlobalCookieOnRedirect']
        ? $this->conf['cookiePath']
        : parse_url($strLocation, PHP_URL_PATH) 
    );
}

/**
 * This method adds HTTP header "Location" that redirects user to URL/URI specified in $strLocation, with text message to be shown on this page, specified in $strMessage parameter.  
 *
 * Message will be shown on eiseIntra enabled page, using `$('body').eiseIntra('showMessage')` function that will fire right after `$(document).ready()` event.  
 *
 * Message will be saved for display using cookies. By default cookie path is the path part of $strLocation URL. If $intra->conf['flagSetGlobalCookieOnRedirect'] is TRUE, cookie path will be set by global constant $this->conf['cookiePath'].  
 *
 * This property can be overriden for this function with the $arrConfig[] parameter member 'flagSetGlobalCookieOnRedirect' = TRUE/FALSE. It can be useful when you need to redirect user from project subdirectory to the script placed at the root one, for example:
 *
 * ```
 * $intra->redirect('Operation successfull', '/myproject/item_form.php?itemID=12345'); 
 * // normal redirect within the project
 * ```
 * ``` 
 * $intra->redirect('Bye-bye, see you later', '/byebye.php', array('flagSetGlobalCookieOnRedirect'=>true)); 
 * // when $this->conf['cookiePath']='/' and you redirect user to the root dir of your web server.
 * ```
 *
 * @category Navigation
 *
 * @param string $strMessage Message content.
 * @param string $strLocation header('Location: {}') parameter
 * @param array $arrConfig Array with one usable boolean property: flagSetGlobalCookieOnRedirect. See above.
 *
 * @return nothing, script execution terminates.
 */
function redirect($strMessage, $strLocation, $arrConfig = array()){

    if($this->cancelRedirect)
        return;

    if($this->flagBatch){
        $this->batchEcho($strMessage);
        return;
    }

    $conf = array_merge($this->conf, $arrConfig);

    $this->setUserMessage($strMessage, $conf);

    header("Location: {$strLocation}");
    die();

}

/**
 * This method returns proper 'Back' reference for this button in Action Menu. If $_SERVER['HTTP_REFERER'] doesn't contain current URI, it set a cookie with referring page.  
 *
 * Otherwise, it use this cookie value, and if it's absent, it returns $urlIfNoReferer parameter.  
 *
 * It works like this: when user arrives to given form via hyperlink in list or other form, or whatever that leaves HTTP_REFERER header, it returns this value and saves a cookie with that URL, with this form path. When user saves data on this form it appears back without this HTTP header and 'Back' button needs proper value. It takes it from cookie (if it exists) or from specified parameter.  
 *
 * ```
 * $arrActions[] = array('title'=>'Back', 'action'=>$intra->backref('myitems_list.php')); 
 * // it will return user to the item list by default
 * ```
 *
 * @category Navigation
 *
 * @param string $urlIfNoReferer URL(URI) for 'Back' reference in case when there's no $_SERVER['HTTP_REFERER'] or $_SERVER['HTTP_REFERER'] leads from itself.
 *
 * @return string URL
 */
function backref($urlIfNoReferer=null){

    $urlIfNoReferer = ($urlIfNoReferer ? $urlIfNoReferer : 'javascript:history.go(-1)');
    $backref = ($_COOKIE["referer"] ? $_COOKIE["referer"] : $urlIfNoReferer); // to be returned if there's no specific referers

    if($_SERVER["HTTP_REFERER"]){
        $url_referer = parse_url($_SERVER["HTTP_REFERER"]);
        $request_uri_referer = $url_referer['path'].'?'.$url_referer['query'];

        if($_SERVER['REQUEST_METHOD']=='GET'){

            if( strpos($_SERVER["REQUEST_URI"], $request_uri_referer) === false // if referer is not from itself (referer is NOT a part of REQUEST_URI )
                &&
                strpos($_SERVER["HTTP_REFERER"], 'index.php?pane=')===false  //and not from fullEdit framed
                && 
                strpos($_SERVER["HTTP_REFERER"], 'entityitem_form.php')===false  //and not from old fullEdit
                &&
                !preg_match('/login.php/', $request_uri_referer) // and not from login form

            ){
                if ($_SERVER["HTTP_REFERER"]!=$_COOKIE['referer'])
                    SetCookie("referer", $_SERVER["HTTP_REFERER"], 0, $_SERVER["PHP_SELF"]);
                return $_SERVER["HTTP_REFERER"];
            } else {
                return $backref;
            }
        } else 
            return $backref;    

    } 
    
    return $backref;

}

/**
 * Function outputs JSON-encoded response basing on intra specification and terminates the script.
 *
 * @category Data output
 * 
 * @param string $status - response status. 'ok' should be set in case of successfull execution
 * @param string $message - status message to be displayed to the user
 * @param variant $data - data to be transmitted
 *
 */
function json($status, $message, $data=null){
    
    header("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1
    header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
    header("Content-type: application/json"); // JSON

    echo json_encode(array('status'=>$status, 'message'=>$message, 'data'=>$data));

    die();

}


/**
 * Function outputs binary stuff to the user.
 *
 * @category Data output
 * 
 * @param string $name - file name in UTF-8
 * @param string $type - MIME-type of the content
 * @param variant $pathOrData - if realpath() returns true for this variable, system will read the file. Otherwise it outputs the data as is.
 *
 */
function file($name, $type, $pathOrData){

    if(!$pathOrData)
        throw new Exception( "Output file is empty" );

    $len = strlen($pathOrData);

    if( $len>4096 ){
        $data = $pathOrData;
    } else {
        if(realpath($pathOrData)){
            $data = null;
            $path = $pathOrData;
            $len = filesize($pathOrData);
        } else {
            $data = $pathOrData;
        }
    }

    header("Content-Type: ".$type);
    if(headers_sent())
        $this->Error('Some data has already been output, can\'t send the file');
    header("Content-Length: ".$len);
    header("Content-Disposition: inline; filename*=UTF-8''".rawurlencode($name) );
    header('Cache-Control: private, max-age=0, must-revalidate');
    header('Pragma: public');
    ini_set('zlib.output_compression','0');
    
    if($data){
        echo $data;
    } else {
        if($path && $len){
            $fh = fopen($pathOrData, "rb");
            fpassthru($fh);
            fclose($fh);
        } else {
            throw new Exception("File length is {$len} for the path {$path}", 1);
        }
    }
    
    die();

}

/**
 * This function outputs necessary stuff to start batch data operation script.
 * WARNING: this function closes existing session using session_write_close(), so avoid changing $_SESSION variables in your batch processing script.
 *
 * @category Output
 * @category Batch run
 */
function batchStart($conf = array()){

    if($this->flagBatch)
        return;
    
    header("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1
    header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
    header("Content-type: text/html;charset=utf-8"); // HTML

    header('X-Accel-Buffering: no'); // disable NGINX buffering

    $this->flagBatch = true;

    foreach ($conf as $key => $value) {
        if(!in_array($key, array_keys($this->conf)))
            $this->conf['batch_'.$key] = $value;
    }

    ob_start();

    for ($i = 0; $i < ob_get_level(); $i++) { ob_end_flush(); }
    ob_implicit_flush(1);
    echo str_repeat(" ", 256)."<pre>"; ob_flush();

    session_write_close();

    set_time_limit(1200); // 20 minutes
}

/**
 * This function outputs data at batch data operation script, adds htmlspecialchars() and flushes output buffer.
 *
 * @category Data output
 * @category Batch run
 */
function batchEcho($string){
    $args = func_get_args();
    $to_echo  = call_user_func_array( 
            ($this->conf['auto_translate'] 
                ? array($this, 'translate')
                : 'sprintf'
                )
            , $args) ;
    
    echo ( $this->conf['batch_htmlspecialchars'] ? htmlspecialchars( $to_echo ) : $to_echo )
        .( $args[count($args)-1]==='' ? '' : "\n" );

    ob_flush();
    flush();
}

/**
 * This function sets user message to the cookie.
 *
 * @param string $strMessage with user message
 * @param array $conf param
 */
function setUserMessage($strMessage, $conf = array()){
    $conf = array_merge($this->conf, $conf);
    setcookie ( $conf['UserMessageCookieName'], substr($strMessage, 0, 1024), 0, $this->getCookiePath($strLocation,  $conf) );
}

/**
 * This function retrieves user message from the cookie and deletes the cookie itself.
 *
 * @return string with user message
 */
function getUserMessage(){
    $strRet = $_COOKIE[$this->conf['UserMessageCookieName']];
    if($strRet){
        setcookie($this->conf['UserMessageCookieName'], '', 0, $this->getCookiePath($_SERVER['PHP_SELF']));
        setcookie($this->conf['UserMessageCookieName'], ''); // backward-compatibility
    }
    return $strRet;
}

/**
 * This method returns array of role users by role ID
 *
 * @category Authentication 
 * @category Authorization 
 *
 * @param int $rolID - role ID
 * @return array of user ID's
 */
function getRoleUsers($rolID) {
   $sqlRoleUsers = "SELECT rluUserID
       FROM stbl_role ROL
       INNER JOIN stbl_role_user RLU ON RLU.rluRoleID=ROL.rolID
       INNER JOIN stbl_user ON usrID=rluUserID
       WHERE rolID='$rolID'   AND DATEDIFF(NOW(), rluInsertDate)>=0
        AND usrFlagDeleted=0";
   $rsRole = $this->oSQL->do_query($sqlRoleUsers);
   while ($rwRole = $this->oSQL->fetch_array($rsRole))
      $arrRoleUsers[] = strtoupper($rwRole["rluUserID"]);

   return $arrRoleUsers;
}

/**
 * This function initialize what language to use: local or global
 *
 * @category Initialization
 * @category i18n
 */
function checkLanguage(){
    
    if(isset($_GET["local"])){
        $cookieSet = false;
        switch ($_GET["local"]){
            case "on":
                SetCookie("l", "Local");
                $cookieSet = true;
                break;
            case "off":
                SetCookie("l", "en");
                $cookieSet = true;
                break;
            default:
                break;
        }
        if($cookieSet){
            $qs = preg_replace('/([\?\&]{0,1}local\=(on|off))/', '', $_SERVER['QUERY_STRING']);
            header("Location: ".$_SERVER["PHP_SELF"].($qs ? '?'.$qs : '') );
            die();  
        }
        
    } else 
    if (!isset($_COOKIE["l"]) && preg_match("/(ru|uk|be)/i", $_SERVER["HTTP_ACCEPT_LANGUAGE"])){
        SetCookie("l", "Local");
        $this->local = "Local";
    }

    $this->local = (isset($_COOKIE["l"]) 
        ? ( $_COOKIE["l"]=="en" 
            ? ""
            : "Local")
        : (isset($this->local) 
            ? $this->local 
            : ""));

    $this->conf['local'] = $this->local;

}

/**
 * An analog of industrial standard __() function, $intra->translate() translates simple words/phrases to local language according to the system dictionary oridinarily located in < sys dir >/common/lang.php and included at auth.php. Now it supports sprintf() formatting, so it can translate phrases with format strings like "Item #%s is updated."
 *
 * @category i18n
 */
function translate($key){
    
    $key = addslashes($key);

    $args = func_get_args();
    array_shift($args);
    
    if (!isset($this->lang[$key]) && $this->conf['collect_keys'] && $this->local){
        $this->addTranslationKey($key);
    }
    $retVal = @vsprintf( (isset($this->lang[$key]) ? $this->lang[$key] : $key), $args );
    return stripslashes(
        ( $retVal ? $retVal : (isset($this->lang[$key]) ? $this->lang[$key] : $key) )
        );
}

/**
 * This is service method that turns on translation key collection for further dictionary fill in (lang.php)
 *
 * @category i18n
 */
function addTranslationKey($key){
    $oSQL = $this->oSQL;
    $sqlSTR = "INSERT IGNORE INTO stbl_translation (
        strKey
        , strValue
        ) VALUES (
        ".$oSQL->escape_string($key)."
        , '');";
    $oSQL->q($sqlSTR);
}

/**
 * This function reads `stbl_setup` table into `$intra->conf[]` array.
 * 
 * @category Initialization
 */
function readSettings(){
    
    if(!$this->oSQL)
        return;

    $oSQL = $this->oSQL;
    
    /* ?????????????? ?????????? ?? tbl_setup ? ?????? ============================ BEGIN */
    
    $arrSetup = Array();
    
    $sqlSetup = "SELECT * FROM stbl_setup";

    $rsSetup = $oSQL->do_query($sqlSetup);

    while ($rwSetup = $oSQL->fetch_array($rsSetup)){

        if($rwSetup['stpFlagOnDemand'])
            continue;

        switch ($rwSetup["stpCharType"]){
            case "varchar":
            case "text":
                $arrSetup[$rwSetup["stpVarName"]] = $rwSetup["stpCharValue"];
            break;
            case "numeric":
                if (preg_match("/^[0-9,\.]+$/",$rwSetup["stpCharValue"])) {
                    eval("\$arrSetup['".$rwSetup["stpVarName"]."'] = ".str_replace(",", ".", $rwSetup["stpCharValue"]).";\n");
                }
                break;
        case "boolean":
            switch ($rwSetup["stpCharValue"]){
                case "on":
                case "true":
                case "yes":
                case 1:
                    eval("\$arrSetup['".$rwSetup["stpVarName"]."'] = true; \n");
                    break;
                default:
                    eval("\$arrSetup['".$rwSetup["stpVarName"]."'] = false; \n");
                    break;
            }
            default: 
                $arrSetup[$rwSetup["stpVarName"]] = $rwSetup["stpCharValue"];
                break;
        }
    }
    // ?????????????? ?????????? ?? tbl_setup ============================ END 
    $this->conf = array_merge($this->conf, $arrSetup);
    
    return $arrSetup;
}

/**
 * This function is to read or write system variable values stored in stbl_setup.
 * 
 * @param string $stpVarName - system setup variable name, e.g. 'docLifeTime'
 * @param string $stpCharValue - value for this system setup variable
 * 
 * @return variant if param $stpVarValue is omitted it returns current setting value, otherwise it returns null in case of successful value set or throws an exception if settings variable doesn't exist in the system 
 */
function setting($stpVarName, $stpCharValue = null, $flagLocal = false){

    $rwSetup = $this->oSQL->f("SELECT * FROM stbl_setup WHERE stpVarName=".$this->oSQL->e($stpVarName));

    $Local = ($flagLocal ? 'Local' : '');

    if(!$rwSetup)
        throw new Exception("Setup variable {$stpVarName} does not exist in the system");

    // read
    if(!$stpCharValue){
        switch ($rwSetup['stpCharType']) {
            case 'json':
                return json_decode($rwSetup['stpCharValue'.$Local], true);
                break;
            default:
                return $rwSetup['stpCharValue'.$Local];
                break;
        }
    } else 
    // write
    {
        switch ($rwSetup['stpCharType']) {
            case 'json':
                $val = (is_string($stpCharValue) ? $stpCharValue : json_encode($stpCharValue) );
                break;
            case 'date':
                $val = $this->oSQL->unq($this->datePHP2SQL($stpCharValue));
                break;
            case 'datetime':
                $val = $this->oSQL->unq($this->datetimePHP2SQL($stpCharValue));
                break;
            case "integer":
            case "real":
            case "numeric":
            case "number":
            case "money":
                $val = $this->oSQL->unq($this->decPHP2SQL($stpCharValue));
                break;
            default: 
                $val = $stpCharValue;
                break;
        }

        $this->oSQL->q("UPDATE stbl_setup SET stpCharValue{$Local}=".$this->oSQL->e($val).", stpEditBy='{$this->usrID}', stpEditDate=NOW() WHERE stpVarName=".$this->oSQL->e($stpVarName));

    }
        

}

/**
 * This function returns HTML for single field
 * If parameter $title is specified, it returns full HTML with container, label and input/text
 * If parameter $name is specified it returns HTML for input/text according to $value parameter
 * else it returns HTML specified in $value parameter.
 *
 * @category Forms
 *
 */
public function field( $title, $name=null, $val_in=null, $conf=array() ){

    $oSQL = $this->oSQL;

    $value = (is_array($val_in) ? $val_in[$name] : $val_in);

    $dataset = self::processHTMLDataset($conf);

    if(in_array($conf['type'], array('row_id', 'hidden')) )
        return '<input type="hidden" name="'.$name.'" id="'.$name.'" value="'.htmlspecialchars($value).'"'.$dataset.'>'."\r\n";


    if($name){
        foreach(['href', 'extra'] as $opts_key){
            if($conf[$opts_key] && $name){
                $vals = (is_array($val_in) ? $val_in : array($name=>$val_in));
                foreach ($vals as $field => $fieldVal) {
                    if(is_array($fieldVal))
                        continue;
                    $conf[$opts_key] = preg_replace('/\['.preg_quote($field, '/').'\]/', $fieldVal, $conf[$opts_key]);    
                }
                if(preg_match('/\[[a-z0-9\-\_]+\]/', $conf[$opts_key]))
                    $conf[$opts_key] = '';
            }
        }
        $this->__fieldsShown[] = $name;
        if($title)
            $this->__titlesShown[$name] = $title;
    }
    

    $html = '';

    if($title!==null) {

        $flagFieldDelimiter = ($name===null && $value===null);

        if($flagFieldDelimiter)
            $conf['type'] = 'delimiter';

        $conf['type'] = ((trim($title)!=='' && !isset($conf['type'])) ? 'text' : $conf['type']);


        $html .= "<div class=\"eiseIntraField eif-field".
                ' eif-field-'.$conf['type'].
                ($name 
                    ? " field-{$name}" 
                    : ''
                    ).
                ($conf['fieldClass'] ? " {$conf['fieldClass']}" : '').
                "\""
            .($name 
                ? " id=\"field_{$name}\"" 
                : ($conf['id']
                    ? ' id="'.$conf['id'].'"'
                    : '')
                )
            .($conf['title'] 
                ? ' title="'.htmlspecialchars($conf['title']).'"'
                : ''
                )
            .$dataset.">";

        $title = ($this->conf['auto_translate'] ? $this->translate($title) : $title);

        if(!in_array($conf['type'], array('boolean', 'checkbox', 'radio')) ) {
            if ($title!==''){
                $labelClass = ($name ? 'title-'.$name : '').($conf['labelClass'] ? ' '.$conf['labelClass'] : '');
                $html .= "<label".($name ? " id=\"title_{$name}\"" : '')." class=\"{$labelClass}\">".(preg_match('/\<[a-z]/i', $title) 
                    ? $title 
                    : htmlspecialchars($title))
                ."</label>";
            }
        } else {
            $html .= "<label></label>";
        }

    }

    if($name){

        $name = $name.$conf['field_suffix'];

        $this->fieldTypes[(preg_replace('/\[\]$/', '', $name))] = $conf['type'];

        if($conf['no_input_name']){
            $conf['id'] = $name;
            $name = '';
        }

        $conf['id'] = ($conf['id'] 
            ? $conf['id']
            : ( (preg_match('/\[\]$/',$name) ||  $conf['type']==='radio')
                    ? eiseIntra::idByValue($name, $value)
                    : preg_replace('/([^a-z0-9\_\.]+)/i', '', $name)
                    )
            );

        switch($conf['type']){

            case "datetime":
            case "date":
                $html .= $this->showTextBox($name
                    , ($conf['type']=='datetime' ? $this->datetimeSQL2PHP($value) : $this->dateSQL2PHP($value)) 
                    , $conf); 
                break;

            case "money":
                $html .= $this->showTextBox($name
                    , $this->decSQL2PHP($value, 2) 
                    , $conf); 
                break;

            case "select":
            case "combobox"://backward-compatibility

                $defaultConf = array();
                $conf  = array_merge($defaultConf, $conf);

                $conf['source'] = self::confVariations($conf, array('source', 'arrValues', 'strTable', 'options'));
                $conf['source_prefix'] = self::confVariations($conf, array('source_prefix', 'prefix', 'prfx'));

                if(is_array($conf['source'])){
                    $ds = $conf['source'];
                } else {
                    $ds = @json_decode($conf['source'], true);
                    if(!$ds){
                        if(!$conf['source'])
                            throw new Exception("Source for column {$name} not specified ({$conf['source']}).", 1);
                        try {
                            @eval('$ds = '.$conf['source'].';');
                        } catch (ParseError $e) {}
                        
                        if(!$ds){
                            if(!preg_match('/^select\s+/i', $conf['source'])){
                                $aDS = explode('|', $conf['source']);
                                $ds = $aDS[0];
                                $conf['source_prefix'] = ($conf['source_prefix'] 
                                    ? $conf['source_prefix']
                                    : $aDS[1]);        
                            } else {
                                $ds = $conf['source'];
                                $flagIsSQL = true;
                            }
                        }
                    }
                }

                $conf['source'] = ($ds ? $ds : array());

                if (is_array($conf['source'])){
                    $opts = $conf['source'];
                } else {
                    try {
                        if ($flagIsSQL){
                            $rsCMB = $this->oSQL->do_query($conf['source']);   
                        } else {
                            $rsCMB = $this->getDataFromCommonViews(null, null, $conf["source"]
                                , $conf["source_prefix"]
                                , (! ($this->arrUsrData['FlagWrite'] && (isset($conf['FlagWrite']) ? $conf['FlagWrite'] : 1) ) )
                                , (string)$conf['extra']
                                , true
                                );
                        }
                    } catch (Exception $e) { $html .= 'ERROR: '.$e->getMessage(); return $html; }
                    $opts = Array();
                    $optsData = Array();
                    while($rwCMB = $oSQL->f($rsCMB)){
                        if(isset($rwCMB['optGroup']))
                            $opts[$rwCMB['optGroup']][$rwCMB["optValue"]]=$rwCMB["optText"];
                        else
                            $opts[$rwCMB["optValue"]]=$rwCMB["optText"];
                        if(isset($rwCMB['optData']))
                            $optsData[$rwCMB["optValue"]]=$rwCMB["optData"];
                    }
                }
                if(@count($optsData))
                    $conf['optsData'] = $optsData;
                $html .= $this->showCombo($name, $value, $opts, $conf);
                break;

            case "ajax_dropdown":
            case "typeahead":
                $html .= $this->showAjaxDropdown($name, $value, $conf);
                break;

            case "boolean":
            case "checkbox":
            case "radio":
                $html .= '<div class="eiseIntraValue eiseIntraCheckbox">';
                $html .= ($conf['type']==='radio' 
                    ? $this->showRadio($name, $value, $conf) 
                    : $this->showCheckBox($name, $value, $conf) );
                $html .= '<label for="'.$conf['id'].'">'.htmlspecialchars($title).'</label>';
                $html .= '</div>';
                break;

            case 'submit':
            case 'delete':
            case 'button':
                $html .= $this->showButton($name, $value, $conf);
                break;

            case "textarea":
                $html .= $this->showTextArea($name, $value, $conf);
                break;

            case 'text':
            default:
                $html .= $this->showTextBox($name, $value, $conf);
                break;
                    
        }

    } else {

        $html .= ($value ? '<div class="eiseIntraValue'.($conf['class'] ? " {$conf['class']}" : '').'">'.$value.'</div>' : '');

    }


    if($title!==null){

        $html .= $conf['extraHTML'].'</div>'."\r\n\r\n";

    }

    return $html;

}

/**
 * This function returns HTML for single fieldset
 *
 * @category Forms
 * 
 * @param string $legend - contents of `<legend>` tag
 * @param HTML $fields - HTML with fields
 * @param array $conf - array with configuration data, with following possible members:
 *  - id - contents of 'id' attribute of <fieldset> tag
 *  - class - contents of 'class' attribute of <fieldset> tag
 *  - attr - string of extra attributes to be added to <fieldset> tag
 *  - attr_legend - string of extra attributes to be added to <fieldset><legend> tag
 *
 */
public function fieldset($legend=null, $fields='', $conf = array()){

    if($conf['subtitle'])
        $conf['class'] = 'has-subtitle '.$conf['class'];

    if(trim($legend)==='')
        $legend = null;

    return '<fieldset'
        .($conf['id']!='' ? ' id="'.htmlspecialchars($conf['id']).'"' : '')
        .' class="eif-fieldset'.($conf['class'] ? ' ' : '').htmlspecialchars($conf['class'])
            .($legend===null ? ' no-legend' : '').'"'
        .($conf['attr']!='' ? ' '.$conf['attr'] : '')
        .'>'
        .($legend!==null 
            ? "\r\n".'<legend'.($conf['attr_legend']!='' ? ' '.$conf['attr_legend'] : '').'>'.$legend
                .($conf['subtitle'] ? '<small>'.$conf['subtitle']."</small>\n" : '')
                .'</legend>'."\n"
            : '')
        ."\r\n".$fields
        .'</fieldset>'
        ."\r\n\r\n";
 
}
 
/**
 * This function returns HTML for the form.
 *
 * @category Forms
 *
 * @param string $action - Stands for ACTION attribute of FORM tag
 * @param string $dataAction - value of DataAction form input
 * @param HTML $fields - form inner HTML
 * @param string $method - METHOD attribute of form tag
 * @param array $conf - form configuration data array, contains the following possible members:
 *  - class - contents of CLASS attribute of FORM tag, all listed classes will be added to default class list (eiseIntraForm eif-form) on the right
 *  - attr - extra attributes to be added to FORM element
 *  - id - contents of ID attribute of FORM element
 *  - flagDontClose - if set to TRUE, <FORM> tag is not closed in function output.
 */
public function form($action, $dataAction, $fields, $method='POST', $conf=array()){
 
    return '<form action="'.htmlspecialchars($action).'"'
        .' method="'.htmlspecialchars($method).'"'
        .($conf['id']!='' ? ' id="'.htmlspecialchars($conf['id']).'"' : '')
        .($conf['target']!='' ? ' target="'.htmlspecialchars($conf['target']).'"' : '')
        .' class="eiseIntraForm eif-form'.($conf['class']!='' ? ' '.$conf['class'] : '').'"'
        .($conf['attr']!='' ? ' '.$conf['attr'] : '')
        .'>'."\r\n"
        .$this->field(null, $this->conf['dataActionKey'], $dataAction, array('type'=>'hidden'))."\r\n"
        .$fields."\r\n"
        .($conf['flagAddJavaScript']
            ? '<script>$(document).ready(function(){$("'.($conf['id']!='' ? "#{$conf['id']}" : '.eif-form').'").eiseIntraForm();})</script>'
            : '')
        .($conf['flagDontClose']
            ? ''
            : '</form>'."\r\n\r\n")
        ."\r\n";
 
}


private function handleClass(&$arrConfig){

    $arrClass = Array();
    if ($this->conf['addEiseIntraValueClass'])
        $arrClass['eiseIntraValue'] = 'eiseIntraValue';
    
    // get contents of 'class' attribute in strAttrib
    $prgClass = "/\s+class=[\"\']([^\"\']+)[\"\']/i";
    $attribs = $arrConfig["strAttrib"];
    if (preg_match($prgClass, $attribs, $arrMatch)){
        $strClass = $arrMatch[1];
        $arrConfig["strAttrib"] = preg_replace($prgClass, "", $arrConfig["strAttrib"]);
    }
    
    // if we specify something in arrConfig, we add it to the string
    if (!is_array($arrConfig["class"])){
        $strClass = ($strClass!="" ? $strClass." " : "").$arrConfig["class"];
    } else {
        $strClass = ($strClass!="" ? $strClass." " : "").implode(" ",$arrConfig["class"]);
    }
    
    // split class sting into array
    $arrClassList = preg_split("/\s+/", $strClass); 
    // remove duplicates using unique key
    foreach($arrClassList as $class) 
        if($class!="")
            $arrClass[$class] =  $class;
    
    $arrConfig["class"] = $arrClass;
    return implode(" ", $arrClass);
}

/**
 * This function returns HTML for the text box `<input type="text">`.
 *
 * @category Forms
 *
 */  
function showTextBox($strName, $strValue, $arrConfig=Array()) {
    
    if(!is_array($arrConfig)){
        $arrConfig = Array("strAttrib"=>$arrConfig);
    }
    
    $flagWrite = $this->isEditable($arrConfig["FlagWrite"]);
    
    $strClass = $this->handleClass($arrConfig);
    $strClassInput = 'eif-input'.($strClass ? ' '.$strClass : '');

    $id = ($arrConfig['id'] ? $arrConfig['id'] : $strName);
   
    $strAttrib = $arrConfig["strAttrib"];
    if ($flagWrite){
        
        $strType = (in_array($arrConfig['type'], $this->arrHTML5AllowedInputTypes) ? $arrConfig["type"] : 'text');

        $strClassInput .= (!in_array($arrConfig['type'], $this->arrHTML5AllowedInputTypes) 
            ? ($strClassInput!='' ? ' ' : '').'eiseIntra_'.$arrConfig["type"].' eif-input-'.$arrConfig["type"] 
            : '');

        $strRet = "<input type=\"{$strType}\" name=\"{$strName}\" id=\"{$id}\" class=\"{$strClassInput}\" data-type=\"{$arrConfig['type']}\"".
            ($strAttrib ? " ".$strAttrib : "").
            ($arrConfig["required"] ? " required=\"required\"" : "").
            ($arrConfig["autocomplete"]===false ? " autocomplete=\"off\"" : "").
            ($arrConfig["placeholder"] 
                ? ' placeholder="'.htmlspecialchars($arrConfig["placeholder"]).'"'
                    .' title="'.htmlspecialchars($arrConfig["placeholder"]).'"'
                : "").
            ($arrConfig["maxlength"] ? " maxlength=\"{$arrConfig["maxlength"]}\"" : "").
       " value=\"".htmlspecialchars($strValue)."\" />";
    } else {
        $strRet = "<div id=\"span_{$strName}\" class=\"{$strClass}\"".
        ($strAttrib ? " ".$strAttrib : "").">"
            .($arrConfig['href'] ? "<a href=\"{$arrConfig['href']}\"".($arrConfig["target"] ? " target=\"{$arrConfig["target"]}\"" : '').">" : '')
            .htmlspecialchars($strValue)
            .($arrConfig['href'] ? "</a>" : '')
        ."</div>\r\n"
        ."<input type=\"hidden\" name=\"{$strName}\" id=\"{$id}\" class=\"eif-input\" data-type=\"{$arrConfig['type']}\""
        ." value=\"".htmlspecialchars($strValue)."\" />";
    }
    
   return $strRet;
}

/**
 * This function returns HTML for the `<textarea>`.
 *
 * @category Forms
 *
 */ 
function showTextArea($strName, $strValue, $arrConfig=Array()){
    
    if(!is_array($arrConfig)){
        $arrConfig = Array("strAttrib"=>$arrConfig);
    }

    $strAttrib = $arrConfig["strAttrib"];
    
    $flagWrite = $this->isEditable($arrConfig["FlagWrite"]);
    
    $strClass = $this->handleClass($arrConfig);
    $strClassInput = 'eif-input'.($strClass ? ' '.$strClass : '');

    $id = ($arrConfig['id'] ? $arrConfig['id'] : $strName);

    if ($flagWrite){
        $strRet .= "<textarea class=\"{$strClassInput}\""
            .($arrConfig['rows'] ? " rows=\"{$arrConfig['rows']}\"" : '')
            ." id=\"$id\""
            ." name=\"".$strName."\"";
        if($strAttrib) $strRet .= " ".$strAttrib;
        $strRet .= ($arrConfig["required"] ? " required=\"required\"" : "").
            ($arrConfig["placeholder"] ? ' placeholder="'.htmlspecialchars($arrConfig['placeholder']).'"' : '').
            ">";
        $strRet .= htmlspecialchars($strValue);
        $strRet .= "</textarea>";
    } else {
        $strRet = "<div id=\"span_{$id}\"".
            ($strAttrib ? " ".$strAttrib : "").
            ($strClass ? ' class="'.$strClass.'"' : "").">"
                .($arrConfig['href'] ? "<a href=\"{$arrConfig['href']}\"".($arrConfig["target"] ? " target=\"{$arrConfig["target"]}\"" : '').">" : '')
                .htmlspecialchars($strValue)."</div>\r\n"
                .($arrConfig['href'] ? '</a>' : '')
            ."<input type=\"hidden\" name=\"{$strName}\" id=\"{$id}\" class=\"eif-input\"" 
            ." value=\"".htmlspecialchars($strValue)."\" />\r\n";
    }
    return $strRet;        
    
}

/**
 * showButton() method returns `<input type="submit">` or `<button>` HTML. Input type should be specified in `$arrConfig['type']` member. 
 *
 * @category Forms
 *
 * @return HTML string
 *
 * @param string $strName - button name and id, can be empty or null
 * @param string $strValue - button label
 * @param array $arrConfing - configuration array. The same as for any other form elements. Supported input types ($arrConfig['type'] values) are:
 * - submit - `<input type="submit" class="eiseIntraActionSubmit">` will be returned
 * - delete - method will return `<button class="eiseIntraDelete">`
 * - button (default) - `<button>` element will be returned
 */
function showButton($name, $value, $arrConfig=array()){

    if(!is_array($arrConfig)){
        $arrConfig = Array("strAttrib"=>$arrConfig);
    }

    $flagWrite = $this->isEditable($arrConfig["FlagWrite"]);
    
    $o = $this->conf['addEiseIntraValueClass'];
    $this->conf['addEiseIntraValueClass'] = false;
    $strClass = $this->handleClass($arrConfig);
    $this->conf['addEiseIntraValueClass'] = $o;

    $extraAttr = $this->conf['strAttrib'];
    $extraAttr .= self::processHTMLDataset($arrConfig);

    $value = ($this->conf['auto_translate'] ? $this->translate($value) : $value);

    if($arrConfig['type']=='submit'){
        $strRet = '<input type="submit"'
            .($strName!='' ? ' name="'.htmlspecialchars($name).'" id="'.htmlspecialchars($name).'"' : '')
            .' class="eiseIntraSubmit'.($strClass!='' ? ' ' : '').$strClass.'"'
            .(!$flagWrite ? ' disabled' : '')
            .$extraAttr
            .' value="'.htmlspecialchars($value).'">';
    } else {
        if($arrConfig['type']=='delete')
            $strClass = 'eiseIntraDelete'.($strClass!='' ? ' ' : '').$strClass;
        $strRet = '<button'
            .($name!='' ? ' name="'.htmlspecialchars($name).'" id="'.htmlspecialchars($name).'"' : '')
            .' class="'.$strClass.'"'
            .(!$flagWrite ? ' disabled' : '')
            .$extraAttr
            .'>'.htmlspecialchars($value).'</button>';
    }

    return $strRet;

}

/**
 * @ignore
 */
static function processHTMLDataset($arr){
    $strRet = '';
    if(is_array($arr['dataset'])){
        foreach ($arr['dataset'] as $key => $value) {
            if(!preg_match('/^[0-9]/', $key)){
                $strRet .= " data-{$key}=\"".htmlspecialchars(is_array($value) ? json_encode($value) : $value).'"';
            }
        }
    }
    return $strRet;
}

/**
 * This method returns HTML for `<select>` form control.
 * Element id and name are set with $strName parameter. Selected element will be chosen accorging to $strValue. Option values and this variable will be converted being casted to strings.
 * Empty element (with empty value) will be added if $confOptions['defaultText'] option is set. 
 * $arrOptions array can have nested arrays. In this case <optgroup> tag will be added. Option group title can be set via $confOptions['optgroups'] option array. See below.
 * $confOptions is configuration array, it can have the following options:  
 * - __FlagWrite__   (boolean) If true, usable `<select>` element will be shown. Otherwise, it will be `<div>` with chosen option text and hidden `<input>` with existing value.
 * - __class__  (string) contents of `<select class="{...}">` attribute. Specified classes will be added to the end of class list.
 * - __strAttrib__  (string) Additional `<select>` element attributes string, e.g. ` data-xx="YY" aria-role="nav" class="my-gorgeous-class"`. Classes will be merged with 'class' option content.
 * - __required__   (boolean) If TRUE, 'required' HTML attribute will be added for form validation.
 * - __defaultText__ (string) If specified, `<option>` with empty value will be added to the beginning of dropdown list, option text will be taken from this conf option value. If 'auto_translate' $intra option is TRUE, this value will be translated.
 * - __deletedOptions__  (array) Array of option values to be marked as deleted with `<option class="deleted">`
 * - __optgroups__   (array) Array of `<optgroup>` titles. If $arrOption array member is array, it will search for `<optgroup>` tag title in this conf option array by the same key.
 * - __indent__  (array) Array of integer values for options text indent. 
 * - __href__  (string) If you'd like to show hyperlink when combobox is read-only, this option value will be used as `<a href="{...}">` 
 * - target  (string) HREF target. 
 *
 * @category Forms
 *
 * @param string $strName Input name and id
 * @param string $strValue Field falue
 * @param array $arrOptions Options array where key is `<option value="">` and array element value is option text
 * @param variant $arrOptions (optional) Array with configuration options for `<select>` element. See above.
 *
 * @return string HTML
 */
function showCombo($strName, $strValue, $arrOptions, $confOptions=Array()){
    
    if(!is_array($confOptions)){
        $confOptions = Array("strAttrib"=>$confOptions);
    }
    
    $flagWrite = $this->isEditable($confOptions["FlagWrite"]);
    
    $retVal = "";
    
    $strClass = $this->handleClass($confOptions);
    $strClassInput = 'eif-input'.($strClass ? ' '.$strClass : '');

    $id = ($confOptions['id'] ? $confOptions['id'] : $strName);
    
    $strAttrib = $confOptions["strAttrib"];

    if( ( $confVar = self::confVariations($confOptions, array('defaultText', 'textIfNull', 'strZeroOptnText')) )!==null ) // backward-compatibility
        $confOptions['defaultText'] = $confVar;

    if ($flagWrite){

        $optDefaultText = (isset($confOptions["defaultText"]) 
            ? "<option value=\"\">".htmlspecialchars($this->conf['auto_translate'] ? $this->translate($confOptions["defaultText"]) : $confOptions["defaultText"])."</option>\r\n" 
            : ''
        );

        $retVal .= "<select id=\"{$id}\" class=\"$strClassInput\" name=\"".$strName."\"".$strAttrib.
            ($confOptions["required"] ? " required=\"required\"" : "").">\r\n";
        
        $retVal .= (!$confOptions['defaultTextPosition'] ? $optDefaultText : '');
            
        if (!isset($confOptions['deletedOptions']))
            $confOptions['deletedOptions'] = array();
        foreach ($arrOptions as $key => $value){
            if (is_array($value)){ // if there's an optgoup
                $retVal .= '<optgroup label="'.(isset($confOptions['optgroups']) ? $confOptions['optgroups'][$key] : $key).'">';
                foreach($value as $optVal=>$optText){
                    $retVal .= "<option value='$optVal'".((string)$optVal==(string)$strValue ? " SELECTED " : "").
                        (in_array($optVal, $confOptions['deletedOptions']) ? ' class="deleted"' : '').
                        ">".str_repeat('&nbsp;',5*$confOptions["indent"][$key]).htmlspecialchars($optText)."</option>\r\n";
                }
                $retVal .= '</optgroup>';
            } else
                $retVal .= "<option value='$key'"
                    .($confOptions['optsData'][$key] ? ' data-metadata="'.htmlspecialchars($confOptions['optsData'][$key]).'"' : '')
                    .((string)$key==(string)$strValue
                    || (is_integer($key) && (string)$value==(string)$strValue)
                    || $key===$strValue
                        ? " SELECTED " 
                        : "").
                        (in_array($key, $confOptions['deletedOptions']) ? ' class="deleted"' : '').
                        ">".str_repeat('&nbsp;',5*$confOptions["indent"][$key]).htmlspecialchars($value)."</option>\r\n";
        }
        $retVal .= ($confOptions['defaultTextPosition']=='last' ? $optDefaultText : '');
        $retVal .= "</select>";

    } else {
        
        $arrOptions = new RecursiveIteratorIterator(new RecursiveArrayIterator($arrOptions));
        foreach ($arrOptions as $key => $value){
            if ((string)$key==(string)$strValue) {
               $valToShow = $value;
               $textToShow = $key;
               break;
            }
        }
        $valToShow=($valToShow!="" ? $valToShow : $confOptions["defaultText"]);
        
        $retVal = "<div id=\"span_{$id}\""
            .($strClass ? ' class="'.$strClass.'"' : "")
            .'>'
            .($confOptions['href'] ? "<a href=\"{$confOptions['href']}\"".($confOptions["target"] ? " target=\"{$confOptions["target"]}\"" : '').">" : '')
            .htmlspecialchars($valToShow)
            .($confOptions['href'] ? '</a>' : '')
            ."</div>\r\n".
        "<input type=\"hidden\" name=\"{$strName}\" id=\"{$id}\" class=\"eif-input\"".
        " value=\"".htmlspecialchars($textToShow)."\" />\r\n";
        
    
    }
    return $retVal;
}

/**
 * This function returns HTML for the < input type="checkbox" >.
 *
 * @category Forms
 *
 */ 
function showCheckBox($strName, $strValue, $arrConfig=Array()){

    if(!is_array($arrConfig)){
        $arrConfig = Array("strAttrib"=>$arrConfig);
    }

    $flagWrite = $this->isEditable($arrConfig["FlagWrite"]) ;
    
    $strClass = $this->handleClass($arrConfig);
    $strClassInput = 'eif-input'.($strClass ? ' '.$strClass : '');

    $id = ( $arrConfig['id'] ? $arrConfig['id'] : $strName );

    $strValue = ( isset($arrConfig['value']) ? $arrConfig['value'] : $strValue );

    $showValueAttr = ( preg_match('/\[\]$/', $strName) || $arrConfig['showValueAttr'] || $arrConfig['value'] );
    
    $strAttrib = $arrConfig["strAttrib"];
    $retVal = "<input name=\"{$strName}\" id=\"{$id}\" class=\"{$strClassInput}\" type=\"checkbox\"".
    ( ( $strValue && !$showValueAttr ) || $arrConfig['checked'] 
        ? " checked=\"checked\" " 
        : "").
    ($showValueAttr ? ' value="'.htmlspecialchars($strValue).'"' : "").
    (!$flagWrite ? " readonly=\"readonly\"" : "").
    ($strAttrib!="" ? $strAttrib : " style='width:auto;'" ).">";

    return $retVal;
}

/**
 * This function returns HTML for the < input type="radio" >.
 *
 * @category Forms
 *
 */ 
function showRadio($strName, $strValue, $arrConfig=Array()){

    if(!is_array($arrConfig)){
        $arrConfig = Array("strAttrib"=>$arrConfig);
    }

    $flagWrite = $this->isEditable($arrConfig["FlagWrite"]);
    
    $strClass = $this->handleClass($arrConfig);
    $strClassInput = 'eif-input'.($strClass ? ' '.$strClass : '');

    $id = ( $arrConfig['id'] ? $arrConfig['id'] : $strName );
    
    $strAttrib = $arrConfig["strAttrib"];
    $retVal = "<input name=\"{$strName}\" id=\"{$id}\" type=\"radio\" class=\"$strClassInput\" value=\"".htmlspecialchars($strValue)."\"".
    ($arrConfig['checked'] ? " checked=\"checked\" " : "").
    (!$flagWrite ? " readonly=\"readonly\"" : "").
    ($strAttrib!="" ? $strAttrib : " style='width:auto;'" ).">";

    return $retVal;
}

/**
 * This function returns HTML for the < input type="radio" >, basing on arrays
 *
 * @category Forms
 *
 */ 
function showRadioByArray($strRadioName, $strValue, $arrConfig){
    
    $flagWrite = $this->isEditable($arrConfig["FlagWrite"]);
    
    $oSQL = $this->oSQL;
    
    $retVal = "";
    
    if ($arrConfig["strSQL"]){
        $rs = $oSQL->do_query($arrConfig["strSQL"]);
        while ($rw = $oSQL->fetch_array($rs)){
            $arrData[$rw["optValue"]] = $rw["optText"];
        }
    }
    
    $arrData = $arrConfig["arrOptions"];
    foreach($arrData as $value =>  $text){
        $inpID = $strRadioName."_".$value;
        $retVal .= "<input type=\"radio\" name=\"{$strRadioName}\" class=\"eif-input\" value=\"".htmlspecialchars($value)."\"";
        if ($strValue!="" && $value===$strValue)
            $retVal .= " checked";
        else if ($strValue=="" && $value==$arrConfig["strDefaultChecked"])
            $retVal .= " checked";
       $retVal .= " style=\"width:auto;\" id=\"{$inpID}\"".
        ($arrConfig["strAttrib"]!="" ? " ".$arrConfig["strAttrib"] : "").">".
        "<label for=\"{$inpID}\"".($arrConfig["strLabelAttrib"]!="" ? " ".$arrConfig["strLabelAttrib"] : "").">".
        htmlspecialchars($text)."</label><br>\r\n";
   }
   
   return $retVal;
   
}

/**
 * This function returns HTML for the AJAX-based autocomplete inputs. They download data from the server while user inputs the text. 
 *
 * @category Forms
 *
 */ 
function showAjaxDropdown($strFieldName, $strValue, $arrConfig) {
    
    if(!is_array($arrConfig)){
        $arrConfig = Array("strAttrib"=>$arrConfig);
    }

    $aSource = array(
        'table'=> eiseIntra::confVariations($arrConfig, array('source', 'strTable')),
        'prefix'=> eiseIntra::confVariations($arrConfig, array('source_prefix', 'prefix', 'strPrefix'))
        );

    if(isset($arrConfig['extra']))
        $aSource['extra'] = $arrConfig['extra'];
    
    $txt = eiseIntra::confVariations($arrConfig, array('text', 'strText'));

    if(!$aSource['table'])
        throw new Exception("AJAX drop-down box has no source specified", 1);


    $flagWrite = $this->isEditable($arrConfig["FlagWrite"]) ;
    
    $oSQL = $this->oSQL;
    
    if ($strValue!="" && $txt==""){
        $rs = $this->getDataFromCommonViews($strValue, "", $aSource['table'], $aSource['prefix']);
        $rw = $oSQL->fetch_array($rs);
        $txt = $rw["optText"];
    }

    $strOut = "";
    $strOut .= "<input type=\"hidden\" name=\"$strFieldName\" class=\"eif-input\" id=\"$strFieldName\" value=\"".htmlspecialchars($strValue)."\">\r\n";

    $attr = ($arrConfig['href']
                ? 'data-href="'.htmlspecialchars($arrConfig['href']).'" '
                : '')
        .' data-source="'.htmlspecialchars(json_encode($aSource)).'"'
        .$arrConfig["strAttrib"];

    $strOut .= $this->showTextBox($strFieldName."_text", $txt
            , array_merge(
                $arrConfig 
                , Array("strAttrib" => $attr
                    , 'id' => $strFieldName."_text"
                    , 'type'=>"ajax_dropdown")
                )
            );

    return $strOut;
    
}

/**
 * This method returns True if user permissions allow to edit the data. It is possible either if FlagWrite is positive at current page or FlagCreate or FlagUpdate are too.
 * Perissions may be forced to allow editing or deny it by setting $flagToForce parameter to True or Flase correspondingly. If it's not set or null it meaningless.
 *
 * @category Forms
 *
 * @param bool $flagToForce Flag to force permissions.
 *
 * @return bool 
 */
public function isEditable($flagToForce = null){

    return (
        $flagToForce===null 
            ? ( $this->arrUsrData["FlagWrite"] || $this->arrUsrData["FlagCreate"] || $this->arrUsrData["FlagUpdate"] ) 
            : (boolean)$flagToForce
        );

}

/**
 * Static functions that returns first occurence of configuration array $conf key variations passed as $variations parameter (array). Made for backward compatibility.
 *
 * @category Utilities
 *
 * @param $conf associative (configuration) array
 * @param $variations enumerated array of variations
 * 
 * @return $conf array value of first occurence of supplied key variations. NULL if key not found
 *
 * @example echo eiseIntra::confVariations(array('foo'=>'bar', 'foo1'=>'bar1'), array('fee', 'foo', 'fuu', 'fyy'));
 * output: bar
 */
public static function confVariations($conf, $variations){
    $retVal = null;
    foreach($variations as $variant){
        if(isset($conf[$variant])){
            $retVal = $conf[$variant];
            break;
        }
    }
    return $retVal;
}

public static function idByValue($name, $value, $prefix=null){
    return ($prefix ? $prefix.'-' : '').preg_replace('/([^a-z0-9\_\.]+)/i', '', $name).($value ? '-'.preg_replace('/[^a-z0-9]+/i', '', $value) : '');
}


/**
 * Function that loads JavaScript files basing on GLOBAL $arrJS
 *
 * @category Initialization
 */
function loadJS(){

    GLOBAL $js_path, $arrJS;

    $cachePreventor = $this->getCachePreventor();
    
    //------------If there's a dedicated js file for form, we're gonna load it: js/*.js
    $fn = pathinfo($_SERVER['PHP_SELF'], PATHINFO_FILENAME);
    $absPath = dirname($_SERVER['DOCUMENT_ROOT'].str_replace('/', DIRECTORY_SEPARATOR, $_SERVER['PHP_SELF'])).DIRECTORY_SEPARATOR;
    $relPath = dirname($_SERVER['PHP_SELF']).'/';
    $subPath = (isset($js_path) ? $js_path : 'js/');
    $jsScript[$relPath.$subPath."{$fn}.js"] = $absPath
        .str_replace('/', DIRECTORY_SEPARATOR, $subPath)
        .$fn.'.js';
    $jsScript[$relPath."{$fn}.js"] = $absPath.$fn.'.js';
    foreach($jsScript as $js=>$file){
        if(file_exists($file))
            $arrJS[] = $js;
    }

    foreach($arrJS as $ix=>$js){
        if(dirname($js)==='.')
            $arrJS[$ix] = $relPath.$js;
    }

    krsort($arrJS);
    $arrJS = array_unique($arrJS);
    ksort($arrJS);
    
    //-----------load each $arrJS
    foreach ($arrJS as $jsHref){
       echo "<script type=\"text/javascript\" src=\"{$jsHref}?{$cachePreventor}\"></script>\r\n";
    }

}

/**
 * Function that loads CSS files basing on GLOBAL $arrCSS
 *
 * @category Initialization
 *
 */
function loadCSS(){
    GLOBAL $arrCSS;

    krsort($arrCSS);
    $arrCSS = array_unique($arrCSS);
    ksort($arrCSS);
    
    $cachePreventor = $this->getCachePreventor();
    
    foreach($arrCSS as $css){
        if(is_array($css)){
            echo "<link rel=\"STYLESHEET\" type=\"text/css\" href=\"{$css['file']}?{$cachePreventor}\" media=\"{$css['media']}\">\r\n";
        } else {
            echo "<link rel=\"STYLESHEET\" type=\"text/css\" href=\"{$css}?{$cachePreventor}\" media=\"screen\">\r\n";
        }
    }

}

/**
 * This function returns GET URI query string for cache prevention of JS and CSS files. Consists of cache prevention parameter, equality sign and digits from versionIntra and version cofiguration parameters of eiseIntra.
 * @ignore
 * @return string The query string.
 */
private function getCachePreventor(){

    return $intra->conf['cachePreventorVar'].'='.preg_replace('/\D/', '', $this->conf['versionIntra'].$this->conf['version']);

}

/**
 * Data handling hook function. If $_GET or $_POST ['DataAction'] array member fits contents of $dataAction parameter that can be array or string, 
 * user function $function_name will be called and contents of $_POST or $_GET will be passed as parameters.
 *
 * @category Navigation
 * @category Data handling
 *
 * @param variant $dataAction - string or array of possible <input name=DataAction> values that $function should handle.
 * @param variant $funcOrObj - callback function name or object which method should be invoked. Function should get $_POST or $_GET as first parameter.
 * 
 * @return variant value that return user function.
 */
function dataAction($dataAction, $funcOrObj=null){
    
    $newData = ($_SERVER['REQUEST_METHOD']=='POST' ? $_POST : (array)$_GET);
    $flagIsAJAX = (!empty($_SERVER['HTTP_X_REQUESTED_WITH']) && strtolower($_SERVER['HTTP_X_REQUESTED_WITH']) == 'xmlhttprequest');

    if($funcOrObj===null && is_string( $dataAction ) )
        $funcOrObj = $dataAction;

    $dataAction = (is_array($dataAction) ? $dataAction : array($dataAction));

    if(in_array($newData[$this->conf['dataActionKey']], $dataAction)
        && ($this->arrUsrData['FlagWrite'] || $this->arrUsrData['FlagCreate'] || $this->arrUsrData['FlagUpdate'])
        ){
        
        $arrParam = func_get_args();
        array_shift($arrParam);
        array_shift($arrParam);

        if(is_callable($funcOrObj)){

            return call_user_func_array($funcOrObj, array_merge(Array($newData), $arrParam));

        } elseif(is_object($funcOrObj)){

            if(self::isRecursion())
                return;

            $obj = $funcOrObj;
            $method = $newData[$this->conf['dataActionKey']];
            $ret = array();

            try {

                $ret = call_user_func_array(array($obj, $method), array_merge(Array($newData), $arrParam));
                $status = ($ret===False ? '500' : 'ok');
                $message = $obj->msgToUser;
                $data = (array)$ret;

            } catch (Exception $e) {
                $status = '500';
                $message = $e->getMessage();
                $data = array();
            }

            $message = ($status=='ok' ? '' : 'ERROR:').( $message ? $message : ($status=='ok' ? 'Data processed' : 'Error occured').sprintf(": object: %s, method: %s()", get_class($obj), $method) );
            $redirect = $obj->redirectTo;

            if($flagIsAJAX)
                $this->json($status, $message, $data);
            if($redirect){
                if(!$this->flagBatch){
                    $this->redirect($message, $redirect);
                } else {
                    $this->batchEcho($message);
                    die();
                }
                
            }
            else {
                if(!$this->flagBatch)
                    $this->batchStart();
                $this->batchEcho($message);
                die();
            }
        }
    }

}
function cancelDataAction( &$nd = null, $flagRestore = false){
    
    static $dataAction;

    if ($dataAction===null){
        $dataAction = $nd[$this->conf['dataActionKey']] ? $nd[$this->conf['dataActionKey']] : $_POST[$this->conf['dataActionKey']];
    }

    if($nd!==null)
        unset($nd[$this->conf['dataActionKey']]);
    
    if(!$flagRestore)
        unset($_POST[$this->conf['dataActionKey']]);
    else 
        if ($dataAction!==null){
            if($nd!==null)
                $nd[$this->conf['dataActionKey']] = $dataAction;
            $_POST[$this->conf['dataActionKey']] = $dataAction;
        }

}

/**
 * Data read hook function. If $query['DataAction'] array member fits contents of $dataReadValues parameter that can be array or string, 
 * user function $function_name will be called and contents of $query parameter will be passed. If $query parameter is omitted, function 
 * will take $_GET global array.
 *
 * @category Navigation
 * @category Data output
 *
 * @param variant $dataReadValues - string or array of possible <input name=DataAction> values that $function should handle.
 * @param string $function - callback function name.
 * @param array $query - associative array data query  
 * 
 * @return variant value that return user function.
 */
function dataRead($dataReadValues, $function=null, $arrParam = array()){

    $query = ($_SERVER['REQUEST_METHOD']=='POST' ? $_POST : (array)$_GET);

    $dataReadValues = (is_array($dataReadValues) ? $dataReadValues : array($dataReadValues));

    if(in_array($query[$this->conf['dataReadKey']], $dataReadValues)){
        
        $arrParam = func_get_args();
        array_shift($arrParam);

        if(!$function){
            $function = $query[$this->conf['dataReadKey']];
        } else {
            array_shift($arrParam);
        }
        $arrArgs = $arrParam;    
                    
        if(is_callable($function)){
            $ret = call_user_func_array($function, array_merge(Array($query), $arrParam) );
        } elseif( is_object($function) ){

            if(self::isRecursion())
                return;

            $obj = $function;
            $method = $query[$this->conf['dataReadKey']];
            $ret = array();

            try {

                $ret = call_user_func_array(array($obj, $method), array_merge(Array($query), $arrParam));
                
            } catch (Exception $e) {
                die($e->getMessage());
            }
            
        }

        if(is_array($ret)){
            $this->json('ok', null, $ret);
        } elseif (is_string($ret)) {
            die($ret);
        }
            
    }

}
function cancelDataRead(){
    unset($_POST[$this->conf['dataReadKey']]);
}

public static function isRecursion(){
    $aCallsUnique = array();
    foreach (debug_backtrace() as $call) {
        $class_func_curr = ($call['class'] ? $call['class'].'::' : '').$call['function'];
        $aCallsUnique[$class_func_curr] += 1;
    }
    foreach($aCallsUnique as $nCalls){
        if($nCalls>1)
            return true;
    }
    return false;
}

function getDateTimeByOperationTime($operationDate, $time){

    $stpOperationDayStart = isset($this->conf['stpOperationDayStart']) ? $this->conf['stpOperationDayStart'] : '00:00'; 
    $stpOperationDayEnd = isset($this->conf['stpOperationDayEnd']) ? $this->conf['stpOperationDayEnd'] : '23:59:59'; 
    $tempDate = Date('Y-m-d');
    if (strtotime($tempDate.' '.$stpOperationDayEnd) <= strtotime($tempDate.' '.$stpOperationDayStart)
    // e.g. 1:30 < 7:30, this means that operation date prolongs to next day till $stpOperationDayEnd
        && strtotime($tempDate.' '.$time) <= strtotime($tempDate.' '.$stpOperationDayEnd)
         // and current time less than $stpOperationDayEnd
        ){
            return (Date('Y-m-d',strtotime($operationDate)+60*60*24).' '.$time);
    } else 
        return $operationDate.' '.$time;
}

function showDatesPeriod($trnStartDate, $trnEndDate, $precision = 'date'){
    $strRet = (!empty($trnStartDate)
            ? ($precision == 'datetime' 
                ? $this->datetimeSQL2PHP($trnStartDate)
                : $this->dateSQL2PHP($trnStartDate)
                )
            : ""
            );
    $strRet .= ($strRet!="" && !empty($trnEndDate) && !($trnStartDate==$trnEndDate)
            ? " - "
            : "");
    $strRet .= (!empty($trnEndDate) && !($trnStartDate==$trnEndDate)
            ? ($precision == 'datetime' 
                ? $this->datetimeSQL2PHP($trnEndDate)
                : $this->dateSQL2PHP($trnEndDate)
                )
            : ""
            );
    
    return $strRet;
}

function getUserData($usrID){

    if($this->userInfoCache[$usrID]){
        return $this->userInfoCache[$usrID];
    }

    $oSQL = $this->oSQL;
    $rs = $this->getDataFromCommonViews($usrID, "", "svw_user", "");
    $rw = $oSQL->fetch_array($rs);
    
    $retVal = ($rw["optValue"]!="" 
        ? ($rw["optText{$this->local}"]==""
            ? $rw["optText"]
            : $rw["optText{$this->local}"])
         : $usrID);

    $this->userInfoCache[$usrID] = $retVal;

    return $retVal;

}
function getUserData_All($usrID, $strWhatData='all'){
    
    $rsUser = $this->oSQL->q("SELECT * FROM stbl_user WHERE usrID='$usrID'");
    $rwUser = $this->oSQL->f($rsUser);
    
    $key = strtolower($strWhatData);
    
    switch ($key) {
        case "all":
            return $rwUser;
        case "name":
        case "fn_sn":
        case "sn_fn":
            return $rwUser["usrName"];
        case "namelocal":
        case "nameLocal":
            return $rwUser["usrNameLocal"];
        case "email":
        case "e-mail":
            return $rwUser["usrEMail"];
        default:
            return $rwUser[$strWhatData];
   }
}

/**
 * This function returns external reference to the script inside `<iframe>`. This href will load all iframe surrounding, including menu and $iframeHREF will be inside this `<iframe>`
 *
 * @param string $iframeHREF - URL of the page inside the `<iframe>`
 * 
 */
static function getFullHREF($iframeHREF){
    $prjDir = dirname($_SERVER['REQUEST_URI']);
    $flagHTTPS = (!empty($_SERVER['HTTPS']) && $_SERVER['HTTPS'] !== 'off') || $_SERVER['SERVER_PORT'] == 443;
    $strURL = 'http'
        .($flagHTTPS ? 's' : '')
        .'://'
        .$_SERVER['HTTP_HOST']
        .( !empty($_SERVER['SERVER_PORT']) 
            ? ($_SERVER['SERVER_PORT']!=($flagHTTPS ? 443 : 80) ? ':'.$_SERVER['SERVER_PORT'] : '')
            : ''
            )
        .$prjDir.'/'
        // .'index.php?pane='.urlencode($iframeHREF)
        .$iframeHREF
        ;
    return $strURL;
}

static function getSlug(){
    $slug = preg_replace('/[^a-z0-9]+/i', '-', 
            preg_replace('/^[^a-z]+/i', '', dirname($_SERVER['PHP_SELF']))
        )
        .' '.preg_replace('/[^a-z0-9]+/i', '-',
            preg_replace('/^[^a-z]+/i', '', 
                preg_replace('/\.php$/i', '', $_SERVER['PHP_SELF'])
                )
            );
    return $slug;
}

/**
 * function to obtain keyboard layout variations when user searches something but miss keyboard layout switch
 * 
 * It takes multibyte UTF-8-encoded string as the parameter, then it searches variations in static property self::$arrKeyboard and returns it as associative array. 
 *
 * @category i18n
 * @category Useful stuff
 *
 * @param   string   $src    Original user input
 *
 * @return  array            Associative array of possible string variations, like `array('EN'=>'qwe', 'RU'=>'йцу')` 
 */
static function getKeyboardVariations($src){
    
    mb_internal_encoding('UTF-8');
    $toRet = array();

    // 1. look for origin layout. if user has mixed layouts in one criteria - it's definitely bullshit
    foreach(self::$arrKeyboard as $layoutSrc=>$keyboardSrc){
        $destToCompare = '';
        $flagAtLeastOneSymbolFound = false;
        for($i=0;$i<mb_strlen($src);$i++){
            $key = mb_substr($src, $i, 1);
            $keyIx = mb_strpos($keyboardSrc, $key);
            if($keyIx!==false){
                $val = mb_substr($keyboardSrc, $keyIx, 1);
                $flagAtLeastOneSymbolFound = true;
            } else 
                $val = $key;
            $destToCompare .= $val;
        }

        // if we've found original layout
        if( $destToCompare == $src && $flagAtLeastOneSymbolFound ){

            $toRet[$layoutSrc] = $src;

            // ... we look for variations
            foreach(self::$arrKeyboard as $layout=>$keyboard){
                if($layout==$layoutSrc) // skip original layout
                    continue;
                $dest = '';
                for($i=0;$i<mb_strlen($src);$i++){
                    $key = mb_substr($src, $i, 1);
                    $keyIx = mb_strpos($keyboardSrc, $key);
                    $val = ($keyIx===false ? $key : mb_substr($keyboard, $keyIx, 1));
                    $dest .= $val;
                }
                if($dest!=$src)
                    $toRet[$layout] = $dest;
            }

            break;

        } 

    }

    if(count($toRet)==0){
        reset(self::$arrKeyboard);
        $toRet = array(key(self::$arrKeyboard)=>$src);
    }

    return $toRet;

}

/**
 * This function rebuilds style.css for selected theme using style.less located in the same folder as style.css. 
 * REMEMBER TO chmod a+w to this folder!
 *
 * @category Utilities
 */
protected function buildLess(){

    GLOBAL $eiseIntraCSSTheme, $eiseIntraFlagBuildLess, $eiseIntraLessToBuild;

    if(!$eiseIntraFlagBuildLess)
        return;

    if(!isset($eiseIntraLessToBuild)){
        $eiseIntraLessToBuild = array('grid', 'list', 'style'.($this->conf['useBootstrap'] ? '.bootstrap' : ''));
        //$eiseIntraLessToBuild = array('style');
    }
    
    require_once eiseIntraLibAbsolutePath.'less.php/Less.php';

    try {
        $strThemePath = $_SERVER['DOCUMENT_ROOT'].str_replace('/', DIRECTORY_SEPARATOR, eiseIntraCSSPath.'themes/'.$eiseIntraCSSTheme.'/');
 
        foreach( (array)$eiseIntraLessToBuild as $stylesheet){
            $parser = new Less_Parser( array( 'compress' => true ) );
            $parser->parseFile( $strThemePath.$stylesheet.'.less' );
            $css = $parser->getCss();
            file_put_contents($strThemePath.$stylesheet.'.css', $css);
        }

    } catch (Exception $e) {
        echo '<pre>';
        echo $e->getMessage();
        die();
    }
 
    
 
}
 
 
/**
 * This function dumps $to_echo variable using var_export() or simply echoes it, with stack trace ahead
 *
 * @param variant $to_echo - variables to dump
 * @param boolean $flagStackTrace - if last parameter set to TRUE, function adds stack trace
 *
 * @category Debug
 *
 */
static function debug($to_echo){

    $args = func_get_args();
    $lastArgIx = func_num_args()-1;

    $flagStackTrace = $args[$lastArgIx];

    echo '<pre>';
    
    foreach($args as $ix=>$to_echo){
        if($ix===$lastArgIx && is_bool($ix)){
            $flagStackTrace = true;
            break;
        }

        if(is_array($to_echo) || is_object($to_echo)){
            echo htmlspecialchars(var_export($to_echo, true));
        } else 
            echo htmlspecialchars($to_echo);
        echo "\r\n";

    }

   

    if($flagStackTrace){
        $a =  debug_backtrace();

        if($a[0]['function']=='debug' && $a[0]['class']=='eiseIntra'){
            $a = array_reverse($a);
            echo "eiseIntra debug called at [{$a[0]['file']}:{$a[0]['line']}]:\n";
        }

        array_pop($a);

        foreach($a as $num=>$debug_data){
            echo "#{$num} ".($debug_data['class'] ? $debug_data['class'].'::' : '')
                           #.($debug_data['object'] ? $debug_data['object'].'->' : '')
                           .$debug_data['function'].'( '.(/*$debug_data['args']*/false ? var_export($debug_data['args'], true) : '').' ) '
                           ."called at [{$debug_data['file']}:{$debug_data['line']}]\n";
        }

        /*
        function    string  The current function name. See also __FUNCTION__.
        line    integer The current line number. See also __LINE__.
        file    string  The current file name. See also __FILE__.
        class   string  The current class name. See also __CLASS__
        object  object  The current object.
        type    string  The current call type. If a method call, "->" is returned. If a static method call, "::" is returned. If a function call, nothing is returned.
        args    array   If inside a function, this lists the functions arguments. If inside an included file, this lists the included file name(s).


        #0  c() called at [/tmp/include.php:10]
        #1  b() called at [/tmp/include.php:6]
        #2  a() called at [/tmp/include.php:17]
        #3  include(/tmp/include.php) called at [/tmp/test.php:3]
        */
    }

    echo '</pre>';
 
}

/**
 * @ignore
 */
function checkMessageQueueExists(){

    $oSQL = $this->oSQL;

    $rs = $oSQL->q("SHOW TABLES LIKE 'stbl_message_queue'");
    if($oSQL->n($rs)==0){

        $rwCreate = $oSQL->f("SHOW CREATE TABLE stbl_message");
        $sqlCreate = $rwCreate['Create Table'];

        $sqlCreate = preg_replace('/stbl_message/', 'stbl_message_queue', $sqlCreate);
        $sqlCreate = preg_replace('/,[\s]+KEY/', "\n -- , KEY", $sqlCreate);

        try {
            $oSQL->q("DROP TABLE IF EXISTS stbl_message_queue");
            $oSQL->q($sqlCreate);
        } catch (Exception $e) {

            $dbname = $oSQL->d('SELECT DATABASE()');
            $error = $e->getMessage();
            throw new Exception("Unable to create message queue. Please check CREATE TABLE permissions of user '{$oSQL->dbuser}' on '{$dbname}'. Error: {$error}");
            
        }
    }

}


}


class eiseException extends Exception  {
function __construct($msg, $code = 0){
    parent::__construct($msg, $code);
}
}


if (!function_exists('__')) {
    function __(){
        GLOBAL $intra;
        $args = func_get_args();
        if($intra && is_a($intra, 'eiseIntra')){
            return call_user_func_array([$intra, 'translate'], $args);
        } else {
            return $args[0];
        }
    }
}