* Copyright (C) 2004-2009 Laurent Destailleur * Copyright (C) 2004 Benoit Mortier * Copyright (C) 2004 Sebastien Di Cintio * Copyright (C) 2004 Eric Seigne * Copyright (C) 2005-2010 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 2 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, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /** * \file htdocs/core/class/html.formother.class.php * \brief Fichier de la classe des fonctions predefinie de composants html autre * \version $Id$ */ /** * \class FormOther * \brief Classe permettant la generation de composants html autre * \remarks Only common components must be here. */ class FormOther { var $db; var $error; /** * \brief Constructeur * \param DB handler d'acces base de donnee */ function FormOther($DB) { $this->db = $DB; return 1; } /** * \brief Retourne la liste des modeles d'export * \param selected Id modele pre-selectionne * \param htmlname Nom de la zone select * \param type Type des modeles recherches * \param useempty Affiche valeur vide dans liste */ 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); } } /** * \brief Retourne la liste des modeles d'import * \param selected Id modele pre-selectionne * \param htmlname Nom de la zone select * \param type Type des modeles recherches * \param useempty Affiche valeur vide dans liste */ 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); } } /** * \brief Retourne la liste des ecotaxes avec tooltip sur le libelle * \param selected code ecotaxes pre-selectionne * \param htmlname nom de la liste deroulante */ function select_ecotaxes($selected='',$htmlname='ecotaxe_id') { global $langs; $sql = "SELECT e.rowid, e.code, e.libelle, e.price, e.organization,"; $sql.= " p.libelle as pays"; $sql.= " FROM ".MAIN_DB_PREFIX."c_ecotaxe as e,".MAIN_DB_PREFIX."c_pays as p"; $sql.= " WHERE e.active = 1 AND e.fk_pays = p.rowid"; $sql.= " ORDER BY pays, e.organization ASC, e.code ASC"; $resql=$this->db->query($sql); if ($resql) { print ''; return 0; } else { dol_print_error($this->db); return 1; } } /** * \brief Retourne une liste de pourcentage * \param selected pourcentage pre-selectionne * \param htmlname nom de la liste deroulante * \param increment increment value * \param start start value * \param end end value * \return return combo */ function select_percent($selected=0,$htmlname='percent',$disabled=0,$increment=5,$start=0,$end=100) { $return = ''; return $return; } /** * \brief Return select list for categories (to use in form search selectors) * \param type Type of categories (0=product, 1=suppliers, 2=customers, 3=members) * \param selected Preselected value * \param htmlname Name of combo list * \return return Html combo list code */ function select_categories($type,$selected=0,$htmlname='search_categ') { global $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); // Print a select with each of them $moreforfilter =''; return $moreforfilter; } /** * Return select list for categories (to use in form search selectors) * @param selected Preselected value * @param htmlname Name of combo list * @param user Object user * @return return Html combo list code */ function select_salesrepresentatives($selected=0,$htmlname='search_sale',$user) { global $conf; // Select each sales and print them in a select input $moreforfilter =''; return $moreforfilter; } /** * \brief Return list of project and tasks * \param selectedtask Pre-selected task * \param projectid Project id * \param htmlname Name of html select * \param modeproject 1 to restrict on projects owned by user * \param modetask 1 to restrict on tasks associated to user * \param mode 0=Return list of tasks and their projects, 1=Return projects and tasks if exists * \param useempty 0=Allow empty values */ function selectProjectTasks($selectedtask='', $projectid=0, $htmlname='task_parent', $modeproject=0, $modetask=0, $mode=0, $useempty=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").'

'; } } /** * Output a HTML code to select a color * @param set_color Pre-selected color * @param prefix Name of HTML field * @param form_name Name of form * @param showcolorbox 1=Show color code and color box, 0=Show only color code * @param arrayofcolors Array of colors. Example: array('29527A','5229A3','A32929','7A367A','B1365F','0D7813') */ function select_color($set_color='', $prefix='f_color', $form_name='objForm', $showcolorbox=1, $arrayofcolors='') { if (! is_array($arrayofcolors) || sizeof($arrayofcolors) < 1) { // No list of colors forced, we can suggest any color print "\n".''; if ($showcolorbox) { print ''; } print '

'; print ''."\n"; print ''."\n"; print ''."\n"; print '

'; print '

'."\n"; print '

'; print ''; print ''; print ''; print '

'; print '

'; } else { // List of colors is forced if ($showcolorbox) print '

'; print ''; if ($showcolorbox) { print '

'; print ''; print ''; print ''; print '

'; print '

'; } } } /** * Creation d'un icone de couleur * @param color Couleur de l'image * @param module Nom du module * @param name Nom de l'image * @param x Largeur de l'image en pixels * @param y Hauteur de l'image en pixels */ 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)) { create_exdir($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); } } /** * Write all lines of a project (if parent = 0) * * @param $inc * @param $parent * @param $lines * @param $level * @param $selected */ function PLineSelect(&$inc, $parent, $lines, $level=0, $selectedtask=0, $selectedproject=0) { global $langs, $user, $conf; $lastprojectid=0; for ($i = 0 ; $i < sizeof($lines) ; $i++) { if ($lines[$i]->fk_parent == $parent) { $var = !$var; // Break on a new project if ($parent == 0) { if ($lines[$i]->fk_project != $lastprojectid) { if ($i > 0 && $conf->browser->firefox) print ''; print '\n"; $lastprojectid=$lines[$i]->fk_project; $inc++; } } // Print task if ($lines[$i]->id > 0) { print '\n"; $inc++; } $level++; if ($lines[$i]->id) PLineSelect($inc, $lines[$i]->id, $lines, $level, $selectedtask, $selectedproject); $level--; } } } ?>