Merge pull request #6269 from yashodha/CRM-15564
[civicrm-core.git] / CRM / Core / Payment / BaseIPN.php
1 <?php
2 /*
3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.6 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2015 |
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 * Class CRM_Core_Payment_BaseIPN.
30 */
31 class CRM_Core_Payment_BaseIPN {
32
33 static $_now = NULL;
34
35 /**
36 * Input parameters from payment processor. Store these so that
37 * the code does not need to keep retrieving from the http request
38 * @var array
39 */
40 protected $_inputParameters = array();
41
42 protected $_isRecurring = FALSE;
43
44 protected $_isFirstOrLastRecurringPayment = FALSE;
45
46 /**
47 * Constructor.
48 */
49 public function __construct() {
50 self::$_now = date('YmdHis');
51 }
52
53 /**
54 * Store input array on the class.
55 *
56 * @param array $parameters
57 *
58 * @throws CRM_Core_Exception
59 */
60 public function setInputParameters($parameters) {
61 if (!is_array($parameters)) {
62 throw new CRM_Core_Exception('Invalid input parameters');
63 }
64 $this->_inputParameters = $parameters;
65 }
66
67 /**
68 * Validate incoming data.
69 *
70 * This function is intended to ensure that incoming data matches
71 * It provides a form of pseudo-authentication - by checking the calling fn already knows
72 * the correct contact id & contribution id (this can be problematic when that has changed in
73 * the meantime for transactions that are delayed & contacts are merged in-between. e.g
74 * Paypal allows you to resend Instant Payment Notifications if you, for example, moved site
75 * and didn't update your IPN URL.
76 *
77 * @param array $input
78 * Interpreted values from the values returned through the IPN.
79 * @param array $ids
80 * More interpreted values (ids) from the values returned through the IPN.
81 * @param array $objects
82 * An empty array that will be populated with loaded object.
83 * @param bool $required
84 * Boolean Return FALSE if the relevant objects don't exist.
85 * @param int $paymentProcessorID
86 * Id of the payment processor ID in use.
87 *
88 * @return bool
89 */
90 public function validateData(&$input, &$ids, &$objects, $required = TRUE, $paymentProcessorID = NULL) {
91
92 // make sure contact exists and is valid
93 $contact = new CRM_Contact_BAO_Contact();
94 $contact->id = $ids['contact'];
95 if (!$contact->find(TRUE)) {
96 CRM_Core_Error::debug_log_message("Could not find contact record: {$ids['contact']} in IPN request: " . print_r($input, TRUE));
97 echo "Failure: Could not find contact record: {$ids['contact']}<p>";
98 return FALSE;
99 }
100
101 // make sure contribution exists and is valid
102 $contribution = new CRM_Contribute_BAO_Contribution();
103 $contribution->id = $ids['contribution'];
104 if (!$contribution->find(TRUE)) {
105 CRM_Core_Error::debug_log_message("Could not find contribution record: {$contribution->id} in IPN request: " . print_r($input, TRUE));
106 echo "Failure: Could not find contribution record for {$contribution->id}<p>";
107 return FALSE;
108 }
109 $contribution->receive_date = CRM_Utils_Date::isoToMysql($contribution->receive_date);
110
111 $objects['contact'] = &$contact;
112 $objects['contribution'] = &$contribution;
113 if (!$this->loadObjects($input, $ids, $objects, $required, $paymentProcessorID)) {
114 return FALSE;
115 }
116 //the process is that the loadObjects is kind of hacked by loading the objects for the original contribution and then somewhat inconsistently using them for the
117 //current contribution. Here we ensure that the original contribution is available to the complete transaction function
118 //we don't want to fix this in the payment processor classes because we would have to fix all of them - so better to fix somewhere central
119 if (isset($objects['contributionRecur'])) {
120 $objects['first_contribution'] = $objects['contribution'];
121 }
122 return TRUE;
123 }
124
125 /**
126 * Load objects related to contribution.
127 *
128 * @input array information from Payment processor
129 *
130 * @param $input
131 * @param array $ids
132 * @param array $objects
133 * @param bool $required
134 * @param int $paymentProcessorID
135 * @param array $error_handling
136 *
137 * @return bool
138 */
139 public function loadObjects(&$input, &$ids, &$objects, $required, $paymentProcessorID, $error_handling = NULL) {
140 if (empty($error_handling)) {
141 // default options are that we log an error & echo it out
142 // note that we should refactor this error handling into error code @ some point
143 // but for now setting up enough separation so we can do unit tests
144 $error_handling = array(
145 'log_error' => 1,
146 'echo_error' => 1,
147 );
148 }
149 $ids['paymentProcessor'] = $paymentProcessorID;
150 if (is_a($objects['contribution'], 'CRM_Contribute_BAO_Contribution')) {
151 $contribution = &$objects['contribution'];
152 }
153 else {
154 //legacy support - functions are 'used' to be able to pass in a DAO
155 $contribution = new CRM_Contribute_BAO_Contribution();
156 $contribution->id = CRM_Utils_Array::value('contribution', $ids);
157 $contribution->find(TRUE);
158 $objects['contribution'] = &$contribution;
159 }
160 try {
161 $success = $contribution->loadRelatedObjects($input, $ids, $required);
162 }
163 catch (Exception $e) {
164 $success = FALSE;
165 if (!empty($error_handling['log_error'])) {
166 CRM_Core_Error::debug_log_message($e->getMessage());
167 }
168 if (!empty($error_handling['echo_error'])) {
169 echo $e->getMessage();
170 }
171 if (!empty($error_handling['return_error'])) {
172 return array(
173 'is_error' => 1,
174 'error_message' => ($e->getMessage()),
175 );
176 }
177 }
178 $objects = array_merge($objects, $contribution->_relatedObjects);
179 return $success;
180 }
181
182 /**
183 * Set contribution to failed.
184 *
185 * @param array $objects
186 * @param object $transaction
187 * @param array $input
188 *
189 * @return bool
190 */
191 public function failed(&$objects, &$transaction, $input = array()) {
192 $contribution = &$objects['contribution'];
193 $memberships = array();
194 if (!empty($objects['membership'])) {
195 $memberships = &$objects['membership'];
196 if (is_numeric($memberships)) {
197 $memberships = array($objects['membership']);
198 }
199 }
200
201 $addLineItems = FALSE;
202 if (empty($contribution->id)) {
203 $addLineItems = TRUE;
204 }
205 $participant = &$objects['participant'];
206
207 //CRM-15546
208 $contributionStatuses = CRM_Core_PseudoConstant::get('CRM_Contribute_DAO_Contribution', 'contribution_status_id', array(
209 'labelColumn' => 'name',
210 'flip' => 1,
211 ));
212 $contribution->receive_date = CRM_Utils_Date::isoToMysql($contribution->receive_date);
213 $contribution->receipt_date = CRM_Utils_Date::isoToMysql($contribution->receipt_date);
214 $contribution->thankyou_date = CRM_Utils_Date::isoToMysql($contribution->thankyou_date);
215 $contribution->contribution_status_id = $contributionStatuses['Failed'];
216 $contribution->save();
217
218 // Add line items for recurring payments.
219 if (!empty($objects['contributionRecur']) && $objects['contributionRecur']->id && $addLineItems) {
220 $this->addRecurLineItems($objects['contributionRecur']->id, $contribution);
221 }
222
223 //add new soft credit against current contribution id and
224 //copy initial contribution custom fields for recurring contributions
225 if (!empty($objects['contributionRecur']) && $objects['contributionRecur']->id) {
226 $this->addrecurSoftCredit($objects['contributionRecur']->id, $contribution->id);
227 $this->copyCustomValues($objects['contributionRecur']->id, $contribution->id);
228 }
229
230 if (empty($input['skipComponentSync'])) {
231 if (!empty($memberships)) {
232 // if transaction is failed then set "Cancelled" as membership status
233 $membershipStatuses = CRM_Core_PseudoConstant::get('CRM_Member_DAO_Membership', 'status_id', array(
234 'labelColumn' => 'name',
235 'flip' => 1,
236 ));
237 foreach ($memberships as $membership) {
238 if ($membership) {
239 $membership->status_id = $membershipStatuses['Cancelled'];
240 $membership->save();
241
242 //update related Memberships.
243 $params = array('status_id' => $membershipStatuses['Cancelled']);
244 CRM_Member_BAO_Membership::updateRelatedMemberships($membership->id, $params);
245 }
246 }
247 }
248
249 if ($participant) {
250 $participantStatuses = CRM_Core_PseudoConstant::get('CRM_Event_DAO_Participant', 'status_id', array(
251 'labelColumn' => 'name',
252 'flip' => 1,
253 ));
254 $participant->status_id = $participantStatuses['Cancelled'];
255 $participant->save();
256 }
257 }
258
259 $transaction->commit();
260 CRM_Core_Error::debug_log_message("Setting contribution status to failed");
261 //echo "Success: Setting contribution status to failed<p>";
262 return TRUE;
263 }
264
265 /**
266 * Handled pending contribution status.
267 *
268 * @param array $objects
269 * @param object $transaction
270 *
271 * @return bool
272 */
273 public function pending(&$objects, &$transaction) {
274 $transaction->commit();
275 CRM_Core_Error::debug_log_message("returning since contribution status is pending");
276 echo "Success: Returning since contribution status is pending<p>";
277 return TRUE;
278 }
279
280 /**
281 * Process cancelled payment outcome.
282 *
283 * @param $objects
284 * @param $transaction
285 * @param array $input
286 *
287 * @return bool
288 */
289 public function cancelled(&$objects, &$transaction, $input = array()) {
290 $contribution = &$objects['contribution'];
291 $memberships = &$objects['membership'];
292 if (is_numeric($memberships)) {
293 $memberships = array($objects['membership']);
294 }
295
296 $participant = &$objects['participant'];
297 $addLineItems = FALSE;
298 if (empty($contribution->id)) {
299 $addLineItems = TRUE;
300 }
301 $contributionStatuses = CRM_Core_PseudoConstant::get('CRM_Contribute_DAO_Contribution', 'contribution_status_id', array(
302 'labelColumn' => 'name',
303 'flip' => 1,
304 ));
305 $contribution->contribution_status_id = $contributionStatuses['Cancelled'];
306 $contribution->cancel_date = self::$_now;
307 $contribution->cancel_reason = CRM_Utils_Array::value('reasonCode', $input);
308 $contribution->receive_date = CRM_Utils_Date::isoToMysql($contribution->receive_date);
309 $contribution->receipt_date = CRM_Utils_Date::isoToMysql($contribution->receipt_date);
310 $contribution->thankyou_date = CRM_Utils_Date::isoToMysql($contribution->thankyou_date);
311 $contribution->save();
312
313 //add lineitems for recurring payments
314 if (!empty($objects['contributionRecur']) && $objects['contributionRecur']->id && $addLineItems) {
315 $this->addRecurLineItems($objects['contributionRecur']->id, $contribution);
316 }
317
318 //add new soft credit against current $contribution and
319 //copy initial contribution custom fields for recurring contributions
320 if (!empty($objects['contributionRecur']) && $objects['contributionRecur']->id) {
321 $this->addrecurSoftCredit($objects['contributionRecur']->id, $contribution->id);
322 $this->copyCustomValues($objects['contributionRecur']->id, $contribution->id);
323 }
324
325 if (empty($input['skipComponentSync'])) {
326 if (!empty($memberships)) {
327 $membershipStatuses = CRM_Core_PseudoConstant::get('CRM_Member_DAO_Membership', 'status_id', array(
328 'labelColumn' => 'name',
329 'flip' => 1,
330 ));
331 foreach ($memberships as $membership) {
332 if ($membership) {
333 $membership->status_id = $membershipStatuses['Cancelled'];
334 $membership->save();
335
336 //update related Memberships.
337 $params = array('status_id' => $membershipStatuses['Cancelled']);
338 CRM_Member_BAO_Membership::updateRelatedMemberships($membership->id, $params);
339 }
340 }
341 }
342
343 if ($participant) {
344 $participantStatuses = CRM_Core_PseudoConstant::get('CRM_Event_DAO_Participant', 'status_id', array(
345 'labelColumn' => 'name',
346 'flip' => 1,
347 ));
348 $participant->status_id = $participantStatuses['Cancelled'];
349 $participant->save();
350 }
351 }
352 $transaction->commit();
353 CRM_Core_Error::debug_log_message("Setting contribution status to cancelled");
354 //echo "Success: Setting contribution status to cancelled<p>";
355 return TRUE;
356 }
357
358 /**
359 * Rollback unhandled outcomes.
360 *
361 * @param $objects
362 * @param $transaction
363 *
364 * @return bool
365 */
366 public function unhandled(&$objects, &$transaction) {
367 $transaction->rollback();
368 CRM_Core_Error::debug_log_message("returning since contribution status: is not handled");
369 echo "Failure: contribution status is not handled<p>";
370 return FALSE;
371 }
372
373 /**
374 * Jumbled up function.
375 *
376 * The purpose of this function is to transition a pending transaction to Completed including updating any
377 * related entities.
378 *
379 * It has been overloaded to also add recurring transactions to the database, cloning the original transaction and
380 * updating related entities.
381 *
382 * It is recommended to avoid calling this function directly and call the api functions:
383 * - contribution.completetransaction
384 * - contribution.repeattransaction
385 *
386 * These functions are the focus of testing efforts and more accurately reflect the division of roles
387 * (the job of the IPN class is to determine the outcome, transaction id, invoice id & to validate the source
388 * and from there it should be possible to pass off transaction management.)
389 *
390 * This function has been problematic for some time but there are now several tests via the api_v3_Contribution test
391 * and the Paypal & Authorize.net IPN tests so any refactoring should be done in conjunction with those.
392 *
393 * This function needs to have the 'body' moved to the CRM_Contribution_BAO_Contribute class and to undergo
394 * refactoring to separate the complete transaction and repeat transaction functionality into separate functions with
395 * a shared function that updates related components.
396 *
397 * Note that it is not necessary payment processor extension to implement an IPN class now. In general the code on the
398 * IPN class is better accessed through the api which de-jumbles it a bit.
399 *
400 * e.g the payment class can have a function like (based on Omnipay extension):
401 *
402 * public function handlePaymentNotification() {
403 * $response = $this->getValidatedOutcome();
404 * if ($response->isSuccessful()) {
405 * try {
406 * // @todo check if it is a repeat transaction & call repeattransaction instead.
407 * civicrm_api3('contribution', 'completetransaction', array('id' => $this->transaction_id));
408 * }
409 * catch (CiviCRM_API3_Exception $e) {
410 * if (!stristr($e->getMessage(), 'Contribution already completed')) {
411 * $this->handleError('error', $this->transaction_id . $e->getMessage(), 'ipn_completion', 9000, 'An error may
412 * have occurred. Please check your receipt is correct');
413 * $this->redirectOrExit('success');
414 * }
415 * elseif ($this->transaction_id) {
416 * civicrm_api3('contribution', 'create', array('id' => $this->transaction_id, 'contribution_status_id' =>
417 * 'Failed'));
418 * }
419 *
420 * @param array $input
421 * @param array $ids
422 * @param array $objects
423 * @param $transaction
424 * @param bool $recur
425 */
426 public function completeTransaction(&$input, &$ids, &$objects, &$transaction, $recur = FALSE) {
427 $contribution = &$objects['contribution'];
428
429 $primaryContributionID = isset($contribution->id) ? $contribution->id : $objects['first_contribution']->id;
430
431 $memberships = &$objects['membership'];
432 if (is_numeric($memberships)) {
433 $memberships = array($objects['membership']);
434 }
435 $participant = &$objects['participant'];
436
437 $changeToday = CRM_Utils_Array::value('trxn_date', $input, self::$_now);
438 $recurContrib = &$objects['contributionRecur'];
439
440 $values = array();
441 if (isset($input['is_email_receipt'])) {
442 $values['is_email_receipt'] = $input['is_email_receipt'];
443 }
444 $source = NULL;
445 if ($input['component'] == 'contribute') {
446 if ($contribution->contribution_page_id) {
447 CRM_Contribute_BAO_ContributionPage::setValues($contribution->contribution_page_id, $values);
448 $source = ts('Online Contribution') . ': ' . $values['title'];
449 }
450 elseif ($recurContrib && $recurContrib->id) {
451 $contribution->contribution_page_id = NULL;
452 $values['amount'] = $recurContrib->amount;
453 $values['financial_type_id'] = $objects['contributionType']->id;
454 $values['title'] = $source = ts('Offline Recurring Contribution');
455 $domainValues = CRM_Core_BAO_Domain::getNameAndEmail();
456 $values['receipt_from_name'] = $domainValues[0];
457 $values['receipt_from_email'] = $domainValues[1];
458 }
459
460 if ($recurContrib && $recurContrib->id && !isset($input['is_email_receipt'])) {
461 //CRM-13273 - is_email_receipt setting on recurring contribution should take precedence over contribution page setting
462 // but CRM-16124 if $input['is_email_receipt'] is set then that should not be overridden.
463 $values['is_email_receipt'] = $recurContrib->is_email_receipt;
464 }
465
466 $contribution->source = $source;
467 if (!empty($values['is_email_receipt'])) {
468 $contribution->receipt_date = self::$_now;
469 }
470
471 if (!empty($memberships)) {
472 $membershipsUpdate = array();
473 foreach ($memberships as $membershipTypeIdKey => $membership) {
474 if ($membership) {
475 $format = '%Y%m%d';
476
477 $currentMembership = CRM_Member_BAO_Membership::getContactMembership($membership->contact_id,
478 $membership->membership_type_id,
479 $membership->is_test, $membership->id
480 );
481
482 // CRM-8141 update the membership type with the value recorded in log when membership created/renewed
483 // this picks up membership type changes during renewals
484 $sql = "
485 SELECT membership_type_id
486 FROM civicrm_membership_log
487 WHERE membership_id=$membership->id
488 ORDER BY id DESC
489 LIMIT 1;";
490 $dao = new CRM_Core_DAO();
491 $dao->query($sql);
492 if ($dao->fetch()) {
493 if (!empty($dao->membership_type_id)) {
494 $membership->membership_type_id = $dao->membership_type_id;
495 $membership->save();
496 }
497 // else fall back to using current membership type
498 }
499 // else fall back to using current membership type
500 $dao->free();
501
502 $num_terms = $contribution->getNumTermsByContributionAndMembershipType($membership->membership_type_id, $primaryContributionID);
503 if ($currentMembership) {
504 /*
505 * Fixed FOR CRM-4433
506 * In BAO/Membership.php(renewMembership function), we skip the extend membership date and status
507 * when Contribution mode is notify and membership is for renewal )
508 */
509 CRM_Member_BAO_Membership::fixMembershipStatusBeforeRenew($currentMembership, $changeToday);
510
511 // @todo - we should pass membership_type_id instead of null here but not
512 // adding as not sure of testing
513 $dates = CRM_Member_BAO_MembershipType::getRenewalDatesForMembershipType($membership->id,
514 $changeToday, NULL, $num_terms
515 );
516
517 $dates['join_date'] = CRM_Utils_Date::customFormat($currentMembership['join_date'], $format);
518 }
519 else {
520 $dates = CRM_Member_BAO_MembershipType::getDatesForMembershipType($membership->membership_type_id, NULL, NULL, NULL, $num_terms);
521 }
522
523 //get the status for membership.
524 $calcStatus = CRM_Member_BAO_MembershipStatus::getMembershipStatusByDate($dates['start_date'],
525 $dates['end_date'],
526 $dates['join_date'],
527 'today',
528 TRUE,
529 $membership->membership_type_id,
530 (array) $membership
531 );
532
533 $formatedParams = array(
534 'status_id' => CRM_Utils_Array::value('id', $calcStatus, 2),
535 'join_date' => CRM_Utils_Date::customFormat(CRM_Utils_Array::value('join_date', $dates), $format),
536 'start_date' => CRM_Utils_Date::customFormat(CRM_Utils_Array::value('start_date', $dates), $format),
537 'end_date' => CRM_Utils_Date::customFormat(CRM_Utils_Array::value('end_date', $dates), $format),
538 );
539 //we might be renewing membership,
540 //so make status override false.
541 $formatedParams['is_override'] = FALSE;
542 $membership->copyValues($formatedParams);
543 $membership->save();
544
545 //updating the membership log
546 $membershipLog = array();
547 $membershipLog = $formatedParams;
548
549 $logStartDate = $formatedParams['start_date'];
550 if (!empty($dates['log_start_date'])) {
551 $logStartDate = CRM_Utils_Date::customFormat($dates['log_start_date'], $format);
552 $logStartDate = CRM_Utils_Date::isoToMysql($logStartDate);
553 }
554
555 $membershipLog['start_date'] = $logStartDate;
556 $membershipLog['membership_id'] = $membership->id;
557 $membershipLog['modified_id'] = $membership->contact_id;
558 $membershipLog['modified_date'] = date('Ymd');
559 $membershipLog['membership_type_id'] = $membership->membership_type_id;
560
561 CRM_Member_BAO_MembershipLog::add($membershipLog, CRM_Core_DAO::$_nullArray);
562
563 //update related Memberships.
564 CRM_Member_BAO_Membership::updateRelatedMemberships($membership->id, $formatedParams);
565
566 //update the membership type key of membership relatedObjects array
567 //if it has changed after membership update
568 if ($membershipTypeIdKey != $membership->membership_type_id) {
569 $membershipsUpdate[$membership->membership_type_id] = $membership;
570 $contribution->_relatedObjects['membership'][$membership->membership_type_id] = $membership;
571 unset($contribution->_relatedObjects['membership'][$membershipTypeIdKey]);
572 unset($memberships[$membershipTypeIdKey]);
573 }
574 }
575 }
576 //update the memberships object with updated membershipTypeId data
577 //if membershipTypeId has changed after membership update
578 if (!empty($membershipsUpdate)) {
579 $memberships = $memberships + $membershipsUpdate;
580 }
581 }
582 }
583 else {
584 // event
585 $eventParams = array('id' => $objects['event']->id);
586 $values['event'] = array();
587
588 CRM_Event_BAO_Event::retrieve($eventParams, $values['event']);
589
590 //get location details
591 $locationParams = array('entity_id' => $objects['event']->id, 'entity_table' => 'civicrm_event');
592 $values['location'] = CRM_Core_BAO_Location::getValues($locationParams);
593
594 $ufJoinParams = array(
595 'entity_table' => 'civicrm_event',
596 'entity_id' => $ids['event'],
597 'module' => 'CiviEvent',
598 );
599
600 list($custom_pre_id,
601 $custom_post_ids
602 ) = CRM_Core_BAO_UFJoin::getUFGroupIds($ufJoinParams);
603
604 $values['custom_pre_id'] = $custom_pre_id;
605 $values['custom_post_id'] = $custom_post_ids;
606 //for tasks 'Change Participant Status' and 'Batch Update Participants Via Profile' case
607 //and cases involving status updation through ipn
608 $values['totalAmount'] = $input['amount'];
609
610 $contribution->source = ts('Online Event Registration') . ': ' . $values['event']['title'];
611
612 if ($values['event']['is_email_confirm']) {
613 $contribution->receipt_date = self::$_now;
614 $values['is_email_receipt'] = 1;
615 }
616 if (empty($input['skipComponentSync'])) {
617 $participantStatuses = CRM_Core_PseudoConstant::get('CRM_Event_DAO_Participant', 'status_id', array(
618 'labelColumn' => 'name',
619 'flip' => 1,
620 ));
621 $participant->status_id = $participantStatuses['Registered'];
622 }
623 $participant->save();
624 }
625
626 if (CRM_Utils_Array::value('net_amount', $input, 0) == 0 &&
627 CRM_Utils_Array::value('fee_amount', $input, 0) != 0
628 ) {
629 $input['net_amount'] = $input['amount'] - $input['fee_amount'];
630 }
631 // This complete transaction function is being overloaded to create new contributions too.
632 // here we record if it is a new contribution.
633 // @todo separate the 2 more appropriately.
634 $isNewContribution = FALSE;
635 if (empty($contribution->id)) {
636 $isNewContribution = TRUE;
637 if (!empty($input['amount']) && $input['amount'] != $contribution->total_amount) {
638 $contribution->total_amount = $input['amount'];
639 // The BAO does this stuff but we are actually kinda bypassing it here (bad code! go sit in the corner)
640 // so we have to handle net_amount in this (naughty) code.
641 if (isset($input['fee_amount']) && is_numeric($input['fee_amount'])) {
642 $contribution->fee_amount = $input['fee_amount'];
643 }
644 $contribution->net_amount = $contribution->total_amount - $contribution->fee_amount;
645 }
646 if (!empty($input['campaign_id'])) {
647 $contribution->campaign_id = $input['campaign_id'];
648 }
649 }
650
651 $contributionStatuses = CRM_Core_PseudoConstant::get('CRM_Contribute_DAO_Contribution', 'contribution_status_id', array(
652 'labelColumn' => 'name',
653 'flip' => 1,
654 ));
655
656 // @todo this section should call the api in order to have hooks called &
657 // because all this 'messiness' setting variables could be avoided
658 // by letting the api resolve pseudoconstants & copy set values and format dates.
659 $contribution->contribution_status_id = $contributionStatuses['Completed'];
660 $contribution->is_test = $input['is_test'];
661
662 // CRM-15960 If we don't have a value we 'want' for the amounts, leave it to the BAO to sort out.
663 if (isset($input['net_amount'])) {
664 $contribution->fee_amount = CRM_Utils_Array::value('fee_amount', $input, 0);
665 }
666 if (isset($input['net_amount'])) {
667 $contribution->net_amount = $input['net_amount'];
668 }
669
670 $contribution->trxn_id = $input['trxn_id'];
671 $contribution->receive_date = CRM_Utils_Date::isoToMysql($contribution->receive_date);
672 $contribution->thankyou_date = CRM_Utils_Date::isoToMysql($contribution->thankyou_date);
673 $contribution->receipt_date = CRM_Utils_Date::isoToMysql($contribution->receipt_date);
674 $contribution->cancel_date = 'null';
675
676 if (!empty($input['check_number'])) {
677 $contribution->check_number = $input['check_number'];
678 }
679
680 if (!empty($input['payment_instrument_id'])) {
681 $contribution->payment_instrument_id = $input['payment_instrument_id'];
682 }
683
684 if (!empty($contribution->id)) {
685 $contributionId['id'] = $contribution->id;
686 $input['prevContribution'] = CRM_Contribute_BAO_Contribution::getValues($contributionId, CRM_Core_DAO::$_nullArray, CRM_Core_DAO::$_nullArray);
687 }
688
689 $contribution->save();
690
691 // Add new soft credit against current $contribution.
692 if (CRM_Utils_Array::value('contributionRecur', $objects) && $objects['contributionRecur']->id) {
693 $this->addrecurSoftCredit($objects['contributionRecur']->id, $contribution->id);
694 }
695
696 //add line items for recurring payments
697 if (!empty($contribution->contribution_recur_id)) {
698 if ($isNewContribution) {
699 $input['line_item'] = $this->addRecurLineItems($contribution->contribution_recur_id, $contribution);
700 }
701 else {
702 // this is just to prevent e-notices when we call recordFinancialAccounts - per comments on that line - intention is somewhat unclear
703 $input['line_item'] = array();
704 }
705 }
706
707 //copy initial contribution custom fields for recurring contributions
708 if ($recurContrib && $recurContrib->id) {
709 $this->copyCustomValues($recurContrib->id, $contribution->id);
710 }
711
712 // next create the transaction record
713 $paymentProcessor = $paymentProcessorId = '';
714 if (isset($objects['paymentProcessor'])) {
715 if (is_array($objects['paymentProcessor'])) {
716 $paymentProcessor = $objects['paymentProcessor']['payment_processor_type'];
717 $paymentProcessorId = $objects['paymentProcessor']['id'];
718 }
719 else {
720 $paymentProcessor = $objects['paymentProcessor']->payment_processor_type;
721 $paymentProcessorId = $objects['paymentProcessor']->id;
722 }
723 }
724 //it's hard to see how it could reach this point without a contributon id as it is saved in line 511 above
725 // which raised the question as to whether this check preceded line 511 & if so whether something could be broken
726 // From a lot of code reading /debugging I'm still not sure the intent WRT first & subsequent payments in this code
727 // it would be good if someone added some comments or refactored this
728 if ($contribution->id) {
729 $contributionStatuses = CRM_Core_PseudoConstant::get('CRM_Contribute_DAO_Contribution', 'contribution_status_id', array(
730 'labelColumn' => 'name',
731 'flip' => 1,
732 ));
733 if ((empty($input['prevContribution']) && $paymentProcessorId) || (!$input['prevContribution']->is_pay_later && $input['prevContribution']->contribution_status_id == $contributionStatuses['Pending'])) {
734 $input['payment_processor'] = $paymentProcessorId;
735 }
736 $input['contribution_status_id'] = $contributionStatuses['Completed'];
737 $input['total_amount'] = $input['amount'];
738 $input['contribution'] = $contribution;
739 $input['financial_type_id'] = $contribution->financial_type_id;
740
741 if (!empty($contribution->_relatedObjects['participant'])) {
742 $input['contribution_mode'] = 'participant';
743 $input['participant_id'] = $contribution->_relatedObjects['participant']->id;
744 $input['skipLineItem'] = 1;
745 }
746 elseif (!empty($contribution->_relatedObjects['membership'])) {
747 $input['skipLineItem'] = TRUE;
748 $input['contribution_mode'] = 'membership';
749 }
750 //@todo writing a unit test I was unable to create a scenario where this line did not fatal on second
751 // and subsequent payments. In this case the line items are created at $this->addRecurLineItems
752 // and since the contribution is saved prior to this line there is always a contribution-id,
753 // however there is never a prevContribution (which appears to mean original contribution not previous
754 // contribution - or preUpdateContributionObject most accurately)
755 // so, this is always called & only appears to succeed when prevContribution exists - which appears
756 // to mean "are we updating an exisitng pending contribution"
757 //I was able to make the unit test complete as fataling here doesn't prevent
758 // the contribution being created - but activities would not be created or emails sent
759
760 CRM_Contribute_BAO_Contribution::recordFinancialAccounts($input, NULL);
761 }
762
763 self::updateRecurLinkedPledge($contribution);
764
765 // create an activity record
766 if ($input['component'] == 'contribute') {
767 //CRM-4027
768 $targetContactID = NULL;
769 if (!empty($ids['related_contact'])) {
770 $targetContactID = $contribution->contact_id;
771 $contribution->contact_id = $ids['related_contact'];
772 }
773 CRM_Activity_BAO_Activity::addActivity($contribution, NULL, $targetContactID);
774 // event
775 }
776 else {
777 CRM_Activity_BAO_Activity::addActivity($participant);
778 }
779
780 CRM_Core_Error::debug_log_message("Contribution record updated successfully");
781 $transaction->commit();
782
783 // CRM-9132 legacy behaviour was that receipts were sent out in all instances. Still sending
784 // when array_key 'is_email_receipt doesn't exist in case some instances where is needs setting haven't been set
785 if (!array_key_exists('is_email_receipt', $values) ||
786 $values['is_email_receipt'] == 1
787 ) {
788 self::sendMail($input, $ids, $objects, $values, $recur, FALSE);
789 CRM_Core_Error::debug_log_message("Receipt sent");
790 }
791
792 CRM_Core_Error::debug_log_message("Success: Database updated");
793 if ($this->_isRecurring) {
794 $this->sendRecurringStartOrEndNotification($ids, $recur);
795 }
796 }
797
798 /**
799 * Get site billing ID.
800 *
801 * @param array $ids
802 *
803 * @return bool
804 */
805 public function getBillingID(&$ids) {
806 // get the billing location type
807 $locationTypes = CRM_Core_PseudoConstant::get('CRM_Core_DAO_Address', 'location_type_id', array(), 'validate');
808 // CRM-8108 remove the ts around the Billing location type
809 //$ids['billing'] = array_search( ts('Billing'), $locationTypes );
810 $ids['billing'] = array_search('Billing', $locationTypes);
811 if (!$ids['billing']) {
812 CRM_Core_Error::debug_log_message(ts('Please set a location type of %1', array(1 => 'Billing')));
813 echo "Failure: Could not find billing location type<p>";
814 return FALSE;
815 }
816 return TRUE;
817 }
818
819 /**
820 * Send receipt from contribution.
821 *
822 * Note that the compose message part has been moved to contribution
823 * In general LoadObjects is called first to get the objects but the composeMessageArray function now calls it
824 *
825 * @param array $input
826 * Incoming data from Payment processor.
827 * @param array $ids
828 * Related object IDs.
829 * @param $objects
830 * @param array $values
831 * Values related to objects that have already been loaded.
832 * @param bool $recur
833 * Is it part of a recurring contribution.
834 * @param bool $returnMessageText
835 * Should text be returned instead of sent. This.
836 * is because the function is also used to generate pdfs
837 *
838 * @return array
839 */
840 public function sendMail(&$input, &$ids, &$objects, &$values, $recur = FALSE, $returnMessageText = FALSE) {
841 $contribution = &$objects['contribution'];
842 $input['is_recur'] = $recur;
843 // set receipt from e-mail and name in value
844 if (!$returnMessageText) {
845 $session = CRM_Core_Session::singleton();
846 $userID = $session->get('userID');
847 if (!empty($userID)) {
848 list($userName, $userEmail) = CRM_Contact_BAO_Contact_Location::getEmailDetails($userID);
849 $values['receipt_from_email'] = CRM_Utils_Array::value('receipt_from_email', $input, $userEmail);
850 $values['receipt_from_name'] = CRM_Utils_Array::value('receipt_from_name', $input, $userName);
851 }
852 }
853 return $contribution->composeMessageArray($input, $ids, $values, $recur, $returnMessageText);
854 }
855
856 /**
857 * Send start or end notification for recurring payments.
858 *
859 * @param array $ids
860 * @param $recur
861 */
862 public function sendRecurringStartOrEndNotification($ids, $recur) {
863 if ($this->_isFirstOrLastRecurringPayment) {
864 $autoRenewMembership = FALSE;
865 if ($recur->id &&
866 isset($ids['membership']) && $ids['membership']
867 ) {
868 $autoRenewMembership = TRUE;
869 }
870
871 //send recurring Notification email for user
872 CRM_Contribute_BAO_ContributionPage::recurringNotify($this->_isFirstOrLastRecurringPayment,
873 $ids['contact'],
874 $ids['contributionPage'],
875 $recur,
876 $autoRenewMembership
877 );
878 }
879 }
880
881 /**
882 * Update contribution status.
883 *
884 * @deprecated
885 * This is only called from one place in the code &
886 * it is unclear whether it is a function on the way in or on the way out
887 *
888 * @param array $params
889 *
890 * @return void|NULL|int
891 */
892 public function updateContributionStatus(&$params) {
893 // get minimum required values.
894 $statusId = CRM_Utils_Array::value('contribution_status_id', $params);
895 $componentId = CRM_Utils_Array::value('component_id', $params);
896 $componentName = CRM_Utils_Array::value('componentName', $params);
897 $contributionId = CRM_Utils_Array::value('contribution_id', $params);
898
899 if (!$contributionId || !$componentId || !$componentName || !$statusId) {
900 return NULL;
901 }
902
903 $input = $ids = $objects = array();
904
905 //get the required ids.
906 $ids['contribution'] = $contributionId;
907
908 if (!$ids['contact'] = CRM_Utils_Array::value('contact_id', $params)) {
909 $ids['contact'] = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution',
910 $contributionId,
911 'contact_id'
912 );
913 }
914
915 if ($componentName == 'Event') {
916 $name = 'event';
917 $ids['participant'] = $componentId;
918
919 if (!$ids['event'] = CRM_Utils_Array::value('event_id', $params)) {
920 $ids['event'] = CRM_Core_DAO::getFieldValue('CRM_Event_DAO_Participant',
921 $componentId,
922 'event_id'
923 );
924 }
925 }
926
927 if ($componentName == 'Membership') {
928 $name = 'contribute';
929 $ids['membership'] = $componentId;
930 }
931 $ids['contributionPage'] = NULL;
932 $ids['contributionRecur'] = NULL;
933 $input['component'] = $name;
934
935 $baseIPN = new CRM_Core_Payment_BaseIPN();
936 $transaction = new CRM_Core_Transaction();
937
938 // reset template values.
939 $template = CRM_Core_Smarty::singleton();
940 $template->clearTemplateVars();
941
942 if (!$baseIPN->validateData($input, $ids, $objects, FALSE)) {
943 CRM_Core_Error::fatal();
944 }
945
946 $contribution = &$objects['contribution'];
947
948 $contributionStatuses = CRM_Core_PseudoConstant::get('CRM_Contribute_DAO_Contribution', 'contribution_status_id', array(
949 'labelColumn' => 'name',
950 'flip' => 1,
951 ));
952 $input['skipComponentSync'] = CRM_Utils_Array::value('skipComponentSync', $params);
953 if ($statusId == $contributionStatuses['Cancelled']) {
954 $baseIPN->cancelled($objects, $transaction, $input);
955 $transaction->commit();
956 return $statusId;
957 }
958 elseif ($statusId == $contributionStatuses['Failed']) {
959 $baseIPN->failed($objects, $transaction, $input);
960 $transaction->commit();
961 return $statusId;
962 }
963
964 // status is not pending
965 if ($contribution->contribution_status_id != $contributionStatuses['Pending']) {
966 $transaction->commit();
967 return;
968 }
969
970 //set values for ipn code.
971 foreach (array(
972 'fee_amount',
973 'check_number',
974 'payment_instrument_id',
975 ) as $field) {
976 if (!$input[$field] = CRM_Utils_Array::value($field, $params)) {
977 $input[$field] = $contribution->$field;
978 }
979 }
980 if (!$input['trxn_id'] = CRM_Utils_Array::value('trxn_id', $params)) {
981 $input['trxn_id'] = $contribution->invoice_id;
982 }
983 if (!$input['amount'] = CRM_Utils_Array::value('total_amount', $params)) {
984 $input['amount'] = $contribution->total_amount;
985 }
986 $input['is_test'] = $contribution->is_test;
987 $input['net_amount'] = $contribution->net_amount;
988 if (!empty($input['fee_amount']) && !empty($input['amount'])) {
989 $input['net_amount'] = $input['amount'] - $input['fee_amount'];
990 }
991
992 //complete the contribution.
993 $baseIPN->completeTransaction($input, $ids, $objects, $transaction, FALSE);
994
995 // reset template values before processing next transactions
996 $template->clearTemplateVars();
997
998 return $statusId;
999 }
1000
1001 /**
1002 * Update pledge associated with a recurring contribution.
1003 *
1004 * If the contribution has a pledge_payment record pledge, then update the pledge_payment record & pledge based on that linkage.
1005 *
1006 * If a previous contribution in the recurring contribution sequence is linked with a pledge then we assume this contribution
1007 * should be linked with the same pledge also. Currently only back-office users can apply a recurring payment to a pledge &
1008 * it should be assumed they
1009 * do so with the intention that all payments will be linked
1010 *
1011 * The pledge payment record should already exist & will need to be updated with the new contribution ID.
1012 * If not the contribution will also need to be linked to the pledge
1013 *
1014 * @param CRM_Contribute_BAO_Contribution $contribution
1015 */
1016 public function updateRecurLinkedPledge(&$contribution) {
1017 $returnProperties = array('id', 'pledge_id');
1018 $paymentDetails = $paymentIDs = array();
1019
1020 if (CRM_Core_DAO::commonRetrieveAll('CRM_Pledge_DAO_PledgePayment', 'contribution_id', $contribution->id,
1021 $paymentDetails, $returnProperties
1022 )
1023 ) {
1024 foreach ($paymentDetails as $key => $value) {
1025 $paymentIDs[] = $value['id'];
1026 $pledgeId = $value['pledge_id'];
1027 }
1028 }
1029 else {
1030 //payment is not already linked - if it is linked with a pledge we need to create a link.
1031 // return if it is not recurring contribution
1032 if (!$contribution->contribution_recur_id) {
1033 return;
1034 }
1035
1036 $relatedContributions = new CRM_Contribute_DAO_Contribution();
1037 $relatedContributions->contribution_recur_id = $contribution->contribution_recur_id;
1038 $relatedContributions->find();
1039
1040 while ($relatedContributions->fetch()) {
1041 CRM_Core_DAO::commonRetrieveAll('CRM_Pledge_DAO_PledgePayment', 'contribution_id', $relatedContributions->id,
1042 $paymentDetails, $returnProperties
1043 );
1044 }
1045
1046 if (empty($paymentDetails)) {
1047 // payment is not linked with a pledge and neither are any other contributions on this
1048 return;
1049 }
1050
1051 foreach ($paymentDetails as $key => $value) {
1052 $pledgeId = $value['pledge_id'];
1053 }
1054
1055 // we have a pledge now we need to get the oldest unpaid payment
1056 $paymentDetails = CRM_Pledge_BAO_PledgePayment::getOldestPledgePayment($pledgeId);
1057 if (empty($paymentDetails['id'])) {
1058 // we can assume this pledge is now completed
1059 // return now so we don't create a core error & roll back
1060 return;
1061 }
1062 $paymentDetails['contribution_id'] = $contribution->id;
1063 $paymentDetails['status_id'] = $contribution->contribution_status_id;
1064 $paymentDetails['actual_amount'] = $contribution->total_amount;
1065
1066 // put contribution against it
1067 $payment = CRM_Pledge_BAO_PledgePayment::add($paymentDetails);
1068 $paymentIDs[] = $payment->id;
1069 }
1070
1071 // update pledge and corresponding payment statuses
1072 CRM_Pledge_BAO_PledgePayment::updatePledgePaymentStatus($pledgeId, $paymentIDs, $contribution->contribution_status_id,
1073 NULL, $contribution->total_amount
1074 );
1075 }
1076
1077 /**
1078 * Add line items for recurring contribution.
1079 *
1080 * @param int $recurId
1081 * @param $contribution
1082 *
1083 * @return array
1084 */
1085 public function addRecurLineItems($recurId, $contribution) {
1086 $lineSets = array();
1087
1088 $originalContributionID = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id');
1089 $lineItems = CRM_Price_BAO_LineItem::getLineItemsByContributionID($originalContributionID);
1090 if (count($lineItems) == 1) {
1091 foreach ($lineItems as $index => $lineItem) {
1092 if ($lineItem['line_total'] != $contribution->total_amount) {
1093 // We are dealing with a changed amount! Per CRM-16397 we can work out what to do with these
1094 // if there is only one line item, and the UI should prevent this situation for those with more than one.
1095 $lineItems[$index]['line_total'] = $contribution->total_amount;
1096 $lineItems[$index]['unit_price'] = round($contribution->total_amount / $lineItems[$index]['qty'], 2);
1097 }
1098 }
1099 }
1100 if (!empty($lineItems)) {
1101 foreach ($lineItems as $key => $value) {
1102 $priceField = new CRM_Price_DAO_PriceField();
1103 $priceField->id = $value['price_field_id'];
1104 $priceField->find(TRUE);
1105 $lineSets[$priceField->price_set_id][] = $value;
1106
1107 if ($value['entity_table'] == 'civicrm_membership') {
1108 try {
1109 civicrm_api3('membership_payment', 'create', array(
1110 'membership_id' => $value['entity_id'],
1111 'contribution_id' => $contribution->id,
1112 ));
1113 }
1114 catch (CiviCRM_API3_Exception $e) {
1115 // we are catching & ignoring errors as an extra precaution since lost IPNs may be more serious that lost membership_payment data
1116 // this fn is unit-tested so risk of changes elsewhere breaking it are otherwise mitigated
1117 }
1118 }
1119 }
1120 }
1121 else {
1122 CRM_Price_BAO_LineItem::processPriceSet($contribution->id, $lineSets, $contribution);
1123 }
1124 return $lineSets;
1125 }
1126
1127 /**
1128 * Copy custom data of the initial contribution into its recurring contributions.
1129 *
1130 * @param int $recurId
1131 * @param int $targetContributionId
1132 */
1133 public function copyCustomValues($recurId, $targetContributionId) {
1134 if ($recurId && $targetContributionId) {
1135 // get the initial contribution id of recur id
1136 $sourceContributionId = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id');
1137
1138 // if the same contribution is being proccessed then return
1139 if ($sourceContributionId == $targetContributionId) {
1140 return;
1141 }
1142 // check if proper recurring contribution record is being processed
1143 $targetConRecurId = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $targetContributionId, 'contribution_recur_id');
1144 if ($targetConRecurId != $recurId) {
1145 return;
1146 }
1147
1148 // copy custom data
1149 $extends = array('Contribution');
1150 $groupTree = CRM_Core_BAO_CustomGroup::getGroupDetail(NULL, NULL, $extends);
1151 if ($groupTree) {
1152 foreach ($groupTree as $groupID => $group) {
1153 $table[$groupTree[$groupID]['table_name']] = array('entity_id');
1154 foreach ($group['fields'] as $fieldID => $field) {
1155 $table[$groupTree[$groupID]['table_name']][] = $groupTree[$groupID]['fields'][$fieldID]['column_name'];
1156 }
1157 }
1158
1159 foreach ($table as $tableName => $tableColumns) {
1160 $insert = 'INSERT INTO ' . $tableName . ' (' . implode(', ', $tableColumns) . ') ';
1161 $tableColumns[0] = $targetContributionId;
1162 $select = 'SELECT ' . implode(', ', $tableColumns);
1163 $from = ' FROM ' . $tableName;
1164 $where = " WHERE {$tableName}.entity_id = {$sourceContributionId}";
1165 $query = $insert . $select . $from . $where;
1166 $dao = CRM_Core_DAO::executeQuery($query, CRM_Core_DAO::$_nullArray);
1167 }
1168 }
1169 }
1170 }
1171
1172 /**
1173 * Add soft credit to for recurring payment.
1174 *
1175 * copy soft credit record of first recurring contribution.
1176 * and add new soft credit against $targetContributionId
1177 *
1178 * @param int $recurId
1179 * @param int $targetContributionId
1180 */
1181 public function addrecurSoftCredit($recurId, $targetContributionId) {
1182 $soft_contribution = new CRM_Contribute_DAO_ContributionSoft();
1183 $soft_contribution->contribution_id = CRM_Core_DAO::getFieldValue('CRM_Contribute_DAO_Contribution', $recurId, 'id', 'contribution_recur_id');
1184
1185 // Check if first recurring contribution has any associated soft credit.
1186 if ($soft_contribution->find(TRUE)) {
1187 $soft_contribution->contribution_id = $targetContributionId;
1188 unset($soft_contribution->id);
1189 $soft_contribution->save();
1190 }
1191 }
1192
1193 }