<?PHP
/* Copyright (C) 2005-2011 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2011 Regis Houssin		<regis@dolibarr.fr>
 * Copyright (C) 2010-2011 Juanjo Menent		<jmenent@2byte.es>
 *
 * 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, see <http://www.gnu.org/licenses/>.
 */

/**
 *       \file       htdocs/core/class/html.formmail.class.php
 *       \ingroup    core
 *       \brief      Fichier de la classe permettant la generation du formulaire html d'envoi de mail unitaire
 */
require_once(DOL_DOCUMENT_ROOT ."/core/class/html.form.class.php");


/**     \class      FormMail
 *      \brief      Classe permettant la generation du formulaire html d'envoi de mail unitaire
 *      \remarks    Utilisation: $formail = new FormMail($db)
 *      \remarks                 $formmail->proprietes=1 ou chaine ou tableau de valeurs
 *      \remarks                 $formmail->show_form() affiche le formulaire
 */
class FormMail
{
    var $db;

    var $withform;

    var $fromname;
    var $frommail;
    var $replytoname;
    var $replytomail;
    var $toname;
    var $tomail;

    var $withsubstit;			// Show substitution array
    var $withfrom;
    var $withto;
    var $withtofree;
    var $withtocc;
    var $withtopic;
    var $withfile;				// 0=No attaches files, 1=Show attached files, 2=Can add new attached files
    var $withbody;

    var $withfromreadonly;
    var $withreplytoreadonly;
    var $withtoreadonly;
    var $withtoccreadonly;
    var $withtopicreadonly;
    var $withfilereadonly;
    var $withdeliveryreceipt;
    var $withcancel;

    var $substit=array();
    var $param=array();

    var $error;


    /**
     *	\brief     Constructeur
     *  \param     DB      handler d'acces base de donnee
     */
    function FormMail($DB)
    {
        $this->db = $DB;

        $this->withform=1;

        $this->withfrom=1;
        $this->withto=1;
        $this->withtofree=1;
        $this->withtocc=1;
        $this->withtoccc=0;
        $this->witherrorsto=0;
        $this->withtopic=1;
        $this->withfile=0;
        $this->withbody=1;

        $this->withfromreadonly=1;
        $this->withreplytoreadonly=1;
        $this->withtoreadonly=0;
        $this->withtoccreadonly=0;
        $this->witherrorstoreadonly=0;
        $this->withtopicreadonly=0;
        $this->withfilereadonly=0;
        $this->withbodyreadonly=0;
        $this->withdeliveryreceiptreadonly=0;

        return 1;
    }

    /**
     * Clear list of attached files in send mail form (stored in session)
     */
    function clear_attached_files()
    {
        global $conf,$user;
        require_once(DOL_DOCUMENT_ROOT."/lib/files.lib.php");

        // Set tmp user directory
        $vardir=$conf->user->dir_output."/".$user->id;
        $upload_dir = $vardir.'/temp/';
        if (is_dir($upload_dir)) dol_delete_dir_recursive($upload_dir);

        unset($_SESSION["listofpaths"]);
        unset($_SESSION["listofnames"]);
        unset($_SESSION["listofmimes"]);
    }

    /**
     * Add a file into the list of attached files (stored in SECTION array)
     *
     * @param 	string   $path   Full absolute path on filesystem of file, including file name
     * @param 	string   $file   Only filename
     * @param 	string   $type   Mime type
     */
    function add_attached_files($path,$file,$type)
    {
        $listofpaths=array();
        $listofnames=array();
        $listofmimes=array();
        if (! empty($_SESSION["listofpaths"])) $listofpaths=explode(';',$_SESSION["listofpaths"]);
        if (! empty($_SESSION["listofnames"])) $listofnames=explode(';',$_SESSION["listofnames"]);
        if (! empty($_SESSION["listofmimes"])) $listofmimes=explode(';',$_SESSION["listofmimes"]);
        if (! in_array($file,$listofnames))
        {
            $listofpaths[]=$path;
            $listofnames[]=$file;
            $listofmimes[]=$type;
            $_SESSION["listofpaths"]=join(';',$listofpaths);
            $_SESSION["listofnames"]=join(';',$listofnames);
            $_SESSION["listofmimes"]=join(';',$listofmimes);
        }
    }

