* * 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.formwebsite.class.php * \ingroup core * \brief File of class to manage component html for module website */ /** * Class to manage component html for module website */ class FormWebsite { private $db; public $error; /** * Constructor * * @param DoliDB $db Database handler */ function __construct($db) { $this->db = $db; return 1; } /** * Return HTML select list of export models * * @param string $selected Id modele pre-selectionne * @param string $htmlname Name of HTML select * @param int $useempty Show empty value or not * @return string Html component */ function selectWebsite($selected='',$htmlname='exportmodelid',$useempty=0) { $out=''; $sql = "SELECT rowid, ref"; $sql.= " FROM ".MAIN_DB_PREFIX."website"; $sql.= " WHERE 1 = 1"; $sql.= " ORDER BY rowid"; $result = $this->db->query($sql); if ($result) { $out.='"; } else { dol_print_error($this->db); } return $out; } /** * 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 */ function select_import_model($selected='',$htmlname='importmodelid',$type='',$useempty=0) { $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); } } /** * Return list of ecotaxes with label * * @param string $selected Preselected ecotaxes * @param string $htmlname Name of combo list * @return integer */ function select_ecotaxes($selected='',$htmlname='ecotaxe_id') { global $langs; $sql = "SELECT e.rowid, e.code, e.libelle, 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; } } /** * 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 */ function select_revenue_stamp($selected='',$htmlname='revenuestamp',$country_code='') { global $langs; $out=''; $sql = "SELECT r.taux"; $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 ''; } } /** * 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 */ function select_percent($selected=0,$htmlname='percent',$disabled=0,$increment=5,$start=0,$end=100,$showempty=0) { $return = ''; return $return; } /** * 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 */ function select_categories($type, $selected=0, $htmlname='search_categ', $nocateg=0, $showempty=1, $morecss='') { 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; } /** * 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 */ function select_salesrepresentatives($selected,$htmlname,$user,$showstatus=0,$showempty=1,$morecss='') { 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 * @return void */ function selectProjectTasks($selectedtask='', $projectid=0, $htmlname='task_parent', $modeproject=0, $modetask=0, $mode=0, $useempty=0, $disablechildoftaskid=0) { 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); if ($tasksarray) { print ''; } 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 */ static function showColor($color, $textifnotdefined='') { $textcolor='FFF'; if ($color) { $tmp=explode(',', $color); if (count($tmp) > 1) // This is a comma RGB ('255','255','255') { $r = $tmp[0]; $g = $tmp[1]; $b = $tmp[2]; } else { $hexr=$color[0].$color[1]; $hexg=$color[2].$color[3]; $hexb=$color[4].$color[5]; $r = hexdec($hexr); $g = hexdec($hexg); $b = hexdec($hexb); } $bright = (max($r, $g, $b) + min($r, $g, $b)) / 510.0; // HSL algorithm if ($bright > 0.6) $textcolor='000'; } include_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php'; $color = colorArrayToHex(colorStringToArray($color,array()),''); if ($color) print ''; else print $textifnotdefined; } /** * 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() */ function select_color($set_color='', $prefix='f_color', $form_name='', $showcolorbox=1, $arrayofcolors='') { 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 */ 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; } /** * 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 */ function CreateColorIcon($color,$module,$name,$x='12',$y='12') { 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); } /** * 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 */ function select_dayofweek($selected='',$htmlname='weekid',$useempty=0) { 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; } /** * 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 * @return string */ function select_month($selected='',$htmlname='monthid',$useempty=0,$longlabel=0) { 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; } /** * 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 * @return string */ function select_year($selected='',$htmlname='yearid',$useempty=0, $min_year=10, $max_year=5, $offset=0, $invert=0, $option='') { print $this->selectyear($selected,$htmlname,$useempty,$min_year,$max_year,$offset,$invert,$option); } /** * 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 * @return string */ function selectyear($selected='',$htmlname='yearid',$useempty=0, $min_year=10, $max_year=5, $offset=0, $invert=0, $option='') { $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; } /** * Show form to select address * * @param int $page Page * @param string $selected Id condition pre-selectionne * @param int $socid Id of third party * @param string $htmlname Nom du formulaire select * @param string $origin Origine de l'appel pour pouvoir creer un retour * @param int $originid Id de l'origine * @return void */ function form_address($page, $selected, $socid, $htmlname='address_id', $origin='', $originid='') { global $langs,$conf; global $form; if ($htmlname != "none") { print '
'; print ''; print ''; $form->select_address($selected, $socid, $htmlname, 1); print ''; $langs->load("companies"); print '   '.$langs->trans("AddAddress").''; print '
'; } else { if ($selected) { require_once DOL_DOCUMENT_ROOT .'/societe/class/address.class.php'; $address=new Address($this->db); $result=$address->fetch_address($selected); print ''.$address->label.''; } else { print " "; } } } /** * 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'=>) */ 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").')'; //$label = ''.$label; KO with select2. No html rendering. $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.='
'; $selectboxlist.=''; $selectboxlist.=''; $selectboxlist.=''; $selectboxlist.=''; $selectboxlist.=Form::selectarray('boxcombo', $arrayboxtoactivatelabel, -1, $langs->trans("ChooseBoxToAdd").'...', 0, 0, '', 0, 0, 0, 'ASC', 'maxwidth150onsmartphone', 0, 'hidden selected', 0, 1); if (empty($conf->use_javascript_ajax)) $selectboxlist.=' '; $selectboxlist.='
'; $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) { $langs->load("boxes"); $langs->load("projects"); $emptybox=new ModeleBoxes($db); $boxlista.="\n\n"; $boxlista.='
'."\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 (empty($conf->browser->phone)) { $emptybox->box_id='A'; $emptybox->info_box_head=array(); $emptybox->info_box_contents=array(); $boxlista.= $emptybox->outputBox(array(),array()); } $boxlista.= "
\n"; $boxlista.= "\n"; $boxlistb.= "\n\n"; $boxlistb.= '\n"; $boxlistb.= "\n"; } return array('selectboxlist'=>count($boxactivated)?$selectboxlist:'', 'boxactivated'=>$boxactivated, 'boxlista'=>$boxlista, 'boxlistb'=>$boxlistb); } /** * Return a HTML select list of bank accounts * * @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 */ function select_dictionary($htmlname,$dictionarytable,$keyfield='code',$labelfield='label',$selected='',$useempty=0,$moreattrib='') { 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); } } }