ac_common.php

Go to the documentation of this file.

<?php

/*
 *   This file is part of PhpCompta.
 *
 *   PhpCompta is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   PhpCompta is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with PhpCompta; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr

/**
 * @file
 * @brief common utilities for a lot of procedure, classe
 */

include_once("constant.php");
require_once('class_database.php');
require_once('class_periode.php');

/* !\brief to protect again bad characters which can lead to a cross scripting attack
  the string to be diplayed must be protected
 */

function h($p_string)
{
    return htmlspecialchars($p_string);
}

function span($p_string, $p_extra='')
{
    return '<span ' . $p_extra . '>' . $p_string . '</span>';
}

function hi($p_string)
{
    return '<i>' . htmlspecialchars($p_string) . '</i>';
}

function hb($p_string)
{
    return '<b>' . htmlspecialchars($p_string) . '</b>';
}

function th($p_string, $p_extra='')
{
    return '<th  ' . $p_extra . '>' . htmlspecialchars($p_string) . '</th>';
}

function h2info($p_string)
{
    return '<h2 class="info">' . htmlspecialchars($p_string) . '</h2>';
}

function h2($p_string, $p_class)
{
    return '<h2 ' . $p_class . '>' . htmlspecialchars($p_string) . '</h2>';
}
function h1($p_string, $p_class)
{
    return '<h1 ' . $p_class . '>' . htmlspecialchars($p_string) . '</h1>';
}
/* !\brief surround the string with td
 * \param $p_string string to surround by TD
 * \param $p_extra extra info (class, style, javascript...)
 * \return string surrounded by td
 */

function td($p_string='', $p_extra='')
{
    return '<td  ' . $p_extra . '>' . $p_string . '</td>';
}

function tr($p_string, $p_extra='')
{
    return '<tr  ' . $p_extra . '>' . $p_string . '</tr>';
}

/* !\brief escape correctly php string to javascript */

function j($p_string)
{
    $a = preg_replace("/\r?\n/", "\\n", addslashes($p_string));
    $a = str_replace("'", '\'', $a);
    return $a;
}

/**
 * format the number for the CSV export
 * @param $p_number number
 */
function nb($p_number)
{
    $r = sprintf('%.2f', $p_number);
    $r = str_replace('.', ',', $r);

    return $r;
}

/**
 * format the number with a sep. for the thousand
 * @param $p_number number
 */
function nbm($p_number)
{

    if (trim($p_number) == '')
        return '';
    if ($p_number == 0)
        return 0;
    $a = doubleval($p_number);

    $r = number_format($a, 2, ",", ".");
    if (trim($r) == '')
    {
        var_dump($r);
        var_dump($p_number);
        var_dump($a);
        exit();
    }

    return $r;
}

/* !
 * \brief  log error into the /tmp/phpcompta_error.log it doesn't work on windows
 *
 * \param p_log message
 * \param p_line line number
 * \param p_message is the message
 *
 * \return nothing
 *
 */

function echo_error($p_log, $p_line="", $p_message="")
{
    echo "ERREUR :" . $p_log . " " . $p_line . " " . $p_message;
    $fdebug = fopen($_ENV['TMP'] . DIRECTORY_SEPARATOR . "phpcompta_error.log", "a+");
    if ($fdebug != null)
    {
        fwrite($fdebug, date("Ymd H:i:s") . $p_log . " " . $p_line . " " . $p_message . "\n");
        fclose($fdebug);
    }
}

/* !
 * \brief  Compare 2 dates
 * \param p_date
 * \param p_date_oth
 *
 * \return
 *      - == 0 les dates sont identiques
 *      - > 0 date1 > date2
 *      - < 0 date1 < date2
 */

