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
{
35 public function preProcess() {
36 $job_id = CRM_Utils_Request
::retrieve('jid', 'Positive',
39 $queue_id = CRM_Utils_Request
::retrieve('qid', 'Positive',
42 $hash = CRM_Utils_Request
::retrieve('h', 'String',
46 $q = CRM_Mailing_Event_BAO_Queue
::verify($job_id, $queue_id, $hash);
51 CRM_Core_Error
::fatal(ts('Invalid form parameters.'));
52 CRM_Core_Error
::statusBounce(ts('Invalid form parameters.'));
54 $mailing = &$q->getMailing();
57 $emailId = CRM_Core_DAO
::getfieldValue('CRM_Mailing_Event_DAO_Queue', $hash, 'email_id', 'hash');
58 $this->_fromEmail
= $fromEmail = CRM_Core_DAO
::getfieldValue('CRM_Core_DAO_Email', $emailId, 'email');
59 $this->assign('fromEmail', $fromEmail);
62 // Show the subject instead of the name here, since it's being
63 // displayed to external contacts/users.
65 CRM_Utils_System
::setTitle(ts('Forward Mailing: %1', [1 => $mailing->subject
]));
67 $this->set('queue_id', $queue_id);
68 $this->set('job_id', $job_id);
69 $this->set('hash', $hash);
73 * Build the form object.
75 public function buildQuickForm() {
76 for ($i = 0; $i < 5; $i++
) {
77 $this->add('text', "email_$i", ts('Email %1', [1 => $i +
1]));
78 $this->addRule("email_$i", ts('Email is not valid.'), 'email');
81 //insert message Text by selecting "Select Template option"
82 $this->add('textarea', 'forward_comment', ts('Comment'), ['cols' => '80', 'rows' => '8']);
83 $this->add('wysiwyg', 'html_comment',
85 ['cols' => '80', 'rows' => '8']
91 'name' => ts('Forward'),
96 'name' => ts('Cancel'),
102 * Form submission of new/edit contact is processed.
104 public function postProcess() {
105 $queue_id = $this->get('queue_id');
106 $job_id = $this->get('job_id');
107 $hash = $this->get('hash');
108 $timeStamp = date('YmdHis');
110 $formValues = $this->controller
->exportValues($this->_name
);
112 $params['body_text'] = $formValues['forward_comment'];
113 $html_comment = $formValues['html_comment'];
114 $params['body_html'] = str_replace('%7B', '{', str_replace('%7D', '}', $html_comment));
117 for ($i = 0; $i < 5; $i++
) {
118 $email = $this->controller
->exportValue($this->_name
, "email_$i");
119 if (!empty($email)) {
125 foreach ($emails as $email) {
129 'event_queue_id' => $queue_id,
132 'time_stamp' => $timeStamp,
133 'fromEmail' => $this->_fromEmail
,
136 $result = civicrm_api('Mailing', 'event_forward', $params);
137 if (!civicrm_error($result)) {
142 $status = ts('Mailing is not forwarded to the given email address.', [
143 'count' => count($emails),
144 'plural' => 'Mailing is not forwarded to the given email addresses.',
147 $status = ts('Mailing is forwarded successfully to %count email address.', [
148 'count' => $forwarded,
149 'plural' => 'Mailing is forwarded successfully to %count email addresses.',
153 CRM_Utils_System
::setUFMessage($status);
155 // always redirect to front page of url
156 $session = CRM_Core_Session
::singleton();
157 $config = CRM_Core_Config
::singleton();
158 $session->pushUserContext($config->userFrameworkBaseURL
);