Update version numbers to 4.4 and lint php
[civicrm-core.git] / CRM / Mailing / Form / Settings.php
CommitLineData
6a488035
TO
1<?php
2/*
3 +--------------------------------------------------------------------+
232624b1 4 | CiviCRM version 4.4 |
6a488035
TO
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2013 |
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
31 * @copyright CiviCRM LLC (c) 2004-2013
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 /**
42 * Function to set variables up before form is built
43 *
44 * @return void
45 * @access public
46 */
47 public function preProcess() {
48 //when user come from search context.
49 $ssID = $this->get('ssID');
50 $this->assign('ssid',$ssID);
51 $this->_searchBasedMailing = CRM_Contact_Form_Search::isSearchContext($this->get('context'));
52 if(CRM_Contact_Form_Search::isSearchContext($this->get('context')) && !$ssID){
53 $params = array();
54 $result = CRM_Core_BAO_PrevNextCache::getSelectedContacts();
55 $this->assign("value", $result);
56 }
57 }
58
59 /**
60 * This function sets the default values for the form.
61 * the default values are retrieved from the database
62 *
63 * @access public
64 *
65 * @return None
66 */
67 function setDefaultValues() {
68 $mailingID = CRM_Utils_Request::retrieve('mid', 'Integer', $this, FALSE, NULL);
69 $count = $this->get('count');
70 $this->assign('count', $count);
71 $defaults = array();
72
73 $componentFields = array(
74 'reply_id' => 'Reply',
75 'optout_id' => 'OptOut',
76 'unsubscribe_id' => 'Unsubscribe',
77 'resubscribe_id' => 'Resubscribe',
78 );
79
80 foreach ($componentFields as $componentVar => $componentType) {
81 $defaults[$componentVar] = CRM_Mailing_PseudoConstant::defaultComponent($componentType, '');
82 }
83
84 if ($mailingID) {
85 $dao = new CRM_Mailing_DAO_Mailing();
86 $dao->id = $mailingID;
87 $dao->find(TRUE);
88 // override_verp must be flipped, as in 3.2 we reverted
89 // its meaning to ‘should CiviMail manage replies?’ – i.e.,
90 // ‘should it *not* override Reply-To: with VERP-ed address?’
91 $dao->override_verp = !$dao->override_verp;
92 $dao->storeValues($dao, $defaults);
93 $defaults['visibility'] = $dao->visibility;
94 }
95 return $defaults;
96 }
97
98 /**
99 * Function to actually build the form
100 *
101 * @return None
102 * @access public
103 */
104 public function buildQuickForm() {
105
106 $this->addElement('checkbox', 'override_verp', ts('Track Replies?'));
107
108 $defaults['override_verp'] = CRM_Core_BAO_Setting::getItem(CRM_Core_BAO_Setting::MAILING_PREFERENCES_NAME,
109 'track_civimail_replies', NULL, FALSE
110 );
111
112 $this->add('checkbox', 'forward_replies', ts('Forward Replies?'));
113 $defaults['forward_replies'] = FALSE;
114
115 $this->add('checkbox', 'url_tracking', ts('Track Click-throughs?'));
116 $defaults['url_tracking'] = TRUE;
117
118 $this->add('checkbox', 'open_tracking', ts('Track Opens?'));
119 $defaults['open_tracking'] = TRUE;
120
121 $this->add('checkbox', 'auto_responder', ts('Auto-respond to Replies?'));
122 $defaults['auto_responder'] = FALSE;
123
124 $this->add('select', 'visibility', ts('Mailing Visibility'),
125 CRM_Core_SelectValues::ufVisibility(TRUE), TRUE
126 );
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 *
253 * @access public
254 *
255 * @return string
256 */
257 public function getTitle() {
258 return ts('Track and Respond');
259 }
260}