    /**
     * Remove a file from the list of attached files (stored in SECTION array)
     *
     * @param  $keytodelete     Key in file array
     */
    function remove_attached_files($keytodelete)
    {
        $listofpaths=array();
        $listofnames=array();
        $listofmimes=array();
        if (! empty($_SESSION["listofpaths"])) $listofpaths=explode(';',$_SESSION["listofpaths"]);
        if (! empty($_SESSION["listofnames"])) $listofnames=explode(';',$_SESSION["listofnames"]);
        if (! empty($_SESSION["listofmimes"])) $listofmimes=explode(';',$_SESSION["listofmimes"]);
        if ($keytodelete >= 0)
        {
            unset ($listofpaths[$keytodelete]);
            unset ($listofnames[$keytodelete]);
            unset ($listofmimes[$keytodelete]);
            $_SESSION["listofpaths"]=join(';',$listofpaths);
            $_SESSION["listofnames"]=join(';',$listofnames);
            $_SESSION["listofmimes"]=join(';',$listofmimes);
            //var_dump($_SESSION['listofpaths']);
        }
    }

    /**
     * Return list of attached files (stored in SECTION array)
     *
     * @return	array       array('paths'=> ,'names'=>, 'mimes'=> )
     */
    function get_attached_files()
    {
        $listofpaths=array();
        $listofnames=array();
        $listofmimes=array();
        if (! empty($_SESSION["listofpaths"])) $listofpaths=explode(';',$_SESSION["listofpaths"]);
        if (! empty($_SESSION["listofnames"])) $listofnames=explode(';',$_SESSION["listofnames"]);
        if (! empty($_SESSION["listofmimes"])) $listofmimes=explode(';',$_SESSION["listofmimes"]);
        return array('paths'=>$listofpaths, 'names'=>$listofnames, 'mimes'=>$listofmimes);
    }

    /**
     *	Show the form to input an email
     *  this->withfile: 0=No attaches files, 1=Show attached files, 2=Can add new attached files
     *	@param			addfileaction		Name of action when posting file attachments
     *	@param			removefileaction	Name of action when removing file attachments
     */
    function show_form($addfileaction='addfile',$removefileaction='removefile')
    {
        print $this->get_form($addfileaction,$removefileaction);
    }

