* Copyright (C) 2004-2012 Laurent Destailleur * Copyright (C) 2004 Benoit Mortier * Copyright (C) 2004 Sebastien Di Cintio * Copyright (C) 2004 Eric Seigne * Copyright (C) 2005-2012 Regis Houssin * Copyright (C) 2006 Andre Cianfarani * Copyright (C) 2006 Marc Barilley/Ocebo * Copyright (C) 2007 Franky Van Liedekerke * Copyright (C) 2007 Patrick Raguin * * This program 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 3 of the License, or * (at your option) any later version. * * This program 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 this program. If not, see . */ /** * \file htdocs/core/class/html.formother.class.php * \ingroup core * \brief Fichier de la classe des fonctions predefinie de composants html autre */ /** * Classe permettant la generation de composants html autre * Only common components are here. */ class FormOther { private $db; /** * @var string Error code (or message) */ public $error; /** * Constructor * * @param DoliDB $db Database handler */ public function __construct($db) { $this->db = $db; } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return HTML select list of export models * * @param string $selected Id modele pre-selectionne * @param string $htmlname Nom de la zone select * @param string $type Type des modeles recherches * @param int $useempty Affiche valeur vide dans liste * @param int $fk_user Utilisateur créant le modèle * @return void */ public function select_export_model($selected = '', $htmlname = 'exportmodelid', $type = '', $useempty = 0, $fk_user = null) { // phpcs:enable $sql = "SELECT rowid, label"; $sql.= " FROM ".MAIN_DB_PREFIX."export_model"; $sql.= " WHERE type = '".$type."'"; if (!empty($fk_user)) $sql.=" AND fk_user=".$fk_user; $sql.= " ORDER BY rowid"; $result = $this->db->query($sql); if ($result) { print '"; } else { dol_print_error($this->db); } } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return list of export models * * @param string $selected Id modele pre-selectionne * @param string $htmlname Nom de la zone select * @param string $type Type des modeles recherches * @param int $useempty Affiche valeur vide dans liste * @return void */ public function select_import_model($selected = '', $htmlname = 'importmodelid', $type = '', $useempty = 0) { // phpcs:enable $sql = "SELECT rowid, label"; $sql.= " FROM ".MAIN_DB_PREFIX."import_model"; $sql.= " WHERE type = '".$type."'"; $sql.= " ORDER BY rowid"; $result = $this->db->query($sql); if ($result) { print '"; } else { dol_print_error($this->db); } } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return list of ecotaxes with label * * @param string $selected Preselected ecotaxes * @param string $htmlname Name of combo list * @return integer */ public function select_ecotaxes($selected = '', $htmlname = 'ecotaxe_id') { // phpcs:enable global $langs; $sql = "SELECT e.rowid, e.code, e.label, e.price, e.organization,"; $sql.= " c.label as country"; $sql.= " FROM ".MAIN_DB_PREFIX."c_ecotaxe as e,".MAIN_DB_PREFIX."c_country as c"; $sql.= " WHERE e.active = 1 AND e.fk_pays = c.rowid"; $sql.= " ORDER BY country, e.organization ASC, e.code ASC"; dol_syslog(get_class($this).'::select_ecotaxes', LOG_DEBUG); $resql=$this->db->query($sql); if ($resql) { print ''; return 0; } else { dol_print_error($this->db); return 1; } } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return list of revenue stamp for country * * @param string $selected Value of preselected revenue stamp * @param string $htmlname Name of combo list * @param string $country_code Country Code * @return string HTML select list */ public function select_revenue_stamp($selected = '', $htmlname = 'revenuestamp', $country_code = '') { // phpcs:enable global $langs; $out=''; $sql = "SELECT r.taux, r.revenuestamp_type"; $sql.= " FROM ".MAIN_DB_PREFIX."c_revenuestamp as r,".MAIN_DB_PREFIX."c_country as c"; $sql.= " WHERE r.active = 1 AND r.fk_pays = c.rowid"; $sql.= " AND c.code = '".$country_code."'"; dol_syslog(get_class($this).'::select_revenue_stamp', LOG_DEBUG); $resql=$this->db->query($sql); if ($resql) { $out.=''; return $out; } else { dol_print_error($this->db); return ''; } } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return a HTML select list to select a percent * * @param integer $selected pourcentage pre-selectionne * @param string $htmlname nom de la liste deroulante * @param int $disabled Disabled or not * @param int $increment increment value * @param int $start start value * @param int $end end value * @param int $showempty Add also an empty line * @return string HTML select string */ public function select_percent($selected = 0, $htmlname = 'percent', $disabled = 0, $increment = 5, $start = 0, $end = 100, $showempty = 0) { // phpcs:enable $return = ''; return $return; } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return select list for categories (to use in form search selectors) * * @param int $type Type of category ('customer', 'supplier', 'contact', 'product', 'member'). Old mode (0, 1, 2, ...) is deprecated. * @param integer $selected Preselected value * @param string $htmlname Name of combo list * @param int $nocateg Show also an entry "Not categorized" * @param int $showempty Add also an empty line * @param string $morecss More CSS * @return string Html combo list code * @see select_all_categories */ public function select_categories($type, $selected = 0, $htmlname = 'search_categ', $nocateg = 0, $showempty = 1, $morecss = '') { // phpcs:enable global $conf, $langs; require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php'; // For backward compatibility if (is_numeric($type)) { dol_syslog(__METHOD__ . ': using numeric value for parameter type is deprecated. Use string code instead.', LOG_WARNING); } // Load list of "categories" $static_categs = new Categorie($this->db); $tab_categs = $static_categs->get_full_arbo($type); $moreforfilter = ''; // Enhance with select2 if ($conf->use_javascript_ajax) { include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php'; $comboenhancement = ajax_combobox('select_categ_'.$htmlname); $moreforfilter.=$comboenhancement; } // Print a select with each of them $moreforfilter.=''; return $moreforfilter; } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return select list for categories (to use in form search selectors) * * @param string $selected Preselected value * @param string $htmlname Name of combo list (example: 'search_sale') * @param User $user Object user * @param int $showstatus 0=show user status only if status is disabled, 1=always show user status into label, -1=never show user status * @param int $showempty 1=show also an empty value * @param string $morecss More CSS * @return string Html combo list code */ public function select_salesrepresentatives($selected, $htmlname, $user, $showstatus = 0, $showempty = 1, $morecss = '') { // phpcs:enable global $conf,$langs; $langs->load('users'); $out = ''; // Enhance with select2 if ($conf->use_javascript_ajax) { include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php'; $comboenhancement = ajax_combobox($htmlname); if ($comboenhancement) { $out.=$comboenhancement; } } // Select each sales and print them in a select input $out.=''; return $out; } /** * Return list of project and tasks * * @param int $selectedtask Pre-selected task * @param int $projectid Project id * @param string $htmlname Name of html select * @param int $modeproject 1 to restrict on projects owned by user * @param int $modetask 1 to restrict on tasks associated to user * @param int $mode 0=Return list of tasks and their projects, 1=Return projects and tasks if exists * @param int $useempty 0=Allow empty values * @param int $disablechildoftaskid 1=Disable task that are child of the provided task id * @param string $filteronprojstatus Filter on project status ('-1'=no filter, '0,1'=Draft+Validated status) * @param string $morecss More css * @return void */ public function selectProjectTasks($selectedtask = '', $projectid = 0, $htmlname = 'task_parent', $modeproject = 0, $modetask = 0, $mode = 0, $useempty = 0, $disablechildoftaskid = 0, $filteronprojstatus = '', $morecss = '') { global $user, $langs; require_once DOL_DOCUMENT_ROOT.'/projet/class/task.class.php'; //print $modeproject.'-'.$modetask; $task=new Task($this->db); $tasksarray=$task->getTasksArray($modetask?$user:0, $modeproject?$user:0, $projectid, 0, $mode, '', $filteronprojstatus); if ($tasksarray) { print ''; print ajax_combobox($htmlname); } else { print '

'.$langs->trans("NoProject").'

'; } } /** * Write lines of a project (all lines of a project if parent = 0) * * @param int $inc Cursor counter * @param int $parent Id of parent task we want to see * @param array $lines Array of task lines * @param int $level Level * @param int $selectedtask Id selected task * @param int $selectedproject Id selected project * @param int $disablechildoftaskid 1=Disable task that are child of the provided task id * @return void */ private function _pLineSelect(&$inc, $parent, $lines, $level = 0, $selectedtask = 0, $selectedproject = 0, $disablechildoftaskid = 0) { global $langs, $user, $conf; $lastprojectid=0; $numlines=count($lines); for ($i = 0 ; $i < $numlines ; $i++) { if ($lines[$i]->fk_parent == $parent) { $var = !$var; //var_dump($selectedproject."--".$selectedtask."--".$lines[$i]->fk_project."_".$lines[$i]->id); // $lines[$i]->id may be empty if project has no lines // Break on a new project if ($parent == 0) // We are on a task at first level { if ($lines[$i]->fk_project != $lastprojectid) // Break found on project { if ($i > 0) print ''; print '\n"; $lastprojectid=$lines[$i]->fk_project; $inc++; } } $newdisablechildoftaskid=$disablechildoftaskid; // Print task if (isset($lines[$i]->id)) // We use isset because $lines[$i]->id may be null if project has no task and are on root project (tasks may be caught by a left join). We enter here only if '0' or >0 { // Check if we must disable entry $disabled=0; if ($disablechildoftaskid && (($lines[$i]->id == $disablechildoftaskid || $lines[$i]->fk_parent == $disablechildoftaskid))) { $disabled++; if ($lines[$i]->fk_parent == $disablechildoftaskid) $newdisablechildoftaskid=$lines[$i]->id; // If task is child of a disabled parent, we will propagate id to disable next child too } print '\n"; $inc++; } $level++; if ($lines[$i]->id) $this->_pLineSelect($inc, $lines[$i]->id, $lines, $level, $selectedtask, $selectedproject, $newdisablechildoftaskid); $level--; } } } /** * Output a HTML thumb of color or a text if not defined. * * @param string $color String with hex (FFFFFF) or comma RGB ('255,255,255') * @param string $textifnotdefined Text to show if color not defined * @return string HTML code for color thumb * @see selectColor */ public static function showColor($color, $textifnotdefined = '') { $textcolor='FFF'; include_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php'; if(colorIsLight($color)) $textcolor='000'; $color = colorArrayToHex(colorStringToArray($color, array()), ''); if ($color) print ''; else print $textifnotdefined; } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Output a HTML code to select a color * * @param string $set_color Pre-selected color * @param string $prefix Name of HTML field * @param string $form_name Deprecated. Not used. * @param int $showcolorbox 1=Show color code and color box, 0=Show only color code * @param array $arrayofcolors Array of colors. Example: array('29527A','5229A3','A32929','7A367A','B1365F','0D7813') * @return void * @deprecated Use instead selectColor * @see selectColor() */ public function select_color($set_color = '', $prefix = 'f_color', $form_name = '', $showcolorbox = 1, $arrayofcolors = '') { // phpcs:enable print $this->selectColor($set_color, $prefix, $form_name, $showcolorbox, $arrayofcolors); } /** * Output a HTML code to select a color. Field will return an hexa color like '334455'. * * @param string $set_color Pre-selected color * @param string $prefix Name of HTML field * @param string $form_name Deprecated. Not used. * @param int $showcolorbox 1=Show color code and color box, 0=Show only color code * @param array $arrayofcolors Array of colors. Example: array('29527A','5229A3','A32929','7A367A','B1365F','0D7813') * @param string $morecss Add css style into input field * @return string * @see showColor */ public static function selectColor($set_color = '', $prefix = 'f_color', $form_name = '', $showcolorbox = 1, $arrayofcolors = '', $morecss = '') { // Deprecation warning if ($form_name) { dol_syslog(__METHOD__ . ": form_name parameter is deprecated", LOG_WARNING); } global $langs,$conf; $out=''; if (! is_array($arrayofcolors) || count($arrayofcolors) < 1) { $langs->load("other"); if (empty($conf->dol_use_jmobile)) { $out.= ''; $out.= ''; $out.= ''; } $out.= ''; } else // In most cases, this is not used. We used instead function with no specific list of colors { if (empty($conf->dol_use_jmobile)) { $out.= ''; $out.= ''; $out.= ''; } $out.= ''; } return $out; } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Creation d'un icone de couleur * * @param string $color Couleur de l'image * @param string $module Nom du module * @param string $name Nom de l'image * @param int $x Largeur de l'image en pixels * @param int $y Hauteur de l'image en pixels * @return void */ public function CreateColorIcon($color, $module, $name, $x = '12', $y = '12') { // phpcs:enable global $conf; $file = $conf->$module->dir_temp.'/'.$name.'.png'; // On cree le repertoire contenant les icones if (! file_exists($conf->$module->dir_temp)) { dol_mkdir($conf->$module->dir_temp); } // On cree l'image en vraies couleurs $image = imagecreatetruecolor($x, $y); $color = substr($color, 1, 6); $rouge = hexdec(substr($color, 0, 2)); //conversion du canal rouge $vert = hexdec(substr($color, 2, 2)); //conversion du canal vert $bleu = hexdec(substr($color, 4, 2)); //conversion du canal bleu $couleur = imagecolorallocate($image, $rouge, $vert, $bleu); //print $rouge.$vert.$bleu; imagefill($image, 0, 0, $couleur); //on remplit l'image // On cree la couleur et on l'attribue a une variable pour ne pas la perdre ImagePng($image, $file); //renvoie une image sous format png ImageDestroy($image); } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return HTML combo list of week * * @param string $selected Preselected value * @param string $htmlname Nom de la zone select * @param int $useempty Affiche valeur vide dans liste * @return string */ public function select_dayofweek($selected = '', $htmlname = 'weekid', $useempty = 0) { // phpcs:enable global $langs; $week = array( 0=>$langs->trans("Day0"), 1=>$langs->trans("Day1"), 2=>$langs->trans("Day2"), 3=>$langs->trans("Day3"), 4=>$langs->trans("Day4"), 5=>$langs->trans("Day5"), 6=>$langs->trans("Day6") ); $select_week = ''; return $select_week; } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return HTML combo list of month * * @param string $selected Preselected value * @param string $htmlname Name of HTML select object * @param int $useempty Show empty in list * @param int $longlabel Show long label * @param string $morecss More Css * @return string */ public function select_month($selected = '', $htmlname = 'monthid', $useempty = 0, $longlabel = 0, $morecss = '') { // phpcs:enable global $langs; require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php'; if ($longlabel) $montharray = monthArray($langs, 0); // Get array else $montharray = monthArray($langs, 1); $select_month = ''; return $select_month; } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return HTML combo list of years * * @param string $selected Preselected value (''=current year, -1=none, year otherwise) * @param string $htmlname Name of HTML select object * @param int $useempty Affiche valeur vide dans liste * @param int $min_year Offset of minimum year into list (by default current year -10) * @param int $max_year Offset of maximum year into list (by default current year + 5) * @param int $offset Offset * @param int $invert Invert * @param string $option Option * @param string $morecss More CSS * @return string */ public function select_year($selected = '', $htmlname = 'yearid', $useempty = 0, $min_year = 10, $max_year = 5, $offset = 0, $invert = 0, $option = '', $morecss = 'valignmiddle widthauto') { // phpcs:enable print $this->selectyear($selected, $htmlname, $useempty, $min_year, $max_year, $offset, $invert, $option, $morecss); } /** * Return HTML combo list of years * * @param string $selected Preselected value (''=current year, -1=none, year otherwise) * @param string $htmlname Name of HTML select object * @param int $useempty Affiche valeur vide dans liste * @param int $min_year Offset of minimum year into list (by default current year -10) * @param int $max_year Offset of maximum year into list (by default current year + 5) * @param int $offset Offset * @param int $invert Invert * @param string $option Option * @param string $morecss More css * @return string */ public function selectyear($selected = '', $htmlname = 'yearid', $useempty = 0, $min_year = 10, $max_year = 5, $offset = 0, $invert = 0, $option = '', $morecss = 'valignmiddle widthauto') { $out=''; $currentyear = date("Y")+$offset; $max_year = $currentyear+$max_year; $min_year = $currentyear-$min_year; if(empty($selected) && empty($useempty)) $selected = $currentyear; $out.= '\n"; return $out; } /** * Get array with HTML tabs with boxes of a particular area including personalized choices of user. * Class 'Form' must be known. * * @param User $user Object User * @param String $areacode Code of area for pages ('0'=value for Home page) * @return array array('selectboxlist'=>, 'boxactivated'=>, 'boxlista'=>, 'boxlistb'=>) */ public static function getBoxesArea($user, $areacode) { global $conf,$langs,$db; include_once DOL_DOCUMENT_ROOT.'/core/class/infobox.class.php'; $confuserzone='MAIN_BOXES_'.$areacode; // $boxactivated will be array of boxes enabled into global setup // $boxidactivatedforuser will be array of boxes choosed by user $selectboxlist=''; $boxactivated=InfoBox::listBoxes($db, 'activated', $areacode, (empty($user->conf->$confuserzone)?null:$user), array(), 0); // Search boxes of common+user (or common only if user has no specific setup) $boxidactivatedforuser=array(); foreach($boxactivated as $box) { if (empty($user->conf->$confuserzone) || $box->fk_user == $user->id) $boxidactivatedforuser[$box->id]=$box->id; // We keep only boxes to show for user } // Define selectboxlist $arrayboxtoactivatelabel=array(); if (! empty($user->conf->$confuserzone)) { $boxorder=''; $langs->load("boxes"); // Load label of boxes foreach($boxactivated as $box) { if (! empty($boxidactivatedforuser[$box->id])) continue; // Already visible for user $label=$langs->transnoentitiesnoconv($box->boxlabel); //if (preg_match('/graph/',$box->class)) $label.=' ('.$langs->trans("Graph").')'; if (preg_match('/graph/', $box->class) && $conf->browser->layout != 'phone') { $label=$label.' '; } $arrayboxtoactivatelabel[$box->id]=$label; // We keep only boxes not shown for user, to show into combo list } foreach($boxidactivatedforuser as $boxid) { if (empty($boxorder)) $boxorder.='A:'; $boxorder.=$boxid.','; } //var_dump($boxidactivatedforuser); // Class Form must have been already loaded $selectboxlist.=''."\n"; $selectboxlist.=''; if (! empty($conf->use_javascript_ajax)) { include_once DOL_DOCUMENT_ROOT . '/core/lib/ajax.lib.php'; $selectboxlist.=ajax_combobox("boxcombo"); } } // Javascript code for dynamic actions if (! empty($conf->use_javascript_ajax)) { $selectboxlist.=''."\n"; } // Define boxlista and boxlistb $nbboxactivated=count($boxidactivatedforuser); if ($nbboxactivated) { // Load translation files required by the page $langs->loadLangs(array("boxes","projects")); $emptybox=new ModeleBoxes($db); $boxlista.="\n\n"; // Define $box_max_lines $box_max_lines=5; if (! empty($conf->global->MAIN_BOXES_MAXLINES)) $box_max_lines=$conf->global->MAIN_BOXES_MAXLINES; $ii=0; foreach ($boxactivated as $key => $box) { if ((! empty($user->conf->$confuserzone) && $box->fk_user == 0) || (empty($user->conf->$confuserzone) && $box->fk_user != 0)) continue; if (empty($box->box_order) && $ii < ($nbboxactivated / 2)) $box->box_order='A'.sprintf("%02d", ($ii+1)); // When box_order was not yet set to Axx or Bxx and is still 0 if (preg_match('/^A/i', $box->box_order)) // column A { $ii++; //print 'box_id '.$boxactivated[$ii]->box_id.' '; //print 'box_order '.$boxactivated[$ii]->box_order.'
'; // Show box $box->loadBox($box_max_lines); $boxlista.= $box->outputBox(); } } if ($conf->browser->layout != 'phone') { $emptybox->box_id='A'; $emptybox->info_box_head=array(); $emptybox->info_box_contents=array(); $boxlista.= $emptybox->outputBox(array(), array()); } $boxlista.= "\n"; $boxlistb.= "\n\n"; $ii=0; foreach ($boxactivated as $key => $box) { if ((! empty($user->conf->$confuserzone) && $box->fk_user == 0) || (empty($user->conf->$confuserzone) && $box->fk_user != 0)) continue; if (empty($box->box_order) && $ii < ($nbboxactivated / 2)) $box->box_order='B'.sprintf("%02d", ($ii+1)); // When box_order was not yet set to Axx or Bxx and is still 0 if (preg_match('/^B/i', $box->box_order)) // colonne B { $ii++; //print 'box_id '.$boxactivated[$ii]->box_id.' '; //print 'box_order '.$boxactivated[$ii]->box_order.'
'; // Show box $box->loadBox($box_max_lines); $boxlistb.= $box->outputBox(); } } if ($conf->browser->layout != 'phone') { $emptybox->box_id='B'; $emptybox->info_box_head=array(); $emptybox->info_box_contents=array(); $boxlistb.= $emptybox->outputBox(array(), array()); } $boxlistb.= "\n"; } return array('selectboxlist'=>count($boxactivated)?$selectboxlist:'', 'boxactivated'=>$boxactivated, 'boxlista'=>$boxlista, 'boxlistb'=>$boxlistb); } // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps /** * Return a HTML select list of a dictionary * * @param string $htmlname Name of select zone * @param string $dictionarytable Dictionary table * @param string $keyfield Field for key * @param string $labelfield Label field * @param string $selected Selected value * @param int $useempty 1=Add an empty value in list, 2=Add an empty value in list only if there is more than 2 entries. * @param string $moreattrib More attributes on HTML select tag * @return void */ public function select_dictionary($htmlname, $dictionarytable, $keyfield = 'code', $labelfield = 'label', $selected = '', $useempty = 0, $moreattrib = '') { // phpcs:enable global $langs, $conf; $langs->load("admin"); $sql = "SELECT rowid, ".$keyfield.", ".$labelfield; $sql.= " FROM ".MAIN_DB_PREFIX.$dictionarytable; $sql.= " ORDER BY ".$labelfield; dol_syslog(get_class($this)."::select_dictionary", LOG_DEBUG); $result = $this->db->query($sql); if ($result) { $num = $this->db->num_rows($result); $i = 0; if ($num) { print '"; } else { print $langs->trans("DictionaryEmpty"); } } else { dol_print_error($this->db); } } }