' . h($p_string) . '

' . $raw.h($p_string) . '

' . h($p_string) . '

"; } else { $ret .= "
"; } 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.='
• '.$href[1].'
'; } else { $ret.='
• '.$href[1].'
'; } } $ret.="
"; return $ret; } /** * \brief warns * * \param p_string error message * gen : * - none * \return: * - none */ function echo_warning($p_string) { echo '

' . $p_string . "

"; } /** * \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' && $pos != 'p_end') { echo_error('lib/ac_common.php' . "-" . __LINE__ . ' UNDEFINED PERIODE'); throw new Exception(_("paramètre invalide")); } if ( isNumber($p_id) == 0 ) { throw new Exception("Paramètre invalide"); return; } $ret = $p_cn->get_value("select to_char($pos,'Mon YYYY') as t from parm_periode where p_id=$1", array( $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') = $1", array('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 transform the SQL for ANALYTIC table operation_analytique * @see sql_filter_per * @param string $p_sql */ function transform_sql_filter_per($p_sql) { $result=str_replace("j_tech_per in (select p_id from parm_periode where","",$p_sql); $result=str_replace("jr_tech_per in (select p_id from parm_periode where","",$result); $result=str_replace("j_tech_per = (select p_id from parm_periode where p_start "," oa_date ",$result); $result=str_replace("p_start >= to_date","oa_date >= to_date",$result); $result=str_replace("p_end <= to_date","oa_date <= to_date",$result); $result="( $result"; return $result; } /**\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); } $p_from= sql_string($p_from); $p_to= sql_string($p_to); $p_field= sql_string($p_field); if ($p_form == 'p_id') { if ( isNUmber($p_from)==0 || isNUmber($p_to)==0){ throw new Exception("SFP1"._("Nombre invalide")."\$p_from=$p_from \$p_to=$p_to"); } // 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']; }else { if ( isDate($p_from)==NULL || isDate($p_to)==NULL){ throw new Exception("SFP2"._("Date invalide")."\$p_from=$p_from \$p_to=$p_to"); } } 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 = ''; 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[SESSION_KEY.'g_lang'])) { return; } /* * If translation is not supported by current */ if (!function_exists("bindtextdomain")) { return; } $dir = ""; // set differently the language depending of the operating system if (what_os() == 1) { $dir = setlocale(LC_MESSAGES, $_SESSION[SESSION_KEY.'g_lang']); if ($dir == "") { $g_lang = 'fr_FR.utf8'; $dir = setlocale(LC_MESSAGES, $g_lang); // echo '' . $_SESSION[SESSION_KEY.'g_lang'] . ' domaine non supporté'; } bindtextdomain('messages', NOALYSS_HOME.'/lang'); textdomain('messages'); bind_textdomain_codeset('messages', 'UTF8'); return; } // for windows putenv('LANG=' . $_SESSION[SESSION_KEY.'g_lang']); $dir = setlocale(LC_ALL, $_SESSION[SESSION_KEY.'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 DD.MM.YY (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 * @exception 1 if invalid format * DOMEntity@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 '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; case "DD.MM.YY": $str_date = $date[2] . '.' . $date[1] . '.' . substr($date[0],2,2); break; case "DD-MM-YY": $str_date = $date[2] . '-' . $date[1] . '-' . substr($date[0],2,2); break; default: throw new Exception(_("Format Invalide"),1); } 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[SESSION_KEY.'g_user'] is not set : echo a warning */ if (!isset($_SESSION[SESSION_KEY.'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.=Icon_Action::close($div); $html.='
'; $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.='
'; $html.=''. _('Cliquez ici pour vous reconnecter dans une autre page'). ''; $html.=$reload->input(); $html.=HtmlInput::button_close($div); $html.='
'; $html = escape_xml($html); header('Content-type: text/xml; charset=UTF-8'); echo << $div $html 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_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 '
'; echo ''; echo '
'; echo_warning(_("Module inexistant")."[ $selected ] "); echo '
'; 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 * @var $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 * @var $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; $http=new HttpInput(); $access_code=$http->request("ac"); $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 NOALYSS_TEMPLATE.'/menu.php'; $level++; return; } elseif (count($amenu) == 1) { // there is only one submenu so we include the code or javascript // or we show the submenu if ( trim($amenu[0]['me_url']) != "" || trim ($amenu[0]['me_file']) != "" || trim ($amenu[0]['me_javascript']) != "" ) { echo '
'; echo h2info(_($amenu[0]['me_menu'])); echo '
'; $module = $amenu[0]['pm_id']; display_menu($module); $level++; return; } else { $url=$access_code.'/'.$amenu[0]['me_code']; echo ''; echo _($amenu[0]['me_menu']); echo ''; $level++; return; } } // !!! this point should never be reached // There is no submenu or only one if (empty($amenu) || count($amenu) == 1) { display_menu($module); } $level++; } /** * Display a menu * @global type $g_user * @param type $p_menuid * @return type */ function display_menu($p_menuid) { if ($p_menuid == 0) return; global $g_user; $cn=Dossier::connect(); $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($p_menuid,$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 ( DEBUGNOALYSS == 2) { 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') { if (file_exists ($file[0]['me_file']) ) { require_once $file[0]['me_file']; } elseif ( file_exists(NOALYSS_INCLUDE.'/'.$file[0]['me_file'])) { require_once NOALYSS_INCLUDE.'/'.$file[0]['me_file']; }else { echo echo_warning(_("Fichier non trouvé")); } } else { require 'extension_get.inc.php'; } exit(); } elseif ( $file[0]['me_javascript'] != '') { $js= str_replace('', dossier::id(), $file[0]['me_javascript']); echo create_script($js); } } /** * 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 $p_code $html 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) { ?>
0) :?>

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; } /** * Record an error message into the log file of the server. * Record also the GET and POST data * @param string $p_message */ function record_log($p_message) { error_log("noalyss".print_r($p_message,true),0); error_log("noalyss GET [".json_encode($_GET)."]"); error_log("_POST [".json_encode($_POST)."]",0); } if(!function_exists('tracedebug')) { function tracedebug($file,$var, $label = NULL) { $tmp_file = sys_get_temp_dir().DIRECTORY_SEPARATOR.$file; $output = ''; $output .= date('d-m-y H:i'); if(!is_null($label)) { $output .= $label . ': '; } if ( gettype ($var) == 'object' && get_class($var)=='DOMDocument') { $var->formatOutput=true; $output.=$var->saveXML() .PHP_EOL; } else { $output .= print_r($var, 1) . PHP_EOL; } file_put_contents($tmp_file, $output, FILE_APPEND); } } /** * encode the string for RTF, return a stringu * @param $p_string string to convert * @return string */ function convert_to_rtf($p_string) { $result=""; $p_string2=utf8_decode($p_string); $nb_result=strlen($p_string2); for ($i = 0 ; $i < $nb_result ; $i++ ){ if (ord($p_string[$i]) < 127 ) { $result.=$p_string[$i]; } else { $result.='\u'.ord($p_string[$i]).chr(92).chr(39).'3f'; } } return $result; } /** * When it is needed to eval a formula , this function prevent the divide by zero. * the formula is a math operation to evaluate like : 1.0+2.0/1 (...) , it is used in "report", * it removes the operation "divide by 0 " * * @param string $p_formula string containing a operation to evaluate * * @see Impress::parse_formula */ function remove_divide_zero($p_formula) { $test=str_replace(" ","",$p_formula).";"; $p_formula=preg_replace("![0-9]+\.*[0-9]*/0\.{0,1}0*(\+|-|\*|/|;){1}!","0$1",$test); $p_formula=trim($p_formula,';'); return $p_formula; } /** * Create randomly a string * @param int $p_length length of the generate string */ function generate_random_string($car) { $string=""; $chaine="abcdefghijklmnpqrstuvwxyABCDEFGHIJKLMNPQRSTUVWXY0123456789*/+-=<>"; srand((double) microtime()*1020030); for ($i=0; $i<$car; $i++) { $string .= $chaine[rand()%strlen($chaine)]; } return $string; } /** * generate a string of p_car character and a input text with name p_ctl_name * work like a kind of captcha.The control code for checking is ctlcode. * You compare the content of the variable p_ctl_name with ctlcode * @param $p_ctl_name name of the HTML input text * @param $p_car length of the string */ function confirm_with_string($p_ctl_name,$p_car) { $code=generate_random_string($p_car ); $r = HtmlInput::hidden("ctlcode",$code); $r.=''. $code.''; $ctl=new IText($p_ctl_name); $r.=$ctl->input(); return $r; } /** * Find the menu marked as default in the given profile * @param number $pn_menu (profile_menu.id) */ function find_default_menu($pn_menu) { $cn=Dossier::connect(); $sql = ' select pm_id from profile_menu where pm_default =1 and pm_id_dep = $1'; $aresult=$cn->get_array($sql, [$pn_menu]); if (empty($aresult)) { return 0; } return $aresult[0]['pm_id']; } /** * Check if there is a default menu for this user and add it. The array is filling from 1 to 3 * @verbatim * * COMPTA 0 - 0 - 173 * COMPTA/MENUACH 0 - 173 - 3 * COMPTA/MENUACH/ACH 173 - 3 - 85 * * @endverbatim * * * @param array $pa_menu if the array of option ; index pm_id_v1 , pm_id_v2 and pm_id_v3 * */ function complete_default_menu($pa_menu) { $a_result=$pa_menu; // find the first one which is null if ($pa_menu[0]['pm_id_v2'] == 0) { $tmp=find_default_menu($pa_menu[0]['pm_id_v1']); if ( $tmp <> 0 ) { $a_result[0]['pm_id_v2']=$pa_menu[0]['pm_id_v1']; $a_result[0]['pm_id_v1']=$tmp; } } if ($pa_menu[0]['pm_id_v3'] == 0) { $tmp=find_default_menu($a_result[0]['pm_id_v1']); if ( $tmp <> 0 ) { $a_result[0]['pm_id_v3']=$a_result[0]['pm_id_v2']; $a_result[0]['pm_id_v2']=$a_result[0]['pm_id_v1']; $a_result[0]['pm_id_v1']=$tmp; } } return $a_result; } /** * rebuild the access code * @see complete_default_menu * @param array of number $pan_code index row [0] = index pm_id_v1 , pm_id_v2 and pm_id_v3 */ function rebuild_access_code($pan_code) { if ( empty ($pan_code)) {return;} $s_result=""; $cn=Dossier::connect(); $an_code=['pm_id_v3','pm_id_v2','pm_id_v1']; $sep=""; for ($i=0;$i<3;$i++) { $ix=$an_code[$i]; $s_result.=$sep.$cn->get_value("select me_code from profile_menu where pm_id=$1",[ $pan_code[0][$ix] ]); $sep=($s_result != "" )?"/":""; } return $s_result; } /*** * Transform a http link into a clickable link */ function add_http_link($text) { $ret=preg_replace("!http[s]{0,1}://[[:graph:]*]*!",'\0',$text); return $ret; }