FDL_external.php

Go to the documentation of this file.

<?php
/*
 * @author Anakeen
 * @package FDL
*/
/**
 * Functions used for edition help
 *
 * @author Anakeen
 * @version $Id: FDL_external.php,v 1.71 2009/01/13 09:37:25 eric Exp $
 * @package FDL
 * @subpackage
 */
/**
 */

include_once ("FDL/Class.Dir.php");
include_once ("FDL/Lib.Dir.php");

function vault_filename($th, $fileid)
{
    
    if (preg_match(PREGEXPFILE, $fileid, $reg)) {
        // reg[1] is mime type
        $vf = newFreeVaultFile($th->dbaccess);
        if ($vf->Show($reg[2], $info) == "") $fname = $info->name;
        else $fname = sprintf(_("file %d") , $th->initid);
    } else {
        $fname = sprintf(_("file %d") , $th->initid);
    }
    
    return array(
        $fname
    );
}
/**
 * Functions used for edition help
 *
 * @param string $dbaccess database specification
 * @param int $docid identifier document
 * @return array first item : the title
 */
function gettitle($dbaccess, $docid)
{
    
    $doc = new_Doc($dbaccess, $docid);
    if ($doc->isAffected()) return array(
        $doc->title
    );
    return array(
        "?",
        " "
    ); // suppress
    
}
/**
 * link enum definition from other def
 */
function linkenum($famid, $attrid)
{
    
    $dbaccess = getDbAccess();
    if (!is_numeric($famid)) $famid = getFamIdFromName($dbaccess, $famid);
    $soc = new_Doc($dbaccess, $famid);
    if ($soc->isAffected()) {
        /*
         * @var NormalAttribute $a
         */
        $a = $soc->getAttribute($attrid);
        
        return EnumAttributeTools::getFlatEnumNotation($soc->id, $a->id);
    }
    return "";
}
/**
 * get mail address from MAILRECIPENT families
 * @param $dbaccess
 * @param $name
 * @return array|string
 */
function lmail($dbaccess, $name)
{
    
    $tr = array();
    $sf = new SearchDoc($dbaccess, -1);
    $sf->setObjectReturn();
    $sf->overrideViewControl();
    $sf->addFilter("atags ~* 'MAILRECIPIENT'");
    $dlf = $sf->search()->getDocumentList();
    
    if ($dlf->count() == 0) return sprintf(_("none families are described to be used as recipient"));
    foreach ($dlf as $fam) {
        $cfam = createTmpDoc($dbaccess, $fam->id);
        /*
         * @var IMailRecipient $cfam
         */
        if (!method_exists($cfam, "getMail")) return sprintf(_("family %s does not implement IMailRecipent - missing getMail method") , $fam->name);
        if (!method_exists($cfam, "getMailAttribute")) return sprintf(_("family %s does not implement IMailRecipent - missing getMailAttribute method") , $fam->name);
        if (!method_exists($cfam, "getMailTitle")) return sprintf(_("family %s does not implement IMailRecipient - missing getMailTitle method") , $fam->name);
        
        $mailAttr = $cfam->getMailAttribute();
        $s = new SearchDoc($dbaccess, $fam->id);
        $s->setObjectReturn();
        $s->setSlice(100);
        if ($mailAttr) $s->addFilter("%s is not null", $mailAttr);
        if ($name != "") {
            if ($mailAttr) $s->addFilter("(title ~* '%s') or (%s ~* '%s')", $name, $mailAttr, $name);
            else $s->addFilter("(title ~* '%s')", $name, $name);
        }
        $dl = $s->search()->getDocumentList();
        foreach ($dl as $dest) {
            /**
             * @var \Dcp\Family\IUSER $dest
             */
            $mailTitle = $dest->getMailTitle();
            $mail = $dest->getMail();
            if ($mailTitle == '') {
                $mailTitle = $mail;
            }
            $usw = $dest->getRawValue("us_whatid");
            $uid = "";
            if ($usw > 0) {
                $uid = $dest->id;
                $type = "link"; //$type="link";  // cause it is a bool
                
            } else {
                $type = "plain"; //$type="plain";
                $uid = " ";
            }
            $tr[] = array(
                xml_entity_encode($mailTitle) ,
                $mail,
                $uid,
                $type
            );
        }
    }
    usort($tr, function ($a, $b)
    {
        return strcasecmp($a[0], $b[0]);
    });
    return $tr;
}

