3 +--------------------------------------------------------------------+
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2019 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
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. |
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. |
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 +--------------------------------------------------------------------+
31 * @copyright CiviCRM LLC (c) 2004-2019
33 class CRM_Financial_Form_Payment
extends CRM_Core_Form
{
38 protected $_paymentProcessorID;
46 public $_paymentProcessor;
51 public $isBackOffice = FALSE;
56 public $_formName = '';
59 * Set variables up before form is built.
61 public function preProcess() {
64 $this->_formName
= CRM_Utils_Request
::retrieve('formName', 'String', $this);
66 $this->_values
['custom_pre_id'] = CRM_Utils_Request
::retrieve('pre_profile_id', 'Integer', $this);
68 $this->_paymentProcessorID
= CRM_Utils_Request
::retrieve('processor_id', 'Integer', CRM_Core_DAO
::$_nullObject,
70 $this->currency
= CRM_Utils_Request
::retrieve('currency', 'String', CRM_Core_DAO
::$_nullObject,
73 $this->paymentInstrumentID
= CRM_Utils_Request
::retrieve('payment_instrument_id', 'Integer');
74 $this->isBackOffice
= CRM_Utils_Request
::retrieve('is_back_office', 'Integer');
76 $this->assignBillingType();
78 $this->_paymentProcessor
= CRM_Financial_BAO_PaymentProcessor
::getPayment($this->_paymentProcessorID
);
80 CRM_Core_Payment_ProcessorForm
::preProcess($this);
82 $this->assign('suppressForm', TRUE);
83 $this->controller
->_generateQFKey
= FALSE;
89 * @param array $submittedValues
90 * Required for consistency with other form methods.
94 public function getCurrency($submittedValues = []) {
95 return $this->currency
;
101 public function buildQuickForm() {
102 CRM_Core_Payment_ProcessorForm
::buildQuickForm($this);
106 * Set default values for the form.
108 public function setDefaultValues() {
109 $contactID = $this->getContactID();
110 CRM_Core_Payment_Form
::setDefaultValues($this, $contactID);
111 return $this->_defaults
;
115 * Add JS to show icons for the accepted credit cards.
117 * @param int $paymentProcessorID
118 * @param string $region
120 public static function addCreditCardJs($paymentProcessorID = NULL, $region = 'billing-block') {
121 $creditCards = CRM_Financial_BAO_PaymentProcessor
::getCreditCards($paymentProcessorID);
122 if (empty($creditCards)) {
123 $creditCards = CRM_Contribute_PseudoConstant
::creditCard();
125 $creditCardTypes = [];
126 foreach ($creditCards as $name => $label) {
127 $creditCardTypes[$name] = [
130 'css_key' => self
::getCssLabelFriendlyName($name),
131 'pattern' => self
::getCardPattern($name),
135 CRM_Core_Resources
::singleton()
136 // CRM-20516: add BillingBlock script on billing-block region
137 // to support this feature in payment form snippet too.
138 ->addScriptFile('civicrm', 'templates/CRM/Core/BillingBlock.js', 10, $region, FALSE)
139 // workaround for CRM-13634
140 // ->addSetting(array('config' => array('creditCardTypes' => $creditCardTypes)));
141 ->addScript('CRM.config.creditCardTypes = ' . json_encode($creditCardTypes) . ';', '-9999', $region);
145 * Get css friendly labels for credit cards.
147 * We add the icons based on these css names which are lower cased
148 * and only AlphaNumeric (+ _).
154 protected static function getCssLabelFriendlyName($key) {
155 $key = str_replace(' ', '', $key);
156 $key = preg_replace('/[^a-zA-Z0-9]/', '_', $key);
157 $key = strtolower($key);
163 * Get the pattern that can be used to determine the card type.
165 * We do a strotolower comparison as we don't know what case people might have if they
166 * are using a non-std one like dinersclub.
170 * Based on http://davidwalsh.name/validate-credit-cards
171 * See also https://en.wikipedia.org/wiki/Credit_card_numbers
175 protected static function getCardPattern($key) {
177 'mastercard' => '(5[1-5][0-9]{2}|2[3-6][0-9]{2}|22[3-9][0-9]|222[1-9]|27[0-1][0-9]|2720)[0-9]{12}',
178 'visa' => '4(?:[0-9]{12}|[0-9]{15})',
179 'amex' => '3[47][0-9]{13}',
180 'dinersclub' => '3(?:0[0-5][0-9]{11}|[68][0-9]{12})',
181 'carteblanche' => '3(?:0[0-5][0-9]{11}|[68][0-9]{12})',
182 'discover' => '6011[0-9]{12}',
183 'jcb' => '(?:3[0-9]{15}|(2131|1800)[0-9]{11})',
184 'unionpay' => '62(?:[0-9]{14}|[0-9]{17})',
186 return isset($cardMappings[strtolower($key)]) ?
$cardMappings[strtolower($key)] : '';