3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.7 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2018 |
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-2018
35 * This class generates form components for Options.
37 class CRM_Admin_Form_Options
extends CRM_Admin_Form
{
40 * The option group name.
47 * The option group name in display format (capitalized, without underscores...etc)
54 * Is this Option Group Domain Specific
57 protected $_domainSpecific = FALSE;
62 public function preProcess() {
64 $session = CRM_Core_Session
::singleton();
65 if (!$this->_gName
&& !empty($this->urlPath
[3])) {
66 $this->_gName
= $this->urlPath
[3];
68 if (!$this->_gName
&& !empty($_GET['gid'])) {
69 $this->_gName
= CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionGroup', (int) $_GET['gid'], 'name');
72 $this->set('gName', $this->_gName
);
75 $this->_gName
= $this->get('gName');
77 $this->_gid
= CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionGroup',
82 $this->_gLabel
= CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionGroup', $this->_gid
, 'title');
83 $this->_domainSpecific
= in_array($this->_gName
, CRM_Core_OptionGroup
::$_domainIDGroups);
84 $url = "civicrm/admin/options/{$this->_gName}";
87 if (($this->_action
& CRM_Core_Action
::DELETE
) &&
88 in_array($this->_gName
, array('email_greeting', 'postal_greeting', 'addressee'))
90 // Don't allow delete if the option value belongs to addressee, postal or email greetings and is in use.
91 $findValue = CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id
, 'value');
92 $queryParam = array(1 => array($findValue, 'Integer'));
93 $columnName = $this->_gName
. "_id";
94 $sql = "SELECT count(id) FROM civicrm_contact WHERE " . $columnName . " = %1";
95 $isInUse = CRM_Core_DAO
::singleValueQuery($sql, $queryParam);
97 $scriptURL = "<a href='" . CRM_Utils_System
::docURL2('Update Greetings and Address Data for Contacts', TRUE, NULL, NULL, NULL, "wiki") . "'>" . ts('Learn more about a script that can automatically update contact addressee and greeting options.') . "</a>";
98 CRM_Core_Session
::setStatus(ts('The selected %1 option has <strong>not been deleted</strong> because it is currently in use. Please update these contacts to use a different format before deleting this option. %2', array(
101 )), ts('Sorry'), 'error');
102 $redirect = CRM_Utils_System
::url($url, $params);
103 CRM_Utils_System
::redirect($redirect);
107 $session->pushUserContext(CRM_Utils_System
::url($url, $params));
108 $this->assign('id', $this->_id
);
110 if ($this->_id
&& in_array($this->_gName
, CRM_Core_OptionGroup
::$_domainIDGroups)) {
111 $domainID = CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id
, 'domain_id', 'id');
112 if (CRM_Core_Config
::domainID() != $domainID) {
113 CRM_Core_Error
::fatal(ts('You do not have permission to access this page.'));
119 * Set default values for the form.
121 public function setDefaultValues() {
122 $defaults = parent
::setDefaultValues();
124 // Default weight & value
125 $fieldValues = array('option_group_id' => $this->_gid
);
126 foreach (array('weight', 'value') as $field) {
127 if (empty($defaults[$field])) {
128 $defaults[$field] = CRM_Utils_Weight
::getDefaultWeight('CRM_Core_DAO_OptionValue', $fieldValues, $field);
132 //setDefault of contact types for email greeting, postal greeting, addressee, CRM-4575
133 if (in_array($this->_gName
, array(
138 $defaults['contactOptions'] = (CRM_Utils_Array
::value('filter', $defaults)) ?
$defaults['filter'] : NULL;
141 if ($this->_gName
== 'payment_instrument' && $this->_id
) {
142 $defaults['financial_account_id'] = CRM_Contribute_PseudoConstant
::getRelationalFinancialAccount($this->_id
, NULL, 'civicrm_option_value');
144 if (empty($this->_id
) ||
!CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id
, 'color')) {
145 $defaults['color'] = '#ffffff';
151 * Build the form object.
153 public function buildQuickForm() {
154 parent
::buildQuickForm();
155 $this->setPageTitle(ts('%1 Option', array(1 => $this->_gLabel
)));
157 if ($this->_action
& CRM_Core_Action
::DELETE
) {
161 $this->applyFilter('__ALL__', 'trim');
165 $isReserved = (bool) CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id
, 'is_reserved');
171 CRM_Core_DAO
::getAttribute('CRM_Core_DAO_OptionValue', 'label'),
175 if ($this->_gName
!= 'activity_type') {
179 CRM_Core_DAO
::getAttribute('CRM_Core_DAO_OptionValue', 'value'),
182 $this->addRule('value',
183 ts('This Value already exists in the database for this option group. Please select a different Value.'),
185 array('CRM_Core_DAO_OptionValue', $this->_id
, $this->_gid
, 'value', $this->_domainSpecific
)
189 $this->add('text', 'icon', ts('Icon'), array('class' => 'crm-icon-picker', 'title' => ts('Choose Icon'), 'allowClear' => TRUE));
192 if (in_array($this->_gName
, array('activity_status', 'case_status'))) {
193 $this->add('color', 'color', ts('Color'));
196 if (!in_array($this->_gName
, array(
202 $this->addRule('label',
203 ts('This Label already exists in the database for this option group. Please select a different Label.'),
205 array('CRM_Core_DAO_OptionValue', $this->_id
, $this->_gid
, 'label', $this->_domainSpecific
)
209 if ($this->_gName
== 'case_status') {
211 'Opened' => ts('Opened'),
212 'Closed' => ts('Closed'),
215 $grouping = $this->add('select',
225 if ($this->_gName
== 'payment_instrument') {
226 $accountType = CRM_Core_PseudoConstant
::accountOptionValues('financial_account_type', NULL, " AND v.name = 'Asset' ");
227 $financialAccount = CRM_Contribute_PseudoConstant
::financialAccount(NULL, key($accountType));
229 $this->add('select', 'financial_account_id', ts('Financial Account'),
230 array('' => ts('- select -')) +
$financialAccount,
235 if ($this->_gName
== 'activity_status') {
240 CRM_Activity_BAO_Activity
::INCOMPLETE
=> ts('Incomplete'),
241 CRM_Activity_BAO_Activity
::COMPLETED
=> ts('Completed'),
242 CRM_Activity_BAO_Activity
::CANCELLED
=> ts('Cancelled'),
246 if ($this->_gName
== 'redaction_rule') {
247 $this->add('checkbox',
249 ts('Regular Expression?')
252 if ($this->_gName
== 'participant_listing') {
256 CRM_Core_DAO
::getAttribute('CRM_Core_DAO_OptionValue', 'description')
260 // Hard-coding attributes here since description is still stored as varchar and not text in the schema. dgg
261 $this->add('wysiwyg', 'description',
263 array('rows' => 4, 'cols' => 80),
264 $this->_gName
== 'custom_search'
268 if ($this->_gName
== 'event_badge') {
272 CRM_Core_DAO
::getAttribute('CRM_Core_DAO_OptionValue', 'name')
279 CRM_Core_DAO
::getAttribute('CRM_Core_DAO_OptionValue', 'weight'),
282 $this->addRule('weight', ts('is a numeric field'), 'numeric');
284 // If CiviCase enabled AND "Add" mode OR "edit" mode for non-reserved activities, only allow user to pick Core or CiviCase component.
285 // FIXME: Each component should define whether adding new activity types is allowed.
286 $config = CRM_Core_Config
::singleton();
287 if ($this->_gName
== 'activity_type' && in_array("CiviCase", $config->enableComponents
) &&
288 (($this->_action
& CRM_Core_Action
::ADD
) ||
!$isReserved)
290 $caseID = CRM_Core_Component
::getComponentID('CiviCase');
291 $components = array('' => ts('Contacts AND Cases'), $caseID => ts('Cases Only'));
299 $enabled = $this->add('checkbox', 'is_active', ts('Enabled?'));
305 //fix for CRM-3552, CRM-4575
306 $showIsDefaultGroups = array(
310 'from_email_address',
314 'payment_instrument',
315 'communication_style',
320 if (in_array($this->_gName
, $showIsDefaultGroups)) {
321 $this->assign('showDefault', TRUE);
322 $this->add('checkbox', 'is_default', ts('Default Option?'));
325 //get contact type for which user want to create a new greeting/addressee type, CRM-4575
326 if (in_array($this->_gName
, array(
333 1 => ts('Individual'),
334 2 => ts('Household'),
335 3 => ts('Organization'),
336 4 => ts('Multiple Contact Merge'),
338 $this->add('select', 'contactOptions', ts('Contact Type'), array('' => '-select-') +
$values, TRUE);
339 $this->assign('showContactFilter', TRUE);
342 if ($this->_gName
== 'participant_status') {
343 // For Participant Status options, expose the 'filter' field to track which statuses are "Counted", and the Visibility field
344 $element = $this->add('checkbox', 'filter', ts('Counted?'));
345 $this->add('select', 'visibility_id', ts('Visibility'), CRM_Core_PseudoConstant
::visibility());
347 if ($this->_gName
== 'participant_role') {
348 // For Participant Role options, expose the 'filter' field to track which statuses are "Counted"
349 $this->add('checkbox', 'filter', ts('Counted?'));
352 $this->addFormRule(array('CRM_Admin_Form_Options', 'formRule'), $this);
358 * @param array $fields
359 * The input form values.
360 * @param array $files
361 * The uploaded files if any.
363 * Current form object.
366 * array of errors / empty array.
368 public static function formRule($fields, $files, $self) {
370 if ($self->_gName
== 'case_status' && empty($fields['grouping'])) {
371 $errors['grouping'] = ts('Status class is a required field');
374 if (in_array($self->_gName
, array(
378 )) && empty($self->_defaultValues
['is_reserved'])
380 $label = $fields['label'];
381 $condition = " AND v.label = '{$label}' ";
382 $values = CRM_Core_OptionGroup
::values($self->_gName
, FALSE, FALSE, FALSE, $condition, 'filter');
383 $checkContactOptions = TRUE;
385 if ($self->_id
&& ($self->_defaultValues
['contactOptions'] == $fields['contactOptions'])) {
386 $checkContactOptions = FALSE;
389 if ($checkContactOptions && in_array($fields['contactOptions'], $values)) {
390 $errors['label'] = ts('This Label already exists in the database for the selected contact type.');
394 if ($self->_gName
== 'from_email_address') {
395 $formEmail = CRM_Utils_Mail
::pluckEmailFromHeader($fields['label']);
396 if (!CRM_Utils_Rule
::email($formEmail)) {
397 $errors['label'] = ts('Please enter a valid email address.');
400 $formName = explode('"', $fields['label']);
401 if (empty($formName[1]) ||
count($formName) != 3) {
402 $errors['label'] = ts('Please follow the proper format for From Email Address');
406 $dataType = self
::getOptionGroupDataType($self->_gName
);
407 if ($dataType && $self->_gName
!== 'activity_type') {
408 $validate = CRM_Utils_Type
::validate($fields['value'], $dataType, FALSE);
410 CRM_Core_Session
::setStatus(
411 ts('Data Type of the value field for this option value does not match ' . $dataType),
412 ts('Value field Data Type mismatch'));
419 * Get the DataType for a specified Option Group.
421 * @param string $optionGroupName name of the option group
423 * @return string|null
425 public static function getOptionGroupDataType($optionGroupName) {
426 $optionGroupId = CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionGroup', $optionGroupName, 'id', 'name');
428 $dataType = CRM_Core_BAO_OptionGroup
::getDataType($optionGroupId);
433 * Process the form submission.
435 public function postProcess() {
436 if ($this->_action
& CRM_Core_Action
::DELETE
) {
437 $fieldValues = array('option_group_id' => $this->_gid
);
438 $wt = CRM_Utils_Weight
::delWeight('CRM_Core_DAO_OptionValue', $this->_id
, $fieldValues);
440 if (CRM_Core_BAO_OptionValue
::del($this->_id
)) {
441 if ($this->_gName
== 'phone_type') {
442 CRM_Core_BAO_Phone
::setOptionToNull(CRM_Utils_Array
::value('value', $this->_defaultValues
));
445 CRM_Core_Session
::setStatus(ts('Selected %1 type has been deleted.', array(1 => $this->_gLabel
)), ts('Record Deleted'), 'success');
448 CRM_Core_Session
::setStatus(ts('Selected %1 type has not been deleted.', array(1 => $this->_gLabel
)), ts('Sorry'), 'error');
449 CRM_Utils_Weight
::correctDuplicateWeights('CRM_Core_DAO_OptionValue', $fieldValues);
454 $params = $this->exportValues();
456 // allow multiple defaults within group.
457 $allowMultiDefaults = array('email_greeting', 'postal_greeting', 'addressee', 'from_email_address');
458 if (in_array($this->_gName
, $allowMultiDefaults)) {
459 if ($this->_gName
== 'from_email_address') {
460 $params['reset_default_for'] = array('domain_id' => CRM_Core_Config
::domainID());
462 elseif ($filter = CRM_Utils_Array
::value('contactOptions', $params)) {
463 $params['filter'] = $filter;
464 $params['reset_default_for'] = array('filter' => "0, " . $params['filter']);
467 //make sure we should has to have space, CRM-6977
468 if ($this->_gName
== 'from_email_address') {
469 $params['label'] = str_replace('"<', '" <', $params['label']);
473 // set value of filter if not present in params
474 if ($this->_id
&& !array_key_exists('filter', $params)) {
475 if ($this->_gName
== 'participant_role') {
476 $params['filter'] = 0;
479 $params['filter'] = CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id
, 'filter', 'id');
483 if (isset($params['color']) && strtolower($params['color']) == '#ffffff') {
484 $params['color'] = 'null';
487 $groupParams = array('name' => ($this->_gName
));
488 $optionValue = CRM_Core_OptionValue
::addOptionValue($params, $groupParams, $this->_action
, $this->_id
);
491 if (!empty($params['financial_account_id'])) {
492 $relationTypeId = key(CRM_Core_PseudoConstant
::accountOptionValues('account_relationship', NULL, " AND v.name LIKE 'Asset Account is' "));
494 'entity_table' => 'civicrm_option_value',
495 'entity_id' => $optionValue->id
,
496 'account_relationship' => $relationTypeId,
497 'financial_account_id' => $params['financial_account_id'],
499 CRM_Financial_BAO_FinancialTypeAccount
::add($params);
502 CRM_Core_Session
::setStatus(ts('The %1 \'%2\' has been saved.', array(
504 2 => $optionValue->label
,
505 )), ts('Saved'), 'success');
507 $this->ajaxResponse
['optionValue'] = $optionValue->toArray();