3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.6 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
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-2014
37 * This class generates form components generic to all the contact types.
39 * It delegates the work to lower level subclasses and integrates the changes
40 * back in. It also uses a lot of functionality with the CRM API's, so any change
41 * made here could potentially affect the API etc. Be careful, be aware, use unit tests.
44 class CRM_Contact_Form_Contact
extends CRM_Core_Form
{
47 * The contact type of the form
54 * The contact type of the form
58 public $_contactSubType;
61 * The contact id, used when editing the form
68 * The default group id passed in via the url
75 * The default tag id passed in via the url
82 * Name of de-dupe button
86 protected $_dedupeButtonName;
89 * Name of optional save duplicate button
93 protected $_duplicateButtonName;
95 protected $_editOptions = array();
97 protected $_oldSubtypes = array();
101 public $_values = array();
105 public $_customValueCount;
107 * The array of greetings with option group and filed names
114 * Do we want to parse street address.
116 public $_parseStreetAddress;
119 * Check contact has a subtype or not
121 public $_isContactSubType;
124 * Lets keep a cache of all the values that we retrieved.
125 * THis is an attempt to avoid the number of update statements
126 * during the write phase
128 public $_preEditValues;
131 * Build all the data structures needed to build the form
135 public function preProcess() {
136 $this->_action
= CRM_Utils_Request
::retrieve('action', 'String', $this, FALSE, 'add');
138 $this->_dedupeButtonName
= $this->getButtonName('refresh', 'dedupe');
139 $this->_duplicateButtonName
= $this->getButtonName('upload', 'duplicate');
141 $session = CRM_Core_Session
::singleton();
142 if ($this->_action
== CRM_Core_Action
::ADD
) {
143 // check for add contacts permissions
144 if (!CRM_Core_Permission
::check('add contacts')) {
145 CRM_Utils_System
::permissionDenied();
146 CRM_Utils_System
::civiExit();
148 $this->_contactType
= CRM_Utils_Request
::retrieve('ct', 'String',
149 $this, TRUE, NULL, 'REQUEST'
151 if (!in_array($this->_contactType
,
152 array('Individual', 'Household', 'Organization')
154 CRM_Core_Error
::statusBounce(ts('Could not get a contact id and/or contact type'));
157 $this->_isContactSubType
= FALSE;
158 if ($this->_contactSubType
= CRM_Utils_Request
::retrieve('cst', 'String', $this)) {
159 $this->_isContactSubType
= TRUE;
163 $this->_contactSubType
&&
164 !(CRM_Contact_BAO_ContactType
::isExtendsContactType($this->_contactSubType
, $this->_contactType
, TRUE))) {
165 CRM_Core_Error
::statusBounce(ts("Could not get a valid contact subtype for contact type '%1'", array(1 => $this->_contactType
)));
168 $this->_gid
= CRM_Utils_Request
::retrieve('gid', 'Integer',
169 CRM_Core_DAO
::$_nullObject,
172 $this->_tid
= CRM_Utils_Request
::retrieve('tid', 'Integer',
173 CRM_Core_DAO
::$_nullObject,
176 $typeLabel = CRM_Contact_BAO_ContactType
::contactTypePairs(TRUE, $this->_contactSubType ?
177 $this->_contactSubType
: $this->_contactType
179 $typeLabel = implode(' / ', $typeLabel);
181 CRM_Utils_System
::setTitle(ts('New %1', array(1 => $typeLabel)));
182 $session->pushUserContext(CRM_Utils_System
::url('civicrm/dashboard', 'reset=1'));
183 $this->_contactId
= NULL;
187 if (!$this->_contactId
) {
188 $this->_contactId
= CRM_Utils_Request
::retrieve('cid', 'Positive', $this, TRUE);
191 if ($this->_contactId
) {
193 $params = array('id' => $this->_contactId
);
194 $returnProperities = array('id', 'contact_type', 'contact_sub_type', 'modified_date');
195 CRM_Core_DAO
::commonRetrieve('CRM_Contact_DAO_Contact', $params, $defaults, $returnProperities);
197 if (empty($defaults['id'])) {
198 CRM_Core_Error
::statusBounce(ts('A Contact with that ID does not exist: %1', array(1 => $this->_contactId
)));
201 $this->_contactType
= CRM_Utils_Array
::value('contact_type', $defaults);
202 $this->_contactSubType
= CRM_Utils_Array
::value('contact_sub_type', $defaults);
204 // check for permissions
205 $session = CRM_Core_Session
::singleton();
206 if (!CRM_Contact_BAO_Contact_Permission
::allow($this->_contactId
, CRM_Core_Permission
::EDIT
)) {
207 CRM_Core_Error
::statusBounce(ts('You do not have the necessary permission to edit this contact.'));
210 $displayName = CRM_Contact_BAO_Contact
::displayName($this->_contactId
);
211 $displayName = ts('Edit %1', array(1 => $displayName));
213 // Check if this is default domain contact CRM-10482
214 if (CRM_Contact_BAO_Contact
::checkDomainContact($this->_contactId
)) {
215 $displayName .= ' (' . ts('default organization') . ')';
218 // omitting contactImage from title for now since the summary overlay css doesn't work outside of our crm-container
219 CRM_Utils_System
::setTitle($displayName);
220 $context = CRM_Utils_Request
::retrieve('context', 'String', $this);
221 $qfKey = CRM_Utils_Request
::retrieve('key', 'String', $this);
223 $urlParams = 'reset=1&cid=' . $this->_contactId
;
225 $urlParams .= "&context=$context";
228 if (CRM_Utils_Rule
::qfKey($qfKey)) {
230 $urlParams .= "&key=$qfKey";
233 $session->pushUserContext(CRM_Utils_System
::url('civicrm/contact/view', $urlParams));
235 $values = $this->get('values');
236 // get contact values.
237 if (!empty($values)) {
238 $this->_values
= $values;
242 'id' => $this->_contactId
,
243 'contact_id' => $this->_contactId
,
244 'noRelationships' => TRUE,
249 $contact = CRM_Contact_BAO_Contact
::retrieve($params, $this->_values
, TRUE);
250 $this->set('values', $this->_values
);
254 CRM_Core_Error
::statusBounce(ts('Could not get a contact_id and/or contact_type'));
258 // parse street address, CRM-5450
259 $this->_parseStreetAddress
= $this->get('parseStreetAddress');
260 if (!isset($this->_parseStreetAddress
)) {
261 $addressOptions = CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
264 $this->_parseStreetAddress
= FALSE;
265 if (!empty($addressOptions['street_address']) && !empty($addressOptions['street_address_parsing'])) {
266 $this->_parseStreetAddress
= TRUE;
268 $this->set('parseStreetAddress', $this->_parseStreetAddress
);
270 $this->assign('parseStreetAddress', $this->_parseStreetAddress
);
272 $this->_editOptions
= $this->get('contactEditOptions');
273 if (CRM_Utils_System
::isNull($this->_editOptions
)) {
274 $this->_editOptions
= CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
275 'contact_edit_options', TRUE, NULL,
276 FALSE, 'name', TRUE, 'AND v.filter = 0'
278 $this->set('contactEditOptions', $this->_editOptions
);
281 // build demographics only for Individual contact type
282 if ($this->_contactType
!= 'Individual' &&
283 array_key_exists('Demographics', $this->_editOptions
)
285 unset($this->_editOptions
['Demographics']);
288 // in update mode don't show notes
289 if ($this->_contactId
&& array_key_exists('Notes', $this->_editOptions
)) {
290 unset($this->_editOptions
['Notes']);
293 $this->assign('editOptions', $this->_editOptions
);
294 $this->assign('contactType', $this->_contactType
);
295 $this->assign('contactSubType', $this->_contactSubType
);
297 //build contact subtype form element, CRM-6864
298 $buildContactSubType = TRUE;
299 if ($this->_contactSubType
&& ($this->_action
& CRM_Core_Action
::ADD
)) {
300 $buildContactSubType = FALSE;
302 $this->assign('buildContactSubType', $buildContactSubType);
304 // get the location blocks.
305 $this->_blocks
= $this->get('blocks');
306 if (CRM_Utils_System
::isNull($this->_blocks
)) {
307 $this->_blocks
= CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
308 'contact_edit_options', TRUE, NULL,
309 FALSE, 'name', TRUE, 'AND v.filter = 1'
311 $this->set('blocks', $this->_blocks
);
313 $this->assign('blocks', $this->_blocks
);
315 // this is needed for custom data.
316 $this->assign('entityID', $this->_contactId
);
318 // also keep the convention.
319 $this->assign('contactId', $this->_contactId
);
322 CRM_Contact_Form_Location
::preProcess($this);
324 // retain the multiple count custom fields value
325 if (!empty($_POST['hidden_custom'])) {
326 $customGroupCount = CRM_Utils_Array
::value('hidden_custom_group_count', $_POST);
328 if ($contactSubType = CRM_Utils_Array
::value('contact_sub_type', $_POST)) {
329 $paramSubType = implode(',', $contactSubType);
332 $this->_getCachedTree
= FALSE;
333 unset($customGroupCount[0]);
334 foreach ($customGroupCount as $groupID => $groupCount) {
335 if ($groupCount > 1) {
336 $this->set('groupID', $groupID);
338 for ($i = 0; $i <= $groupCount; $i++
) {
339 CRM_Custom_Form_CustomData
::preProcess($this, NULL, $contactSubType,
340 $i, $this->_contactType
342 CRM_Contact_Form_Edit_CustomData
::buildQuickForm($this);
347 //reset all the ajax stuff, for normal processing
348 if (isset($this->_groupTree
)) {
349 $this->_groupTree
= NULL;
351 $this->set('groupID', NULL);
352 $this->_getCachedTree
= TRUE;
355 // execute preProcess dynamically by js else execute normal preProcess
356 if (array_key_exists('CustomData', $this->_editOptions
)) {
357 //assign a parameter to pass for sub type multivalue
358 //custom field to load
359 if ($this->_contactSubType ||
isset($paramSubType)) {
360 $paramSubType = (isset($paramSubType)) ?
$paramSubType :
361 str_replace(CRM_Core_DAO
::VALUE_SEPARATOR
, ',', trim($this->_contactSubType
, CRM_Core_DAO
::VALUE_SEPARATOR
));
363 $this->assign('paramSubType', $paramSubType);
366 if (CRM_Utils_Request
::retrieve('type', 'String', CRM_Core_DAO
::$_nullObject)) {
367 CRM_Contact_Form_Edit_CustomData
::preProcess($this);
370 $contactSubType = $this->_contactSubType
;
371 // need contact sub type to build related grouptree array during post process
372 if (!empty($_POST['contact_sub_type'])) {
373 $contactSubType = $_POST['contact_sub_type'];
375 //only custom data has preprocess hence directly call it
376 CRM_Custom_Form_CustomData
::preProcess($this, NULL, $contactSubType,
377 1, $this->_contactType
, $this->_contactId
379 $this->assign('customValueCount', $this->_customValueCount
);
385 * Set default values for the form. Note that in edit/view mode
386 * the default values are retrieved from the database
391 public function setDefaultValues() {
392 $defaults = $this->_values
;
395 if ($this->_action
& CRM_Core_Action
::ADD
) {
396 if (array_key_exists('TagsAndGroups', $this->_editOptions
)) {
397 // set group and tag defaults if any
399 $defaults['group'][] = $this->_gid
;
402 $defaults['tag'][$this->_tid
] = 1;
405 if ($this->_contactSubType
) {
406 $defaults['contact_sub_type'] = $this->_contactSubType
;
410 foreach ($defaults['email'] as $dontCare => & $val) {
411 if (isset($val['signature_text'])) {
412 $val['signature_text_hidden'] = $val['signature_text'];
414 if (isset($val['signature_html'])) {
415 $val['signature_html_hidden'] = $val['signature_html'];
419 if (!empty($defaults['contact_sub_type'])) {
420 $defaults['contact_sub_type'] = $this->_oldSubtypes
;
423 // set defaults for blocks ( custom data, address, communication preference, notes, tags and groups )
424 foreach ($this->_editOptions
as $name => $label) {
425 if (!in_array($name, array('Address', 'Notes'))) {
426 $className = 'CRM_Contact_Form_Edit_' . $name;
427 $className::setDefaultValues($this, $defaults);
431 //set address block defaults
432 CRM_Contact_Form_Edit_Address
::setDefaultValues($defaults, $this);
435 if (!empty($defaults['image_URL'])) {
436 list($imageWidth, $imageHeight) = getimagesize(CRM_Utils_String
::unstupifyUrl($defaults['image_URL']));
437 list($imageThumbWidth, $imageThumbHeight) = CRM_Contact_BAO_Contact
::getThumbSize($imageWidth, $imageHeight);
438 $this->assign('imageWidth', $imageWidth);
439 $this->assign('imageHeight', $imageHeight);
440 $this->assign('imageThumbWidth', $imageThumbWidth);
441 $this->assign('imageThumbHeight', $imageThumbHeight);
442 $this->assign('imageURL', $defaults['image_URL']);
445 //set location type and country to default for each block
446 $this->blockSetDefaults($defaults);
448 $this->_preEditValues
= $defaults;
453 * Do the set default related to location type id,
454 * primary location, default country
457 public function blockSetDefaults(&$defaults) {
458 $locationTypeKeys = array_filter(array_keys(CRM_Core_PseudoConstant
::get('CRM_Core_DAO_Address', 'location_type_id')), 'is_int');
459 sort($locationTypeKeys);
461 // get the default location type
462 $locationType = CRM_Core_BAO_LocationType
::getDefault();
464 // unset primary location type
465 $primaryLocationTypeIdKey = CRM_Utils_Array
::key($locationType->id
, $locationTypeKeys);
466 unset($locationTypeKeys[$primaryLocationTypeIdKey]);
468 // reset the array sequence
469 $locationTypeKeys = array_values($locationTypeKeys);
471 // get default phone and im provider id.
472 $defPhoneTypeId = key(CRM_Core_OptionGroup
::values('phone_type', FALSE, FALSE, FALSE, ' AND is_default = 1'));
473 $defIMProviderId = key(CRM_Core_OptionGroup
::values('instant_messenger_service',
474 FALSE, FALSE, FALSE, ' AND is_default = 1'
476 $defWebsiteTypeId = key(CRM_Core_OptionGroup
::values('website_type',
477 FALSE, FALSE, FALSE, ' AND is_default = 1'
480 $allBlocks = $this->_blocks
;
481 if (array_key_exists('Address', $this->_editOptions
)) {
482 $allBlocks['Address'] = $this->_editOptions
['Address'];
485 $config = CRM_Core_Config
::singleton();
486 foreach ($allBlocks as $blockName => $label) {
487 $name = strtolower($blockName);
488 $hasPrimary = $updateMode = FALSE;
490 // user is in update mode.
491 if (array_key_exists($name, $defaults) &&
492 !CRM_Utils_System
::isNull($defaults[$name])
497 for ($instance = 1; $instance <= $this->get($blockName . '_Block_Count'); $instance++
) {
498 // make we require one primary block, CRM-5505
502 CRM_Utils_Array
::value(
504 CRM_Utils_Array
::value($instance, $defaults[$name])
510 //set location to primary for first one.
511 if ($instance == 1) {
513 $defaults[$name][$instance]['is_primary'] = TRUE;
514 $defaults[$name][$instance]['location_type_id'] = $locationType->id
;
517 $locTypeId = isset($locationTypeKeys[$instance - 1]) ?
$locationTypeKeys[$instance - 1] : $locationType->id
;
518 $defaults[$name][$instance]['location_type_id'] = $locTypeId;
521 //set default country
522 if ($name == 'address' && $config->defaultContactCountry
) {
523 $defaults[$name][$instance]['country_id'] = $config->defaultContactCountry
;
526 //set default state/province
527 if ($name == 'address' && $config->defaultContactStateProvince
) {
528 $defaults[$name][$instance]['state_province_id'] = $config->defaultContactStateProvince
;
531 //set default phone type.
532 if ($name == 'phone' && $defPhoneTypeId) {
533 $defaults[$name][$instance]['phone_type_id'] = $defPhoneTypeId;
535 //set default website type.
536 if ($name == 'website' && $defWebsiteTypeId) {
537 $defaults[$name][$instance]['website_type_id'] = $defWebsiteTypeId;
540 //set default im provider.
541 if ($name == 'im' && $defIMProviderId) {
542 $defaults[$name][$instance]['provider_id'] = $defIMProviderId;
547 $defaults[$name][1]['is_primary'] = TRUE;
553 * This function is used to add the rules (mainly global rules) for form.
554 * All local rules are added near the element
559 public function addRules() {
560 // skip adding formRules when custom data is build
561 if ($this->_addBlockName ||
($this->_action
& CRM_Core_Action
::DELETE
)) {
565 $this->addFormRule(array('CRM_Contact_Form_Edit_' . $this->_contactType
, 'formRule'), $this->_contactId
);
567 // Call Locking check if editing existing contact
568 if ($this->_contactId
) {
569 $this->addFormRule(array('CRM_Contact_Form_Edit_Lock', 'formRule'), $this->_contactId
);
572 if (array_key_exists('Address', $this->_editOptions
)) {
573 $this->addFormRule(array('CRM_Contact_Form_Edit_Address', 'formRule'), $this);
576 if (array_key_exists('CommunicationPreferences', $this->_editOptions
)) {
577 $this->addFormRule(array('CRM_Contact_Form_Edit_CommunicationPreferences', 'formRule'), $this);
582 * Global validation rules for the form
584 * @param array $fields
585 * Posted values of the form.
586 * @param array $errors
587 * List of errors to be posted back to the form.
588 * @param int $contactId
589 * Contact id if doing update.
591 * @return bool $primaryID email/openId@static
593 public static function formRule($fields, &$errors, $contactId = NULL) {
594 $config = CRM_Core_Config
::singleton();
597 //1. for each block only single value can be marked as is_primary = true.
598 //2. location type id should be present if block data present.
599 //3. check open id across db and other each block for duplicate.
600 //4. at least one location should be primary.
601 //5. also get primaryID from email or open id block.
603 // take the location blocks.
604 $blocks = CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
605 'contact_edit_options', TRUE, NULL,
606 FALSE, 'name', TRUE, 'AND v.filter = 1'
609 $otherEditOptions = CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
610 'contact_edit_options', TRUE, NULL,
611 FALSE, 'name', TRUE, 'AND v.filter = 0'
613 //get address block inside.
614 if (array_key_exists('Address', $otherEditOptions)) {
615 $blocks['Address'] = $otherEditOptions['Address'];
620 foreach ($blocks as $name => $label) {
621 $hasData = $hasPrimary = array();
622 $name = strtolower($name);
623 if (!empty($fields[$name]) && is_array($fields[$name])) {
624 foreach ($fields[$name] as $instance => $blockValues) {
625 $dataExists = self
::blockDataExists($blockValues);
627 if (!$dataExists && $name == 'address') {
628 $dataExists = CRM_Utils_Array
::value('use_shared_address', $fields['address'][$instance]);
632 // skip remaining checks for website
633 if ($name == 'website') {
637 $hasData[] = $instance;
638 if (!empty($blockValues['is_primary'])) {
639 $hasPrimary[] = $instance;
641 in_array($name, array(
642 'email', 'openid')) && !empty($blockValues[$name])) {
643 $primaryID = $blockValues[$name];
647 if (empty($blockValues['location_type_id'])) {
648 $errors["{$name}[$instance][location_type_id]"] = ts('The Location Type should be set if there is %1 information.', array(1 => $label));
652 if ($name == 'openid' && !empty($blockValues[$name])) {
653 $oid = new CRM_Core_DAO_OpenID();
654 $oid->openid
= $openIds[$instance] = CRM_Utils_Array
::value($name, $blockValues);
655 $cid = isset($contactId) ?
$contactId : 0;
656 if ($oid->find(TRUE) && ($oid->contact_id
!= $cid)) {
657 $errors["{$name}[$instance][openid]"] = ts('%1 already exist.', array(1 => $blocks['OpenID']));
662 if (empty($hasPrimary) && !empty($hasData)) {
663 $errors["{$name}[1][is_primary]"] = ts('One %1 should be marked as primary.', array(1 => $label));
666 if (count($hasPrimary) > 1) {
667 $errors["{$name}[" . array_pop($hasPrimary) . "][is_primary]"] = ts('Only one %1 can be marked as primary.',
674 //do validations for all opend ids they should be distinct.
675 if (!empty($openIds) && (count(array_unique($openIds)) != count($openIds))) {
676 foreach ($openIds as $instance => $value) {
677 if (!array_key_exists($instance, array_unique($openIds))) {
678 $errors["openid[$instance][openid]"] = ts('%1 already used.', array(1 => $blocks['OpenID']));
683 // street number should be digit + suffix, CRM-5450
684 $parseStreetAddress = CRM_Utils_Array
::value('street_address_parsing',
685 CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
689 if ($parseStreetAddress) {
690 if (isset($fields['address']) &&
691 is_array($fields['address'])
693 $invalidStreetNumbers = array();
694 foreach ($fields['address'] as $cnt => $address) {
695 if ($streetNumber = CRM_Utils_Array
::value('street_number', $address)) {
696 $parsedAddress = CRM_Core_BAO_Address
::parseStreetAddress($address['street_number']);
697 if (empty($parsedAddress['street_number'])) {
698 $invalidStreetNumbers[] = $cnt;
703 if (!empty($invalidStreetNumbers)) {
704 $first = $invalidStreetNumbers[0];
705 foreach ($invalidStreetNumbers as & $num) $num = CRM_Contact_Form_Contact
::ordinalNumber($num);
706 $errors["address[$first][street_number]"] = ts('The street number you entered for the %1 address block(s) is not in an expected format. Street numbers may include numeric digit(s) followed by other characters. You can still enter the complete street address (unparsed) by clicking "Edit Complete Street Address".', array(1 => implode(', ', $invalidStreetNumbers)));
715 * Build the form object
719 public function buildQuickForm() {
720 //load form for child blocks
721 if ($this->_addBlockName
) {
722 $className = 'CRM_Contact_Form_Edit_' . $this->_addBlockName
;
723 return $className::buildQuickForm($this);
726 if ($this->_action
== CRM_Core_Action
::UPDATE
) {
727 $deleteExtra = ts('Are you sure you want to delete contact image.');
729 CRM_Core_Action
::DELETE
=>
731 'name' => ts('Delete Contact Image'),
732 'url' => 'civicrm/contact/image',
733 'qs' => 'reset=1&cid=%%id%%&action=delete',
735 'onclick = "if (confirm( \'' . $deleteExtra . '\' ) ) this.href+=\'&confirmed=1\'; else return false;"',
738 $deleteURL = CRM_Core_Action
::formLink($deleteURL,
739 CRM_Core_Action
::DELETE
,
741 'id' => $this->_contactId
,
745 'contact.image.delete',
749 $this->assign('deleteURL', $deleteURL);
752 //build contact type specific fields
753 $className = 'CRM_Contact_Form_Edit_' . $this->_contactType
;
754 $className::buildQuickForm($this);
756 // build Custom data if Custom data present in edit option
757 $buildCustomData = 'noCustomDataPresent';
758 if (array_key_exists('CustomData', $this->_editOptions
)) {
759 $buildCustomData = "customDataPresent";
762 // subtype is a common field. lets keep it here
763 $subtypes = CRM_Contact_BAO_Contact
::buildOptions('contact_sub_type', 'create', array('contact_type' => $this->_contactType
));
764 if (!empty($subtypes)) {
765 $sel = $this->add('select', 'contact_sub_type', ts('Contact Type'),
768 'id' => 'contact_sub_type',
769 'multiple' => 'multiple',
770 'class' => $buildCustomData . ' crm-select2',
775 // build edit blocks ( custom data, demographics, communication preference, notes, tags and groups )
776 foreach ($this->_editOptions
as $name => $label) {
777 if ($name == 'Address') {
778 $this->_blocks
['Address'] = $this->_editOptions
['Address'];
781 if ($name == 'TagsAndGroups') {
784 $className = 'CRM_Contact_Form_Edit_' . $name;
785 $className::buildQuickForm($this);
788 // build tags and groups
789 CRM_Contact_Form_Edit_TagsAndGroups
::buildQuickForm($this, 0, CRM_Contact_Form_Edit_TagsAndGroups
::ALL
,
790 FALSE, NULL, 'Group(s)', 'Tag(s)', NULL, 'select');
792 // build location blocks.
793 CRM_Contact_Form_Edit_Lock
::buildQuickForm($this);
794 CRM_Contact_Form_Location
::buildQuickForm($this);
797 $this->addElement('file', 'image_URL', ts('Browse/Upload Image'), 'size=30 maxlength=60');
798 $this->addUploadElement('image_URL');
800 // add the dedupe button
801 $this->addElement('submit',
802 $this->_dedupeButtonName
,
803 ts('Check for Matching Contact(s)')
805 $this->addElement('submit',
806 $this->_duplicateButtonName
,
807 ts('Save Matching Contact')
809 $this->addElement('submit',
810 $this->getButtonName('next', 'sharedHouseholdDuplicate'),
811 ts('Save With Duplicate Household')
817 'name' => ts('Save'),
822 if (CRM_Core_Permission
::check('add contacts')) {
825 'name' => ts('Save and New'),
826 'spacing' => ' ',
832 'name' => ts('Cancel'),
835 if (!empty($this->_values
['contact_sub_type'])) {
836 $this->_oldSubtypes
= explode(CRM_Core_DAO
::VALUE_SEPARATOR
,
837 trim($this->_values
['contact_sub_type'], CRM_Core_DAO
::VALUE_SEPARATOR
)
840 $this->assign('oldSubtypes', json_encode($this->_oldSubtypes
));
842 $this->addButtons($buttons);
846 * Form submission of new/edit contact is processed.
851 public function postProcess() {
852 // check if dedupe button, if so return.
853 $buttonName = $this->controller
->getButtonName();
854 if ($buttonName == $this->_dedupeButtonName
) {
858 //get the submitted values in an array
859 $params = $this->controller
->exportValues($this->_name
);
861 $group = CRM_Utils_Array
::value('group', $params);
862 if ($group && is_array($group)) {
863 unset($params['group']);
864 foreach ($group as $key => $value) {
865 $params['group'][$value] = 1;
869 CRM_Contact_BAO_Contact_Optimizer
::edit($params, $this->_preEditValues
);
871 if (!empty($params['image_URL'])) {
872 CRM_Contact_BAO_Contact
::processImageParams($params);
875 if (is_numeric(CRM_Utils_Array
::value('current_employer_id', $params)) && !empty($params['current_employer'])) {
876 $params['current_employer'] = $params['current_employer_id'];
879 // don't carry current_employer_id field,
880 // since we don't want to directly update DAO object without
881 // handling related business logic ( eg related membership )
882 if (isset($params['current_employer_id'])) {
883 unset($params['current_employer_id']);
886 $params['contact_type'] = $this->_contactType
;
887 if (empty($params['contact_sub_type']) && $this->_isContactSubType
) {
888 $params['contact_sub_type'] = array($this->_contactSubType
);
891 if ($this->_contactId
) {
892 $params['contact_id'] = $this->_contactId
;
895 //make deceased date null when is_deceased = false
896 if ($this->_contactType
== 'Individual' && !empty($this->_editOptions
['Demographics']) && empty($params['is_deceased'])) {
897 $params['is_deceased'] = FALSE;
898 $params['deceased_date'] = NULL;
901 if (isset($params['contact_id'])) {
902 // process membership status for deceased contact
903 $deceasedParams = array('contact_id' => CRM_Utils_Array
::value('contact_id', $params),
904 'is_deceased' => CRM_Utils_Array
::value('is_deceased', $params, FALSE),
905 'deceased_date' => CRM_Utils_Array
::value('deceased_date', $params, NULL),
907 $updateMembershipMsg = $this->updateMembershipStatus($deceasedParams);
910 // action is taken depending upon the mode
911 if ($this->_action
& CRM_Core_Action
::UPDATE
) {
912 CRM_Utils_Hook
::pre('edit', $params['contact_type'], $params['contact_id'], $params);
915 CRM_Utils_Hook
::pre('create', $params['contact_type'], NULL, $params);
918 $customFields = CRM_Core_BAO_CustomField
::getFields($params['contact_type'], FALSE, TRUE);
921 //if subtype is set, send subtype as extend to validate subtype customfield
922 $customFieldExtends = (CRM_Utils_Array
::value('contact_sub_type', $params)) ?
$params['contact_sub_type'] : $params['contact_type'];
924 $params['custom'] = CRM_Core_BAO_CustomField
::postProcess($params,
930 if ($this->_contactId
&& !empty($this->_oldSubtypes
)) {
931 CRM_Contact_BAO_ContactType
::deleteCustomSetForSubtypeMigration($this->_contactId
,
932 $params['contact_type'],
934 $params['contact_sub_type']
938 if (array_key_exists('CommunicationPreferences', $this->_editOptions
)) {
939 // this is a chekbox, so mark false if we dont get a POST value
940 $params['is_opt_out'] = CRM_Utils_Array
::value('is_opt_out', $params, FALSE);
943 // process shared contact address.
944 CRM_Contact_BAO_Contact_Utils
::processSharedAddress($params['address']);
946 if (!array_key_exists('TagsAndGroups', $this->_editOptions
)) {
947 unset($params['group']);
950 if (!empty($params['contact_id']) && ($this->_action
& CRM_Core_Action
::UPDATE
)) {
951 // figure out which all groups are intended to be removed
952 $contactGroupList = CRM_Contact_BAO_GroupContact
::getContactGroup($params['contact_id'], 'Added');
953 if (is_array($contactGroupList)) {
954 foreach ($contactGroupList as $key) {
955 if ((!array_key_exists($key['group_id'], $params['group']) ||
$params['group'][$key['group_id']] != 1) && empty($key['is_hidden'])) {
956 $params['group'][$key['group_id']] = -1;
962 // parse street address, CRM-5450
963 $parseStatusMsg = NULL;
964 if ($this->_parseStreetAddress
) {
965 $parseResult = self
::parseAddress($params);
966 $parseStatusMsg = self
::parseAddressStatusMsg($parseResult);
969 // Allow un-setting of location info, CRM-5969
970 $params['updateBlankLocInfo'] = TRUE;
972 $contact = CRM_Contact_BAO_Contact
::create($params, TRUE, FALSE, TRUE);
975 if ($this->_contactId
) {
976 $message = ts('%1 has been updated.', array(1 => $contact->display_name
));
979 $message = ts('%1 has been created.', array(1 => $contact->display_name
));
982 // set the contact ID
983 $this->_contactId
= $contact->id
;
985 if (array_key_exists('TagsAndGroups', $this->_editOptions
)) {
986 //add contact to tags
987 CRM_Core_BAO_EntityTag
::create($params['tag'], 'civicrm_contact', $params['contact_id']);
990 if (isset($params['contact_taglist']) && !empty($params['contact_taglist'])) {
991 CRM_Core_Form_Tag
::postProcess($params['contact_taglist'], $params['contact_id'], 'civicrm_contact', $this);
995 if (!empty($parseStatusMsg)) {
996 $message .= "<br />$parseStatusMsg";
998 if (!empty($updateMembershipMsg)) {
999 $message .= "<br />$updateMembershipMsg";
1002 $session = CRM_Core_Session
::singleton();
1003 $session->setStatus($message, ts('Contact Saved'), 'success');
1005 // add the recently viewed contact
1006 $recentOther = array();
1007 if (($session->get('userID') == $contact->id
) ||
1008 CRM_Contact_BAO_Contact_Permission
::allow($contact->id
, CRM_Core_Permission
::EDIT
)
1010 $recentOther['editUrl'] = CRM_Utils_System
::url('civicrm/contact/add', 'reset=1&action=update&cid=' . $contact->id
);
1013 if (($session->get('userID') != $this->_contactId
) && CRM_Core_Permission
::check('delete contacts')) {
1014 $recentOther['deleteUrl'] = CRM_Utils_System
::url('civicrm/contact/view/delete', 'reset=1&delete=1&cid=' . $contact->id
);
1017 CRM_Utils_Recent
::add($contact->display_name
,
1018 CRM_Utils_System
::url('civicrm/contact/view', 'reset=1&cid=' . $contact->id
),
1020 $this->_contactType
,
1022 $contact->display_name
,
1026 // here we replace the user context with the url to view this contact
1027 $buttonName = $this->controller
->getButtonName();
1028 if ($buttonName == $this->getButtonName('upload', 'new')) {
1029 $resetStr = "reset=1&ct={$contact->contact_type}";
1030 $resetStr .= $this->_contactSubType ?
"&cst={$this->_contactSubType}" : '';
1031 $session->replaceUserContext(CRM_Utils_System
::url('civicrm/contact/add', $resetStr));
1034 $context = CRM_Utils_Request
::retrieve('context', 'String', $this);
1035 $qfKey = CRM_Utils_Request
::retrieve('key', 'String', $this);
1036 //validate the qfKey
1037 $urlParams = 'reset=1&cid=' . $contact->id
;
1039 $urlParams .= "&context=$context";
1041 if (CRM_Utils_Rule
::qfKey($qfKey)) {
1042 $urlParams .= "&key=$qfKey";
1045 $session->replaceUserContext(CRM_Utils_System
::url('civicrm/contact/view', $urlParams));
1048 // now invoke the post hook
1049 if ($this->_action
& CRM_Core_Action
::UPDATE
) {
1050 CRM_Utils_Hook
::post('edit', $params['contact_type'], $contact->id
, $contact);
1053 CRM_Utils_Hook
::post('create', $params['contact_type'], $contact->id
, $contact);
1058 * Is there any real significant data in the hierarchical location array
1060 * @param array $fields
1061 * The hierarchical value representation of this location.
1063 * @return boolean true if data exists, false otherwise
1066 public static function blockDataExists(&$fields) {
1067 if (!is_array($fields)) {
1071 static $skipFields = array('location_type_id', 'is_primary', 'phone_type_id', 'provider_id', 'country_id', 'website_type_id', 'master_id');
1072 foreach ($fields as $name => $value) {
1074 foreach ($skipFields as $skip) {
1075 if (strpos("[$skip]", $name) !== FALSE) {
1076 if ($name == 'phone') {
1086 if (is_array($value)) {
1087 if (self
::blockDataExists($value)) {
1092 if (!empty($value)) {
1102 * That checks for duplicate contacts
1104 * @param array $fields
1105 * Fields array which are submitted.
1107 * @param int $contactID
1109 * @param string $contactType
1113 public static function checkDuplicateContacts(&$fields, &$errors, $contactID, $contactType) {
1114 // if this is a forced save, ignore find duplicate rule
1115 if (empty($fields['_qf_Contact_upload_duplicate'])) {
1117 $dedupeParams = CRM_Dedupe_Finder
::formatParams($fields, $contactType);
1118 $ids = CRM_Dedupe_Finder
::dupesByParams($dedupeParams, $contactType, 'Supervised', array($contactID));
1121 $contactLinks = CRM_Contact_BAO_Contact_Utils
::formatContactIDSToLinks($ids, TRUE, TRUE, $contactID);
1123 $duplicateContactsLinks = '<div class="matching-contacts-found">';
1124 $duplicateContactsLinks .= ts('One matching contact was found. ', array('count' => count($contactLinks['rows']), 'plural' => '%count matching contacts were found.<br />'));
1125 if ($contactLinks['msg'] == 'view') {
1126 $duplicateContactsLinks .= ts('You can View the existing contact', array('count' => count($contactLinks['rows']), 'plural' => 'You can View the existing contacts'));
1129 $duplicateContactsLinks .= ts('You can View or Edit the existing contact', array('count' => count($contactLinks['rows']), 'plural' => 'You can View or Edit the existing contacts'));
1131 if ($contactLinks['msg'] == 'merge') {
1132 // We should also get a merge link if this is for an existing contact
1133 $duplicateContactsLinks .= ts(', or Merge this contact with an existing contact');
1135 $duplicateContactsLinks .= '.';
1136 $duplicateContactsLinks .= '</div>';
1137 $duplicateContactsLinks .= '<table class="matching-contacts-actions">';
1139 for ($i = 0; $i < count($contactLinks['rows']); $i++
) {
1141 $row .= ' <td class="matching-contacts-name"> ';
1142 $row .= $contactLinks['rows'][$i]['display_name'];
1144 $row .= ' <td class="matching-contacts-email"> ';
1145 $row .= $contactLinks['rows'][$i]['primary_email'];
1147 $row .= ' <td class="action-items"> ';
1148 $row .= $contactLinks['rows'][$i]['view'];
1149 $row .= $contactLinks['rows'][$i]['edit'];
1150 $row .= CRM_Utils_Array
::value('merge', $contactLinks['rows'][$i]);
1155 $duplicateContactsLinks .= $row . '</table>';
1156 $duplicateContactsLinks .= ts("If you're sure this record is not a duplicate, click the 'Save Matching Contact' button below.");
1158 $errors['_qf_default'] = $duplicateContactsLinks;
1162 // let smarty know that there are duplicates
1163 $template = CRM_Core_Smarty
::singleton();
1164 $template->assign('isDuplicate', 1);
1166 elseif (!empty($fields['_qf_Contact_refresh_dedupe'])) {
1167 // add a session message for no matching contacts
1168 CRM_Core_Session
::setStatus(ts('No matching contact found.'), ts('None Found'), 'info');
1174 * Use the form name to create the tpl file name
1178 public function getTemplateFileName() {
1179 if ($this->_contactSubType
) {
1180 $templateFile = "CRM/Contact/Form/Edit/SubType/{$this->_contactSubType}.tpl";
1181 $template = CRM_Core_Form
::getTemplate();
1182 if ($template->template_exists($templateFile)) {
1183 return $templateFile;
1186 return parent
::getTemplateFileName();
1190 * Parse all address blocks present in given params
1191 * and return parse result for all address blocks,
1192 * This function either parse street address in to child
1193 * elements or build street address from child elements.
1196 * Array of key value consist of address blocks.
1198 * @return array $parseSuccess as array of sucess/fails for each address block@static
1200 public function parseAddress(&$params) {
1201 $parseSuccess = $parsedFields = array();
1202 if (!is_array($params['address']) ||
1203 CRM_Utils_System
::isNull($params['address'])
1205 return $parseSuccess;
1208 foreach ($params['address'] as $instance => & $address) {
1209 $buildStreetAddress = FALSE;
1210 $parseFieldName = 'street_address';
1212 'street_number', 'street_name', 'street_unit') as $fld) {
1213 if (!empty($address[$fld])) {
1214 $parseFieldName = 'street_number';
1215 $buildStreetAddress = TRUE;
1220 // main parse string.
1221 $parseString = CRM_Utils_Array
::value($parseFieldName, $address);
1223 // parse address field.
1224 $parsedFields = CRM_Core_BAO_Address
::parseStreetAddress($parseString);
1226 if ($buildStreetAddress) {
1227 //hack to ignore spaces between number and suffix.
1228 //here user gives input as street_number so it has to
1229 //be street_number and street_number_suffix, but
1230 //due to spaces though preg detect string as street_name
1231 //consider it as 'street_number_suffix'.
1232 $suffix = $parsedFields['street_number_suffix'];
1234 $suffix = $parsedFields['street_name'];
1236 $address['street_number_suffix'] = $suffix;
1237 $address['street_number'] = $parsedFields['street_number'];
1239 $streetAddress = NULL;
1241 'street_number', 'street_number_suffix', 'street_name', 'street_unit') as $fld) {
1242 if (in_array($fld, array(
1243 'street_name', 'street_unit'))) {
1244 $streetAddress .= ' ';
1246 $streetAddress .= CRM_Utils_Array
::value($fld, $address);
1248 $address['street_address'] = trim($streetAddress);
1249 $parseSuccess[$instance] = TRUE;
1253 // consider address is automatically parseable,
1254 // when we should found street_number and street_name
1255 if (empty($parsedFields['street_name']) ||
empty($parsedFields['street_number'])) {
1259 // check for original street address string.
1260 if (empty($parseString)) {
1264 $parseSuccess[$instance] = $success;
1266 // we do not reset element values, but keep what we've parsed
1267 // in case of partial matches: CRM-8378
1269 // merge parse address in to main address block.
1270 $address = array_merge($address, $parsedFields);
1274 return $parseSuccess;
1278 * Check parse result and if some address block fails then this
1279 * function return the status message for all address blocks.
1281 * @param $parseResult
1282 * An array of address blk instance and its status.
1284 * @return null|string $statusMsg string status message for all address blocks.@static
1286 public static function parseAddressStatusMsg($parseResult) {
1288 if (!is_array($parseResult) ||
empty($parseResult)) {
1292 $parseFails = array();
1293 foreach ($parseResult as $instance => $success) {
1295 $parseFails[] = self
::ordinalNumber($instance);
1299 if (!empty($parseFails)) {
1300 $statusMsg = ts("Complete street address(es) have been saved. However we were unable to split the address in the %1 address block(s) into address elements (street number, street name, street unit) due to an unrecognized address format. You can set the address elements manually by clicking 'Edit Address Elements' next to the Street Address field while in edit mode.",
1301 array(1 => implode(', ', $parseFails))
1309 * Convert normal number to ordinal number format.
1310 * like 1 => 1st, 2 => 2nd and so on...
1313 * Int number to convert in to ordinal number.
1315 * @return ordinal number for given number.
1318 public static function ordinalNumber($number) {
1319 if (empty($number)) {
1324 switch (floor($number / 10) %
10) {
1327 switch ($number %
10) {
1342 return "$number$str";
1346 * Update membership status to deceased
1347 * function return the status message for updated membership.
1349 * @param $deceasedParams
1350 * Array having contact id and deceased value.
1352 * @return null|string $updateMembershipMsg string status message for updated membership.
1354 public function updateMembershipStatus($deceasedParams) {
1355 $updateMembershipMsg = NULL;
1356 $contactId = CRM_Utils_Array
::value('contact_id', $deceasedParams);
1357 $deceasedDate = CRM_Utils_Array
::value('deceased_date', $deceasedParams);
1359 // process to set membership status to deceased for both active/inactive membership
1361 $this->_contactType
== 'Individual' && !empty($deceasedParams['is_deceased'])) {
1363 $session = CRM_Core_Session
::singleton();
1364 $userId = $session->get('userID');
1366 $userId = $contactId;
1370 // get deceased status id
1371 $allStatus = CRM_Member_PseudoConstant
::membershipStatus();
1372 $deceasedStatusId = array_search('Deceased', $allStatus);
1373 if (!$deceasedStatusId) {
1374 return $updateMembershipMsg;
1378 if ($deceasedDate && strtotime($deceasedDate) > $today) {
1379 return $updateMembershipMsg;
1382 // get non deceased membership
1383 $dao = new CRM_Member_DAO_Membership();
1384 $dao->contact_id
= $contactId;
1385 $dao->whereAdd("status_id != $deceasedStatusId");
1387 $activityTypes = CRM_Core_PseudoConstant
::activityType(TRUE, FALSE, FALSE, 'name');
1388 $allStatus = CRM_Member_PseudoConstant
::membershipStatus();
1390 while ($dao->fetch()) {
1391 // update status to deceased (for both active/inactive membership )
1392 CRM_Core_DAO
::setFieldValue('CRM_Member_DAO_Membership', $dao->id
,
1393 'status_id', $deceasedStatusId
1396 // add membership log
1397 $membershipLog = array(
1398 'membership_id' => $dao->id
,
1399 'status_id' => $deceasedStatusId,
1400 'start_date' => CRM_Utils_Date
::isoToMysql($dao->start_date
),
1401 'end_date' => CRM_Utils_Date
::isoToMysql($dao->end_date
),
1402 'modified_id' => $userId,
1403 'modified_date' => date('Ymd'),
1404 'membership_type_id' => $dao->membership_type_id
,
1405 'max_related' => $dao->max_related
,
1409 CRM_Member_BAO_MembershipLog
::add($membershipLog, CRM_Core_DAO
::$_nullArray);
1411 //create activity when membership status is changed
1412 $activityParam = array(
1413 'subject' => "Status changed from {$allStatus[$dao->status_id]} to {$allStatus[$deceasedStatusId]}",
1414 'source_contact_id' => $userId,
1415 'target_contact_id' => $dao->contact_id
,
1416 'source_record_id' => $dao->id
,
1417 'activity_type_id' => array_search('Change Membership Status', $activityTypes),
1421 'activity_date_time' => date('Y-m-d H:i:s'),
1423 'is_current_revision' => 1,
1426 $activityResult = civicrm_api('activity', 'create', $activityParam);
1433 $updateMembershipMsg = ts("%1 Current membership(s) for this contact have been set to 'Deceased' status.",
1434 array(1 => $memCount)
1439 return $updateMembershipMsg;