YunoHost-Apps/noalyss_ynh
1
0
Fork 0
mirror of https://github.com/YunoHost-Apps/noalyss_ynh.git synced 2024-09-03 19:46:20 +02:00
Code Issues Activity Actions
noalyss_ynh/sources/include/ac_common.php
Laurent Peuch 3c9601e277 [mod] move files in a subdir
2015-09-27 00:54:25 +02:00

1254 lines
No EOL
32 KiB
PHP
Raw Blame History

<?php
/*
* This file is part of NOALYSS.
*
* NOALYSS is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* NOALYSS is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with NOALYSS; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
// Copyright Author Dany De Bontridder danydb@aevalys.eu
/**
* @file
* @brief common utilities for a lot of procedure, classe
*/
require_once NOALYSS_INCLUDE.'/class_database.php';
require_once NOALYSS_INCLUDE.'/class_periode.php';
require_once NOALYSS_INCLUDE.'/class_html_input.php';
require_once NOALYSS_INCLUDE.'/function_javascript.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='',$raw='')
{
return '<th ' . $p_extra . '>' . htmlspecialchars($p_string).$raw . '</th>';
}
function h2info($p_string)
{
return '<h2 class="info">' . htmlspecialchars($p_string) . '</h2>';
}
function h2($p_string, $p_class="",$raw="")
{
return '<h2 ' . $p_class . '>' . $raw.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,00";
$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/noalyss_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 . "noalyss_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-classic.css";
else
{
$s = Database::fetch_array($Res, 0);
$style = $s['the_filestyle'];
}
}
else
{
$style = "style-classic.css";
} // end if
$title="NOALYSS";
if ( isset ($_REQUEST['ac'])) {
if (strpos($_REQUEST['ac'],'/') <> 0)
{
$m= explode('/',$_REQUEST['ac']);
$title=$m[count($m)-1]." ".$title;
}
else
$title=$_REQUEST['ac']." ".$title;
}
$is_msie=is_msie();
if ($is_msie == 0 )
{
echo '<!doctype html>';
printf("\n");
echo '<meta name="viewport" content="width=device-width, initial-scale=1.0">';
printf("\n");
}
else {
echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN" >';
printf("\n");
}
echo "<HTML>";
if ($p_script2 != "")
$p_script2 = '<script src="' . $p_script2 . '?version='.SVNINFO.'" type="text/javascript"></script>';
$style=trim($style);
echo "<HEAD>";
if ( $is_msie == 1 )echo ' <meta http-equiv="x-ua-compatible" content="IE=edge"/>';
echo "
<TITLE>$title</TITLE>
<link rel=\"icon\" type=\"image/ico\" href=\"favicon.ico\" />
<META http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">
<LINK REL=\"stylesheet\" type=\"text/css\" href=\"".$style."?version=".SVNINFO."\" media=\"screen\"/>
<link rel=\"stylesheet\" type=\"text/css\" href=\"./style-print.css?version=".SVNINFO."\" 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">
';
echo load_all_script();
echo ' </HEAD> ';
echo "<BODY $p_script>";
echo '<div id="info_div"></div>';
echo '<div id="error_div">'.
HtmlInput::title_box(_("Erreur"), 'error_div','hide').
'<div id="error_content_div">'.
'</div>'.
'<p style="text-align:center">'.
HtmlInput::button_action('Valider','$(\'error_div\').style.visibility=\'hidden\';$(\'error_content_div\').innerHTML=\'\';').
'</p>'.
'</div>';
// 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-classic.css";
else
{
$s = Database::fetch_array($Res, 0);
$style = $s['the_filestyle'];
}
}
else
{
$style = "style-classic.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>NOALYSS</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>
<script src=\"js/acc_ledger.js\" type=\"text/javascript\"></script>
<script src=\"js/smoke.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__ . sprintf(_('Attention periode
non trouvee periode p_from= %s p_to_periode = %s'), $p_from ,
$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>';
$r.= 'alert_box(\'' . 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;
if ( ! isset ($_SESSION['g_lang'])) 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;
case 'YYYY/MM/DD':
$str_date = $date[0] . '/' . $date[1] . '/' . $date[2];
break;
}
return $str_date;
}
/**
* Should a dialog box when you are disconnected from an ajax call
* propose to reload or to connect in another tab
*/
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="60%";';
$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="title" style="width:auto"');
$html.=h2(_('Veuillez vous reconnecter soit dans une autre fenêtre soit '
. ' en cliquant sur le lien'), 'class="error"');
// Reload button
$reload=new IButton("reload");
$reload->value=_("Se reconnecter pour revenir ici");
$reload->class="button";
$reload->javascript='window.location.reload()';
// Link to log in another tab
$html.='<p style="text-align:center">';
$html.='<a href="index.php" class="button" target="_blank">'.
_('Cliquez ici pour vous reconnecter dans une autre page').
'</a>';
$html.=$reload->input();
$html.='</p>';
$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();
}
}
/**
*Show the modules
* @param int $selected module selected profile_menu.pm_id
*/
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
p_id=$1
and p_type_display='M'
order by p_order", array($g_user->get_profile()));
if ($selected != -1)
{
$selected_module=$cn->get_value('select me_code from profile_menu where'
. ' pm_id = $1 ', array($selected));
require_once NOALYSS_INCLUDE.'/template/module.php';
$file = $cn->get_array("select me_file,me_parameter,me_javascript,me_type,me_description from v_all_menu
where pm_id=$1 and p_id=$2", array($selected,$g_user->get_profile()));
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));
/*
* Try to find the smallest order for module
*/
if (empty($default_module))
{
$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 order by p_order limit 1", array($g_user->login));
// if no default try to find the default menu
if ( empty ($default_module))
{
$default_module = $cn->get_array("select me_code
from profile_menu join profile_user using (p_id)
where
p_type_display='E' and
user_name=$1 and pm_default=1 ", array($g_user->login));
/*
* Try to find a default menu by order
*/
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))
{
/*
* If administrateur, then we insert a default profile (1)
* for him
*/
if ( $g_user->admin == 1 )
{
$cn->exec_sql('insert into profile_user(user_name,p_id) values ($1,1) ',array($g_user->login));
return find_default_module();
}
echo_warning(_("Utilisateur n'a pas de profil, votre administrateur doit en configurer un dans CFGSEC"));
exit();
}
}
return $default_module[0]['me_code'];
}
if (count($default_module) > 1)
{
// return the first module found
return $default_module[0]['me_code'];
}
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 of the array : the AD code is splitted into an array thanks the slash
*/
function show_menu($module)
{
if ($module == 0)return;
static $level=0;
global $g_user;
$cn = Dossier::connect();
/**
* Show the submenus
*/
$amenu = $cn->get_array("
select
pm_id,
me_code,
pm_id_dep,
me_file,
me_javascript,
me_url,
me_menu,
me_description,
me_description_etendue
from profile_menu
join menu_ref using (me_code)
where pm_id_dep=$1 and p_id=$2
order by p_order", array($module, $g_user->get_profile()));
// There are submenuS, so show them
if (!empty($amenu) && count($amenu) > 1)
{
$a_style_menu=array('topmenu','menu2','menu3');
if ( $level > count($a_style_menu))
$style_menu='menu3';
else {
$style_menu=$a_style_menu[$level];
}
require 'template/menu.php';
} // there is only one submenu so we include the code or javascript
// or we show the submenu
elseif (count($amenu) == 1)
{
if ( trim($amenu[0]['me_url']) != "" ||
trim ($amenu[0]['me_file']) != "" ||
trim ($amenu[0]['me_javascript']) != "" )
{
echo '<div class="topmenu">';
echo h2info(_($amenu[0]['me_menu']));
echo '</div>';
$module = $amenu[0]['pm_id'];
} else {
$url=$_REQUEST['ac'].'/'.$amenu[0]['me_code'];
echo '<a href="do.php?gDossier='.Dossier::id().'&ac='.$url.'">';
echo _($amenu[0]['me_menu']);
echo '</a>';
$level++;
return;
}
}
// There is no submenu or only one
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
pm_id=$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,$g_user->login));
if (count($file)==0)
{
return;
}
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 ( DEBUG ) echo $file[0]['me_file']," param : ",$file[0]['me_parameter'] ;
/*
* Log the file we input to put in the folder test-noalyss for replaying it
*/
if (LOGINPUT) {
$file_loginput=fopen($_ENV['TMP'].'/scenario-'.$_SERVER['REQUEST_TIME'].'.php','a+');
fwrite($file_loginput, "include '".$file[0]['me_file']."';");
fwrite($file_loginput,"\n");
fclose($file_loginput);
}
// 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'] != '')
{
$js= str_replace('<DOSSIER>', dossier::id(), $file[0]['me_javascript']);
echo create_script($js);
}
}
$level++;
}
/**
* 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;
}
/**
* @brief Display a box with the contains
* @param type $p_array Data to display
* @param type $p_title Title of the box
* @param type $p_div id of the box
*/
function display_dashboard_operation($p_array,$p_title,$p_div)
{
?>
<div id="<?php echo $p_div;?>" class="inner_box" style="display:none;position:fixed;top:250px;left:12%;width: 75%;min-height:50%;overflow:auto;">
<?php
echo HtmlInput::title_box($p_title, $p_div, "hide");
?>
<?php if (count($p_array)>0) :?>
<table class="result">
<tr>
<th><?php echo _('Date')?></th>
<th><?php echo _('Code Interne')?></th>
<th><?php echo _('Pièce')?></th>
<th><?php echo _('Description')?></th>
<th>
<?php echo _('Montant')?>
</th>
</tr>
<?php
for ($i=0;$i<count($p_array);$i++):
?>
<tr class="<?php echo (($i%2)==0)?'odd':'even';?>">
<td>
<?php echo smaller_date(format_date($p_array[$i]['jr_date']) );?>
</td>
<td>
<?php echo HtmlInput::detail_op($p_array[$i]['jr_id'], $p_array[$i]['jr_internal']) ?>
</td>
<td>
<?php echo h($p_array[$i]['jr_pj_number'])?>
</td>
<td>
<?php echo h($p_array[$i]['jr_comment']) ?>
</td>
<td>
<?php echo nbm($p_array[$i]['jr_montant']) ?>
</td>
</tr>
<?php
endfor;
?>
</table>
<?php else: ?>
<h2 class="notice"><?php echo _('Aucune donnée')?></h2>
<?php
endif;
?>
</div>
<?php
}
function get_array_column($p_array,$key)
{
$array=array();
for ($i=0;$i<count($p_array);$i++)
{
$r=$p_array[$i];
if ( isset($r[$key])) {
$array[]=$r[$key];
}
}
return $array;
}
/**
* This function create a ledger object and return the right one.
* It uses the factory pattern
* @param Database $p_cn
* @param type $ledger_id
* @return Acc_Ledger
* @throws Exception
*/
function factory_Ledger(Database &$p_cn, $ledger_id)
{
include_once 'class_acc_ledger_sold.php';
include_once 'class_acc_ledger_purchase.php';
include_once 'class_acc_ledger_fin.php';
$ledger=new Acc_Ledger($p_cn, $ledger_id);
$type=$ledger->get_type();
switch ($type)
{
case 'VEN':
$obj=new Acc_Ledger_Sold($p_cn, $ledger_id);
break;
case 'ACH':
$obj=new Acc_Ledger_Purchase($p_cn, $ledger_id);
break;
case 'FIN':
$obj= new Acc_Ledger_Fin($p_cn, $ledger_id);
break;
case 'ODS':
$obj=$ledger;
break;
default:
throw new Exception('Ledger type not found');
}
return $obj;
}
/**
* Check if we use IE 8 or 9
* @return int 1 for IE8-9;0 otherwise
*/
function is_msie()
{
if ( strpos ($_SERVER['HTTP_USER_AGENT'],'MSIE 8.0') != 0 ||
strpos ($_SERVER['HTTP_USER_AGENT'],'MSIE 9.0') != 0 )
$is_msie=1;
else
$is_msie=0;
return $is_msie;
}
?>
Reference in a new issue View git blame Copy permalink