function tplmail($dbaccess, $type, $famid, $wfamid, $name)
{
    switch ($type) {
        case 'F': // address fix
            return lmail($dbaccess, $name);
            break;

        case 'A': // value of attribute
            if (!$famid) {
                return _("family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $famid, 'text', false, $name);
            return $ta;
            break;

        case 'D': // value of attribute
            if (!$famid) {
                return _("family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $famid, 'docid', false, $name);
            $ta = array_merge($ta, getFamAttribute($dbaccess, $famid, 'account', false, $name));
            return $ta;
            break;

        case 'DE':
            if (!$famid) {
                return _("family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $famid, 'docid', true, $name);
            $ta = array_merge($ta, getFamAttribute($dbaccess, $famid, 'account', true, $name));
            return $ta;
            break;

        case 'G': // value of attribute
            if (!$famid) {
                return _("family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $famid, 'file', false, $name);
            $ta = array_merge($ta, getFamAttribute($dbaccess, $famid, 'image', false, $name));
            return $ta;
            break;

        case 'E': // value of attribute
            if (!$famid) {
                return _("family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $famid, '', true, $name);
            return $ta;
        case 'WA': // value of attribute
            if (!$wfamid) {
                return _("cycle family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $wfamid, 'text', false, $name);
            return $ta;
            break;

        case 'WE': // value of attribute
            if (!$wfamid) {
                return _("cycle family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $wfamid, '', true, $name);
            return $ta;
            break;

        case 'WD': // value of attribute
            if (!$wfamid) {
                return _("cycle family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $wfamid, 'docid', false, $name);
            return $ta;
            break;

        case 'PR':
            if (!$famid) {
                return _("family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $famid, 'docid', true, $name);
            return $ta;
            break;

        case 'WPR':
            if (!$wfamid) {
                return _("cycle family must be defined");
            }
            $ta = getFamAttribute($dbaccess, $wfamid, 'docid', true, $name);
            return $ta;
            break;

        case 'P':
            return getGlobalsParameters($name);
            break;

        case 'RD':
            return recipientDocument($dbaccess, $name);
            break;
    }
    return "error tplmail($dbaccess,$type,$famid, $name)";
}

function tpluser($dbaccess, $type, $famid, $wfamid, $name)
{
    switch ($type) {
        case 'F': // address fix
            $users = lfamily($dbaccess, "IUSER", $name);
            if (is_array($users)) {
                foreach ($users as $k => $v) {
                    $users[$k][1] = $v[1] . ' (' . $v[2] . ')';
                }
            }
            return $users;
        default:
            return tplmail($dbaccess, $type, $famid, $wfamid, $name);
    }
}

function getGlobalsParameters($name)
{
    include_once ("Class.QueryDb.php");
    $q = new QueryDb("", "ParamDef");
    
    $tr = array();
    $q->AddQuery("isglob = 'Y'");
    if ($name) $q->AddQuery("name ~* '" . pg_escape_string($name) . "'");
    $q->order_by = "name";
    $la = $q->Query(0, 20, "TABLE");
    foreach ($la as $k => $v) {
        $p = $v["name"] . ' (' . $v["descr"] . ')';
        $tr[] = array(
            $p,
            $p
        );
    }
    return $tr;
}
/**
 * attribut list to be use in mail template
 */
function getFamAttribute($dbaccess, $famid, $type = "text", $param = false, $name = "")
{
    $doc = createDoc($dbaccess, $famid, false);
    $tr = array();
    if ($param) {
        $tinter = $doc->getParamAttributes();
    } else {
        $tinter = $doc->GetNormalAttributes();
    }
    $name = strtolower($name);
    // HERE HERE HERE
    $pattern_name = preg_quote($name, "/");
    $pattern_type = ($type);
    foreach ($tinter as $k => $v) {
        if (($name == "") || (preg_match("/$pattern_name/i", $v->getLabel() , $reg)) || (preg_match("/$pattern_name/", $v->id, $reg))) {
            preg_match("/$pattern_type/", $v->type, $reg);
            if (($type == "") || ($v->type == $type) || ((strpos($type, '|') > 0) && (preg_match("/$pattern_type/", $v->type, $reg)))) {
                $r = $v->id . ' (' . $v->getLabel() . ')';
                $tr[] = array(
                    $r,
                    $r
                );
            }
        }
    }
    return $tr;
}
// liste des familles
function lfamilies($dbaccess, $name = '', $subfam = "")
{
    //'lsociety(D,US_SOCIETY):US_IDSOCIETY,US_SOCIETY,
    global $action;
    
    if ($subfam == "") {
        $tinter = GetClassesDoc($dbaccess, $action->user->id, 0, "TABLE");
    } else {
        if (!is_numeric($subfam)) {
            $subfam = getFamIdFromName($dbaccess, $subfam);
        }
        $cdoc = new_Doc($dbaccess, $subfam);
        $tinter = $cdoc->GetChildFam();
        $tinter[] = get_object_vars($cdoc);
    }
    
    $tr = array();
    
    $name = strtolower($name);
    // HERE HERE HERE
    $pattern_name = preg_quote($name, "/");
    foreach ($tinter as $v) {
        $ftitle = DocFam::getLangTitle($v);
        if (($name == "") || (preg_match("/$pattern_name/i", $ftitle, $reg))) {
            $tr[] = array(
                $ftitle,
                $v["id"],
                $ftitle
            );
        }
    }
    return $tr;
}
// liste des documents par familles

/**
 * list of documents of a same family
 *
 * @param string $dbaccess database specification
 * @param string $famid family identifier (if 0 any family). It can be internal name
 * @param string $name string filter on the title
 * @param int $dirid identifier of folder for restriction to a folder tree (deprecated)
 * @param array $filter additionnals SQL filters
 * @param string $idid the document id to use (default: id)
 * @param bool $withDiacritic to search with accent
 * @return array/string*3 array of (title, identifier, title)
 */
function lfamily($dbaccess, $famid, $name = "", $dirid = 0, $filter = array() , $idid = "id", $withDiacritic = false)
{
    $only = false;
    if ($famid[0] == '-') {
        $only = true;
        $famid = substr($famid, 1);
    }
    
    if (!is_numeric($famid)) {
        $famName = $famid;
        $famid = getFamIdFromName($dbaccess, $famName);
        if ($famid <= 0) {
            return sprintf(_("family %s not found") , $famName);
        }
    }
    $s = new SearchDoc($dbaccess, $famid); //$famid=-(abs($famid));
    if ($only) {
        $s->only = true;
    }
    if (!is_array($filter)) {
        if (trim($filter) != "") $filter = array(
            $filter
        );
        else $filter = array();
    }
    if (count($filter) > 0) {
        foreach ($filter as $f) {
            $s->addFilter($f);
        }
    }
    
    if ($name != "" && is_string($name)) {
        if (!$withDiacritic) {
            $name = setDiacriticRules(mb_strtolower($name));
        }
        $s->addFilter("title ~* '%s'", $name);
    }
    $s->setSlice(100);
    
    if ($dirid) $s->useCollection($dirid);
    $s->returnsOnly(array(
        "title",
        $idid
    ));
    $tinter = $s->search();
    if ($s->getError()) {
        return $s->getError();
    }
    
    $tr = array();
    
    foreach ($tinter as $k => $v) {
        $tr[] = array(
            htmlspecialchars($v["title"]) ,
            $v[$idid],
            $v["title"]
        );
    }
    return $tr;
}
/**
 * create preg rule to search without diacritic
 * @see lfamily
 * @param string $text
 * @return string rule for preg
 */
function setDiacriticRules($text)
{
    $dias = array(
        "a|à|á|â|ã|ä|å",
        "o|ò|ó|ô|õ|ö|ø",
        "e|è|é|ê|ë",
        "c|ç",
        "i|ì|í|î|ï",
        "u|ù|ú|û|ü",
        "y|ÿ",
        "n|ñ"
    );
    foreach ($dias as $dia) {
        $text = preg_replace("/[" . str_replace("|", "", $dia) . "]/u", "[$dia]", $text);
    }
    return $text;
}
// alias name

/**
 * @deprecated use lfamily instead
 * @param $dbaccess
 * @param $famid
 * @param string $name
 * @param int $dirid
 * @param array $filter
 * @param string $idid
 * @return mixed
 */
function lfamilly($dbaccess, $famid, $name = "", $dirid = 0, $filter = array() , $idid = "id")
{
    return lfamily($dbaccess, $famid, $name, $dirid, $filter, $idid);
}
/**
 * list of documents of a same family and their specific attributes
 *
 * @param string $dbaccess database specification
 * @param string $famid family identifier (if 0 any family). It can be internal name
 * @param string $name string filter on the title
 * @param string $attrids argument variable of name of attribute to be returned
 * @return array/string*3 array of (title, identifier, attr1, attr2, ...)
 */
function lfamilyvalues($dbaccess, $famid, $name = "")
{
    //'lsociety(D,US_SOCIETY):US_IDSOCIETY,US_SOCIETY,
    global $action;
    
    $only = false;
    if ($famid[0] == '-') {
        $only = true;
        $famid = substr($famid, 1);
    }
    
    if (!is_numeric($famid)) {
        $famid = getFamIdFromName($dbaccess, $famid);
    }
    $filter = array();
    if ($name != "") {
        $name = pg_escape_string($name);
        $filter[] = "title ~* '$name'";
    }
    $attr = array();
    $args = func_get_args();
    foreach ($args as $k => $v) {
        if ($k > 2) $attr[] = strtolower($v);
    }
    //$famid=-(abs($famid));
    if ($only) $famid = - ($famid);
    $tinter = internalGetDocCollection($dbaccess, $dirid = 0, 0, 100, $filter, $action->user->id, "TABLE", $famid, false, "title");
    
    $tr = array();
    
    foreach ($tinter as $k => $v) {
        $tr[$k] = array(
            $v["title"]
        );
        foreach ($attr as $a) {
            $tr[$k][] = $v[$a];
        }
    }
    return $tr;
}
/**
 * list of documents of a same family and which are in the $kid category
 *
 * @param string $dbaccess database specification
 * @param string $famname family internal name
 * @param string $aid enum attribute identifier
 * @param string $kid enum key to search
 * @param string $name string filter on the title
 * @param array $filter additionnals SQL filters
 * @return array/string*3 array of (title, identifier, title)
 */
function lkfamily($dbaccess, $famname, $aid, $kid, $name, $filter = array())
{
    //'lsociety(D,US_SOCIETY):US_IDSOCIETY,US_SOCIETY,
    global $action;
    
    if ($name != "") {
        $name = pg_escape_string($name);
        $filter[] = "title ~* '.*$name.*'";
    }
    
    $tinter = getKindDoc($dbaccess, $famname, $aid, $kid, $name, $filter);
    
    $tr = array();
    
    foreach ($tinter as $k => $v) {
        
        $tr[] = array(
            $v["title"],
            $v["id"],
            $v["title"]
        );
    }
    return $tr;
}
/**
 * return account documents
 * @param string $filterName title filter key
 * @param int $limit max account returned
 * @return array
 */
function fdlGetDocuments($families, $filterName = '', $limit = 15, $extraFilter = '')
{
    $tout = array();
    $famname = explode('|', $families);
    
    foreach ($famname as $famid) {
        if (count($tout) < $limit) {
            $s = new SearchDoc(getDbAccess() , $famid);
            if ($filterName) $s->addFilter("title ~* '%s'", $filterName);
            if ($extraFilter) $s->addFilter($extraFilter);
            $s->setSlice($limit);
            $s->setObjectReturn();
            $s->search();
            if ($s->getError()) return $s->getError();
            
            while ($doc = $s->getNextDoc()) {
                $title = $doc->getHTMLTitle();
                $tout[] = array(
                    sprintf('<img width="10px" src="%s">%s', $doc->getIcon('', 10) , $title) ,
                    $doc->initid,
                    $title
                );
            }
        }
    }
    if ((count($tout) == 0) && ($filterName != '')) return sprintf(_("no document match '%s'") , $filterName);
    return $tout;
}
/**
 * return account list
 * @param string $filterName filter key
 * @param int $limit max result limit
 * @param string $options option for role or group
 * @return array|string
 */
function fdlGetAccounts($filterName = '', $limit = 15, $options = '')
{
    $sort = 'lastname';
    $searchinmail = false;
    $s = new SearchAccount();
    $s->setSlice($limit);
    if (preg_match('/usemailfilter\s*=([^|]*)/', $options, $regMatch)) {
        $searchinmail = trim($regMatch[1]);
        $searchinmail = ($searchinmail == "yes");
    }
    if (preg_match('/role\s*=([^|]*)/', $options, $regRole)) {
        $roles = explode(',', $regRole[1]);
        
        foreach ($roles as $role) {
            try {
                $s->addRoleFilter($role);
            }
            catch(Exception $e) {
                return $e->getMessage();
            }
        }
    }
    if (preg_match('/group\s*=([^|]*)/', $options, $regGroup)) {
        $groups = explode(',', $regGroup[1]);
        
        foreach ($groups as $group) {
            try {
                $s->addGroupFilter($group);
            }
            catch(Exception $e) {
                return $e->getMessage();
            }
        }
    }
    
    if (preg_match('/match\s*=([^|]*)/', $options, $regMatch)) {
        $match = trim($regMatch[1]);
        switch ($match) {
            case 'all':
                break;

            case 'group':
                $s->setTypeFilter($s::groupType);
                break;

            case 'role':
                $s->setTypeFilter($s::roleType);
                break;

            default:
                $s->setTypeFilter($s::userType);
        }
    } else {
        $s->setTypeFilter($s::userType);
    }
    
    if (preg_match('/family\s*=([^|]*)/', $options, $regMatch)) {
        $match = trim($regMatch[1]);
        $s->filterFamily($match);
    }
    $tr = array();
    
    $condName = "";
    if ($filterName) {
        $tname = explode(' ', $filterName);
        $condmail = '';
        if ($searchinmail) $condmail = sprintf("|| ' ' || coalesce(mail,'')");
        foreach ($tname as $name) {
            if ($condName) $condName.= " AND ";
            $condName.= sprintf("(coalesce(firstname,'') || ' ' || coalesce(lastname,'') %s ~* '%s')", $condmail, pg_escape_string(setDiacriticRules($name)));
        }
    }
    
    if ($condName) $s->addFilter($condName);
    if (!$sort) $sort = 'lastname';
    $s->setOrder($sort);
    $s->overrideViewControl(false);
    $al = $s->search();
    foreach ($al as $account) {
        
        $mail = $account->mail ? (' (' . mb_substr($account->mail, 0, 40) . ')') : '';
        $tr[] = array(
            htmlspecialchars($account->lastname . " " . $account->firstname . $mail) ,
            $account->fid,
            $account->lastname . " " . $account->firstname
        );
    }
    
    return $tr;
}
/**
 * return list of string for multiple static choice
 *
 * @param string $val filter value - can be empty => see all choices
 * @param string $enum possible choices like 'the first|the second|the last'
 * @return array/string*2 array of (enum, enum)
 */
function lenum($val, $enum)
{
    // $enum like 'a|b|c'
    $tenum = explode("|", $enum);
    
    $tr = array();
    // HERE HERE HERE
    $pattern_val = preg_quote($val, "/");
    foreach ($tenum as $k => $v) {
        
        if (($val == "") || (preg_match("/$pattern_val/i", $v, $reg))) $tr[] = array(
            $v,
            $v
        );
    }
    return $tr;
}
/**
 * list of enum possibilities
 * @internal use for enum when eformat=auto
 * @param string $famid family identifier
 * @param string $attrid enum identifier
 * @param string $val  label filter
 * @return array/string*2 array of (enum, enum)
 */
function fdlGetEnumValues($famid, $attrid, $val = '')
{
    $doc = new_doc('', $famid);
    /*
     * @var NormalAttribute $enumAttribute
     */
    $enumAttribute = $doc->getAttribute($attrid);
    if (!$enumAttribute) {
        return sprintf("enum attribute %s not found [family %s]", $attrid, $famid);
    }
    $tenumLabel = $enumAttribute->getEnumLabel(null, false);
    $tr = array();
    foreach ($tenumLabel as $key => $label) {
        if (($val == "") || (preg_match("!" . preg_quote($val, "!") . "!iu", $label, $reg))) {
            $tr[] = array(
                htmlspecialchars($label, ENT_NOQUOTES) ,
                $label,
                $key
            );
        }
    }
    
    return $tr;
}
/**
 * return list of string for multiple static choice
 *
 * @param string $val filter value - can be empty => see all choices
 * @param string $enum possible choices like 'the first|the second|the last'
 * @deprecated replaced by fdlGetEnumValues
 * @return array/string*2 array of (enum, enum)
 */
function lenumvalues($enum, $val = "")
{
    // $enum like 'a|A,b|B'
    $val = trim($val);
    $val = str_replace(array(
        '&comma;',
        '&point;'
    ) , array(
        ',',
        '.'
    ) , $val);
    $val = str_replace(array(
        '&lpar;',
        '&rpar;',
    ) , array(
        '(',
        ')'
    ) , $val);
    $enum = str_replace(array(
        '---',
        '&lpar;',
        '&rpar;',
    ) , array(
        ',',
        '(',
        ')'
    ) , $enum);
    
    $tenum = $tenumLabel = array();
    EnumAttributeTools::flatEnumNotationToEnumArray($enum, $tenum, $tenumLabel);
    $tr = array();
    foreach ($tenumLabel as $key => $label) {
        $slabel = str_replace(array(
            '&comma;',
            '&point;'
        ) , array(
            ',',
            '.'
        ) , $label);
        if (($val == "") || (preg_match("!" . preg_quote($val, "!") . "!i", $slabel, $reg))) $tr[] = array(
            "$slabel",
            $slabel,
            $key
        );
    }
    
    return $tr;
}
// liste des profils
function lprofil($dbaccess, $name, $famid = 0)
{
    //'lsociety(D,US_SOCIETY):US_IDSOCIETY,US_SOCIETY,
    global $action;
    $dirid = 0;
    if ($famid > 0) {
        $fdoc = createTmpDoc($dbaccess, $famid);
        if ($fdoc->defDoctype == 'D') return lfamily($dbaccess, 4, $name);
        else if ($fdoc->defDoctype == 'S') return lfamily($dbaccess, 6, $name);
        else return lfamily($dbaccess, 3, $name, 0, array(
            "fromid=3"
        ));
    }
    
    return lfamily($dbaccess, 3, $name, $dirid);
}
// liste des masque
function lmask($dbaccess, $name, $maskfamid = "")
{
    
    $filter = array();
    if ($maskfamid > 0) {
        $mdoc = new_Doc($dbaccess, $maskfamid);
        $chdoc = $mdoc->GetFromDoc();
        $filter[] = GetSqlCond($chdoc, "msk_famid");
        //    $filter[]="msk_famid='$maskfamid'"; // when workflow will have attribut to say the compatible families
        
    }
    return lfamily($dbaccess, "MASK", $name, 0, $filter);
}
// view control list
function lcvdoc($dbaccess, $name, $cvfamid = "")
{
    $filter = array();
    if ($cvfamid > 0) {
        $mdoc = new_Doc($dbaccess, $cvfamid);
        $chdoc = $mdoc->GetFromDoc();
        $filter[] = GetSqlCond($chdoc, "cv_famid");
    }
    return lfamily($dbaccess, "CVDOC", $name, 0, $filter);
}
// mail template list
function lmailtemplatedoc($dbaccess, $name, $cvfamid = "")
{
    $filter = array();
    if ($cvfamid > 0) {
        $mdoc = new_Doc($dbaccess, $cvfamid);
        $chdoc = $mdoc->GetFromDoc();
        $filter[] = "tmail_family is null or (" . GetSqlCond($chdoc, "tmail_family") . ')';
    }
    return lfamily($dbaccess, "MAILTEMPLATE", $name, 0, $filter);
}
// timer list
function ltimerdoc($dbaccess, $name, $cvfamid = "")
{
    $filter = array();
    if ($cvfamid > 0) {
        $mdoc = new_Doc($dbaccess, $cvfamid);
        $chdoc = $mdoc->GetFromDoc();
        $filter[] = "tm_family is null or (" . GetSqlCond($chdoc, "tm_family") . ')';
    }
    return lfamily($dbaccess, "TIMER", $name, 0, $filter);
}
/**
 * search list not filters
 */
function lsearches($dbaccess, $name)
{
    
    $filter = array(
        "fromid=5 or fromid=16"
    );
    return lfamily($dbaccess, "SEARCH", $name, 0, $filter);
}
/**
 * tab list not filters
 */
function ltabs($dbaccess, $name)
{
    
    $filter = array(
        "fromid=5 or fromid=16"
    );
    $ls = lfamily($dbaccess, "SEARCH", $name, 0, $filter);
    
    $fld = lfamily($dbaccess, "2", $name);
    
    $all = array_merge($ls, $fld);
    return $all;
}
// liste des zones possibles
// $tview VCONS|VEDIT
function lzone_($dbaccess, $tview, $famid = "")
{
    $tz = array();
    
    $filter = array();
    if ($famid > 0) {
        $fdoc = new_Doc($dbaccess, $famid);
        $cdoc = createDoc($dbaccess, $famid, false);
        if ($tview == "VEDIT") $tz = $cdoc->eviews;
        else $tz = $cdoc->cviews;
        $oz = lzone_($dbaccess, $tview, $fdoc->fromid);
        $tz = array_merge($oz, $tz);
    } else {
        $fdoc = new_Doc($dbaccess);
        if ($tview == "VEDIT") $tz = $fdoc->eviews;
        else $tz = $fdoc->cviews;
    }
    
    return $tz;
}

function lzone($dbaccess, $tview, $famid = "")
{
    $tz = lzone_($dbaccess, $tview, $famid);
    $tz = array_unique($tz);
    $tr = array();
    foreach ($tz as $v) {
        $tr[] = array(
            $v,
            $v
        );
    }
    
    return $tr;
}

function lview($tidview, $tlview)
{
    $tr = array();
    
    if (is_array($tidview)) {
        foreach ($tidview as $k => $v) {
            $currentViewId = trim($v);
            if ('' !== $currentViewId) {
                $currentViewlabel = $tlview[$k];
                $tr[] = array(
                    htmlspecialchars(sprintf("%s (%s)", $currentViewlabel, $currentViewId)) ,
                    $currentViewId,
                    sprintf("%s (%s)", $currentViewlabel, $currentViewId)
                );
            }
        }
    }
    
    return $tr;
}
/**
 * Get columns (attribute ir property) that can be used to present of
 * the report's result
 *
 * @param $dbaccess
 * @param $famid
 * @param string $name
 * @return array
 */
function getReportColumns($dbaccess, $famid, $name = "")
{
    $doc = createDoc($dbaccess, $famid, false);
    $tr = array();
    $pattern = preg_quote($name, "/");
    // Properties
    $propList = array(
        "title" => _("doctitle") ,
        "revdate" => _("revdate") ,
        "revision" => _("revision") ,
        "owner" => _("owner") ,
        "state" => _("step") ,
        "id" => _("document id")
    );
    foreach ($propList as $propName => $propLabel) {
        if (($name == "") || (preg_match("/$pattern/i", $propLabel, $m))) {
            $propLabel = mb_ucfirst($propLabel);
            $tr[] = array(
                $propLabel,
                $propName,
                $propLabel
            );
        }
    }
    $relTypes = array(
        "docid",
        "account",
        "thesaurus"
    );
    // Attributes
    $attrList = $doc->getNormalAttributes();
    foreach ($attrList as $attr) {
        if ($attr->type == "array") continue;
        if (($name == "") || (preg_match("/$pattern/i", $attr->getLabel() , $m))) {
            $html = '<b><i>' . _getParentLabel($attr) . '</i></b><br/><span>&nbsp;&nbsp;' . $attr->getLabel() . '</span>';
            $tr[] = array(
                $html,
                $attr->id,
                $attr->getLabel() ,
                ''
            );
            if (in_array($attr->type, $relTypes)) {
                $html = '<b><i>' . _getParentLabel($attr) . '</i></b><br/><span>&nbsp;&nbsp;' . $attr->getLabel() . '<i> (' . _("report:docid") . ')</i></span>';
                $tr[] = array(
                    $html,
                    $attr->id,
                    sprintf("%s (%s)", $attr->getLabel() , _("report:docid")) ,
                    "docid"
                );
            }
        }
    }
    return $tr;
}

function reportChooseColumns(&$action, $id)
{
    // print "DB=$dbaccess, NOM=$nom ID=$id";
    // $action->lay->set("enclosname", $nom);
    
    /**
     * @var \Dcp\Family\Report $doc
     */
    $doc = new_doc("", $id);
    if ($doc->doctype == "C") {
        $doc = createTmpDoc($doc->dbaccess, $id);
        $doc->setValue(\Dcp\AttributeIdentifiers\Report::se_famid, getHttpVars("_se_famid"));
    }
    $doc->lay = & $action->lay;
    $doc->reportchoosecolumns();
}
/**
 * Get columns (attribute or property) than can be used to order the
 * report's result.
 *
 * @param $dbaccess
 * @param $famid
 * @param string $name
 * @return array
 */
function getReportSortableColumns($dbaccess, $famid, $name = "")
{
    $doc = createDoc($dbaccess, $famid, false);
    $tr = array();
    $pattern = preg_quote($name, "/");
    // Properties
    $propList = getSortProperties($dbaccess, $famid, $name);
    foreach ($propList as $prop) {
        if (($name == "") || (preg_match("/$pattern/i", $prop[1], $m))) {
            $tr[] = $prop;
        }
    }
    // Attributes
    $attrList = $doc->getSortAttributes();
    foreach ($attrList as $attr) {
        if (($name == "") || (preg_match("/$pattern/i", $attr->getLabel() , $m))) {
            $html = '<b><i>' . _getParentLabel($attr) . '</i></b><br/><span>&nbsp;&nbsp;' . $attr->getLabel() . '</span>';
            $tr[] = array(
                $html,
                $attr->id,
                $attr->getLabel() ,
                $attr->getOption('sortable')
            );
        }
    }
    return $tr;
}
// liste des attributs d'une famille
function getDocAttr($dbaccess, $famid, $name = "")
{
    return getSortAttr($dbaccess, $famid, $name, false);
}
// liste des attributs triable d'une famille
function getSortAttr($dbaccess, $famid, $name = "", $sort = true)
{
    $docfam = new DocFam($dbaccess, $famid);
    //'lsociety(D,US_SOCIETY):US_IDSOCIETY,US_SOCIETY,
    $doc = createDoc($dbaccess, $famid, false);
    
    $tr = array();
    $pattern_name = preg_quote($name, "/");
    
    if ($sort) {
        $tr = getSortProperties($dbaccess, $famid, $name);
        $tinter = $doc->GetSortAttributes();
    } else {
        $tinter = $doc->GetNormalAttributes();
    }
    
    foreach ($tinter as $k => $v) {
        if (($name == "") || (preg_match("/$pattern_name/i", $v->getLabel() , $reg))) {
            $dv = '<b><i>' . _getParentLabel($v) . '</i></b><br/><span>&nbsp;&nbsp;' . $v->getLabel() . '</span>';
            $tr[] = array(
                $dv,
                $v->id,
                $v->getLabel() ,
                $v->getOption('sortable')
            );
        }
    }
    
    return $tr;
}
/**
 * Get sortable properties with their default sort order
 *
 * @param $dbaccess
 * @param $famid
 * @param string $name filter to match the property's label
 * @return array
 */
function getSortProperties($dbaccess, $famid, $name = "")
{
    $pattern = preg_quote($name, "/");
    $docfam = new DocFam($dbaccess, $famid);
    $props = $docfam->getSortProperties();
    $ret = array();
    foreach ($props as $propName => $config) {
        if ($config['sort'] != 'asc' && $config['sort'] != 'desc') {
            continue;
        }
        
        switch ($propName) {
            case 'state':
                if ($docfam->wid <= 0) {
                    /* Excerpt from
                     * http://www.php.net/manual/en/control-structures.switch.php
                     *
                     * "Note that unlike some other languages, the continue statement
                     * applies to switch and acts similar to break. If you have a
                     * switch inside a loop and wish to continue to the next
                     * iteration of the outer loop, use continue 2."
                    */
                    continue 2;
                }
                $label = _("state");
                break;

            case 'title':
                $label = _("doctitle");
                break;

            case 'initid':
                $label = _("createdate");
                break;

            default:
                $label = Doc::$infofields[$propName]['label'];
                if ($label != '') {
                    $label = _($label);
                }
        }
        
        if ($name != "" && !preg_match("/$pattern/i", $label)) {
            continue;
        }
        
        $ret[] = array(
            $label,
            $propName,
            $label,
            $config['sort']
        );
    }
    return $ret;
}
/**
 * @param NormalAttribute|FieldsetAttribute $oa
 * @return string
 */
function _getParentLabel($oa)
{
    if ($oa && $oa->fieldSet && $oa->fieldSet->id != Adoc::HIDDENFIELD) {
        return _getParentLabel($oa->fieldSet) . $oa->fieldSet->getLabel() . '/';
    }
    return '';
}

function laction($dbaccess, $famid, $name, $type)
{
    $filter = array();
    $filter[] = "act_type='$type'";
    return lfamily($dbaccess, $famid, $name, 0, $filter);
}
/**
 * return list of what application
 */
function lapplications($n = "")
{
    $q = new QueryDb("", "Application");
    
    $tr = array();
    if ($n != "") $q->AddQuery("name ~* '$n'");
    $la = $q->Query(0, 0, "TABLE");
    if (is_array($la)) {
        foreach ($la as $k => $v) {
            $tr[] = array(
                $v["name"] . ":" . $v["short_name"],
                $v["name"]
            );
        }
    }
    return $tr;
}
/**
 * return list of what action for one application
 */
function lactions($app, $n = "")
{
    $tr = array();
    $q = new QueryDb("", "Application");
    $q->AddQuery("name = '$app'");
    $la = $q->Query(0, 0, "TABLE");
    if ($q->nb == 1) {
        $appid = $la[0]["id"];
        if ($appid > 0) {
            $q = new QueryDb("", "Action");
            $q->AddQuery("id_application = $appid");
            if ($n != "") $q->AddQuery("name ~* '$n'");
            $la = $q->Query(0, 0, "TABLE");
            
            if ($q->nb > 0) {
                foreach ($la as $k => $v) {
                    $tr[] = array(
                        $v["name"] . ":" . _($v["short_name"]) ,
                        $v["name"]
                    );
                }
            }
        }
    }
    return $tr;
}

function lapi($name = "")
{
    $cmd = sprintf("cd %s/API;ls -1 *.php| cut -f1 -d'.'", escapeshellarg(DEFAULT_PUBDIR));
    $apis = shell_exec($cmd);
    $tapi = explode("\n", $apis);
    
    $tr = array();
    // HERE HERE HERE
    $pattern_name = preg_quote($name, "/");
    foreach ($tapi as $k => $v) {
        $v0 = trim($v);
        if (($name == "") || (preg_match("/$pattern_name/i", $v0, $reg))) $tr[] = array(
            $v0,
            $v0
        );
    }
    return ($tr);
}

function lstates($dbaccess, $wid, $name = "")
{
    $doc = createDoc($dbaccess, $wid, false);
    
    $tr = array();
    if ($doc && method_exists($doc, "getStates")) {
        /*
         * @var WDoc $doc
         */
        $states = $doc->getStates();
        // HERE HERE HERE
        $pattern_name = preg_quote($name, "/");
        foreach ($states as $k => $v) {
            if (($name == "") || (preg_match("/$pattern_name/i", $v, $reg))) $tr[] = array(
                $v . ' (' . _($v) . ')',
                $v
            );
        }
    } else return sprintf(_("need to select workflow"));
    
    return $tr;
}

function ldocstates($dbaccess, $docid, $name = "")
{
    $doc = new_doc($dbaccess, $docid);
    $tr = array();
    if ($doc->isAlive() && $doc->wid) {
        $wdoc = new_doc($dbaccess, $doc->wid, false);
        if ($wdoc && method_exists($wdoc, "getStates")) {
            /*
             * @var WDoc $wdoc
             */
            $states = $wdoc->getStates();
            // HERE HERE HERE
            $pattern_name = preg_quote($name, "/");
            foreach ($states as $k => $v) {
                if (($name == "") || (preg_match("/$pattern_name/i", $v, $reg))) $tr[] = array(
                    $v . ' (' . _($v) . ')',
                    $v . ' (' . _($v) . ')'
                );
            }
        } else return sprintf(_("no workflow for this document"));
    } else return sprintf(_("no workflow for this document"));
    return $tr;
}

function lmethods($dbaccess, $famid, $name = "")
{
    $doc = createDoc($dbaccess, $famid, false);
    
    $tr = array();
    if ($doc) {
        $methods = get_class_methods($doc);
        $pattern_name = preg_quote($name, "/");
        foreach ($methods as $k => $v) {
            if (($name == "") || (preg_match("/$pattern_name/i", $v, $reg))) $tr[] = array(
                $v,
                '::' . $v . '()'
            );
        }
    } else return sprintf(_("need to select family"));
    
    return $tr;
}
/**
 * retrieve information from postgresql database
 * @param string $dbaccess the database coordonates
 * @param string $table the name of sql table where search data
 * @param string $filter the sql where clause to filter
 * @param string $more dynamic others arg to define column to retrieve
 */
function db_query($dbaccess, $table, $filter)
{
    $conn = pg_connect($dbaccess);
    if (!$conn) {
        return sprintf(_("connexion to %s has failed") , $dbaccess);
    }
    
    $args = func_get_args();
    $cols = array();
    $order = '';
    $tdn = array(); // display name
    foreach ($args as $k => $v) {
        if ($k > 2) {
            if (substr($v, -2) == ":H") {
                $v = substr($v, 0, -2);
            } else {
                if (!$order) $order = strtolower($v);
                $tdn[] = $k - 3;
            }
            $cols[] = (strtolower($v));
        }
    }
    if (count($cols) == 0) {
        return sprintf(_("no columns specified"));
    }
    if (count($tdn) == 0) {
        return sprintf(_("all columns are hiddens"));
    }
    
    $select = "select " . implode(",", $cols);
    $from = "from " . pg_escape_string($table);
    $orderby = "order by " . ($order);
    foreach ($_POST as $k => $v) {
        if ($k[0] == '_') {
            $filter = preg_replace('/' . substr($k, 1) . '/i', pg_escape_string(trim(stripslashes($v))) , $filter);
        }
    }
    
    $where = "where $filter";
    $limit = "limit 100";
    $sql = $select . ' ' . $from . ' ' . $where . ' ' . $orderby . ' ' . $limit;
    $result = @pg_query($conn, $sql);
    if (!$result) {
        return sprintf(_("query %s has failed") , $sql);
    }
    
    $kr = 0;
    $t = array();
    while ($row = pg_fetch_row($result)) {
        $dn = '';
        foreach ($tdn as $vi) $dn.= $row[$vi] . ' ';
        $t[$kr][] = $dn;
        foreach ($row as $ki => $vi) $t[$kr][] = $vi;
        $kr++;
    }
    
    return $t;
}

function recipientDocument($dbaccess, $name)
{
    $tr = array();
    $sf = new SearchDoc($dbaccess, -1);
    $sf->setObjectReturn();
    $sf->overrideViewControl();
    $sf->addFilter("atags ~* E'\\\\yMAILRECIPIENT\\\\y'");
    $dlf = $sf->search()->getDocumentList();
    
    if ($dlf->count() == 0) return sprintf(_("none families are described to be used as recipient"));
    foreach ($dlf as $fam) {
        $cfam = createTmpDoc($dbaccess, $fam->id);
        /*
         * @var IMailRecipient $cfam
         */
        if (!is_a($cfam, "IMailRecipient")) {
            return sprintf(_("Family '%s' does not implements IMailRecipient interface.") , $fam->name);
        }
        
        $mailAttr = $cfam->getMailAttribute();
        $s = new SearchDoc($dbaccess, $fam->id);
        $s->setObjectReturn();
        $s->setSlice(100);
        if ($mailAttr) $s->addFilter("%s is not null", $mailAttr);
        if ($name != "") {
            if ($mailAttr) $s->addFilter("(title ~* '%s') or (%s ~* '%s')", $name, $mailAttr, $name);
            else $s->addFilter("(title ~* '%s')", $name, $name);
        }
        $dl = $s->search()->getDocumentList();
        foreach ($dl as $dest) {
            /**
             * @var \Dcp\Family\IUSER $dest
             */
            $mailTitle = $dest->getMailTitle();
            $mail = $dest->getMail();
            if ($mailTitle == '') {
                $mailTitle = $mail;
            }
            $tr[] = array(
                xml_entity_encode($mailTitle) ,
                xml_entity_encode(sprintf("%d (%s)", $dest->id, $dest->getTitle())) ,
                xml_entity_encode($dest->getTitle())
            );
        }
    }
    usort($tr, function ($a, $b)
    {
        return strcasecmp($a[0], $b[0]);
    });
    return $tr;
}