3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.5 |
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
87 protected $_dedupeButtonName;
90 * Name of optional save duplicate button
95 protected $_duplicateButtonName;
97 protected $_editOptions = array();
99 protected $_oldSubtypes = array();
103 public $_values = array();
107 public $_customValueCount;
109 * The array of greetings with option group and filed names
116 * Do we want to parse street address.
118 public $_parseStreetAddress;
121 * Check contact has a subtype or not
123 public $_isContactSubType;
126 * Lets keep a cache of all the values that we retrieved.
127 * THis is an attempt to avoid the number of update statements
128 * during the write phase
130 public $_preEditValues;
133 * Build all the data structures needed to build the form
138 function preProcess() {
139 $this->_action
= CRM_Utils_Request
::retrieve('action', 'String', $this, FALSE, 'add');
141 $this->_dedupeButtonName
= $this->getButtonName('refresh', 'dedupe');
142 $this->_duplicateButtonName
= $this->getButtonName('upload', 'duplicate');
144 $session = CRM_Core_Session
::singleton();
145 if ($this->_action
== CRM_Core_Action
::ADD
) {
146 // check for add contacts permissions
147 if (!CRM_Core_Permission
::check('add contacts')) {
148 CRM_Utils_System
::permissionDenied();
149 CRM_Utils_System
::civiExit();
151 $this->_contactType
= CRM_Utils_Request
::retrieve('ct', 'String',
152 $this, TRUE, NULL, 'REQUEST'
154 if (!in_array($this->_contactType
,
155 array('Individual', 'Household', 'Organization')
157 CRM_Core_Error
::statusBounce(ts('Could not get a contact id and/or contact type'));
160 $this->_isContactSubType
= FALSE;
161 if ($this->_contactSubType
= CRM_Utils_Request
::retrieve('cst', 'String', $this)) {
162 $this->_isContactSubType
= TRUE;
166 $this->_contactSubType
&&
167 !(CRM_Contact_BAO_ContactType
::isExtendsContactType($this->_contactSubType
, $this->_contactType
, TRUE))) {
168 CRM_Core_Error
::statusBounce(ts("Could not get a valid contact subtype for contact type '%1'", array(1 => $this->_contactType
)));
171 $this->_gid
= CRM_Utils_Request
::retrieve('gid', 'Integer',
172 CRM_Core_DAO
::$_nullObject,
175 $this->_tid
= CRM_Utils_Request
::retrieve('tid', 'Integer',
176 CRM_Core_DAO
::$_nullObject,
179 $typeLabel = CRM_Contact_BAO_ContactType
::contactTypePairs(TRUE, $this->_contactSubType ?
180 $this->_contactSubType
: $this->_contactType
182 $typeLabel = implode(' / ', $typeLabel);
184 CRM_Utils_System
::setTitle(ts('New %1', array(1 => $typeLabel)));
185 $session->pushUserContext(CRM_Utils_System
::url('civicrm/dashboard', 'reset=1'));
186 $this->_contactId
= NULL;
190 if (!$this->_contactId
) {
191 $this->_contactId
= CRM_Utils_Request
::retrieve('cid', 'Positive', $this, TRUE);
194 if ($this->_contactId
) {
196 $params = array('id' => $this->_contactId
);
197 $returnProperities = array('id', 'contact_type', 'contact_sub_type', 'modified_date');
198 CRM_Core_DAO
::commonRetrieve('CRM_Contact_DAO_Contact', $params, $defaults, $returnProperities);
200 if (empty($defaults['id'])) {
201 CRM_Core_Error
::statusBounce(ts('A Contact with that ID does not exist: %1', array(1 => $this->_contactId
)));
204 $this->_contactType
= CRM_Utils_Array
::value('contact_type', $defaults);
205 $this->_contactSubType
= CRM_Utils_Array
::value('contact_sub_type', $defaults);
207 // check for permissions
208 $session = CRM_Core_Session
::singleton();
209 if (!CRM_Contact_BAO_Contact_Permission
::allow($this->_contactId
, CRM_Core_Permission
::EDIT
)) {
210 CRM_Core_Error
::statusBounce(ts('You do not have the necessary permission to edit this contact.'));
213 $displayName = CRM_Contact_BAO_Contact
::displayName($this->_contactId
);
214 $displayName = ts('Edit %1', array(1 => $displayName));
216 // Check if this is default domain contact CRM-10482
217 if (CRM_Contact_BAO_Contact
::checkDomainContact($this->_contactId
)) {
218 $displayName .= ' (' . ts('default organization') . ')';
221 // omitting contactImage from title for now since the summary overlay css doesn't work outside of our crm-container
222 CRM_Utils_System
::setTitle($displayName);
223 $context = CRM_Utils_Request
::retrieve('context', 'String', $this);
224 $qfKey = CRM_Utils_Request
::retrieve('key', 'String', $this);
226 $urlParams = 'reset=1&cid=' . $this->_contactId
;
228 $urlParams .= "&context=$context";
231 if (CRM_Utils_Rule
::qfKey($qfKey)) {
233 $urlParams .= "&key=$qfKey";
236 $session->pushUserContext(CRM_Utils_System
::url('civicrm/contact/view', $urlParams));
238 $values = $this->get('values');
239 // get contact values.
240 if (!empty($values)) {
241 $this->_values
= $values;
245 'id' => $this->_contactId
,
246 'contact_id' => $this->_contactId
,
247 'noRelationships' => TRUE,
252 $contact = CRM_Contact_BAO_Contact
::retrieve($params, $this->_values
, TRUE);
253 $this->set('values', $this->_values
);
257 CRM_Core_Error
::statusBounce(ts('Could not get a contact_id and/or contact_type'));
261 // parse street address, CRM-5450
262 $this->_parseStreetAddress
= $this->get('parseStreetAddress');
263 if (!isset($this->_parseStreetAddress
)) {
264 $addressOptions = CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
267 $this->_parseStreetAddress
= FALSE;
268 if (!empty($addressOptions['street_address']) && !empty($addressOptions['street_address_parsing'])) {
269 $this->_parseStreetAddress
= TRUE;
271 $this->set('parseStreetAddress', $this->_parseStreetAddress
);
273 $this->assign('parseStreetAddress', $this->_parseStreetAddress
);
275 $this->_editOptions
= $this->get('contactEditOptions');
276 if (CRM_Utils_System
::isNull($this->_editOptions
)) {
277 $this->_editOptions
= CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
278 'contact_edit_options', TRUE, NULL,
279 FALSE, 'name', TRUE, 'AND v.filter = 0'
281 $this->set('contactEditOptions', $this->_editOptions
);
284 // build demographics only for Individual contact type
285 if ($this->_contactType
!= 'Individual' &&
286 array_key_exists('Demographics', $this->_editOptions
)
288 unset($this->_editOptions
['Demographics']);
291 // in update mode don't show notes
292 if ($this->_contactId
&& array_key_exists('Notes', $this->_editOptions
)) {
293 unset($this->_editOptions
['Notes']);
296 $this->assign('editOptions', $this->_editOptions
);
297 $this->assign('contactType', $this->_contactType
);
298 $this->assign('contactSubType', $this->_contactSubType
);
300 //build contact subtype form element, CRM-6864
301 $buildContactSubType = TRUE;
302 if ($this->_contactSubType
&& ($this->_action
& CRM_Core_Action
::ADD
)) {
303 $buildContactSubType = FALSE;
305 $this->assign('buildContactSubType', $buildContactSubType);
307 // get the location blocks.
308 $this->_blocks
= $this->get('blocks');
309 if (CRM_Utils_System
::isNull($this->_blocks
)) {
310 $this->_blocks
= CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
311 'contact_edit_options', TRUE, NULL,
312 FALSE, 'name', TRUE, 'AND v.filter = 1'
314 $this->set('blocks', $this->_blocks
);
316 $this->assign('blocks', $this->_blocks
);
318 // this is needed for custom data.
319 $this->assign('entityID', $this->_contactId
);
321 // also keep the convention.
322 $this->assign('contactId', $this->_contactId
);
325 CRM_Contact_Form_Location
::preProcess($this);
327 // retain the multiple count custom fields value
328 if (!empty($_POST['hidden_custom'])) {
329 $customGroupCount = CRM_Utils_Array
::value('hidden_custom_group_count', $_POST);
331 if ($contactSubType = CRM_Utils_Array
::value( 'contact_sub_type', $_POST)) {
332 $paramSubType = implode(',', $contactSubType);
335 $this->_getCachedTree
= FALSE;
336 unset($customGroupCount[0]);
337 foreach ($customGroupCount as $groupID => $groupCount) {
338 if ($groupCount > 1) {
339 $this->set('groupID', $groupID);
341 for ($i = 0; $i <= $groupCount; $i++
) {
342 CRM_Custom_Form_CustomData
::preProcess($this, NULL, $contactSubType,
343 $i, $this->_contactType
345 CRM_Contact_Form_Edit_CustomData
::buildQuickForm($this);
350 //reset all the ajax stuff, for normal processing
351 if (isset($this->_groupTree
)) {
352 $this->_groupTree
= NULL;
354 $this->set('groupID', NULL);
355 $this->_getCachedTree
= TRUE;
358 // execute preProcess dynamically by js else execute normal preProcess
359 if (array_key_exists('CustomData', $this->_editOptions
)) {
360 //assign a parameter to pass for sub type multivalue
361 //custom field to load
362 if ($this->_contactSubType ||
isset($paramSubType)) {
363 $paramSubType = (isset($paramSubType)) ?
$paramSubType :
364 str_replace( CRM_Core_DAO
::VALUE_SEPARATOR
, ',', trim($this->_contactSubType
, CRM_Core_DAO
::VALUE_SEPARATOR
));
366 $this->assign('paramSubType', $paramSubType);
369 if (CRM_Utils_Request
::retrieve('type', 'String', CRM_Core_DAO
::$_nullObject)) {
370 CRM_Contact_Form_Edit_CustomData
::preProcess($this);
373 $contactSubType = $this->_contactSubType
;
374 // need contact sub type to build related grouptree array during post process
375 if (!empty($_POST['contact_sub_type'])) {
376 $contactSubType = $_POST['contact_sub_type'];
378 //only custom data has preprocess hence directly call it
379 CRM_Custom_Form_CustomData
::preProcess($this, NULL, $contactSubType,
380 1, $this->_contactType
, $this->_contactId
382 $this->assign('customValueCount', $this->_customValueCount
);
388 * Set default values for the form. Note that in edit/view mode
389 * the default values are retrieved from the database
395 function setDefaultValues() {
396 $defaults = $this->_values
;
399 if ($this->_action
& CRM_Core_Action
::ADD
) {
400 if (array_key_exists('TagsAndGroups', $this->_editOptions
)) {
401 // set group and tag defaults if any
403 $defaults['group'][] = $this->_gid
;
406 $defaults['tag'][$this->_tid
] = 1;
409 if ($this->_contactSubType
) {
410 $defaults['contact_sub_type'] = $this->_contactSubType
;
414 foreach ($defaults['email'] as $dontCare => & $val) {
415 if (isset($val['signature_text'])) {
416 $val['signature_text_hidden'] = $val['signature_text'];
418 if (isset($val['signature_html'])) {
419 $val['signature_html_hidden'] = $val['signature_html'];
423 if (!empty($defaults['contact_sub_type'])) {
424 $defaults['contact_sub_type'] = $this->_oldSubtypes
;
427 // set defaults for blocks ( custom data, address, communication preference, notes, tags and groups )
428 foreach ($this->_editOptions
as $name => $label) {
429 if (!in_array($name, array('Address', 'Notes'))) {
430 $className = 'CRM_Contact_Form_Edit_' . $name;
431 $className::setDefaultValues($this, $defaults);
435 //set address block defaults
436 CRM_Contact_Form_Edit_Address
::setDefaultValues( $defaults, $this );
439 if (!empty($defaults['image_URL'])) {
440 list($imageWidth, $imageHeight) = getimagesize(CRM_Utils_String
::unstupifyUrl($defaults['image_URL']));
441 list($imageThumbWidth, $imageThumbHeight) = CRM_Contact_BAO_Contact
::getThumbSize($imageWidth, $imageHeight);
442 $this->assign('imageWidth', $imageWidth);
443 $this->assign('imageHeight', $imageHeight);
444 $this->assign('imageThumbWidth', $imageThumbWidth);
445 $this->assign('imageThumbHeight', $imageThumbHeight);
446 $this->assign('imageURL', $defaults['image_URL']);
449 //set location type and country to default for each block
450 $this->blockSetDefaults($defaults);
452 $this->_preEditValues
= $defaults;
457 * Do the set default related to location type id,
458 * primary location, default country
461 function blockSetDefaults(&$defaults) {
462 $locationTypeKeys = array_filter(array_keys(CRM_Core_PseudoConstant
::get('CRM_Core_DAO_Address', 'location_type_id')), 'is_int');
463 sort($locationTypeKeys);
465 // get the default location type
466 $locationType = CRM_Core_BAO_LocationType
::getDefault();
468 // unset primary location type
469 $primaryLocationTypeIdKey = CRM_Utils_Array
::key($locationType->id
, $locationTypeKeys);
470 unset($locationTypeKeys[$primaryLocationTypeIdKey]);
472 // reset the array sequence
473 $locationTypeKeys = array_values($locationTypeKeys);
475 // get default phone and im provider id.
476 $defPhoneTypeId = key(CRM_Core_OptionGroup
::values('phone_type', FALSE, FALSE, FALSE, ' AND is_default = 1'));
477 $defIMProviderId = key(CRM_Core_OptionGroup
::values('instant_messenger_service',
478 FALSE, FALSE, FALSE, ' AND is_default = 1'
480 $defWebsiteTypeId = key(CRM_Core_OptionGroup
::values('website_type',
481 FALSE, FALSE, FALSE, ' AND is_default = 1'
484 $allBlocks = $this->_blocks
;
485 if (array_key_exists('Address', $this->_editOptions
)) {
486 $allBlocks['Address'] = $this->_editOptions
['Address'];
489 $config = CRM_Core_Config
::singleton();
490 foreach ($allBlocks as $blockName => $label) {
491 $name = strtolower($blockName);
492 $hasPrimary = $updateMode = FALSE;
494 // user is in update mode.
495 if (array_key_exists($name, $defaults) &&
496 !CRM_Utils_System
::isNull($defaults[$name])
501 for ($instance = 1; $instance <= $this->get($blockName . '_Block_Count'); $instance++
) {
502 // make we require one primary block, CRM-5505
506 CRM_Utils_Array
::value(
508 CRM_Utils_Array
::value($instance, $defaults[$name])
514 //set location to primary for first one.
515 if ($instance == 1) {
517 $defaults[$name][$instance]['is_primary'] = TRUE;
518 $defaults[$name][$instance]['location_type_id'] = $locationType->id
;
521 $locTypeId = isset($locationTypeKeys[$instance - 1]) ?
$locationTypeKeys[$instance - 1] : $locationType->id
;
522 $defaults[$name][$instance]['location_type_id'] = $locTypeId;
525 //set default country
526 if ($name == 'address' && $config->defaultContactCountry
) {
527 $defaults[$name][$instance]['country_id'] = $config->defaultContactCountry
;
530 //set default state/province
531 if ($name == 'address' && $config->defaultContactStateProvince
) {
532 $defaults[$name][$instance]['state_province_id'] = $config->defaultContactStateProvince
;
535 //set default phone type.
536 if ($name == 'phone' && $defPhoneTypeId) {
537 $defaults[$name][$instance]['phone_type_id'] = $defPhoneTypeId;
539 //set default website type.
540 if ($name == 'website' && $defWebsiteTypeId) {
541 $defaults[$name][$instance]['website_type_id'] = $defWebsiteTypeId;
544 //set default im provider.
545 if ($name == 'im' && $defIMProviderId) {
546 $defaults[$name][$instance]['provider_id'] = $defIMProviderId;
551 $defaults[$name][1]['is_primary'] = TRUE;
557 * This function is used to add the rules (mainly global rules) for form.
558 * All local rules are added near the element
564 function addRules() {
565 // skip adding formRules when custom data is build
566 if ($this->_addBlockName ||
($this->_action
& CRM_Core_Action
::DELETE
)) {
570 $this->addFormRule(array('CRM_Contact_Form_Edit_' . $this->_contactType
, 'formRule'), $this->_contactId
);
572 // Call Locking check if editing existing contact
573 if ($this->_contactId
) {
574 $this->addFormRule(array('CRM_Contact_Form_Edit_Lock', 'formRule'), $this->_contactId
);
577 if (array_key_exists('Address', $this->_editOptions
)) {
578 $this->addFormRule(array('CRM_Contact_Form_Edit_Address', 'formRule'), $this);
581 if (array_key_exists('CommunicationPreferences', $this->_editOptions
)) {
582 $this->addFormRule(array('CRM_Contact_Form_Edit_CommunicationPreferences', 'formRule'), $this);
587 * Global validation rules for the form
589 * @param array $fields posted values of the form
590 * @param array $errors list of errors to be posted back to the form
591 * @param int $contactId contact id if doing update.
593 * @return bool $primaryID email/openId@static
596 static function formRule($fields, &$errors, $contactId = NULL) {
597 $config = CRM_Core_Config
::singleton();
600 //1. for each block only single value can be marked as is_primary = true.
601 //2. location type id should be present if block data present.
602 //3. check open id across db and other each block for duplicate.
603 //4. at least one location should be primary.
604 //5. also get primaryID from email or open id block.
606 // take the location blocks.
607 $blocks = CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
608 'contact_edit_options', TRUE, NULL,
609 FALSE, 'name', TRUE, 'AND v.filter = 1'
612 $otherEditOptions = CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
613 'contact_edit_options', TRUE, NULL,
614 FALSE, 'name', TRUE, 'AND v.filter = 0'
616 //get address block inside.
617 if (array_key_exists('Address', $otherEditOptions)) {
618 $blocks['Address'] = $otherEditOptions['Address'];
623 foreach ($blocks as $name => $label) {
624 $hasData = $hasPrimary = array();
625 $name = strtolower($name);
626 if (!empty($fields[$name]) && is_array($fields[$name])) {
627 foreach ($fields[$name] as $instance => $blockValues) {
628 $dataExists = self
::blockDataExists($blockValues);
630 if (!$dataExists && $name == 'address') {
631 $dataExists = CRM_Utils_Array
::value('use_shared_address', $fields['address'][$instance]);
635 // skip remaining checks for website
636 if ($name == 'website') {
640 $hasData[] = $instance;
641 if (!empty($blockValues['is_primary'])) {
642 $hasPrimary[] = $instance;
644 in_array($name, array(
645 'email', 'openid')) && !empty($blockValues[$name])) {
646 $primaryID = $blockValues[$name];
650 if (empty($blockValues['location_type_id'])) {
651 $errors["{$name}[$instance][location_type_id]"] = ts('The Location Type should be set if there is %1 information.', array(1 => $label));
655 if ($name == 'openid' && !empty($blockValues[$name])) {
656 $oid = new CRM_Core_DAO_OpenID();
657 $oid->openid
= $openIds[$instance] = CRM_Utils_Array
::value($name, $blockValues);
658 $cid = isset($contactId) ?
$contactId : 0;
659 if ($oid->find(TRUE) && ($oid->contact_id
!= $cid)) {
660 $errors["{$name}[$instance][openid]"] = ts('%1 already exist.', array(1 => $blocks['OpenID']));
665 if (empty($hasPrimary) && !empty($hasData)) {
666 $errors["{$name}[1][is_primary]"] = ts('One %1 should be marked as primary.', array(1 => $label));
669 if (count($hasPrimary) > 1) {
670 $errors["{$name}[" . array_pop($hasPrimary) . "][is_primary]"] = ts('Only one %1 can be marked as primary.',
677 //do validations for all opend ids they should be distinct.
678 if (!empty($openIds) && (count(array_unique($openIds)) != count($openIds))) {
679 foreach ($openIds as $instance => $value) {
680 if (!array_key_exists($instance, array_unique($openIds))) {
681 $errors["openid[$instance][openid]"] = ts('%1 already used.', array(1 => $blocks['OpenID']));
686 // street number should be digit + suffix, CRM-5450
687 $parseStreetAddress = CRM_Utils_Array
::value('street_address_parsing',
688 CRM_Core_BAO_Setting
::valueOptions(CRM_Core_BAO_Setting
::SYSTEM_PREFERENCES_NAME
,
692 if ($parseStreetAddress) {
693 if (isset($fields['address']) &&
694 is_array($fields['address'])
696 $invalidStreetNumbers = array();
697 foreach ($fields['address'] as $cnt => $address) {
698 if ($streetNumber = CRM_Utils_Array
::value('street_number', $address)) {
699 $parsedAddress = CRM_Core_BAO_Address
::parseStreetAddress($address['street_number']);
700 if (empty($parsedAddress['street_number'])) {
701 $invalidStreetNumbers[] = $cnt;
706 if (!empty($invalidStreetNumbers)) {
707 $first = $invalidStreetNumbers[0];
708 foreach ($invalidStreetNumbers as & $num) $num = CRM_Contact_Form_Contact
::ordinalNumber($num);
709 $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)));
718 * Build the form object
723 public function buildQuickForm() {
724 //load form for child blocks
725 if ($this->_addBlockName
) {
726 $className = 'CRM_Contact_Form_Edit_' . $this->_addBlockName
;
727 return $className::buildQuickForm($this);
730 if ($this->_action
== CRM_Core_Action
::UPDATE
) {
731 $deleteExtra = ts('Are you sure you want to delete contact image.');
733 CRM_Core_Action
::DELETE
=>
735 'name' => ts('Delete Contact Image'),
736 'url' => 'civicrm/contact/image',
737 'qs' => 'reset=1&cid=%%id%%&action=delete',
739 'onclick = "if (confirm( \'' . $deleteExtra . '\' ) ) this.href+=\'&confirmed=1\'; else return false;"',
742 $deleteURL = CRM_Core_Action
::formLink($deleteURL,
743 CRM_Core_Action
::DELETE
,
745 'id' => $this->_contactId
,
749 'contact.image.delete',
753 $this->assign('deleteURL', $deleteURL);
756 //build contact type specific fields
757 $className = 'CRM_Contact_Form_Edit_' . $this->_contactType
;
758 $className::buildQuickForm($this);
760 // build Custom data if Custom data present in edit option
761 $buildCustomData = 'noCustomDataPresent';
762 if (array_key_exists('CustomData', $this->_editOptions
)) {
763 $buildCustomData = "customDataPresent";
766 // subtype is a common field. lets keep it here
767 $subtypes = CRM_Contact_BAO_Contact
::buildOptions('contact_sub_type', 'create', array('contact_type' => $this->_contactType
));
768 if (!empty($subtypes)) {
769 $sel = $this->add('select', 'contact_sub_type', ts('Contact Type'),
772 'id' => 'contact_sub_type',
773 'multiple' => 'multiple',
774 'class' => $buildCustomData . ' crm-select2',
779 // build edit blocks ( custom data, demographics, communication preference, notes, tags and groups )
780 foreach ($this->_editOptions
as $name => $label) {
781 if ($name == 'Address') {
782 $this->_blocks
['Address'] = $this->_editOptions
['Address'];
785 if ($name == 'TagsAndGroups') {
788 $className = 'CRM_Contact_Form_Edit_' . $name;
789 $className::buildQuickForm($this);
792 // build tags and groups
793 CRM_Contact_Form_Edit_TagsAndGroups
::buildQuickForm($this, 0, CRM_Contact_Form_Edit_TagsAndGroups
::ALL
,
794 FALSE, NULL, 'Group(s)', 'Tag(s)', NULL, 'select');
796 // build location blocks.
797 CRM_Contact_Form_Edit_Lock
::buildQuickForm($this);
798 CRM_Contact_Form_Location
::buildQuickForm($this);
801 $this->addElement('file', 'image_URL', ts('Browse/Upload Image'), 'size=30 maxlength=60');
802 $this->addUploadElement('image_URL');
804 // add the dedupe button
805 $this->addElement('submit',
806 $this->_dedupeButtonName
,
807 ts('Check for Matching Contact(s)')
809 $this->addElement('submit',
810 $this->_duplicateButtonName
,
811 ts('Save Matching Contact')
813 $this->addElement('submit',
814 $this->getButtonName('next', 'sharedHouseholdDuplicate'),
815 ts('Save With Duplicate Household')
821 'name' => ts('Save'),
826 if (CRM_Core_Permission
::check('add contacts')) {
829 'name' => ts('Save and New'),
830 'spacing' => ' ',
836 'name' => ts('Cancel'),
839 if (!empty($this->_values
['contact_sub_type'])) {
840 $this->_oldSubtypes
= explode(CRM_Core_DAO
::VALUE_SEPARATOR
,
841 trim($this->_values
['contact_sub_type'], CRM_Core_DAO
::VALUE_SEPARATOR
)
844 $this->assign('oldSubtypes', json_encode($this->_oldSubtypes
));
846 $this->addButtons($buttons);
850 * Form submission of new/edit contact is processed.
856 public function postProcess() {
857 // check if dedupe button, if so return.
858 $buttonName = $this->controller
->getButtonName();
859 if ($buttonName == $this->_dedupeButtonName
) {
863 //get the submitted values in an array
864 $params = $this->controller
->exportValues($this->_name
);
866 $group = CRM_Utils_Array
::value('group', $params);
867 if ($group && is_array($group)) {
868 unset($params['group']);
869 foreach ($group as $key => $value) {
870 $params['group'][$value] = 1;
874 CRM_Contact_BAO_Contact_Optimizer
::edit( $params, $this->_preEditValues
);
876 if (!empty($params['image_URL'])) {
877 CRM_Contact_BAO_Contact
::processImageParams($params);
880 if (is_numeric(CRM_Utils_Array
::value('current_employer_id', $params)) && !empty($params['current_employer'])) {
881 $params['current_employer'] = $params['current_employer_id'];
884 // don't carry current_employer_id field,
885 // since we don't want to directly update DAO object without
886 // handling related business logic ( eg related membership )
887 if (isset($params['current_employer_id'])) {
888 unset($params['current_employer_id']);
891 $params['contact_type'] = $this->_contactType
;
892 if (empty($params['contact_sub_type']) && $this->_isContactSubType
) {
893 $params['contact_sub_type'] = array($this->_contactSubType
);
896 if ($this->_contactId
) {
897 $params['contact_id'] = $this->_contactId
;
900 //make deceased date null when is_deceased = false
901 if ($this->_contactType
== 'Individual' && !empty($this->_editOptions
['Demographics']) && empty($params['is_deceased'])) {
902 $params['is_deceased'] = FALSE;
903 $params['deceased_date'] = NULL;
906 if (isset($params['contact_id'])) {
907 // process membership status for deceased contact
908 $deceasedParams = array('contact_id' => CRM_Utils_Array
::value('contact_id', $params),
909 'is_deceased' => CRM_Utils_Array
::value('is_deceased', $params, FALSE),
910 'deceased_date' => CRM_Utils_Array
::value('deceased_date', $params, NULL),
912 $updateMembershipMsg = $this->updateMembershipStatus($deceasedParams);
915 // action is taken depending upon the mode
916 if ($this->_action
& CRM_Core_Action
::UPDATE
) {
917 CRM_Utils_Hook
::pre('edit', $params['contact_type'], $params['contact_id'], $params);
920 CRM_Utils_Hook
::pre('create', $params['contact_type'], NULL, $params);
923 $customFields = CRM_Core_BAO_CustomField
::getFields($params['contact_type'], FALSE, TRUE);
926 //if subtype is set, send subtype as extend to validate subtype customfield
927 $customFieldExtends = (CRM_Utils_Array
::value('contact_sub_type', $params)) ?
$params['contact_sub_type'] : $params['contact_type'];
929 $params['custom'] = CRM_Core_BAO_CustomField
::postProcess($params,
935 if ($this->_contactId
&& !empty($this->_oldSubtypes
)) {
936 CRM_Contact_BAO_ContactType
::deleteCustomSetForSubtypeMigration($this->_contactId
,
937 $params['contact_type'],
939 $params['contact_sub_type']
943 if (array_key_exists('CommunicationPreferences', $this->_editOptions
)) {
944 // this is a chekbox, so mark false if we dont get a POST value
945 $params['is_opt_out'] = CRM_Utils_Array
::value('is_opt_out', $params, FALSE);
948 // process shared contact address.
949 CRM_Contact_BAO_Contact_Utils
::processSharedAddress($params['address']);
951 if (!array_key_exists('TagsAndGroups', $this->_editOptions
)) {
952 unset($params['group']);
955 if (!empty($params['contact_id']) && ($this->_action
& CRM_Core_Action
::UPDATE
)) {
956 // figure out which all groups are intended to be removed
957 $contactGroupList = CRM_Contact_BAO_GroupContact
::getContactGroup($params['contact_id'], 'Added');
958 if (is_array($contactGroupList)) {
959 foreach ($contactGroupList as $key) {
960 if ((!array_key_exists($key['group_id'], $params['group']) ||
$params['group'][$key['group_id']] != 1) && empty($key['is_hidden'])) {
961 $params['group'][$key['group_id']] = -1;
967 // parse street address, CRM-5450
968 $parseStatusMsg = NULL;
969 if ($this->_parseStreetAddress
) {
970 $parseResult = self
::parseAddress($params);
971 $parseStatusMsg = self
::parseAddressStatusMsg($parseResult);
974 // Allow un-setting of location info, CRM-5969
975 $params['updateBlankLocInfo'] = TRUE;
977 $contact = CRM_Contact_BAO_Contact
::create($params, TRUE, FALSE, TRUE);
980 if ($this->_contactId
) {
981 $message = ts('%1 has been updated.', array(1 => $contact->display_name
));
984 $message = ts('%1 has been created.', array(1 => $contact->display_name
));
987 // set the contact ID
988 $this->_contactId
= $contact->id
;
990 if (array_key_exists('TagsAndGroups', $this->_editOptions
)) {
991 //add contact to tags
992 CRM_Core_BAO_EntityTag
::create($params['tag'], 'civicrm_contact', $params['contact_id']);
995 if (isset($params['contact_taglist']) && !empty($params['contact_taglist'])) {
996 CRM_Core_Form_Tag
::postProcess($params['contact_taglist'], $params['contact_id'], 'civicrm_contact', $this);
1000 if (!empty($parseStatusMsg)) {
1001 $message .= "<br />$parseStatusMsg";
1003 if (!empty($updateMembershipMsg)) {
1004 $message .= "<br />$updateMembershipMsg";
1007 $session = CRM_Core_Session
::singleton();
1008 $session->setStatus($message, ts('Contact Saved'), 'success');
1010 // add the recently viewed contact
1011 $recentOther = array();
1012 if (($session->get('userID') == $contact->id
) ||
1013 CRM_Contact_BAO_Contact_Permission
::allow($contact->id
, CRM_Core_Permission
::EDIT
)
1015 $recentOther['editUrl'] = CRM_Utils_System
::url('civicrm/contact/add', 'reset=1&action=update&cid=' . $contact->id
);
1018 if (($session->get('userID') != $this->_contactId
) && CRM_Core_Permission
::check('delete contacts')) {
1019 $recentOther['deleteUrl'] = CRM_Utils_System
::url('civicrm/contact/view/delete', 'reset=1&delete=1&cid=' . $contact->id
);
1022 CRM_Utils_Recent
::add($contact->display_name
,
1023 CRM_Utils_System
::url('civicrm/contact/view', 'reset=1&cid=' . $contact->id
),
1025 $this->_contactType
,
1027 $contact->display_name
,
1031 // here we replace the user context with the url to view this contact
1032 $buttonName = $this->controller
->getButtonName();
1033 if ($buttonName == $this->getButtonName('upload', 'new')) {
1034 $resetStr = "reset=1&ct={$contact->contact_type}";
1035 $resetStr .= $this->_contactSubType ?
"&cst={$this->_contactSubType}" : '';
1036 $session->replaceUserContext(CRM_Utils_System
::url('civicrm/contact/add', $resetStr));
1039 $context = CRM_Utils_Request
::retrieve('context', 'String', $this);
1040 $qfKey = CRM_Utils_Request
::retrieve('key', 'String', $this);
1041 //validate the qfKey
1042 $urlParams = 'reset=1&cid=' . $contact->id
;
1044 $urlParams .= "&context=$context";
1046 if (CRM_Utils_Rule
::qfKey($qfKey)) {
1047 $urlParams .= "&key=$qfKey";
1050 $session->replaceUserContext(CRM_Utils_System
::url('civicrm/contact/view', $urlParams));
1053 // now invoke the post hook
1054 if ($this->_action
& CRM_Core_Action
::UPDATE
) {
1055 CRM_Utils_Hook
::post('edit', $params['contact_type'], $contact->id
, $contact);
1058 CRM_Utils_Hook
::post('create', $params['contact_type'], $contact->id
, $contact);
1063 * Is there any real significant data in the hierarchical location array
1065 * @param array $fields the hierarchical value representation of this location
1067 * @return boolean true if data exists, false otherwise
1071 static function blockDataExists(&$fields) {
1072 if (!is_array($fields)) {
1076 static $skipFields = array('location_type_id', 'is_primary', 'phone_type_id', 'provider_id', 'country_id', 'website_type_id', 'master_id');
1077 foreach ($fields as $name => $value) {
1079 foreach ($skipFields as $skip) {
1080 if (strpos("[$skip]", $name) !== FALSE) {
1081 if ($name == 'phone') {
1091 if (is_array($value)) {
1092 if (self
::blockDataExists($value)) {
1097 if (!empty($value)) {
1107 * That checks for duplicate contacts
1109 * @param array $fields fields array which are submitted
1111 * @param int $contactID contact id
1112 * @param string $contactType contact type
1115 static function checkDuplicateContacts(&$fields, &$errors, $contactID, $contactType) {
1116 // if this is a forced save, ignore find duplicate rule
1117 if (empty($fields['_qf_Contact_upload_duplicate'])) {
1119 $dedupeParams = CRM_Dedupe_Finder
::formatParams($fields, $contactType);
1120 $ids = CRM_Dedupe_Finder
::dupesByParams($dedupeParams, $contactType, 'Supervised', array($contactID));
1123 $contactLinks = CRM_Contact_BAO_Contact_Utils
::formatContactIDSToLinks($ids, TRUE, TRUE, $contactID);
1125 $duplicateContactsLinks = '<div class="matching-contacts-found">';
1126 $duplicateContactsLinks .= ts('One matching contact was found. ', array('count' => count($contactLinks['rows']), 'plural' => '%count matching contacts were found.<br />'));
1127 if ($contactLinks['msg'] == 'view') {
1128 $duplicateContactsLinks .= ts('You can View the existing contact', array('count' => count($contactLinks['rows']), 'plural' => 'You can View the existing contacts'));
1131 $duplicateContactsLinks .= ts('You can View or Edit the existing contact', array('count' => count($contactLinks['rows']), 'plural' => 'You can View or Edit the existing contacts'));
1133 if ($contactLinks['msg'] == 'merge') {
1134 // We should also get a merge link if this is for an existing contact
1135 $duplicateContactsLinks .= ts(', or Merge this contact with an existing contact');
1137 $duplicateContactsLinks .= '.';
1138 $duplicateContactsLinks .= '</div>';
1139 $duplicateContactsLinks .= '<table class="matching-contacts-actions">';
1141 for ($i = 0; $i < count($contactLinks['rows']); $i++
) {
1143 $row .= ' <td class="matching-contacts-name"> ';
1144 $row .= $contactLinks['rows'][$i]['display_name'];
1146 $row .= ' <td class="matching-contacts-email"> ';
1147 $row .= $contactLinks['rows'][$i]['primary_email'];
1149 $row .= ' <td class="action-items"> ';
1150 $row .= $contactLinks['rows'][$i]['view'];
1151 $row .= $contactLinks['rows'][$i]['edit'];
1152 $row .= CRM_Utils_Array
::value('merge', $contactLinks['rows'][$i]);
1157 $duplicateContactsLinks .= $row . '</table>';
1158 $duplicateContactsLinks .= ts("If you're sure this record is not a duplicate, click the 'Save Matching Contact' button below.");
1160 $errors['_qf_default'] = $duplicateContactsLinks;
1164 // let smarty know that there are duplicates
1165 $template = CRM_Core_Smarty
::singleton();
1166 $template->assign('isDuplicate', 1);
1168 elseif (!empty($fields['_qf_Contact_refresh_dedupe'])) {
1169 // add a session message for no matching contacts
1170 CRM_Core_Session
::setStatus(ts('No matching contact found.'), ts('None Found'), 'info');
1176 * Use the form name to create the tpl file name
1181 function getTemplateFileName() {
1182 if ($this->_contactSubType
) {
1183 $templateFile = "CRM/Contact/Form/Edit/SubType/{$this->_contactSubType}.tpl";
1184 $template = CRM_Core_Form
::getTemplate();
1185 if ($template->template_exists($templateFile)) {
1186 return $templateFile;
1189 return parent
::getTemplateFileName();
1193 * Parse all address blocks present in given params
1194 * and return parse result for all address blocks,
1195 * This function either parse street address in to child
1196 * elements or build street address from child elements.
1198 * @param $params array of key value consist of address blocks.
1200 * @return array $parseSuccess as array of sucess/fails for each address block@static
1202 function parseAddress(&$params) {
1203 $parseSuccess = $parsedFields = array();
1204 if (!is_array($params['address']) ||
1205 CRM_Utils_System
::isNull($params['address'])
1207 return $parseSuccess;
1210 foreach ($params['address'] as $instance => & $address) {
1211 $buildStreetAddress = FALSE;
1212 $parseFieldName = 'street_address';
1214 'street_number', 'street_name', 'street_unit') as $fld) {
1215 if (!empty($address[$fld])) {
1216 $parseFieldName = 'street_number';
1217 $buildStreetAddress = TRUE;
1222 // main parse string.
1223 $parseString = CRM_Utils_Array
::value($parseFieldName, $address);
1225 // parse address field.
1226 $parsedFields = CRM_Core_BAO_Address
::parseStreetAddress($parseString);
1228 if ($buildStreetAddress) {
1229 //hack to ignore spaces between number and suffix.
1230 //here user gives input as street_number so it has to
1231 //be street_number and street_number_suffix, but
1232 //due to spaces though preg detect string as street_name
1233 //consider it as 'street_number_suffix'.
1234 $suffix = $parsedFields['street_number_suffix'];
1236 $suffix = $parsedFields['street_name'];
1238 $address['street_number_suffix'] = $suffix;
1239 $address['street_number'] = $parsedFields['street_number'];
1241 $streetAddress = NULL;
1243 'street_number', 'street_number_suffix', 'street_name', 'street_unit') as $fld) {
1244 if (in_array($fld, array(
1245 'street_name', 'street_unit'))) {
1246 $streetAddress .= ' ';
1248 $streetAddress .= CRM_Utils_Array
::value($fld, $address);
1250 $address['street_address'] = trim($streetAddress);
1251 $parseSuccess[$instance] = TRUE;
1255 // consider address is automatically parseable,
1256 // when we should found street_number and street_name
1257 if (empty($parsedFields['street_name']) ||
empty($parsedFields['street_number'])) {
1261 // check for original street address string.
1262 if (empty($parseString)) {
1266 $parseSuccess[$instance] = $success;
1268 // we do not reset element values, but keep what we've parsed
1269 // in case of partial matches: CRM-8378
1271 // merge parse address in to main address block.
1272 $address = array_merge($address, $parsedFields);
1276 return $parseSuccess;
1280 * Check parse result and if some address block fails then this
1281 * function return the status message for all address blocks.
1283 * @param $parseResult an array of address blk instance and its status.
1285 * @return null|string $statusMsg string status message for all address blocks.@static
1287 static function parseAddressStatusMsg($parseResult) {
1289 if (!is_array($parseResult) ||
empty($parseResult)) {
1293 $parseFails = array();
1294 foreach ($parseResult as $instance => $success) {
1296 $parseFails[] = self
::ordinalNumber($instance);
1300 if (!empty($parseFails)) {
1301 $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.",
1302 array(1 => implode(', ', $parseFails))
1310 * Convert normal number to ordinal number format.
1311 * like 1 => 1st, 2 => 2nd and so on...
1313 * @param $number int number to convert in to ordinal number.
1315 * @return ordinal number for given number.
1318 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 array having contact id and deceased value.
1351 * @return null|string $updateMembershipMsg string status message for updated membership.
1353 function updateMembershipStatus($deceasedParams) {
1354 $updateMembershipMsg = NULL;
1355 $contactId = CRM_Utils_Array
::value('contact_id', $deceasedParams);
1356 $deceasedDate = CRM_Utils_Array
::value('deceased_date', $deceasedParams);
1358 // process to set membership status to deceased for both active/inactive membership
1360 $this->_contactType
== 'Individual' && !empty($deceasedParams['is_deceased'])) {
1362 $session = CRM_Core_Session
::singleton();
1363 $userId = $session->get('userID');
1365 $userId = $contactId;
1369 // get deceased status id
1370 $allStatus = CRM_Member_PseudoConstant
::membershipStatus();
1371 $deceasedStatusId = array_search('Deceased', $allStatus);
1372 if (!$deceasedStatusId) {
1373 return $updateMembershipMsg;
1377 if ($deceasedDate && strtotime($deceasedDate) > $today) {
1378 return $updateMembershipMsg;
1381 // get non deceased membership
1382 $dao = new CRM_Member_DAO_Membership();
1383 $dao->contact_id
= $contactId;
1384 $dao->whereAdd("status_id != $deceasedStatusId");
1386 $activityTypes = CRM_Core_PseudoConstant
::activityType(TRUE, FALSE, FALSE, 'name');
1387 $allStatus = CRM_Member_PseudoConstant
::membershipStatus();
1389 while ($dao->fetch()) {
1390 // update status to deceased (for both active/inactive membership )
1391 CRM_Core_DAO
::setFieldValue('CRM_Member_DAO_Membership', $dao->id
,
1392 'status_id', $deceasedStatusId
1395 // add membership log
1396 $membershipLog = array(
1397 'membership_id' => $dao->id
,
1398 'status_id' => $deceasedStatusId,
1399 'start_date' => CRM_Utils_Date
::isoToMysql($dao->start_date
),
1400 'end_date' => CRM_Utils_Date
::isoToMysql($dao->end_date
),
1401 'modified_id' => $userId,
1402 'modified_date' => date('Ymd'),
1403 'membership_type_id' => $dao->membership_type_id
,
1404 'max_related' => $dao->max_related
,
1408 CRM_Member_BAO_MembershipLog
::add($membershipLog, CRM_Core_DAO
::$_nullArray);
1410 //create activity when membership status is changed
1411 $activityParam = array(
1412 'subject' => "Status changed from {$allStatus[$dao->status_id]} to {$allStatus[$deceasedStatusId]}",
1413 'source_contact_id' => $userId,
1414 'target_contact_id' => $dao->contact_id
,
1415 'source_record_id' => $dao->id
,
1416 'activity_type_id' => array_search('Change Membership Status', $activityTypes),
1420 'activity_date_time' => date('Y-m-d H:i:s'),
1422 'is_current_revision' => 1,
1425 $activityResult = civicrm_api('activity', 'create', $activityParam);
1432 $updateMembershipMsg = ts("%1 Current membership(s) for this contact have been set to 'Deceased' status.",
1433 array(1 => $memCount)
1438 return $updateMembershipMsg;