3 +--------------------------------------------------------------------+
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2020 |
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-2020
35 * Page to display / edit the header / footer of a mailing.
37 class CRM_Mailing_Page_Report
extends CRM_Core_Page_Basic
{
46 public function getBAOName() {
47 return 'CRM_Mailing_BAO_Mailing';
51 * An array of action links.
55 public function &links() {
56 return CRM_Core_DAO
::$_nullObject;
62 public function editForm() {
69 public function editName() {
70 return 'CiviMail Report';
81 public function userContext($mode = NULL) {
82 return 'civicrm/mailing/report';
90 public function userContextParams($mode = NULL) {
91 return 'reset=1&mid=' . $this->_mailing_id
;
97 public function run() {
98 $this->_mailing_id
= CRM_Utils_Request
::retrieve('mid', 'Positive', $this);
99 //CRM-15979 - check if abtest exist for mailing then redirect accordingly
100 $abtest = CRM_Mailing_BAO_MailingAB
::getABTest($this->_mailing_id
);
101 if (!empty($abtest) && !empty($abtest->id
)) {
102 CRM_Utils_System
::redirect(CRM_Utils_System
::url('civicrm/a/', NULL, TRUE, '/abtest/' . $abtest->id
));
104 // check that the user has permission to access mailing id
105 CRM_Mailing_BAO_Mailing
::checkPermission($this->_mailing_id
);
107 $report = CRM_Mailing_BAO_Mailing
::report($this->_mailing_id
);
109 // get contents of mailing
110 CRM_Mailing_BAO_Mailing
::getMailingContent($report, $this);
113 $context = CRM_Utils_Request
::retrieve('context', 'Alphanumeric', $this);
114 $cid = CRM_Utils_Request
::retrieve('cid', 'Positive', $this);
116 if ($context == 'activitySelector') {
117 $backUrl = CRM_Utils_System
::url('civicrm/contact/view', "reset=1&cid={$cid}&selectedChild=activity");
118 $backUrlTitle = ts('Back to Activities');
120 elseif ($context == 'activity') {
121 $atype = CRM_Utils_Request
::retrieve('atype', 'Positive', $this);
122 $aid = CRM_Utils_Request
::retrieve('aid', 'Positive', $this);
124 $backUrl = CRM_Utils_System
::url('civicrm/activity/view',
125 "atype={$atype}&action=view&reset=1&id={$aid}&cid={$cid}&context=activity"
127 $backUrlTitle = ts('Back to Activity');
129 elseif ($context == 'mailing') {
130 $backUrl = CRM_Utils_System
::url('civicrm/contact/view', "reset=1&cid={$cid}&selectedChild=mailing");
131 $backUrlTitle = ts('Back to Mailing');
134 $backUrl = CRM_Utils_System
::url('civicrm/mailing', 'reset=1');
135 $backUrlTitle = ts('Back to CiviMail');
137 $this->assign('backUrl', $backUrl);
138 $this->assign('backUrlTitle', $backUrlTitle);
140 $this->assign('report', $report);
141 CRM_Utils_System
::setTitle(ts('CiviMail Report: %1',
142 [1 => $report['mailing']['name']]
144 $this->assign('public_url', CRM_Mailing_BAO_Mailing
::getPublicViewUrl($this->_mailing_id
));
146 return CRM_Core_Page
::run();