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
35 * This class generates form components for DedupeRules.
37 class CRM_Contact_Form_DedupeFind
extends CRM_Admin_Form
{
40 * Indicate if this form should warn users of unsaved changes
43 protected $unsavedChangesWarn = FALSE;
48 public function preProcess() {
49 $this->rgid
= CRM_Utils_Request
::retrieve('rgid', 'Positive', $this, FALSE, 0);
53 * Build the form object.
55 public function buildQuickForm() {
57 $groupList = ['' => ts('- All Contacts -')] + CRM_Core_PseudoConstant
::nestedGroup();
59 $this->add('select', 'group_id', ts('Select Group'), $groupList, FALSE, ['class' => 'crm-select2 huge']);
60 if (Civi
::settings()->get('dedupe_default_limit')) {
61 $this->add('text', 'limit', ts('No of contacts to find matches for '));
66 'name' => ts('Continue'),
69 //hack to support cancel button functionality
74 'name' => ts('Cancel'),
80 * Set the default values for the form.
84 public function setDefaultValues() {
85 $this->_defaults
['limit'] = Civi
::settings()->get('dedupe_default_limit');
86 return $this->_defaults
;
90 * Process the form submission.
92 public function postProcess() {
93 $values = $this->exportValues();
94 if (!empty($_POST['_qf_DedupeFind_submit'])) {
95 //used for cancel button
96 CRM_Utils_System
::redirect(CRM_Utils_System
::url('civicrm/contact/deduperules', 'reset=1'));
99 $url = CRM_Utils_System
::url('civicrm/contact/dedupefind', "reset=1&action=update&rgid={$this->rgid}");
100 if ($values['group_id']) {
101 $url .= "&gid={$values['group_id']}";
104 if (!empty($values['limit'])) {
105 $url .= '&limit=' . $values['limit'];
108 CRM_Utils_System
::redirect($url);