3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.4 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2013 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
10 | CiviCRM is free software; you can copy, modify, and distribute it |
11 | under the terms of the GNU Affero General Public License |
12 | Version 3, 19 November 2007 and the CiviCRM Licensing Exception. |
14 | CiviCRM is distributed in the hope that it will be useful, but |
15 | WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
17 | See the GNU Affero General Public License for more details. |
19 | You should have received a copy of the GNU Affero General Public |
20 | License and the CiviCRM Licensing Exception along |
21 | with this program; if not, contact CiviCRM LLC |
22 | at info[AT]civicrm[DOT]org. If you have questions about the |
23 | GNU Affero General Public License or the licensing of CiviCRM, |
24 | see the CiviCRM license FAQ at http://civicrm.org/licensing |
25 +--------------------------------------------------------------------+
31 * @copyright CiviCRM LLC (c) 2004-2013
37 * a page for mailing preview
39 class CRM_Mailing_Page_View
extends CRM_Core_Page
{
40 protected $_mailingID;
42 protected $_contactID;
45 * Lets do permission checking here
46 * First check for valid mailing, if false return fatal
47 * Second check for visibility
48 * Call a hook to see if hook wants to override visibility setting
50 function checkPermission() {
51 if (!$this->_mailing
) {
55 // check for visibility, if visibility is Public Pages and they have the permission
57 if ($this->_mailing
->visibility
== 'Public Pages' &&
58 CRM_Core_Permission
::check('view public CiviMail content')
63 // if user is an admin, return true
64 if (CRM_Core_Permission
::check('administer CiviCRM') ||
65 CRM_Core_Permission
::check('access CiviMail')
74 * run this page (figure out the action needed and perform it).
78 function run($id = NULL, $contact_id = NULL, $print = TRUE) {
79 if (is_numeric($id)) {
80 $this->_mailingID
= $id;
84 $this->_mailingID
= CRM_Utils_Request
::retrieve('id', 'Integer', CRM_Core_DAO
::$_nullObject, TRUE);
88 // override contactID from the function level if passed in
89 if (isset($contactID) &&
90 is_numeric($contactID)
92 $this->_contactID
= $contactID;
95 $session = CRM_Core_Session
::singleton();
96 $this->_contactID
= $session->get('userID');
99 $this->_mailing
= new CRM_Mailing_BAO_Mailing();
100 $this->_mailing
->id
= $this->_mailingID
;
102 if (!$this->_mailing
->find(TRUE) ||
103 !$this->checkPermission()
105 CRM_Utils_System
::permissionDenied();
109 CRM_Mailing_BAO_Mailing
::tokenReplace($this->_mailing
);
111 // get and format attachments
112 $attachments = CRM_Core_BAO_File
::getEntityFile('civicrm_mailing',
116 // get contact detail and compose if contact id exists
117 if (isset($this->_contactID
)) {
118 //get details of contact with token value including Custom Field Token Values.CRM-3734
119 $returnProperties = $this->_mailing
->getReturnProperties();
120 $params = array('contact_id' => $this->_contactID
);
121 $details = CRM_Utils_Token
::getTokenDetails($params,
124 $this->_mailing
->getFlattenedTokens(),
127 $details = $details[0][$this->_contactID
];
130 $details = array('test');
132 $mime = &$this->_mailing
->compose(NULL, NULL, NULL, 0,
133 $this->_mailing
->from_email
,
134 $this->_mailing
->from_email
,
135 TRUE, $details, $attachments
139 if (isset($this->_mailing
->body_html
)) {
141 $header = 'Content-Type: text/html; charset=utf-8';
142 $content = $mime->getHTMLBody();
143 if (strpos($content, '<head>') === FALSE && strpos($content, '<title>') === FALSE) {
144 $title = '<head><title>' . $this->_mailing
->subject
. '</title></head>';
148 $header = 'Content-Type: text/plain; charset=utf-8';
149 $content = $mime->getTXTBody();
156 CRM_Utils_System
::civiExit();