Commit | Line | Data |
---|---|---|
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 | */ | |
39 | class 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' => ' ', | |
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 | } |