function cmpDate($p_date, $p_date_oth)
{
    date_default_timezone_set('Europe/Brussels');

    $l_date = isDate($p_date);
    $l2_date = isDate($p_date_oth);
    if ($l_date == null || $l2_date == null)
    {
        throw new Exception("erreur date [$p_date] [$p_date_oth]");
    }
    $l_adate = explode(".", $l_date);
    $l2_adate = explode(".", $l2_date);
    $l_mkdate = mktime(0, 0, 0, $l_adate[1], $l_adate[0], $l_adate[2]);
    $l2_mkdate = mktime(0, 0, 0, $l2_adate[1], $l2_adate[0], $l2_adate[2]);
    // si $p_date > $p_date_oth return > 0
    return $l_mkdate - $l2_mkdate;
}

/***!
 * @brief check if the argument is a number
 *
 * \param $p_int number to test
 *
 * \return
 *        - 1 it's a number
 *        - 0 it is not
 */
function isNumber(&$p_int)
{
    if (strlen(trim($p_int)) == 0)
        return 0;
    if (is_numeric($p_int) === true)
        return 1;
    else
        return 0;
}

/***
 * \brief Verifie qu'une date est bien formaté
 *           en d.m.y et est valable
 * \param $p_date
 *
 * \return
 *      - null si la date est invalide ou malformaté
 *      - $p_date si tout est bon
 *
 */

function isDate($p_date)
{
    if (strlen(trim($p_date)) == 0)
        return null;
    if (preg_match("/^[0-9]{1,2}\.[0-9]{1,2}\.20[0-9]{2}$/", $p_date) == 0)
    {

        return null;
    }
    else
    {
        $l_date = explode(".", $p_date);

        if (sizeof($l_date) != 3)
            return null;

        if ($l_date[2] > COMPTA_MAX_YEAR || $l_date[2] < COMPTA_MIN_YEAR)
        {
            return null;
        }

        if (checkdate($l_date[1], $l_date[0], $l_date[2]) == false)
        {
            return null;
        }
    }
    return $p_date;
}

/* !
 * \brief Default page header for each page
 *
 * \param p_theme default theme
 * \param $p_script
 * \param $p_script2  another js script
 * Must be called only once
 * \return none
 */

