INFRA-132 - CRM/Import - phpcbf
[civicrm-core.git] / CRM / Mailing / Form / Settings.php
CommitLineData
6a488035
TO
1<?php
2/*
3 +--------------------------------------------------------------------+
39de6fd5 4 | CiviCRM version 4.6 |
6a488035 5 +--------------------------------------------------------------------+
06b69b18 6 | Copyright CiviCRM LLC (c) 2004-2014 |
6a488035
TO
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
9 | |
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. |
13 | |
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. |
18 | |
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 +--------------------------------------------------------------------+
26*/
27
28/**
29 *
30 * @package CRM
06b69b18 31 * @copyright CiviCRM LLC (c) 2004-2014
6a488035
TO
32 * $Id$
33 *
34 */
35
36/**
37 * This file is used to build the form configuring mailing details
38 */
39class CRM_Mailing_Form_Settings extends CRM_Core_Form {
40
41 /**
100fef9d 42 * Set variables up before form is built
6a488035
TO
43 *
44 * @return void
6a488035
TO
45 */
46 public function preProcess() {
47 //when user come from search context.
48 $ssID = $this->get('ssID');
49 $this->assign('ssid',$ssID);
50 $this->_searchBasedMailing = CRM_Contact_Form_Search::isSearchContext($this->get('context'));
51 if(CRM_Contact_Form_Search::isSearchContext($this->get('context')) && !$ssID){
52 $params = array();
53 $result = CRM_Core_BAO_PrevNextCache::getSelectedContacts();
54 $this->assign("value", $result);
55 }
56 }
57
58 /**
c490a46a 59 * Set default values for the form.
6a488035
TO
60 * the default values are retrieved from the database
61 *
6a488035 62 *
355ba699 63 * @return void
6a488035 64 */
00be9182 65 public function setDefaultValues() {
6a488035 66 $mailingID = CRM_Utils_Request::retrieve('mid', 'Integer', $this, FALSE, NULL);
2267460c 67 // CRM-14716 - Pick up mailingID from session since most of the time it's not in the URL
902d0e66
DG
68 if (!$mailingID) {
69 $mailingID = $this->get('mailing_id');
70 }
6a488035
TO
71 $count = $this->get('count');
72 $this->assign('count', $count);
73 $defaults = array();
74
75 $componentFields = array(
76 'reply_id' => 'Reply',
77 'optout_id' => 'OptOut',
78 'unsubscribe_id' => 'Unsubscribe',
79 'resubscribe_id' => 'Resubscribe',
80 );
81
82 foreach ($componentFields as $componentVar => $componentType) {
83 $defaults[$componentVar] = CRM_Mailing_PseudoConstant::defaultComponent($componentType, '');
84 }
85
86 if ($mailingID) {
87 $dao = new CRM_Mailing_DAO_Mailing();
88 $dao->id = $mailingID;
89 $dao->find(TRUE);
90 // override_verp must be flipped, as in 3.2 we reverted
91 // its meaning to ‘should CiviMail manage replies?’ – i.e.,
92 // ‘should it *not* override Reply-To: with VERP-ed address?’
93 $dao->override_verp = !$dao->override_verp;
94 $dao->storeValues($dao, $defaults);
95 $defaults['visibility'] = $dao->visibility;
96 }
d75f2f47 97
6a488035
TO
98 return $defaults;
99 }
100
101 /**
c490a46a 102 * Build the form object
6a488035 103 *
355ba699 104 * @return void
6a488035
TO
105 */
106 public function buildQuickForm() {
107
108 $this->addElement('checkbox', 'override_verp', ts('Track Replies?'));
109
110 $defaults['override_verp'] = CRM_Core_BAO_Setting::getItem(CRM_Core_BAO_Setting::MAILING_PREFERENCES_NAME,
111 'track_civimail_replies', NULL, FALSE
112 );
113
114 $this->add('checkbox', 'forward_replies', ts('Forward Replies?'));
115 $defaults['forward_replies'] = FALSE;
116
117 $this->add('checkbox', 'url_tracking', ts('Track Click-throughs?'));
118 $defaults['url_tracking'] = TRUE;
119
120 $this->add('checkbox', 'open_tracking', ts('Track Opens?'));
121 $defaults['open_tracking'] = TRUE;
122
123 $this->add('checkbox', 'auto_responder', ts('Auto-respond to Replies?'));
124 $defaults['auto_responder'] = FALSE;
125
93bfa565 126 $this->add('select', 'visibility', ts('Mailing Visibility'), CRM_Core_SelectValues::groupVisibility(), TRUE);
6a488035
TO
127
128 $this->add('select', 'reply_id', ts('Auto-responder'),
129 CRM_Mailing_PseudoConstant::component('Reply'), TRUE
130 );
131
132 $this->add('select', 'unsubscribe_id', ts('Unsubscribe Message'),
133 CRM_Mailing_PseudoConstant::component('Unsubscribe'), TRUE
134 );
135
136 $this->add('select', 'resubscribe_id', ts('Resubscribe Message'),
137 CRM_Mailing_PseudoConstant::component('Resubscribe'), TRUE
138 );
139
140 $this->add('select', 'optout_id', ts('Opt-out Message'),
141 CRM_Mailing_PseudoConstant::component('OptOut'), TRUE
142 );
143
144 $buttons = array(
145 array('type' => 'back',
146 'name' => ts('<< Previous'),
147 ),
148 array(
149 'type' => 'next',
150 'name' => ts('Next >>'),
151 'spacing' => '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;',
152 'isDefault' => TRUE,
153 ),
154 array(
155 'type' => 'submit',
156 'name' => ts('Save & Continue Later'),
157 ),
158 array(
159 'type' => 'cancel',
160 'name' => ts('Cancel'),
161 ),
162 );
163
164 $this->addButtons($buttons);
165
166 $this->setDefaults($defaults);
167 }
168
169 public function postProcess() {
170 $params = $ids = array();
171
172 $session = CRM_Core_Session::singleton();
173 $params['created_id'] = $session->get('userID');
174
175 $uploadParams = array('reply_id', 'unsubscribe_id', 'optout_id', 'resubscribe_id');
176 $uploadParamsBoolean = array('override_verp', 'forward_replies', 'url_tracking', 'open_tracking', 'auto_responder');
177
178 $qf_Settings_submit = $this->controller->exportValue($this->_name, '_qf_Settings_submit');
179
180 foreach ($uploadParams as $key) {
181 $params[$key] = $this->controller->exportvalue($this->_name, $key);
182 $this->set($key, $this->controller->exportvalue($this->_name, $key));
183 }
184
185 foreach ($uploadParamsBoolean as $key) {
186 if ($this->controller->exportvalue($this->_name, $key)) {
187 $params[$key] = TRUE;
188 }
189 else {
190 $params[$key] = FALSE;
191 }
192 $this->set($key, $this->controller->exportvalue($this->_name, $key));
193 }
194
195 $params['visibility'] = $this->controller->exportvalue($this->_name, 'visibility');
196
197 // override_verp must be flipped, as in 3.2 we reverted
198 // its meaning to ‘should CiviMail manage replies?’ – i.e.,
199 // ‘should it *not* override Reply-To: with VERP-ed address?’
200 $params['override_verp'] = !$params['override_verp'];
201
202 $ids['mailing_id'] = $this->get('mailing_id');
203
204 // update mailing
205 CRM_Mailing_BAO_Mailing::create($params, $ids);
206
207 if ($qf_Settings_submit) {
208 //when user perform mailing from search context
209 //redirect it to search result CRM-3711.
210 $ssID = $this->get('ssID');
211 if ($ssID && $this->_searchBasedMailing) {
212 if ($this->_action == CRM_Core_Action::BASIC) {
213 $fragment = 'search';
214 }
215 elseif ($this->_action == CRM_Core_Action::PROFILE) {
216 $fragment = 'search/builder';
217 }
218 elseif ($this->_action == CRM_Core_Action::ADVANCED) {
219 $fragment = 'search/advanced';
220 }
221 else {
222 $fragment = 'search/custom';
223 }
224
225 $context = $this->get('context');
226 if (!CRM_Contact_Form_Search::isSearchContext($context)) {
227 $context = 'search';
228 }
229 $urlParams = "force=1&reset=1&ssID={$ssID}&context={$context}";
230 $qfKey = CRM_Utils_Request::retrieve('qfKey', 'String', $this);
231 if (CRM_Utils_Rule::qfKey($qfKey)) {
232 $urlParams .= "&qfKey=$qfKey";
233 }
234
235 $draftURL = CRM_Utils_System::url('civicrm/mailing/browse/unscheduled', 'scheduled=false&reset=1');
236 $status = ts("You can continue later by clicking the 'Continue' action to resume working on it.<br />From <a href='%1'>Draft and Unscheduled Mailings</a>.", array(1 => $draftURL));
237
238 // Redirect user to search.
239 $url = CRM_Utils_System::url('civicrm/contact/' . $fragment, $urlParams);
240 }
241 else {
242 $status = ts("Click the 'Continue' action to resume working on it.");
243 $url = CRM_Utils_System::url('civicrm/mailing/browse/unscheduled', 'scheduled=false&reset=1');
244 }
245 CRM_Core_Session::setStatus($status, ts('Mailing Saved'), 'success');
246 CRM_Utils_System::redirect($url);
247 }
248 }
249
250 /**
251 * Display Name of the form
252 *
6a488035
TO
253 *
254 * @return string
255 */
256 public function getTitle() {
257 return ts('Track and Respond');
258 }
259}