    /**
     *	Get the form to input an email
     *  this->withfile: 0=No attaches files, 1=Show attached files, 2=Can add new attached files
     *	@param			addfileaction		Name of action when posting file attachments
     *	@param			removefileaction	Name of action when removing file attachments
     */
    function get_form($addfileaction='addfile',$removefileaction='removefile')
    {
        global $conf, $langs, $user;

        $langs->load("other");
        $langs->load("mails");

        $out='';

        // Define list of attached files
        $listofpaths=array();
        $listofnames=array();
        $listofmimes=array();
        if (! empty($_SESSION["listofpaths"])) $listofpaths=explode(';',$_SESSION["listofpaths"]);
        if (! empty($_SESSION["listofnames"])) $listofnames=explode(';',$_SESSION["listofnames"]);
        if (! empty($_SESSION["listofmimes"])) $listofmimes=explode(';',$_SESSION["listofmimes"]);


        $form=new Form($DB);

        $out.= "\n<!-- Debut form mail -->\n";
        if ($this->withform)
        {
            $out.= '<form method="POST" name="mailform" enctype="multipart/form-data" action="'.$this->param["returnurl"].'">'."\n";
            $out.= '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'" />';
        }
        foreach ($this->param as $key=>$value)
        {
            $out.= '<input type="hidden" id="'.$key.'" name="'.$key.'" value="'.$value.'" />'."\n";
        }
        $out.= '<table class="border" width="100%">'."\n";

        // Substitution array
        if ($this->withsubstit)
        {
            $out.= '<tr><td colspan="2">';
            $help="";
            foreach($this->substit as $key => $val)
            {
                $help.=$key.' -> '.$langs->trans($val).'<br>';
            }
            $out.= $form->textwithpicto($langs->trans("EMailTestSubstitutionReplacedByGenericValues"),$help);
            $out.= "</td></tr>\n";
        }

        // From
        if ($this->withfrom)
        {
            if ($this->withfromreadonly)
            {
                $out.= '<input type="hidden" id="fromname" name="fromname" value="'.$this->fromname.'" />';
                $out.= '<input type="hidden" id="frommail" name="frommail" value="'.$this->frommail.'" />';
                $out.= '<tr><td width="180">'.$langs->trans("MailFrom").'</td><td>';
                if ($this->fromtype == 'user' && $this->fromid > 0)
                {
                    $langs->load("users");
                    $fuser=new User($this->db);
                    $fuser->fetch($this->fromid);
                    $out.= $fuser->getNomUrl(1);
                }
                else
                {
                    $out.= $this->fromname;
                }
                if ($this->frommail)
                {
                    $out.= " &lt;".$this->frommail."&gt;";
                }
                else
                {
                    if ($this->fromtype)
                    {
                        $langs->load("errors");
                        $out.= '<font class="warning"> &lt;'.$langs->trans("ErrorNoMailDefinedForThisUser").'&gt; </font>';
                    }
                }
                $out.= "</td></tr>\n";
                $out.= "</td></tr>\n";
            }
            else
            {
                $out.= "<tr><td>".$langs->trans("MailFrom")."</td><td>";
                $out.= $langs->trans("Name").':<input type="text" id="fromname" name="fromname" size="32" value="'.$this->fromname.'" />';
                $out.= '&nbsp; &nbsp; ';
                $out.= $langs->trans("EMail").':&lt;<input type="text" id="frommail" name="frommail" size="32" value="'.$this->frommail.'" />&gt;';
                $out.= "</td></tr>\n";
            }
        }

        // Replyto
        if ($this->withreplyto)
        {
            if ($this->withreplytoreadonly)
            {
                $out.= '<input type="hidden" id="replyname" name="replyname" value="'.$this->replytoname.'" />';
                $out.= '<input type="hidden" id="replymail" name="replymail" value="'.$this->replytomail.'" />';
                $out.= "<tr><td>".$langs->trans("MailReply")."</td><td>".$this->replytoname.($this->replytomail?(" &lt;".$this->replytomail."&gt;"):"");
                $out.= "</td></tr>\n";
            }
        }

        // Errorsto
        if ($this->witherrorsto)
        {
            //if (! $this->errorstomail) $this->errorstomail=$this->frommail;
            $errorstomail = (! empty($conf->global->MAIN_MAIL_ERRORS_TO) ? $conf->global->MAIN_MAIL_ERRORS_TO : $this->errorstomail);
            if ($this->witherrorstoreadonly)
            {
                $out.= '<input type="hidden" id="errorstomail" name="errorstomail" value="'.$errorstomail.'" />';
                $out.= '<tr><td>'.$langs->trans("MailErrorsTo").'</td><td>';
                $out.= $errorstomail;
                $out.= "</td></tr>\n";
            }
            else
            {
                $out.= '<tr><td>'.$langs->trans("MailErrorsTo").'</td><td>';
                $out.= '<input size="30" id="errorstomail" name="errorstomail" value="'.$errorstomail.'" />';
                $out.= "</td></tr>\n";
            }
        }

        // To
        if ($this->withto || is_array($this->withto))
        {
            $out.= '<tr><td width="180">';
            if ($this->withtofree) $out.= $form->textwithpicto($langs->trans("MailTo"),$langs->trans("YouCanUseCommaSeparatorForSeveralRecipients"));
            else $out.= $langs->trans("MailTo");
            $out.= '</td><td>';
            if ($this->withtoreadonly)
            {
                if (! empty($this->toname) && ! empty($this->tomail))
                {
                    $out.= '<input type="hidden" id="toname" name="toname" value="'.$this->toname.'" />';
                    $out.= '<input type="hidden" id="tomail" name="tomail" value="'.$this->tomail.'" />';
                    if ($this->totype == 'thirdparty')
                    {
                        $soc=new Societe($this->db);
                        $soc->fetch($this->toid);
                        $out.= $soc->getNomUrl(1);
                    }
                    else if ($this->totype == 'contact')
                    {
                        $contact=new Contact($this->db);
                        $contact->fetch($this->toid);
                        $out.= $contact->getNomUrl(1);
                    }
                    else
                    {
                        $out.= $this->toname;
                    }
                    $out.= ' &lt;'.$this->tomail.'&gt;';
                    if ($this->withtofree)
                    {
                        $out.= '<br>'.$langs->trans("or").' <input size="'.(is_array($this->withto)?"30":"60").'" id="sendto" name="sendto" value="'.(! is_array($this->withto) && ! is_numeric($this->withto)? (isset($_REQUEST["sendto"])?$_REQUEST["sendto"]:$this->withto) :"").'" />';
                    }
                }
                else
                {
                    $out.= (! is_array($this->withto) && ! is_numeric($this->withto))?$this->withto:"";
                }
            }
            else
            {
                if ($this->withtofree)
                {
                    $out.= '<input size="'.(is_array($this->withto)?"30":"60").'" id="sendto" name="sendto" value="'.(! is_array($this->withto) && ! is_numeric($this->withto)? (isset($_REQUEST["sendto"])?$_REQUEST["sendto"]:$this->withto) :"").'" />';
                }
                if (is_array($this->withto))
                {
                    if ($this->withtofree) $out.= " ".$langs->trans("or")." ";
                    $out.= $form->selectarray("receiver", $this->withto, GETPOST("receiver"), 1);
                }
                if ($this->withtosocid > 0) // deprecated. TODO Remove this. Instead, fill withto with array before calling method.
                {
                    $liste=array();
                    $soc=new Societe($this->db);
                    $soc->fetch($this->withtosocid);
                    foreach ($soc->thirdparty_and_contact_email_array() as $key=>$value)
                    {
                        $liste[$key]=$value;
                    }
                    if ($this->withtofree) $out.= " ".$langs->trans("or")." ";
                    $out.= $form->selectarray("receiver", $liste, GETPOST("receiver"), 1);
                }
            }
            $out.= "</td></tr>\n";
        }

        // CC
        if ($this->withtocc || is_array($this->withtocc))
        {
            $out.= '<tr><td width="180">';
            $out.= $form->textwithpicto($langs->trans("MailCC"),$langs->trans("YouCanUseCommaSeparatorForSeveralRecipients"));
            $out.= '</td><td>';
            if ($this->withtoccreadonly)
            {
                $out.= (! is_array($this->withtocc) && ! is_numeric($this->withtocc))?$this->withtocc:"";
            }
            else
            {
                $out.= '<input size="'.(is_array($this->withtocc)?"30":"60").'" id="sendtocc" name="sendtocc" value="'.((! is_array($this->withtocc) && ! is_numeric($this->withtocc))? (isset($_POST["sendtocc"])?$_POST["sendtocc"]:$this->withtocc) : (isset($_POST["sendtocc"])?$_POST["sendtocc"]:"") ).'" />';
                if (is_array($this->withto))
                {
                    $out.= " ".$langs->trans("or")." ";
                    $out.= $form->selectarray("receivercc", $this->withto, GETPOST("receivercc"), 1);
                }
                if ($this->withtoccsocid > 0) // deprecated. TODO Remove this. Instead, fill withto with array before calling method.
                {
                    $liste=array();
                    $soc=new Societe($this->db);
                    $soc->fetch($this->withtoccsocid);
                    foreach ($soc->thirdparty_and_contact_email_array() as $key=>$value)
                    {
                        $liste[$key]=$value;
                    }
                    $out.= " ".$langs->trans("or")." ";
                    $out.= $form->selectarray("receivercc", $liste, GETPOST("receivercc"), 1);
                }
            }
            $out.= "</td></tr>\n";
        }

        // CCC
        if ($this->withtoccc || is_array($this->withtoccc))
        {
            $out.= '<tr><td width="180">';
            $out.= $form->textwithpicto($langs->trans("MailCCC"),$langs->trans("YouCanUseCommaSeparatorForSeveralRecipients"));
            $out.= '</td><td>';
            if ($this->withtocccreadonly)
            {
                $out.= (! is_array($this->withtoccc) && ! is_numeric($this->withtoccc))?$this->withtoccc:"";
            }
            else
            {
                $out.= '<input size="'.(is_array($this->withtoccc)?"30":"60").'" id="sendtoccc" name="sendtoccc" value="'.((! is_array($this->withtoccc) && ! is_numeric($this->withtoccc))? (isset($_POST["sendtoccc"])?$_POST["sendtoccc"]:$this->withtoccc) : (isset($_POST["sendtoccc"])?$_POST["sendtoccc"]:"") ).'" />';
                if (is_array($this->withto))
                {
                    $out.= " ".$langs->trans("or")." ";
                    $out.= $form->selectarray("receiverccc", $this->withto, GETPOST("receiverccc"), 1);
                }
                if ($this->withtocccsocid > 0) // deprecated. TODO Remove this. Instead, fill withto with array before calling method.
                {
                    $liste=array();
                    $soc=new Societe($this->db);
                    $soc->fetch($this->withtosocid);
                    foreach ($soc->thirdparty_and_contact_email_array() as $key=>$value)
                    {
                        $liste[$key]=$value;
                    }
                    $out.= " ".$langs->trans("or")." ";
                    $out.= $form->selectarray("receiverccc", $liste, GETPOST("receiverccc"), 1);
                }
            }
            //if (! empty($conf->global->MAIN_MAIL_AUTOCOPY_TO)) print ' '.info_admin("+ ".$conf->global->MAIN_MAIL_AUTOCOPY_TO,1);
            $out.= "</td></tr>\n";
        }

        // Ask delivery receipt
        if ($this->withdeliveryreceipt)
        {
            $out.= '<tr><td width="180">'.$langs->trans("DeliveryReceipt").'</td><td>';

            if ($this->withdeliveryreceiptreadonly)
            {
                $out.= yn($this->withdeliveryreceipt);
            }
            else
            {
                $out.= $form->selectyesno('deliveryreceipt', (isset($_POST["deliveryreceipt"])?$_POST["deliveryreceipt"]:0) ,1);
            }

            $out.= "</td></tr>\n";
        }

        // Topic
        if ($this->withtopic)
        {
            $this->withtopic=make_substitutions($this->withtopic,$this->substit);

            $out.= '<tr>';
            $out.= '<td width="180">'.$langs->trans("MailTopic").'</td>';
            $out.= '<td>';
            if ($this->withtopicreadonly)
            {
                $out.= $this->withtopic;
                $out.= '<input type="hidden" size="60" id="subject" name="subject" value="'.$this->withtopic.'" />';
            }
            else
            {
                $out.= '<input type="text" size="60" id="subject" name="subject" value="'. (isset($_POST["subject"])?$_POST["subject"]:$this->withtopic) .'" />';
            }
            $out.= "</td></tr>\n";
        }

        // Attached files
        if ($this->withfile)
        {
            $out.= '<tr>';
            $out.= '<td width="180">'.$langs->trans("MailFile").'</td>';
            $out.= '<td>';
            // TODO Trick to have param removedfile containing nb of image to delete. But this does not works without javascript
            $out.= '<input type="hidden" class="removedfilehidden" name="removedfile" value="">'."\n";
            $out.= '<script type="text/javascript" language="javascript">';
            $out.= 'jQuery(document).ready(function () {';
            $out.= '    jQuery(".removedfile").click(function() {';
            $out.= '        jQuery(".removedfilehidden").val(jQuery(this).val());';
            $out.= '    });';
            $out.= '})';
            $out.= '</script>'."\n";
            if (sizeof($listofpaths))
            {
                foreach($listofpaths as $key => $val)
                {
                    $out.= '<div id="attachfile_'.$key.'">';
                    $out.= img_mime($listofnames[$key]).' '.$listofnames[$key];
                    if (! $this->withfilereadonly)
                    {
                        $out.= ' <input type="image" style="border: 0px;" src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/delete.png" value="'.($key+1).'" class="removedfile" id="removedfile_'.$key.'" name="removedfile_'.$key.'" />';
                        //$out.= ' <a href="'.$_SERVER["PHP_SELF"].'?removedfile='.($key+1).' id="removedfile_'.$key.'">'.img_delete($langs->trans("Delete").'</a>';
                    }
                    $out.= '<br></div>';
                }
            }
            else
            {
                $out.= $langs->trans("NoAttachedFiles").'<br>';
            }
            if ($this->withfile == 2)	// Can add other files
            {
                $out.= '<input type="file" class="flat" id="addedfile" name="addedfile" value="'.$langs->trans("Upload").'" />';
                $out.= ' ';
                $out.= '<input type="submit" class="button" id="'.$addfileaction.'" name="'.$addfileaction.'" value="'.$langs->trans("MailingAddFile").'" />';
            }
            $out.= "</td></tr>\n";
        }

        // Message
        if ($this->withbody)
        {
            $defaultmessage="";

            // TODO    A partir du type, proposer liste de messages dans table llx_models
            if     ($this->param["models"]=='facture_send')	            { $defaultmessage=$langs->transnoentities("PredefinedMailContentSendInvoice"); }
            elseif ($this->param["models"]=='facture_relance')			{ $defaultmessage=$langs->transnoentities("PredefinedMailContentSendInvoiceReminder"); }
            elseif ($this->param["models"]=='propal_send')				{ $defaultmessage=$langs->transnoentities("PredefinedMailContentSendProposal"); }
            elseif ($this->param["models"]=='order_send')				{ $defaultmessage=$langs->transnoentities("PredefinedMailContentSendOrder"); }
            elseif ($this->param["models"]=='order_supplier_send')		{ $defaultmessage=$langs->transnoentities("PredefinedMailContentSendSupplierOrder"); }
            elseif ($this->param["models"]=='invoice_supplier_send')	{ $defaultmessage=$langs->transnoentities("PredefinedMailContentSendSupplierInvoice"); }
            elseif ($this->param["models"]=='shipping_send')			{ $defaultmessage=$langs->transnoentities("PredefinedMailContentSendShipping"); }
            elseif ($this->param["models"]=='fichinter_send')			{ $defaultmessage=$langs->transnoentities("PredefinedMailContentSendFichInter"); }
            elseif (! is_numeric($this->withbody))                      { $defaultmessage=$this->withbody; }

            if ($conf->paypal->enabled && $conf->global->PAYPAL_ADD_PAYMENT_URL)
            {
                require_once(DOL_DOCUMENT_ROOT."/paypal/lib/paypal.lib.php");

                $langs->load('paypal');

                if ($this->param["models"]=='order_send')
                {
                    $url=getPaypalPaymentUrl('order',$this->substit['__ORDERREF__']);
                    $defaultmessage=$langs->transnoentities("PredefinedMailContentSendOrderWithPaypalLink",$url);
                }
                if ($this->param["models"]=='facture_send')
                {
                    $url=getPaypalPaymentUrl('invoice',$this->substit['__FACREF__']);
                    $defaultmessage=$langs->transnoentities("PredefinedMailContentSendInvoiceWithPaypalLink",$url);
                }
            }

            $defaultmessage=make_substitutions($defaultmessage,$this->substit);
            if (isset($_POST["message"])) $defaultmessage=$_POST["message"];
            $defaultmessage=str_replace('\n',"\n",$defaultmessage);

            $out.= '<tr>';
            $out.= '<td width="180" valign="top">'.$langs->trans("MailText").'</td>';
            $out.= '<td>';
            if ($this->withbodyreadonly)
            {
                $out.= nl2br($defaultmessage);
                $out.= '<input type="hidden" id="message" name="message" value="'.$defaultmessage.'" />';
            }
            else
            {
                if(! empty($conf->global->MAIL_USE_SIGN) && $this->fromid > 0)
                {
                    $fuser=new User($this->db);
                    $fuser->fetch($this->fromid);

                    if(!empty($fuser->signature)) {
                        $defaultmessage.=dol_htmlentitiesbr_decode($fuser->signature);
                    }
                }

                // Editor wysiwyg
                require_once(DOL_DOCUMENT_ROOT."/lib/doleditor.class.php");
                $doleditor=new DolEditor('message',$defaultmessage,'',280,'dolibarr_notes','In',true,false,$this->withfckeditor,8,72);
                $out.= $doleditor->Create(1);
            }
            $out.= "</td></tr>\n";
        }

        if ($this->withform)
        {
            $out.= '<tr><td align="center" colspan="2"><center>';
            $out.= '<input class="button" type="submit" id="sendmail" name="sendmail" value="'.$langs->trans("SendMail").'"';
            // Add a javascript test to avoid to forget to submit file before sending email
            if ($this->withfile == 2 && $conf->use_javascript_ajax)
            {
                $out.= ' onClick="if (document.mailform.addedfile.value != \'\') { alert(\''.dol_escape_js($langs->trans("FileWasNotUploaded")).'\'); return false; } else { return true; }"';
            }
            $out.= ' />';
            if ($this->withcancel)
            {
                $out.= ' &nbsp; &nbsp; ';
                $out.= '<input class="button" type="submit" id="cancel" name="cancel" value="'.$langs->trans("Cancel").'" />';
            }
            $out.= '</center></td></tr>'."\n";
        }

        $out.= '</table>'."\n";

        if ($this->withform) $out.= '</form>'."\n";
        $out.= "<!-- Fin form mail -->\n";

        return $out;
    }


