* Modification des correspondants d'un document * * @category CompteRendu * @package Mediboard * @author SARL OpenXtrem <*****@*****.**> * @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html * @version SVN: $Id:\$ * @link http://www.mediboard.org */ $object_guid = CValue::get("object_guid"); $compte_rendu_id = CValue::get("compte_rendu_id"); $compte_rendu = new CCompteRendu(); $compte_rendu->load($compte_rendu_id); $object = CMbObject::loadFromGuid($object_guid); $compte_rendu->_ref_object = $object; $compte_rendu->loadRefsCorrespondantsCourrierByTagGuid(); $destinataires = array(); CDestinataire::makeAllFor($object); $destinataires = CDestinataire::$destByClass; if (!isset($destinataires["CMedecin"])) { $destinataires["CMedecin"] = array(); } // Fusion avec les correspondants ajoutés par l'autocomplete $compte_rendu->mergeCorrespondantsCourrier($destinataires); $empty_corres = new CCorrespondantCourrier(); $empty_corres->valueDefaults(); $patient = new CPatient(); if (CDestinataire::$_patient != null) { $patient = CDestinataire::$_patient; } $smarty = new CSmartyDP();