function html_page_start($p_theme="", $p_script="", $p_script2="")
{
    // check not called twiced
    static  $already_call=0;
    if ( $already_call==1)return;
    $already_call=1;

    $cn = new Database();
    if ($p_theme != "")
    {
        $Res = $cn->exec_sql("select the_filestyle from theme
                           where the_name='" . $p_theme . "'");
        if (Database::num_row($Res) == 0)
            $style = "style.css";
        else
        {
            $s = Database::fetch_array($Res, 0);
            $style = $s['the_filestyle'];
        }
    }
    else
    {
        $style = "style.css";
    } // end if
        $title="PhpCompta";

        if ( isset ($_REQUEST['ac'])) {
                if (strpos($_REQUEST['ac'],'/') <> 0)
                {
                        $m=  explode('/',$_REQUEST['ac']);
                        $title=$m[count($m)-1]."  ".$title;
                }
                else
                        $title=$_REQUEST['ac']."  ".$title;
        }
    echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">';
    echo "<HTML>";

    if ($p_script2 != "")
        $p_script2 = '<script src="' . $p_script2 . '" type="text/javascript"></script>';

    echo "<HEAD>
    <TITLE>$title</TITLE>
    <META http-equiv=\"Content-Type\" content=\"text/html; charset=UTF8\">
    <LINK REL=\"stylesheet\" type=\"text/css\" href=\"$style\" media=\"screen\">
    <link rel=\"stylesheet\" type=\"text/css\" href=\"style-print.css\" media=\"print\">" .
    $p_script2 . "
    ";
    echo '<script language="javascript" src="js/calendar.js"></script>
    <script type="text/javascript" src="js/lang/calendar-en.js"></script>
    <script language="javascript" src="js/calendar-setup.js"></script>
    <LINK REL="stylesheet" type="text/css" href="calendar-blue.css" media="screen">
    </HEAD>
    ';

    echo "<BODY $p_script>";
// language
    if (isset($_SESSION['g_lang']))
    {
                set_language();
    }

}

/* !
 * \brief Minimal  page header for each page, used for small popup window
 *
 * \param p_theme default theme
 * \param $p_script
 * \param $p_script2  another js script
 *
 * \return none
 */

function html_min_page_start($p_theme="", $p_script="", $p_script2="")
{

    $cn = new Database();
    if ($p_theme != "")
    {
        $Res = $cn->exec_sql("select the_filestyle from theme
                           where the_name='" . $p_theme . "'");
        if (Database::num_row($Res) == 0)
            $style = "style.css";
        else
        {
            $s = Database::fetch_array($Res, 0);
            $style = $s['the_filestyle'];
        }
    }
    else
    {
        $style = "style.css";
    } // end if
    echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">';
    echo "<HTML>";


    if ($p_script2 != "")
        $p_script2 = '<script src="' . $p_script2 . '" type="text/javascript"></script>';

    echo "<HEAD>
    <TITLE>PhpCompta</TITLE>
    <META http-equiv=\"Content-Type\" content=\"text/html; charset=UTF8\">
    <LINK REL=\"stylesheet\" type=\"text/css\" href=\"$style\" media=\"screen\">
    <link rel=\"stylesheet\" type=\"text/css\" href=\"style-print.css\" media=\"print\">" .
    $p_script2 . "
    <script src=\"js/scripts.js\" type=\"text/javascript\"></script>";
    echo '</HEAD>
    ';

    echo "<BODY $p_script>";
    /* If we are on the user_login page */
    if (basename($_SERVER['PHP_SELF']) == 'user_login.php')
    {
        return;
    }
}

/* !
 * \brief end tag
 *
 */

function html_page_stop()
{
    echo "</BODY>";
    echo "</HTML>";
}

/* !
 * \brief Echo no access and stop
 *
 * \return nothing
 */

function NoAccess($js=1)
{
    if ($js == 1)
    {
        echo "<script>";
        echo "alert ('" . _('Cette action ne vous est pas autorisée Contactez votre responsable') . "');";
        echo "</script>";
    }
    else
    {
        echo '<div class="redcontent">';
        echo '<h2 class="error">' . _(' Cette action ne vous est pas autorisée Contactez votre responsable') . '</h2>';
        echo '</div>';
    }
    exit - 1;
}
/**
 * replaced by sql_string
 * @deprecated
 */
function FormatString($p_string)
{
    return sql_string($p_string);
}
/* !
 * \brief Fix the problem with the quote char for the database
 *
 * \param $p_string
 * \return a string which won't let strange char for the database
 */

function sql_string($p_string)
{
    $p_string = trim($p_string);
    if (strlen($p_string) == 0)
        return null;
    $p_string = str_replace("'", "''", $p_string);
    $p_string = str_replace('\\', '\\\\', $p_string);
    return $p_string;
}

/* !
  /* \brief store the string which print
 *           the content of p_array in a table
 *           used to display the menu
 * \param  $p_array array like ( 0=>HREF reference, 1=>visible item (name),2=>Help(opt),
 * 3=>selected (opt) 4=>javascript (normally a onclick event) (opt)
 * \param $p_dir direction of the menu (H Horizontal  V vertical)
 * \param $class CSS for TD tag
 * \param $class_ref CSS for the A tag
 * \param $default selected item
 * \param $p_extra extra code for the table tag (CSS or javascript)
 *
  /* \return : string */

function ShowItem($p_array, $p_dir='V', $class="mtitle", $class_ref="mtitle", $default="", $p_extra="")
{

    $ret = "<TABLE $p_extra>";
    // direction Vertical
    if ($p_dir == 'V')
    {
        foreach ($p_array as $all => $href)
        {
            $javascript = (isset($href[4])) ? $href[4] : "";
            $title = "";
            $set = "XX";
            if (isset($href[2]))
                $title = $href[2];
            if (isset($href[3]))
                $set = $href[3];

            if ($set == $default)
                $ret.='<TR><TD CLASS="selectedcell"><A class="' . $class_ref . '" HREF="' . $href[0] . '" title="' . $title . '" ' . $javascript . '>' . $href[1] . '</A></TD></TR>';
            else
                $ret.='<TR><TD CLASS="' . $class . '"><A class="' . $class_ref . '" HREF="' . $href[0] . '" title="' . $title . '" ' . $javascript . '>' . $href[1] . '</A></TD></TR>';
        }
    }
    //direction Horizontal
    else if ($p_dir == 'H')
    {

        $ret.="<TR>";
        foreach ($p_array as $all => $href)
        {
            $title = "";
            $javascript = (isset($href[4])) ? $href[4] : "";

            $set = "A";
            if (isset($href[2]))
                $title = $href[2];

            if (isset($href[3]))
                $set = $href[3];

            if ($default === $href[0] || $set === $default)
            {
                $ret.='<TD CLASS="selectedcell"><A class="' . $class_ref . '" HREF="' . $href[0] . '" title="' . $title . '" ' . $javascript . '>' . $href[1] . '</A></TD>';
            }
            else
            {
                $ret.='<TD CLASS="' . $class . '"><A class="' . $class_ref . '" HREF="' . $href[0] . '" title="' . $title . '" ' . $javascript . '>' . $href[1] . '</A></TD>';
            }
        }
        $ret.="</TR>";
    }
    $ret.="</TABLE>";
    return $ret;
}

/* !
 * \brief warns
 *
 * \param p_string error message
 * gen :
 *      - none
 * \return:
 *      - none
 */

function echo_warning($p_string)
{
    echo '<H2 class="error">' . $p_string . "</H2>";
}

/* !
 * \brief Show the periode which found thanks its id
 *
 *
 * \param  $p_cn database connection
 * \param p_id
 * \param pos Start or end
 *
 * \return: string
 */

function getPeriodeName($p_cn, $p_id, $pos='p_start')
{
    if ($pos != 'p_start' and
            $pos != 'p_end')
        echo_error('ac_common.php' . "-" . __LINE__ . '  UNDEFINED PERIODE');
    $ret = $p_cn->get_value("select to_char($pos,'Mon YYYY') as t from parm_periode where p_id=$p_id");
    return $ret;
}

/* !
 * \brief Return the period corresponding to the
 *           date
 *
 * \param p_cn database connection
 * \param p_date the month + year 'MM.YYYY'
 *
 * \return:
 *       parm_periode.p_id
 */

function getPeriodeFromMonth($p_cn, $p_date)
{
    $R = $p_cn->get_value("select p_id from parm_periode where
                        to_char(p_start,'DD.MM.YYYY') = '01.$p_date'");
    if ($R == "")
        return -1;
    return $R;
}

/* !\brief Decode the html for the widegt richtext and remove newline
 * \param $p_html string to decode
 * \return the html code without new line
 */

function Decode($p_html)
{
    $p_html = str_replace('%0D', '', $p_html);
    $p_html = str_replace('%0A', '', $p_html);
    $p_html = urldecode($p_html);
    return $p_html;
}

/* !\brief Create the condition to filter on the j_tech_per
 *        thanks a from and to date.
 * \param $p_cn database conx
 * \param $p_from start date (date)
 * \param $p_to  end date (date)
 * \param $p_form if the p_from and p_to are date or p_id
 * \param $p_field column name
 * \return a string containg the query
 */

function sql_filter_per($p_cn, $p_from, $p_to, $p_form='p_id', $p_field='jr_tech_per')
{

    if ($p_form != 'p_id' &&
            $p_form != 'date')
    {
        echo_error(__FILE__, __LINE__, 'Mauvais parametres ');
        exit(-1);
    }
    if ($p_form == 'p_id')
    {
        // retrieve the date
        $pPeriode = new Periode($p_cn);
        $a_start = $pPeriode->get_date_limit($p_from);
        $a_end = $pPeriode->get_date_limit($p_to);
        if ($a_start == null || $a_end == null)
            throw new Exception(__FILE__ . __LINE__ . 'Attention periode ' .
                    ' non trouvee periode p_from=' . $p_from .
                    'p_to_periode = ' . $p_to);


        $p_from = $a_start['p_start'];
        $p_to = $a_end['p_end'];
    }
    if ($p_from == $p_to)
        $periode = " $p_field = (select p_id from parm_periode " .
                " where " .
                " p_start = to_date('$p_from','DD.MM.YYYY')) ";
    else
        $periode = "$p_field in (select p_id from parm_periode " .
                " where p_start >= to_date('$p_from','DD.MM.YYYY') and p_end <= to_date('$p_to','DD.MM.YYYY')) ";
    return $periode;
}

/* !\brief alert in javascript
 * \param $p_msg is the message
 * \param $buffer if false, echo directly and execute the javascript, if $buffer is true, the alert javascript
 * is in the return string
 * \return string with alert javascript if $buffer is true
 */

function alert($p_msg, $buffer=false)
{
    $r = '<script language="javascript">';
    $r.= 'alert(\'' . j($p_msg) . '\')';
    $r.= '</script>';

    if ($buffer)
        return $r;
    echo $r;
}

/**
 * @brief set the lang thanks the _SESSION['g_lang'] var.
 */
function set_language()
{
    // desactivate local check
    if ( defined("LOCALE") && LOCALE==0 ) return;
    $dir = "";
    // set differently the language depending of the operating system
    if (what_os() == 1)
    {
        $dir = setlocale(LC_MESSAGES, $_SESSION['g_lang']);
        if ($dir == "")
        {
            $g_lang = 'fr_FR.utf8';
            $dir = setlocale(LC_MESSAGES, $g_lang);
            echo '<span class="notice">' . $_SESSION['g_lang'] . ' domaine non supporté</h2>';
        }
        bindtextdomain('messages', './lang');
        textdomain('messages');
        bind_textdomain_codeset('messages', 'UTF8');

        return;
    }
    // for windows
    putenv('LANG=' . $_SESSION['g_lang']);
    $dir = setlocale(LC_ALL, $_SESSION['g_lang']);
    bindtextdomain('messages', '.\\lang');
    textdomain('messages');
    bind_textdomain_codeset('messages', 'UTF8');
}

/**
 * @brief try to determine on what os you are running the pĥpcompte
 * server
 * @return
 *  0 it is a windows
 *  1 it is a Unix like
 */
function what_os()
{
    $inc_path = get_include_path();

    if (strpos($inc_path, ";") != 0)
    {
        $os = 0;   /* $os is 0 for windoz */
    }
    else
    {
        $os = 1;   /* $os is 1 for unix */
    }
    return $os;
}

/**
 * @brief shrink the date, make a date shorter for the printing
 * @param $p_date format DD.MM.YYYY
 * @return date in the format DDMMYY (size = 13 mm in arial 8)
 */
function shrink_date($p_date)
{
    $date = str_replace('.', '', $p_date);
    $str_date = substr($date, 0, 4) . substr($date, 6, 2);
    return $str_date;
}
/**
 * @brief shrink the date, make a date shorter for the printing
 * @param $p_date format DD.MM.YYYY
 * @return date in the format DDMMYY (size = 13 mm in arial 8)
 */
function smaller_date($p_date)
{
    $str_date = substr($p_date, 0, 6) . substr($p_date, 8, 2);
    return $str_date;
}

/**
 * @brief format the date, when taken from the database the format
 * is MM-DD-YYYY
 * @param $p_date format
 * @param
 * @return date in the format DD.MM.YYYY
 */
function format_date($p_date, $p_from_format = 'YYYY-MM-DD',$p_to_format='DD.MM.YYYY')
{
    if ($p_from_format == 'YYYY-MM-DD')
    {
        $date = explode('-', $p_date);
        if (count($date) != 3)
            return $p_date;
    }
    if ($p_from_format == 'DD.MM.YYYY')
    {
        $temp_date = explode('.', $p_date);
        if (count($temp_date) != 3)
            return $p_date;
        $date[0] = $temp_date[2]; // 0 is year
        $date[1] = $temp_date[1]; // 1 for month
        $date[2] = $temp_date[0]; // 2 for day
    }

    switch ($p_to_format)
    {
        case 'DD.MM.YYYY':
            $str_date = $date[2] . '.' . $date[1] . '.' . $date[0];
            break;
        case 'YYYY-MM-DD':
            $str_date = $date[0] . '-' . $date[1] . '-' . $date[2];
            break;
       case 'YYYYMMDD':
            $str_date = $date[0] . $date[1] . $date[2];
            break;

                }
    return $str_date;
}



/**
 * Should a dialog box that you are disconnected for ajax
 */
function ajax_disconnected($div)
{
    /**
     * if $_SESSION['g_user'] is not set : echo a warning
     */
    if (!isset($_SESSION['g_user']))
    {
        $script = 'var a=$("' . $div . '");a.style.height="70%";a.style.width="70%";';
        $script.='a.style.top=posY-20+offsetY;a.style.left=posX+offsetX;';
        $script = create_script($script);
        $html = $script;
        $html.=HtmlInput::anchor_close($div);
        $html.='<div>';
        $html.=h2('Données non disponibles', 'class="info" style="width:auto"');
        $html.=h2('Veuillez vous reconnecter', '');
        $html.=alert("Déconnecté", true);
        $html = escape_xml($html);

        header('Content-type: text/xml; charset=UTF-8');
        echo <<<EOF
<?xml version="1.0" encoding="UTF-8"?>
<data>
<ctl>$div</ctl>
<code>$html</code>
</data>
EOF;
        exit();
    }
}

/**
 *
 * @param int $selected module selected
 */
function show_module($selected)
{
    global $g_user;
    $cn = Dossier::connect();
    $amodule = $cn->get_array("select
        me_code,me_menu,me_url,me_javascript,p_order,me_type,me_description
        from v_all_menu
        where
        user_name=$1
        and p_type_display='M'
        order by p_order", array($g_user->login));

    if ($selected != -1)
    {
        require_once('template/module.php');
        $file = $cn->get_array("select me_file,me_parameter,me_javascript,me_type,me_description from v_all_menu
            where me_code=$1 and user_name=$2", array($selected,$g_user->login));
        if ( count($file ) == 0 )
        {
                echo '</div>';
                echo '</div>';
                echo '<div class="content">';
                echo_warning(_("Module inexistant")."[ $selected ] ");
                echo '</div>';
                exit();
        }
        if ($file[0]['me_file'] != '')
        {
            if ($file[0]['me_parameter'] != "")
            {
                // if there are paramter put them in superglobal
                $array=compute_variable($file[0]['me_parameter']);
                put_global($array);
            }

                // if file is not a plugin, include the file, otherwise
                // include the plugin launcher
                if ($file[0]['me_type'] != 'PL')
                        {
                                require_once $file[0]['me_file'];
                        }
                        else
                        {
                                // nothing  : direct call to plugin
                        }
        }
        if ( $file[0]['me_javascript'] != '')
        {
                create_script($file[0]['me_javascript']);
        }
    }
}
/**
 * Find the default module or the first one
 * @global $g_user $g_user
 * @return default module (string)
 */
function find_default_module()
{
    global $g_user;
    $cn = Dossier::connect();

    $default_module = $cn->get_array("select me_code
            from profile_menu join profile_user using (p_id)
            where
            p_type_display='M' and
            user_name=$1 and pm_default=1", array($g_user->login));

    if (empty($default_module))
    {
                $default_module = $cn->get_array("select me_code
                        from profile_menu join profile_user using (p_id)
                        where
                        user_name=$1 and p_order=(select min(p_order) from profile_menu join profile_user using (p_id)
                        where user_name=$2) limit 1", array($g_user->login, $g_user->login));
                /*
                 * if nothing found, there is no profile for this user => exit
                 */
                if ( empty ($default_module))
                {
                        echo_warning(_("Utilisateur n'a pas de profile"));
                        exit();
                }
                return $default_module[0]['me_code'];
    }

    if (count($default_module) > 1)
    {
                echo_error(_("Plusieurs modules sont le module par défaut"), __LINE__, __FILE__);
    }
    elseif (count($default_module) == 1)
    {
        return $default_module[0]['me_code'];
    }
}

/**
 * show the module
 * @global $g_user
 * @param $module the $_REQUEST['ac'] exploded into an array
 * @param  $idx the index
 */
function show_menu($module, $idx)
{
    global $g_user;
    $cn = Dossier::connect();
    $amenu = $cn->get_array("select
        me_menu,me_code,me_url,me_javascript,me_type,me_description
        from v_all_menu
        where
        me_code_dep=$1 and user_name=$2 order by p_order", array($module[$idx], $g_user->login));

    if (!empty($amenu) && count($amenu) > 1)
    {
                require 'template/menu.php';
    }
    elseif (count($amenu) == 1)
    {
                echo '<div class="topmenu">';
                echo h2info($amenu[0]['me_menu']);
                echo '</div>';
                $module[$idx] = $amenu[0]['me_code'];
    }

    if (empty($amenu) || count($amenu) == 1)
    {
                $file = $cn->get_array("select me_file,me_parameter,me_javascript,me_type
                from menu_ref
                join profile_menu using (me_code)
                join profile_user using (p_id)
                where
                me_code=$1 and
                user_name=$2 and
                (me_file is not null or trim(me_file) <>'' or
                me_javascript is not null or trim (me_javascript) <> '')", array($module[$idx],$g_user->login));

                if (count($file)==0)
                {
                        echo "Configuration incorrecte pour ce module ".$module[$idx];
                        exit;
                }

                if ($file[0]['me_file'] != "")
                {
                        if ($file[0]['me_parameter'] !== "")
                        {
                                // if there are paramter put them in superglobal
                                $array=compute_variable($file[0]['me_parameter']);
                                put_global($array);
                        }

                        // if file is not a plugin, include the file, otherwise
                        // include the plugin launcher
                        if ( $file[0]['me_type'] != 'PL')
                                require_once $file[0]['me_file'];
                        else
                                require 'extension_get.inc.php';

                        exit();
                }
                if ( $file[0]['me_javascript'] != '')
                {
                        echo create_script($file[0]['me_javascript']);
                }
    }
}
/**
 * Put in superglobal (get,post,request) the value contained in
 * the parameter field (me_parameter)
 * @param $array [key] [value]
 */
function put_global($array)
{
    for ($i=0;$i<count($array);$i++)
    {
        $key=$array[$i]['key'];
        $value=$array[$i]['value'];
        $_GET[$key]=$value;
        $_POST[$key]=$value;
        $_REQUEST[$key]=$value;
    }
}
/**
 * the string has the format a=b&c=d, it is parsed and an array[][key,value]
 * is returned
 * @param $p_string
 * @return $array usable in put_global
 */
function compute_variable($p_string)
{
    $array=array();
    if ($p_string == '') return $array;

    $var=explode("&",$p_string);
    if (empty ($var))   return $array;
    for ($i=0;$i < count($var);$i++)
    {
        $var2=explode('=',$var[$i]);
        $array[$i]['key']=$var2[0];
        $array[$i]['value']=$var2[1];
    }
    return $array;
}
function ajax_xml_error($p_code,$p_string)
{
    $html = escape_xml($p_string);
    header('Content-type: text/xml; charset=UTF-8');
                echo <<<EOF
<?xml version="1.0" encoding="UTF-8"?>
<data>
<code>$p_code</code>
<value>$html</value>
</data>
EOF;
}

?>