    /**
     *    \brief  Affiche la partie de formulaire pour saisie d'un mail
     *    \param  withtopic   1 pour proposer a la saisie le sujet
     *    \param  withbody    1 pour proposer a la saisie le corps du message
     *    \param  withfile    1 pour proposer a la saisie l'ajout d'un fichier joint
     *    \todo   Fonction a virer quand fichier /comm/mailing.php vire (= quand ecran dans /comm/mailing prets)
     */
    function mail_topicmessagefile($withtopic=1,$withbody=1,$withfile=1,$defaultbody)
    {
        global $langs;

        $langs->load("other");

        print "<table class=\"border\" width=\"100%\">";

        // Topic
        if ($withtopic)
        {
            print "<tr>";
            print "<td width=\"180\">".$langs->trans("MailTopic")."</td>";
            print "<td>";
            print "<input type=\"text\" size=\"60\" name=\"subject\" value=\"\">";
            print "</td></tr>";
        }

        // Message
        if ($withbody)
        {
            print "<tr>";
            print "<td width=\"180\" valign=\"top\">".$langs->trans("MailText")."</td>";
            print "<td>";
            print "<textarea rows=\"8\" cols=\"72\" name=\"message\">";
            print $defaultbody;
            print "</textarea>";
            print "</td></tr>";
        }

        // Si fichier joint
        if ($withfile)
        {
            print "<tr>";
            print "<td width=\"180\">".$langs->trans("MailFile")."</td>";
            print "<td>";
            print "<input type=\"file\" name=\"addedfile\" value=\"".$langs->trans("Upload")."\"/>";
            print "</td></tr>";
        }

        print "</table>";
    }

}

?>