* @subpackage messagerie
* @version $Revision$
* @author SARL OpenXtrem
*/
CCanDo::checkRead();
$mail_id = CValue::get("mail_id", 0);
$pat_id = CValue::get("pat_id");
//apicrypt & search
$patient = new CPatient();
$dossier = new CSejour();
//looking for apicrypt => patient
$mail = new CUserMail();
$mail->load($mail_id);
$mail->loadContentPlain();
$mail->checkHprim();
$mail->checkApicrypt();
//apicrypt case
if ($mail->_is_apicrypt || $mail->_is_hprim) {
$lines = explode("\n", $mail->_text_plain->content);
$fl = $lines[0] != "[apicrypt]" ? 0 : 1;
//first line
//cleanup line 1 to 13
for ($a = $fl; $a < $fl + 12; $a++) {
$lines[$a] = trim($lines[$a]);
}
//init
$ipp = $lines[$fl];
$nom = $lines[$fl + 1];
$prenom = $lines[$fl + 2];
$addr = $lines[$fl + 3];
$addr_2 = $lines[$fl + 4];