Commit | Line | Data |
---|---|---|
6a488035 TO |
1 | <?php |
2 | /* | |
3 | +--------------------------------------------------------------------+ | |
7e9e8871 | 4 | | CiviCRM version 4.7 | |
6a488035 | 5 | +--------------------------------------------------------------------+ |
0f03f337 | 6 | | Copyright CiviCRM LLC (c) 2004-2017 | |
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 | +--------------------------------------------------------------------+ | |
d25dd0ee | 26 | */ |
6a488035 TO |
27 | |
28 | /** | |
29 | * | |
30 | * @package CRM | |
0f03f337 | 31 | * @copyright CiviCRM LLC (c) 2004-2017 |
6a488035 TO |
32 | */ |
33 | class CRM_Contribute_BAO_ContributionRecur extends CRM_Contribute_DAO_ContributionRecur { | |
34 | ||
35 | /** | |
fe482240 | 36 | * Create recurring contribution. |
6a488035 | 37 | * |
014c4014 TO |
38 | * @param array $params |
39 | * (reference ) an assoc array of name/value pairs. | |
6a488035 | 40 | * |
a6c01b45 CW |
41 | * @return object |
42 | * activity contact object | |
6a488035 | 43 | */ |
00be9182 | 44 | public static function create(&$params) { |
6a488035 TO |
45 | return self::add($params); |
46 | } | |
47 | ||
48 | /** | |
fe482240 | 49 | * Takes an associative array and creates a contribution object. |
6a488035 TO |
50 | * |
51 | * the function extract all the params it needs to initialize the create a | |
52 | * contribution object. the params array could contain additional unused name/value | |
53 | * pairs | |
54 | * | |
014c4014 TO |
55 | * @param array $params |
56 | * (reference ) an assoc array of name/value pairs. | |
fd31fa4c | 57 | * |
16b10e64 | 58 | * @return CRM_Contribute_BAO_Contribution |
6a488035 TO |
59 | * @todo move hook calls / extended logic to create - requires changing calls to call create not add |
60 | */ | |
00be9182 | 61 | public static function add(&$params) { |
a7488080 | 62 | if (!empty($params['id'])) { |
6a488035 TO |
63 | CRM_Utils_Hook::pre('edit', 'ContributionRecur', $params['id'], $params); |
64 | } | |
65 | else { | |
66 | CRM_Utils_Hook::pre('create', 'ContributionRecur', NULL, $params); | |
67 | } | |
68 | ||
69 | // make sure we're not creating a new recurring contribution with the same transaction ID | |
70 | // or invoice ID as an existing recurring contribution | |
71 | $duplicates = array(); | |
72 | if (self::checkDuplicate($params, $duplicates)) { | |
73 | $error = CRM_Core_Error::singleton(); | |
74 | $d = implode(', ', $duplicates); | |
75 | $error->push(CRM_Core_Error::DUPLICATE_CONTRIBUTION, | |
76 | 'Fatal', | |
77 | array($d), | |
78 | "Found matching recurring contribution(s): $d" | |
79 | ); | |
80 | return $error; | |
81 | } | |
82 | ||
83 | $recurring = new CRM_Contribute_BAO_ContributionRecur(); | |
84 | $recurring->copyValues($params); | |
85 | $recurring->id = CRM_Utils_Array::value('id', $params); | |
86 | ||
87 | // set currency for CRM-1496 | |
8f7b45b0 | 88 | if (empty($params['id']) && !isset($recurring->currency)) { |
6a488035 TO |
89 | $config = CRM_Core_Config::singleton(); |
90 | $recurring->currency = $config->defaultCurrency; | |
91 | } | |
92 | $result = $recurring->save(); | |
93 | ||
a7488080 | 94 | if (!empty($params['id'])) { |
6a488035 TO |
95 | CRM_Utils_Hook::post('edit', 'ContributionRecur', $recurring->id, $recurring); |
96 | } | |
97 | else { | |
98 | CRM_Utils_Hook::post('create', 'ContributionRecur', $recurring->id, $recurring); | |
99 | } | |
100 | ||
95974e8e DG |
101 | if (!empty($params['custom']) && |
102 | is_array($params['custom']) | |
103 | ) { | |
104 | CRM_Core_BAO_CustomValueTable::store($params['custom'], 'civicrm_contribution_recur', $recurring->id); | |
105 | } | |
106 | ||
6a488035 TO |
107 | return $result; |
108 | } | |
109 | ||
110 | /** | |
fe482240 | 111 | * Check if there is a recurring contribution with the same trxn_id or invoice_id. |
6a488035 | 112 | * |
014c4014 TO |
113 | * @param array $params |
114 | * (reference ) an assoc array of name/value pairs. | |
115 | * @param array $duplicates | |
c0f62075 | 116 | * (reference ) store ids of duplicate contributions. |
6a488035 | 117 | * |
e7483cbe | 118 | * @return bool |
a6c01b45 | 119 | * true if duplicate, false otherwise |
6a488035 | 120 | */ |
00be9182 | 121 | public static function checkDuplicate($params, &$duplicates) { |
353ffa53 TO |
122 | $id = CRM_Utils_Array::value('id', $params); |
123 | $trxn_id = CRM_Utils_Array::value('trxn_id', $params); | |
6a488035 TO |
124 | $invoice_id = CRM_Utils_Array::value('invoice_id', $params); |
125 | ||
126 | $clause = array(); | |
127 | $params = array(); | |
128 | ||
129 | if ($trxn_id) { | |
130 | $clause[] = "trxn_id = %1"; | |
131 | $params[1] = array($trxn_id, 'String'); | |
132 | } | |
133 | ||
134 | if ($invoice_id) { | |
135 | $clause[] = "invoice_id = %2"; | |
136 | $params[2] = array($invoice_id, 'String'); | |
137 | } | |
138 | ||
139 | if (empty($clause)) { | |
140 | return FALSE; | |
141 | } | |
142 | ||
143 | $clause = implode(' OR ', $clause); | |
144 | if ($id) { | |
145 | $clause = "( $clause ) AND id != %3"; | |
146 | $params[3] = array($id, 'Integer'); | |
147 | } | |
148 | ||
353ffa53 TO |
149 | $query = "SELECT id FROM civicrm_contribution_recur WHERE $clause"; |
150 | $dao = CRM_Core_DAO::executeQuery($query, $params); | |
6a488035 TO |
151 | $result = FALSE; |
152 | while ($dao->fetch()) { | |
153 | $duplicates[] = $dao->id; | |
154 | $result = TRUE; | |
155 | } | |
156 | return $result; | |
157 | } | |
158 | ||
186c9c17 | 159 | /** |
c0f62075 | 160 | * Get the payment processor (array) for a recurring processor. |
161 | * | |
100fef9d | 162 | * @param int $id |
c0f62075 | 163 | * @param string $mode |
164 | * - Test or NULL - all other variants are ignored. | |
186c9c17 EM |
165 | * |
166 | * @return array|null | |
167 | */ | |
c0f62075 | 168 | public static function getPaymentProcessor($id, $mode = NULL) { |
6a488035 TO |
169 | $sql = " |
170 | SELECT r.payment_processor_id | |
171 | FROM civicrm_contribution_recur r | |
172 | WHERE r.id = %1"; | |
173 | $params = array(1 => array($id, 'Integer')); | |
c0f62075 | 174 | $paymentProcessorID = CRM_Core_DAO::singleValueQuery($sql, |
6a488035 TO |
175 | $params |
176 | ); | |
177 | if (!$paymentProcessorID) { | |
178 | return NULL; | |
179 | } | |
180 | ||
181 | return CRM_Financial_BAO_PaymentProcessor::getPayment($paymentProcessorID, $mode); | |
182 | } | |
183 | ||
184 | /** | |
c0f62075 | 185 | * Get the number of installment done/completed for each recurring contribution. |
6a488035 | 186 | * |
014c4014 TO |
187 | * @param array $ids |
188 | * (reference ) an array of recurring contribution ids. | |
6a488035 | 189 | * |
a6c01b45 CW |
190 | * @return array |
191 | * an array of recurring ids count | |
6a488035 | 192 | */ |
00be9182 | 193 | public static function getCount(&$ids) { |
6a488035 TO |
194 | $recurID = implode(',', $ids); |
195 | $totalCount = array(); | |
196 | ||
d5828a02 | 197 | $query = " |
6a488035 TO |
198 | SELECT contribution_recur_id, count( contribution_recur_id ) as commpleted |
199 | FROM civicrm_contribution | |
200 | WHERE contribution_recur_id IN ( {$recurID}) AND is_test = 0 | |
201 | GROUP BY contribution_recur_id"; | |
202 | ||
33621c4f | 203 | $res = CRM_Core_DAO::executeQuery($query); |
6a488035 TO |
204 | |
205 | while ($res->fetch()) { | |
206 | $totalCount[$res->contribution_recur_id] = $res->commpleted; | |
207 | } | |
208 | return $totalCount; | |
209 | } | |
210 | ||
211 | /** | |
212 | * Delete Recurring contribution. | |
213 | * | |
100fef9d | 214 | * @param int $recurId |
da6b46f4 | 215 | * |
ca26cb52 | 216 | * @return bool |
6a488035 | 217 | */ |
00be9182 | 218 | public static function deleteRecurContribution($recurId) { |
6a488035 TO |
219 | $result = FALSE; |
220 | if (!$recurId) { | |
221 | return $result; | |
222 | } | |
223 | ||
353ffa53 | 224 | $recur = new CRM_Contribute_DAO_ContributionRecur(); |
6a488035 | 225 | $recur->id = $recurId; |
353ffa53 | 226 | $result = $recur->delete(); |
6a488035 TO |
227 | |
228 | return $result; | |
229 | } | |
230 | ||
231 | /** | |
232 | * Cancel Recurring contribution. | |
233 | * | |
014c4014 TO |
234 | * @param int $recurId |
235 | * Recur contribution id. | |
236 | * @param array $objects | |
237 | * An array of objects that is to be cancelled like. | |
6a488035 TO |
238 | * contribution, membership, event. At least contribution object is a must. |
239 | * | |
dd244018 EM |
240 | * @param array $activityParams |
241 | * | |
ca26cb52 | 242 | * @return bool |
6a488035 | 243 | */ |
00be9182 | 244 | public static function cancelRecurContribution($recurId, $objects, $activityParams = array()) { |
6a488035 TO |
245 | if (!$recurId) { |
246 | return FALSE; | |
247 | } | |
248 | ||
249 | $contributionStatus = CRM_Contribute_PseudoConstant::contributionStatus(NULL, 'name'); | |
353ffa53 TO |
250 | $canceledId = array_search('Cancelled', $contributionStatus); |
251 | $recur = new CRM_Contribute_DAO_ContributionRecur(); | |
252 | $recur->id = $recurId; | |
6a488035 TO |
253 | $recur->whereAdd("contribution_status_id != $canceledId"); |
254 | ||
255 | if ($recur->find(TRUE)) { | |
256 | $transaction = new CRM_Core_Transaction(); | |
257 | $recur->contribution_status_id = $canceledId; | |
258 | $recur->start_date = CRM_Utils_Date::isoToMysql($recur->start_date); | |
259 | $recur->create_date = CRM_Utils_Date::isoToMysql($recur->create_date); | |
260 | $recur->modified_date = CRM_Utils_Date::isoToMysql($recur->modified_date); | |
261 | $recur->cancel_date = date('YmdHis'); | |
262 | $recur->save(); | |
263 | ||
264 | $dao = CRM_Contribute_BAO_ContributionRecur::getSubscriptionDetails($recurId); | |
bbf58b03 | 265 | if ($dao && $dao->recur_id) { |
6a488035 TO |
266 | $details = CRM_Utils_Array::value('details', $activityParams); |
267 | if ($dao->auto_renew && $dao->membership_id) { | |
268 | // its auto-renewal membership mode | |
269 | $membershipTypes = CRM_Member_PseudoConstant::membershipType(); | |
353ffa53 TO |
270 | $membershipType = CRM_Core_DAO::getFieldValue('CRM_Member_DAO_Membership', $dao->membership_id, 'membership_type_id'); |
271 | $membershipType = CRM_Utils_Array::value($membershipType, $membershipTypes); | |
6a488035 TO |
272 | $details .= ' |
273 | <br/>' . ts('Automatic renewal of %1 membership cancelled.', array(1 => $membershipType)); | |
274 | } | |
275 | else { | |
276 | $details .= ' | |
277 | <br/>' . ts('The recurring contribution of %1, every %2 %3 has been cancelled.', array( | |
353ffa53 | 278 | 1 => $dao->amount, |
6a488035 | 279 | 2 => $dao->frequency_interval, |
21dfd5f5 | 280 | 3 => $dao->frequency_unit, |
6a488035 TO |
281 | )); |
282 | } | |
283 | $activityParams = array( | |
284 | 'source_contact_id' => $dao->contact_id, | |
285 | 'source_record_id' => CRM_Utils_Array::value('source_record_id', $activityParams), | |
d66c61b6 | 286 | 'activity_type_id' => CRM_Core_PseudoConstant::getKey('CRM_Activity_BAO_Activity', 'activity_type_id', 'Cancel Recurring Contribution'), |
6a488035 TO |
287 | 'subject' => CRM_Utils_Array::value('subject', $activityParams, ts('Recurring contribution cancelled')), |
288 | 'details' => $details, | |
289 | 'activity_date_time' => date('YmdHis'), | |
d66c61b6 | 290 | 'status_id' => CRM_Core_PseudoConstant::getKey('CRM_Activity_BAO_Activity', 'activity_status_id', 'Completed'), |
6a488035 TO |
291 | ); |
292 | $session = CRM_Core_Session::singleton(); | |
293 | $cid = $session->get('userID'); | |
294 | if ($cid) { | |
295 | $activityParams['target_contact_id'][] = $activityParams['source_contact_id']; | |
296 | $activityParams['source_contact_id'] = $cid; | |
297 | } | |
d66c61b6 | 298 | // @todo use the api & do less wrangling above |
6a488035 TO |
299 | CRM_Activity_BAO_Activity::create($activityParams); |
300 | } | |
301 | ||
302 | // if there are associated objects, cancel them as well | |
1273d77c | 303 | if (!$objects) { |
6a488035 TO |
304 | $transaction->commit(); |
305 | return TRUE; | |
306 | } | |
307 | else { | |
d66c61b6 | 308 | // @todo - this is bad! Get the function out of the ipn. |
6a488035 TO |
309 | $baseIPN = new CRM_Core_Payment_BaseIPN(); |
310 | return $baseIPN->cancelled($objects, $transaction); | |
311 | } | |
312 | } | |
313 | else { | |
314 | // if already cancelled, return true | |
315 | $recur->whereAdd(); | |
316 | $recur->whereAdd("contribution_status_id = $canceledId"); | |
317 | if ($recur->find(TRUE)) { | |
318 | return TRUE; | |
319 | } | |
320 | } | |
321 | ||
322 | return FALSE; | |
323 | } | |
324 | ||
325 | /** | |
fe482240 | 326 | * Get list of recurring contribution of contact Ids. |
6a488035 | 327 | * |
014c4014 TO |
328 | * @param int $contactId |
329 | * Contact ID. | |
6a488035 | 330 | * |
a6c01b45 CW |
331 | * @return array |
332 | * list of recurring contribution fields | |
6a488035 | 333 | * |
6a488035 | 334 | */ |
00be9182 | 335 | public static function getRecurContributions($contactId) { |
6a488035 TO |
336 | $params = array(); |
337 | $recurDAO = new CRM_Contribute_DAO_ContributionRecur(); | |
338 | $recurDAO->contact_id = $contactId; | |
339 | $recurDAO->find(); | |
340 | $contributionStatus = CRM_Contribute_PseudoConstant::contributionStatus(); | |
341 | ||
342 | while ($recurDAO->fetch()) { | |
343 | $params[$recurDAO->id]['id'] = $recurDAO->id; | |
344 | $params[$recurDAO->id]['contactId'] = $recurDAO->contact_id; | |
345 | $params[$recurDAO->id]['start_date'] = $recurDAO->start_date; | |
346 | $params[$recurDAO->id]['end_date'] = $recurDAO->end_date; | |
0d4bfc19 | 347 | $params[$recurDAO->id]['next_sched_contribution_date'] = $recurDAO->next_sched_contribution_date; |
6a488035 TO |
348 | $params[$recurDAO->id]['amount'] = $recurDAO->amount; |
349 | $params[$recurDAO->id]['currency'] = $recurDAO->currency; | |
350 | $params[$recurDAO->id]['frequency_unit'] = $recurDAO->frequency_unit; | |
351 | $params[$recurDAO->id]['frequency_interval'] = $recurDAO->frequency_interval; | |
352 | $params[$recurDAO->id]['installments'] = $recurDAO->installments; | |
353 | $params[$recurDAO->id]['contribution_status_id'] = $recurDAO->contribution_status_id; | |
354 | $params[$recurDAO->id]['contribution_status'] = CRM_Utils_Array::value($recurDAO->contribution_status_id, $contributionStatus); | |
355 | $params[$recurDAO->id]['is_test'] = $recurDAO->is_test; | |
356 | $params[$recurDAO->id]['payment_processor_id'] = $recurDAO->payment_processor_id; | |
357 | } | |
358 | ||
359 | return $params; | |
360 | } | |
361 | ||
186c9c17 | 362 | /** |
100fef9d | 363 | * @param int $entityID |
186c9c17 EM |
364 | * @param string $entity |
365 | * | |
366 | * @return null|Object | |
367 | */ | |
00be9182 | 368 | public static function getSubscriptionDetails($entityID, $entity = 'recur') { |
6a488035 | 369 | $sql = " |
d5828a02 DL |
370 | SELECT rec.id as recur_id, |
371 | rec.processor_id as subscription_id, | |
6a488035 TO |
372 | rec.frequency_interval, |
373 | rec.installments, | |
374 | rec.frequency_unit, | |
375 | rec.amount, | |
376 | rec.is_test, | |
377 | rec.auto_renew, | |
378 | rec.currency, | |
7083dc2a | 379 | rec.campaign_id, |
467fe956 | 380 | rec.financial_type_id, |
0c6c47a5 | 381 | rec.next_sched_contribution_date, |
382 | rec.failure_retry_date, | |
383 | rec.cycle_day, | |
467fe956 | 384 | con.id as contribution_id, |
6a488035 | 385 | con.contribution_page_id, |
f0a7bcb5 | 386 | rec.contact_id, |
6a488035 TO |
387 | mp.membership_id"; |
388 | ||
389 | if ($entity == 'recur') { | |
390 | $sql .= " | |
d5828a02 | 391 | FROM civicrm_contribution_recur rec |
f0a7bcb5 | 392 | LEFT JOIN civicrm_contribution con ON ( con.contribution_recur_id = rec.id ) |
6a488035 | 393 | LEFT JOIN civicrm_membership_payment mp ON ( mp.contribution_id = con.id ) |
0ee5581e | 394 | WHERE rec.id = %1"; |
6a488035 TO |
395 | } |
396 | elseif ($entity == 'contribution') { | |
397 | $sql .= " | |
398 | FROM civicrm_contribution con | |
d5828a02 | 399 | INNER JOIN civicrm_contribution_recur rec ON ( con.contribution_recur_id = rec.id ) |
6a488035 TO |
400 | LEFT JOIN civicrm_membership_payment mp ON ( mp.contribution_id = con.id ) |
401 | WHERE con.id = %1"; | |
402 | } | |
403 | elseif ($entity == 'membership') { | |
404 | $sql .= " | |
d5828a02 DL |
405 | FROM civicrm_membership_payment mp |
406 | INNER JOIN civicrm_membership mem ON ( mp.membership_id = mem.id ) | |
6a488035 TO |
407 | INNER JOIN civicrm_contribution_recur rec ON ( mem.contribution_recur_id = rec.id ) |
408 | INNER JOIN civicrm_contribution con ON ( con.id = mp.contribution_id ) | |
409 | WHERE mp.membership_id = %1"; | |
410 | } | |
411 | ||
412 | $dao = CRM_Core_DAO::executeQuery($sql, array(1 => array($entityID, 'Integer'))); | |
413 | if ($dao->fetch()) { | |
414 | return $dao; | |
415 | } | |
d5828a02 | 416 | else { |
467fe956 | 417 | return NULL; |
418 | } | |
419 | } | |
420 | ||
421 | /** | |
422 | * Does the recurring contribution support financial type change. | |
423 | * | |
424 | * This is conditional on there being only one line item or if there are no contributions as yet. | |
425 | * | |
426 | * (This second is a bit of an unusual condition but might occur in the context of a | |
427 | * | |
428 | * @param int $id | |
429 | * | |
430 | * @return bool | |
431 | */ | |
432 | public static function supportsFinancialTypeChange($id) { | |
433 | // At this stage only sites with no Financial ACLs will have the opportunity to edit the financial type. | |
434 | // this is to limit the scope of the change and because financial ACLs are still fairly new & settling down. | |
435 | if (CRM_Financial_BAO_FinancialType::isACLFinancialTypeStatus()) { | |
436 | return FALSE; | |
437 | } | |
438 | $contribution = self::getTemplateContribution($id); | |
439 | return CRM_Contribute_BAO_Contribution::isSingleLineItem($contribution['id']); | |
440 | } | |
441 | ||
442 | /** | |
443 | * Get the contribution to be used as the template for later contributions. | |
444 | * | |
445 | * Later we might merge in data stored against the contribution recur record rather than just return the contribution. | |
446 | * | |
447 | * @param int $id | |
43c8d1dd | 448 | * @param array $overrides |
449 | * Parameters that should be overriden. Add unit tests if using parameters other than total_amount & financial_type_id. | |
467fe956 | 450 | * |
451 | * @return array | |
452 | * @throws \CiviCRM_API3_Exception | |
453 | */ | |
43c8d1dd | 454 | public static function getTemplateContribution($id, $overrides = array()) { |
467fe956 | 455 | $templateContribution = civicrm_api3('Contribution', 'get', array( |
456 | 'contribution_recur_id' => $id, | |
457 | 'options' => array('limit' => 1, 'sort' => array('id DESC')), | |
458 | 'sequential' => 1, | |
893a550c | 459 | 'contribution_test' => '', |
467fe956 | 460 | )); |
461 | if ($templateContribution['count']) { | |
43c8d1dd | 462 | $result = array_merge($templateContribution['values'][0], $overrides); |
463 | $result['line_item'] = CRM_Contribute_BAO_ContributionRecur::calculateRecurLineItems($id, $result['total_amount'], $result['financial_type_id']); | |
464 | return $result; | |
d5828a02 | 465 | } |
467fe956 | 466 | return array(); |
6a488035 TO |
467 | } |
468 | ||
00be9182 | 469 | public static function setSubscriptionContext() { |
6a488035 TO |
470 | // handle context redirection for subscription url |
471 | $session = CRM_Core_Session::singleton(); | |
472 | if ($session->get('userID')) { | |
c490a46a CW |
473 | $url = FALSE; |
474 | $cid = CRM_Utils_Request::retrieve('cid', 'Integer'); | |
475 | $mid = CRM_Utils_Request::retrieve('mid', 'Integer'); | |
476 | $qfkey = CRM_Utils_Request::retrieve('key', 'String'); | |
477 | $context = CRM_Utils_Request::retrieve('context', 'String'); | |
6a488035 TO |
478 | if ($cid) { |
479 | switch ($context) { | |
480 | case 'contribution': | |
481 | $url = CRM_Utils_System::url('civicrm/contact/view', | |
482 | "reset=1&selectedChild=contribute&cid={$cid}" | |
483 | ); | |
484 | break; | |
485 | ||
486 | case 'membership': | |
487 | $url = CRM_Utils_System::url('civicrm/contact/view', | |
488 | "reset=1&selectedChild=member&cid={$cid}" | |
489 | ); | |
490 | break; | |
491 | ||
492 | case 'dashboard': | |
493 | $url = CRM_Utils_System::url('civicrm/user', "reset=1&id={$cid}"); | |
494 | break; | |
495 | } | |
496 | } | |
497 | if ($mid) { | |
498 | switch ($context) { | |
499 | case 'dashboard': | |
500 | $url = CRM_Utils_System::url('civicrm/member', "force=1&context={$context}&key={$qfkey}"); | |
501 | break; | |
502 | ||
503 | case 'search': | |
504 | $url = CRM_Utils_System::url('civicrm/member/search', "force=1&context={$context}&key={$qfkey}"); | |
505 | break; | |
506 | } | |
507 | } | |
508 | if ($url) { | |
509 | $session->pushUserContext($url); | |
510 | } | |
511 | } | |
512 | } | |
96025800 | 513 | |
0223e233 WA |
514 | /** |
515 | * CRM-16285 - Function to handle validation errors on form, for recurring contribution field. | |
ea3ddccf | 516 | * |
0223e233 WA |
517 | * @param array $fields |
518 | * The input form values. | |
519 | * @param array $files | |
520 | * The uploaded files if any. | |
ea3ddccf | 521 | * @param CRM_Core_Form $self |
522 | * @param array $errors | |
0223e233 | 523 | */ |
577d1236 WA |
524 | public static function validateRecurContribution($fields, $files, $self, &$errors) { |
525 | if (!empty($fields['is_recur'])) { | |
526 | if ($fields['frequency_interval'] <= 0) { | |
527 | $errors['frequency_interval'] = ts('Please enter a number for how often you want to make this recurring contribution (EXAMPLE: Every 3 months).'); | |
528 | } | |
529 | if ($fields['frequency_unit'] == '0') { | |
530 | $errors['frequency_unit'] = ts('Please select a period (e.g. months, years ...) for how often you want to make this recurring contribution (EXAMPLE: Every 3 MONTHS).'); | |
531 | } | |
532 | } | |
533 | } | |
0223e233 | 534 | |
e577770c EM |
535 | /** |
536 | * Send start or end notification for recurring payments. | |
537 | * | |
538 | * @param array $ids | |
539 | * @param CRM_Contribute_BAO_ContributionRecur $recur | |
540 | * @param bool $isFirstOrLastRecurringPayment | |
541 | */ | |
542 | public static function sendRecurringStartOrEndNotification($ids, $recur, $isFirstOrLastRecurringPayment) { | |
543 | if ($isFirstOrLastRecurringPayment) { | |
544 | $autoRenewMembership = FALSE; | |
545 | if ($recur->id && | |
546 | isset($ids['membership']) && $ids['membership'] | |
547 | ) { | |
548 | $autoRenewMembership = TRUE; | |
549 | } | |
550 | ||
551 | //send recurring Notification email for user | |
552 | CRM_Contribute_BAO_ContributionPage::recurringNotify($isFirstOrLastRecurringPayment, | |
553 | $ids['contact'], | |
554 | $ids['contributionPage'], | |
555 | $recur, | |
556 | $autoRenewMembership | |
557 | ); | |
558 | } | |
559 | } | |
560 | ||
561 | /** | |
562 | * Copy custom data of the initial contribution into its recurring contributions. | |
563 | * | |
564 | * @param int $recurId | |
565 | * @param int $targetContributionId | |
566 | */ | |
567 | static public function copyCustomValues($recurId, $targetContributionId) { | |
568 | if ($recurId && $targetContributionId) { | |
569 | // get the initial contribution id of recur id | |
570 | $sourceContributionId = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id'); | |
571 | ||
572 | // if the same contribution is being processed then return | |
573 | if ($sourceContributionId == $targetContributionId) { | |
574 | return; | |
575 | } | |
576 | // check if proper recurring contribution record is being processed | |
577 | $targetConRecurId = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $targetContributionId, 'contribution_recur_id'); | |
578 | if ($targetConRecurId != $recurId) { | |
579 | return; | |
580 | } | |
581 | ||
582 | // copy custom data | |
583 | $extends = array('Contribution'); | |
584 | $groupTree = CRM_Core_BAO_CustomGroup::getGroupDetail(NULL, NULL, $extends); | |
585 | if ($groupTree) { | |
586 | foreach ($groupTree as $groupID => $group) { | |
587 | $table[$groupTree[$groupID]['table_name']] = array('entity_id'); | |
588 | foreach ($group['fields'] as $fieldID => $field) { | |
589 | $table[$groupTree[$groupID]['table_name']][] = $groupTree[$groupID]['fields'][$fieldID]['column_name']; | |
590 | } | |
591 | } | |
592 | ||
593 | foreach ($table as $tableName => $tableColumns) { | |
d4721930 | 594 | $insert = 'INSERT IGNORE INTO ' . $tableName . ' (' . implode(', ', $tableColumns) . ') '; |
e577770c EM |
595 | $tableColumns[0] = $targetContributionId; |
596 | $select = 'SELECT ' . implode(', ', $tableColumns); | |
597 | $from = ' FROM ' . $tableName; | |
598 | $where = " WHERE {$tableName}.entity_id = {$sourceContributionId}"; | |
599 | $query = $insert . $select . $from . $where; | |
33621c4f | 600 | CRM_Core_DAO::executeQuery($query); |
e577770c EM |
601 | } |
602 | } | |
603 | } | |
604 | } | |
605 | ||
606 | /** | |
607 | * Add soft credit to for recurring payment. | |
608 | * | |
609 | * copy soft credit record of first recurring contribution. | |
610 | * and add new soft credit against $targetContributionId | |
611 | * | |
612 | * @param int $recurId | |
613 | * @param int $targetContributionId | |
614 | */ | |
615 | public static function addrecurSoftCredit($recurId, $targetContributionId) { | |
616 | $soft_contribution = new CRM_Contribute_DAO_ContributionSoft(); | |
617 | $soft_contribution->contribution_id = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id'); | |
618 | ||
619 | // Check if first recurring contribution has any associated soft credit. | |
620 | if ($soft_contribution->find(TRUE)) { | |
621 | $soft_contribution->contribution_id = $targetContributionId; | |
622 | unset($soft_contribution->id); | |
623 | $soft_contribution->save(); | |
624 | } | |
625 | } | |
626 | ||
627 | /** | |
628 | * Add line items for recurring contribution. | |
629 | * | |
630 | * @param int $recurId | |
631 | * @param $contribution | |
632 | * | |
633 | * @return array | |
634 | */ | |
635 | public static function addRecurLineItems($recurId, $contribution) { | |
43c8d1dd | 636 | $foundLineItems = FALSE; |
637 | ||
638 | $lineSets = self::calculateRecurLineItems($recurId, $contribution->total_amount, $contribution->financial_type_id); | |
639 | foreach ($lineSets as $lineItems) { | |
640 | if (!empty($lineItems)) { | |
641 | foreach ($lineItems as $key => $value) { | |
642 | if ($value['entity_table'] == 'civicrm_membership') { | |
643 | try { | |
644 | // @todo this should be done by virtue of editing the line item as this link | |
645 | // is deprecated. This may be the case but needs testing. | |
646 | civicrm_api3('membership_payment', 'create', array( | |
647 | 'membership_id' => $value['entity_id'], | |
648 | 'contribution_id' => $contribution->id, | |
0e0da23f | 649 | 'is_transactional' => FALSE, |
43c8d1dd | 650 | )); |
651 | } | |
652 | catch (CiviCRM_API3_Exception $e) { | |
653 | // we are catching & ignoring errors as an extra precaution since lost IPNs may be more serious that lost membership_payment data | |
654 | // this fn is unit-tested so risk of changes elsewhere breaking it are otherwise mitigated | |
655 | } | |
e577770c EM |
656 | } |
657 | } | |
43c8d1dd | 658 | $foundLineItems = TRUE; |
e577770c EM |
659 | } |
660 | } | |
43c8d1dd | 661 | if (!$foundLineItems) { |
e577770c EM |
662 | CRM_Price_BAO_LineItem::processPriceSet($contribution->id, $lineSets, $contribution); |
663 | } | |
664 | return $lineSets; | |
665 | } | |
666 | ||
667 | /** | |
668 | * Update pledge associated with a recurring contribution. | |
669 | * | |
670 | * If the contribution has a pledge_payment record pledge, then update the pledge_payment record & pledge based on that linkage. | |
671 | * | |
672 | * If a previous contribution in the recurring contribution sequence is linked with a pledge then we assume this contribution | |
673 | * should be linked with the same pledge also. Currently only back-office users can apply a recurring payment to a pledge & | |
674 | * it should be assumed they | |
675 | * do so with the intention that all payments will be linked | |
676 | * | |
677 | * The pledge payment record should already exist & will need to be updated with the new contribution ID. | |
678 | * If not the contribution will also need to be linked to the pledge | |
679 | * | |
294cc627 | 680 | * @param int $contributionID |
681 | * @param int $contributionRecurID | |
682 | * @param int $contributionStatusID | |
683 | * @param float $contributionAmount | |
684 | * | |
685 | * @throws \CiviCRM_API3_Exception | |
e577770c | 686 | */ |
294cc627 | 687 | public static function updateRecurLinkedPledge($contributionID, $contributionRecurID, $contributionStatusID, $contributionAmount) { |
e577770c EM |
688 | $returnProperties = array('id', 'pledge_id'); |
689 | $paymentDetails = $paymentIDs = array(); | |
690 | ||
294cc627 | 691 | if (CRM_Core_DAO::commonRetrieveAll('CRM_Pledge_DAO_PledgePayment', 'contribution_id', $contributionID, |
e577770c EM |
692 | $paymentDetails, $returnProperties |
693 | ) | |
694 | ) { | |
695 | foreach ($paymentDetails as $key => $value) { | |
696 | $paymentIDs[] = $value['id']; | |
697 | $pledgeId = $value['pledge_id']; | |
698 | } | |
699 | } | |
700 | else { | |
701 | //payment is not already linked - if it is linked with a pledge we need to create a link. | |
702 | // return if it is not recurring contribution | |
294cc627 | 703 | if (!$contributionRecurID) { |
e577770c EM |
704 | return; |
705 | } | |
706 | ||
707 | $relatedContributions = new CRM_Contribute_DAO_Contribution(); | |
294cc627 | 708 | $relatedContributions->contribution_recur_id = $contributionRecurID; |
e577770c EM |
709 | $relatedContributions->find(); |
710 | ||
711 | while ($relatedContributions->fetch()) { | |
712 | CRM_Core_DAO::commonRetrieveAll('CRM_Pledge_DAO_PledgePayment', 'contribution_id', $relatedContributions->id, | |
713 | $paymentDetails, $returnProperties | |
714 | ); | |
715 | } | |
716 | ||
717 | if (empty($paymentDetails)) { | |
718 | // payment is not linked with a pledge and neither are any other contributions on this | |
719 | return; | |
720 | } | |
721 | ||
722 | foreach ($paymentDetails as $key => $value) { | |
723 | $pledgeId = $value['pledge_id']; | |
724 | } | |
725 | ||
726 | // we have a pledge now we need to get the oldest unpaid payment | |
727 | $paymentDetails = CRM_Pledge_BAO_PledgePayment::getOldestPledgePayment($pledgeId); | |
728 | if (empty($paymentDetails['id'])) { | |
729 | // we can assume this pledge is now completed | |
730 | // return now so we don't create a core error & roll back | |
731 | return; | |
732 | } | |
294cc627 | 733 | $paymentDetails['contribution_id'] = $contributionID; |
734 | $paymentDetails['status_id'] = $contributionStatusID; | |
735 | $paymentDetails['actual_amount'] = $contributionAmount; | |
e577770c EM |
736 | |
737 | // put contribution against it | |
294cc627 | 738 | $payment = civicrm_api3('PledgePayment', 'create', $paymentDetails); |
739 | $paymentIDs[] = $payment['id']; | |
e577770c EM |
740 | } |
741 | ||
742 | // update pledge and corresponding payment statuses | |
294cc627 | 743 | CRM_Pledge_BAO_PledgePayment::updatePledgePaymentStatus($pledgeId, $paymentIDs, $contributionStatusID, |
744 | NULL, $contributionAmount | |
e577770c EM |
745 | ); |
746 | } | |
747 | ||
24782d26 | 748 | /** |
749 | * @param $form | |
750 | */ | |
751 | public static function recurringContribution(&$form) { | |
752 | // Recurring contribution fields | |
753 | foreach (self::getRecurringFields() as $key => $label) { | |
55feaf27 | 754 | if ($key == 'contribution_recur_payment_made' && !empty($form->_formValues) && |
24782d26 | 755 | !CRM_Utils_System::isNull(CRM_Utils_Array::value($key, $form->_formValues)) |
756 | ) { | |
757 | $form->assign('contribution_recur_pane_open', TRUE); | |
758 | break; | |
759 | } | |
760 | CRM_Core_Form_Date::buildDateRange($form, $key, 1, '_low', '_high'); | |
761 | // If data has been entered for a recurring field, tell the tpl layer to open the pane | |
55feaf27 | 762 | if (!empty($form->_formValues) && !empty($form->_formValues[$key . '_relative']) || !empty($form->_formValues[$key . '_low']) || !empty($form->_formValues[$key . '_high'])) { |
24782d26 | 763 | $form->assign('contribution_recur_pane_open', TRUE); |
764 | break; | |
765 | } | |
766 | } | |
767 | ||
24782d26 | 768 | // Add field to check if payment is made for recurring contribution |
769 | $recurringPaymentOptions = array( | |
c6021c27 ML |
770 | 1 => ts('All recurring contributions'), |
771 | 2 => ts('Recurring contributions with at least one payment'), | |
24782d26 | 772 | ); |
5aae2a90 | 773 | $form->addRadio('contribution_recur_payment_made', NULL, $recurringPaymentOptions, array('allowClear' => TRUE)); |
24782d26 | 774 | CRM_Core_Form_Date::buildDateRange($form, 'contribution_recur_start_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth'); |
775 | CRM_Core_Form_Date::buildDateRange($form, 'contribution_recur_end_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth'); | |
776 | CRM_Core_Form_Date::buildDateRange($form, 'contribution_recur_modified_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth'); | |
777 | CRM_Core_Form_Date::buildDateRange($form, 'contribution_recur_next_sched_contribution_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth'); | |
778 | CRM_Core_Form_Date::buildDateRange($form, 'contribution_recur_failure_retry_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth'); | |
779 | CRM_Core_Form_Date::buildDateRange($form, 'contribution_recur_cancel_date', 1, '_low', '_high', ts('From'), FALSE, FALSE, 'birth'); | |
780 | $form->addElement('text', 'contribution_recur_processor_id', ts('Processor ID'), CRM_Core_DAO::getAttribute('CRM_Contribute_DAO_ContributionRecur', 'processor_id')); | |
781 | $form->addElement('text', 'contribution_recur_trxn_id', ts('Transaction ID'), CRM_Core_DAO::getAttribute('CRM_Contribute_DAO_ContributionRecur', 'trxn_id')); | |
86a0d21e CW |
782 | |
783 | CRM_Core_BAO_Query::addCustomFormFields($form, array('ContributionRecur')); | |
784 | ||
24782d26 | 785 | } |
786 | ||
787 | /** | |
788 | * Get fields for recurring contributions. | |
789 | * | |
790 | * @return array | |
791 | */ | |
792 | public static function getRecurringFields() { | |
793 | return array( | |
794 | 'contribution_recur_payment_made' => ts(''), | |
795 | 'contribution_recur_start_date' => ts('Recurring Contribution Start Date'), | |
796 | 'contribution_recur_next_sched_contribution_date' => ts('Next Scheduled Recurring Contribution'), | |
797 | 'contribution_recur_cancel_date' => ts('Recurring Contribution Cancel Date'), | |
798 | 'contribution_recur_end_date' => ts('Recurring Contribution End Date'), | |
799 | 'contribution_recur_create_date' => ('Recurring Contribution Create Date'), | |
800 | 'contribution_recur_modified_date' => ('Recurring Contribution Modified Date'), | |
801 | 'contribution_recur_failure_retry_date' => ts('Failed Recurring Contribution Retry Date'), | |
802 | ); | |
803 | } | |
804 | ||
91259407 | 805 | /** |
806 | * Update recurring contribution based on incoming payment. | |
807 | * | |
808 | * Do not rename or move this function without updating https://issues.civicrm.org/jira/browse/CRM-17655. | |
809 | * | |
810 | * @param int $recurringContributionID | |
811 | * @param string $paymentStatus | |
812 | * Payment status - this correlates to the machine name of the contribution status ID ie | |
813 | * - Completed | |
814 | * - Failed | |
815 | * | |
816 | * @throws \CiviCRM_API3_Exception | |
817 | */ | |
050e11d5 | 818 | public static function updateOnNewPayment($recurringContributionID, $paymentStatus, $effectiveDate) { |
46f459f2 | 819 | |
820 | $effectiveDate = $effectiveDate ? date('Y-m-d', strtotime($effectiveDate)) : date('Y-m-d'); | |
91259407 | 821 | if (!in_array($paymentStatus, array('Completed', 'Failed'))) { |
822 | return; | |
823 | } | |
824 | $params = array( | |
825 | 'id' => $recurringContributionID, | |
826 | 'return' => array( | |
827 | 'contribution_status_id', | |
828 | 'next_sched_contribution_date', | |
829 | 'frequency_unit', | |
830 | 'frequency_interval', | |
831 | 'installments', | |
832 | 'failure_count', | |
833 | ), | |
834 | ); | |
835 | ||
836 | $existing = civicrm_api3('ContributionRecur', 'getsingle', $params); | |
837 | ||
838 | if ($paymentStatus == 'Completed' | |
839 | && CRM_Contribute_PseudoConstant::contributionStatus($existing['contribution_status_id'], 'name') == 'Pending') { | |
840 | $params['contribution_status_id'] = 'In Progress'; | |
841 | } | |
842 | if ($paymentStatus == 'Failed') { | |
843 | $params['failure_count'] = $existing['failure_count']; | |
844 | } | |
845 | $params['modified_date'] = date('Y-m-d H:i:s'); | |
846 | ||
847 | if (!empty($existing['installments']) && self::isComplete($recurringContributionID, $existing['installments'])) { | |
848 | $params['contribution_status_id'] = 'Completed'; | |
849 | } | |
850 | else { | |
851 | // Only update next sched date if it's empty or 'just now' because payment processors may be managing | |
852 | // the scheduled date themselves as core did not previously provide any help. | |
48f50324 | 853 | if (empty($existing['next_sched_contribution_date']) || strtotime($existing['next_sched_contribution_date']) == |
050e11d5 | 854 | strtotime($effectiveDate)) { |
855 | $params['next_sched_contribution_date'] = date('Y-m-d', strtotime('+' . $existing['frequency_interval'] . ' ' . $existing['frequency_unit'], strtotime($effectiveDate))); | |
91259407 | 856 | } |
857 | } | |
858 | civicrm_api3('ContributionRecur', 'create', $params); | |
859 | } | |
860 | ||
861 | /** | |
862 | * Is this recurring contribution now complete. | |
863 | * | |
864 | * Have all the payments expected been received now. | |
865 | * | |
866 | * @param int $recurringContributionID | |
867 | * @param int $installments | |
868 | * | |
869 | * @return bool | |
870 | */ | |
871 | protected static function isComplete($recurringContributionID, $installments) { | |
872 | $paidInstallments = CRM_Core_DAO::singleValueQuery( | |
050e11d5 | 873 | 'SELECT count(*) FROM civicrm_contribution |
874 | WHERE contribution_recur_id = %1 | |
875 | AND contribution_status_id = ' . CRM_Core_PseudoConstant::getKey('CRM_Contribute_BAO_Contribution', 'contribution_status_id', 'Completed'), | |
91259407 | 876 | array(1 => array($recurringContributionID, 'Integer')) |
877 | ); | |
878 | if ($paidInstallments >= $installments) { | |
879 | return TRUE; | |
880 | } | |
881 | return FALSE; | |
882 | } | |
883 | ||
43c8d1dd | 884 | /** |
885 | * Calculate line items for the relevant recurring calculation. | |
886 | * | |
887 | * @param int $recurId | |
888 | * @param string $total_amount | |
889 | * @param int $financial_type_id | |
890 | * | |
891 | * @return array | |
892 | */ | |
893 | public static function calculateRecurLineItems($recurId, $total_amount, $financial_type_id) { | |
894 | $originalContributionID = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id'); | |
895 | $lineItems = CRM_Price_BAO_LineItem::getLineItemsByContributionID($originalContributionID); | |
7150b1c8 | 896 | $lineSets = array(); |
43c8d1dd | 897 | if (count($lineItems) == 1) { |
898 | foreach ($lineItems as $index => $lineItem) { | |
899 | if ($financial_type_id) { | |
900 | // CRM-17718 allow for possibility of changed financial type ID having been set prior to calling this. | |
901 | $lineItem['financial_type_id'] = $financial_type_id; | |
902 | } | |
903 | if ($lineItem['line_total'] != $total_amount) { | |
904 | // We are dealing with a changed amount! Per CRM-16397 we can work out what to do with these | |
905 | // if there is only one line item, and the UI should prevent this situation for those with more than one. | |
906 | $lineItem['line_total'] = $total_amount; | |
907 | $lineItem['unit_price'] = round($total_amount / $lineItem['qty'], 2); | |
908 | } | |
909 | $priceField = new CRM_Price_DAO_PriceField(); | |
910 | $priceField->id = $lineItem['price_field_id']; | |
911 | $priceField->find(TRUE); | |
912 | $lineSets[$priceField->price_set_id][] = $lineItem; | |
913 | } | |
914 | } | |
7150b1c8 | 915 | // CRM-19309 if more than one then just pass them through: |
0e6ccb2e K |
916 | elseif (count($lineItems) > 1) { |
917 | foreach ($lineItems as $index => $lineItem) { | |
918 | $lineSets[$index][] = $lineItem; | |
919 | } | |
920 | } | |
921 | ||
43c8d1dd | 922 | return $lineSets; |
923 | } | |
924 | ||
6a488035 | 925 | } |