* 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 { var $db; var $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 Nom de la zone select * @param string $type Type des modeles recherches * @param int $useempty Affiche valeur vide dans liste * @return void */ function select_export_model($selected='',$htmlname='exportmodelid',$type='',$useempty=0) { $sql = "SELECT rowid, label"; $sql.= " FROM ".MAIN_DB_PREFIX."export_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 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 * @return string HTML select string */ function select_percent($selected=0,$htmlname='percent',$disabled=0,$increment=5,$start=0,$end=100) { $return = ''; return $return; } /** * Return select list for categories (to use in form search selectors) * * @param int $type Type of categories (0=product, 1=suppliers, 2=customers, 3=members) * @param integer $selected Preselected value * @param string $htmlname Name of combo list * @param int $nocateg Show also an entry "Not categorized" * @return string Html combo list code * @see select_all_categories */ function select_categories($type,$selected=0,$htmlname='search_categ',$nocateg=0) { global $conf, $langs; require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php'; // Load list of "categories" $static_categs = new Categorie($this->db); $tab_categs = $static_categs->get_full_arbo($type); $moreforfilter = ''; $nodatarole = ''; // 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; $nodatarole=($comboenhancement?' data-role="none"':''); } // 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 * @return string Html combo list code */ function select_salesrepresentatives($selected,$htmlname,$user,$showstatus=0,$showempty=1) { global $conf,$langs; $langs->load('users'); $out = ''; $nodatarole = ''; // 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; $nodatarole=($comboenhancement?' data-role="none"':''); } } // 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 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 */ 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 * * @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 */ function selectColor($set_color='', $prefix='f_color', $form_name='', $showcolorbox=1, $arrayofcolors='', $morecss='') { 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 ''; 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 " "; } } } /** * Show a HTML Tab 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 int <0 if KO, Nb of boxes shown of OK (0 to n) */ static function printBoxesArea($user,$areacode) { global $conf,$langs,$db; include_once DOL_DOCUMENT_ROOT.'/core/class/infobox.class.php'; $confuserzone='MAIN_BOXES_'.$areacode; $boxactivated=InfoBox::listBoxes($db,'activated',$areacode,(empty($user->conf->$confuserzone)?null:$user)); // 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 } $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").')'; $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); if (empty($conf->use_javascript_ajax)) $selectboxlist.=' '; $selectboxlist.='
'; } // Javascript code for dynamic actions if (! empty($conf->use_javascript_ajax)) { print ''."\n"; } $nbboxactivated=count($boxidactivatedforuser); print load_fiche_titre(($nbboxactivated?$langs->trans("OtherInformationsBoxes"):''),$selectboxlist,'','','otherboxes'); if ($nbboxactivated) { $langs->load("boxes"); $langs->load("projects"); $emptybox=new ModeleBoxes($db); print ''; print '"; print "
'."\n"; print '
'; print "\n\n"; print '
'."\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.'
'; // Affichage boite key $box->loadBox($box_max_lines); $box->showBox(); } } if (empty($conf->browser->phone)) { $emptybox->box_id='A'; $emptybox->info_box_head=array(); $emptybox->info_box_contents=array(); $emptybox->showBox(array(),array()); } print "
\n"; print "\n"; print '
'; print "\n\n"; print '\n"; print "\n"; print '
'; print "\n"; print "
"; } return count($boxactivated); } /** * 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); } } }