3 +--------------------------------------------------------------------+
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2019 |
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-2019
33 class CRM_Mailing_Form_ForwardMailing
extends CRM_Core_Form
{
34 public function preProcess() {
35 $job_id = CRM_Utils_Request
::retrieve('jid', 'Positive',
38 $queue_id = CRM_Utils_Request
::retrieve('qid', 'Positive',
41 $hash = CRM_Utils_Request
::retrieve('h', 'String',
45 $q = CRM_Mailing_Event_BAO_Queue
::verify($job_id, $queue_id, $hash);
50 CRM_Core_Error
::fatal(ts('Invalid form parameters.'));
51 CRM_Core_Error
::statusBounce(ts('Invalid form parameters.'));
53 $mailing = &$q->getMailing();
56 $emailId = CRM_Core_DAO
::getfieldValue('CRM_Mailing_Event_DAO_Queue', $hash, 'email_id', 'hash');
57 $this->_fromEmail
= $fromEmail = CRM_Core_DAO
::getfieldValue('CRM_Core_DAO_Email', $emailId, 'email');
58 $this->assign('fromEmail', $fromEmail);
61 // Show the subject instead of the name here, since it's being
62 // displayed to external contacts/users.
64 CRM_Utils_System
::setTitle(ts('Forward Mailing: %1', [1 => $mailing->subject
]));
66 $this->set('queue_id', $queue_id);
67 $this->set('job_id', $job_id);
68 $this->set('hash', $hash);
72 * Build the form object.
74 public function buildQuickForm() {
75 for ($i = 0; $i < 5; $i++
) {
76 $this->add('text', "email_$i", ts('Email %1', [1 => $i +
1]));
77 $this->addRule("email_$i", ts('Email is not valid.'), 'email');
80 //insert message Text by selecting "Select Template option"
81 $this->add('textarea', 'forward_comment', ts('Comment'), ['cols' => '80', 'rows' => '8']);
82 $this->add('wysiwyg', 'html_comment',
84 ['cols' => '80', 'rows' => '8']
90 'name' => ts('Forward'),
95 'name' => ts('Cancel'),
101 * Form submission of new/edit contact is processed.
103 public function postProcess() {
104 $queue_id = $this->get('queue_id');
105 $job_id = $this->get('job_id');
106 $hash = $this->get('hash');
107 $timeStamp = date('YmdHis');
109 $formValues = $this->controller
->exportValues($this->_name
);
111 $params['body_text'] = $formValues['forward_comment'];
112 $html_comment = $formValues['html_comment'];
113 $params['body_html'] = str_replace('%7B', '{', str_replace('%7D', '}', $html_comment));
116 for ($i = 0; $i < 5; $i++
) {
117 $email = $this->controller
->exportValue($this->_name
, "email_$i");
118 if (!empty($email)) {
124 foreach ($emails as $email) {
128 'event_queue_id' => $queue_id,
131 'time_stamp' => $timeStamp,
132 'fromEmail' => $this->_fromEmail
,
135 $result = civicrm_api('Mailing', 'event_forward', $params);
136 if (!civicrm_error($result)) {
141 $status = ts('Mailing is not forwarded to the given email address.', [
142 'count' => count($emails),
143 'plural' => 'Mailing is not forwarded to the given email addresses.',
146 $status = ts('Mailing is forwarded successfully to %count email address.', [
147 'count' => $forwarded,
148 'plural' => 'Mailing is forwarded successfully to %count email addresses.',
152 CRM_Utils_System
::setUFMessage($status);
154 // always redirect to front page of url
155 $session = CRM_Core_Session
::singleton();
156 $config = CRM_Core_Config
::singleton();
157 $session->pushUserContext($config->userFrameworkBaseURL
);