CRM/Admin/Form/Options.php

   1 <?php
   2 /*
   3  +--------------------------------------------------------------------+
   4  | CiviCRM version 4.5                                                |
   5  +--------------------------------------------------------------------+
   6  | Copyright CiviCRM LLC (c) 2004-2014                                |
   7  +--------------------------------------------------------------------+
   8  | This file is a part of CiviCRM.                                    |
   9  |                                                                    |
  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.   |
  13  |                                                                    |
  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.        |
  18  |                                                                    |
  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  +--------------------------------------------------------------------+
  26 */
  27
  28 /**
  29  *
  30  * @package CRM
  31  * @copyright CiviCRM LLC (c) 2004-2014
  32  * $Id$
  33  *
  34  */
  35
  36 /**
  37  * This class generates form components for Options
  38  *
  39  */
  40 class CRM_Admin_Form_Options extends CRM_Admin_Form {
  41
  42   /**
  43    * The option group name
  44    *
  45    * @var array
  46    * @static
  47    */
  48   protected $_gName;
  49
  50   /**
  51    * The option group name in display format (capitalized, without underscores...etc)
  52    *
  53    * @var array
  54    * @static
  55    */
  56   protected $_gLabel;
  57
  58   /**
  59    * Function to pre-process
  60    *
  61    * @return void
  62    * @access public
  63    */
  64   public function preProcess() {
  65     parent::preProcess();
  66     $session = CRM_Core_Session::singleton();
  67     if (!$this->_gName && !empty($this->urlPath[3])) {
  68       $this->_gName = $this->urlPath[3];
  69     }
  70     if (!$this->_gName && !empty($_GET['gid'])) {
  71       $this->_gName = CRM_Core_DAO::getFieldValue('CRM_Core_DAO_OptionGroup', (int) $_GET['gid'], 'name');
  72     }
  73     if ($this->_gName) {
  74       $this->set('gName', $this->_gName);
  75     }
  76     else {
  77       $this->_gName = $this->get('gName');
  78     }
  79     $this->_gid = CRM_Core_DAO::getFieldValue('CRM_Core_DAO_OptionGroup',
  80       $this->_gName,
  81       'id',
  82       'name'
  83     );
  84     $this->_gLabel = CRM_Core_DAO::getFieldValue('CRM_Core_DAO_OptionGroup', $this->_gid, 'title');
  85     $url          = "civicrm/admin/options/{$this->_gName}";
  86     $params       = "reset=1";
  87
  88     if (($this->_action & CRM_Core_Action::DELETE) &&
  89       in_array($this->_gName, array('email_greeting', 'postal_greeting', 'addressee'))
  90     ) {
  91       // Don't allow delete if the option value belongs to addressee, postal or email greetings and is in use.
  92       $findValue  = CRM_Core_DAO::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id, 'value');
  93       $queryParam = array(1 => array($findValue, 'Integer'));
  94       $columnName = $this->_gName . "_id";
  95       $sql        = "SELECT count(id) FROM civicrm_contact WHERE " . $columnName . " = %1";
  96       $isInUse    = CRM_Core_DAO::singleValueQuery($sql, $queryParam);
  97       if ($isInUse) {
  98         $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>";
  99         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(1 => $this->_gLabel, 2 => $scriptURL)), ts('Sorry'), 'error');
 100         $redirect = CRM_Utils_System::url($url, $params);
 101         CRM_Utils_System::redirect($redirect);
 102       }
 103     }
 104
 105
 106     $session->pushUserContext(CRM_Utils_System::url($url, $params));
 107     $this->assign('id', $this->_id);
 108
 109     if ($this->_id && in_array($this->_gName, CRM_Core_OptionGroup::$_domainIDGroups)) {
 110       $domainID = CRM_Core_DAO::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id, 'domain_id', 'id');
 111       if (CRM_Core_Config::domainID() != $domainID) {
 112         CRM_Core_Error::fatal(ts('You do not have permission to access this page'));
 113       }
 114     }
 115   }
 116
 117   /**
 118    * This function sets the default values for the form.
 119    * the default values are retrieved from the database
 120    *
 121    * @access public
 122    *
 123    * @return void
 124    */
 125   function setDefaultValues() {
 126     $defaults = parent::setDefaultValues();
 127
 128     if (!isset($defaults['weight']) || !$defaults['weight']) {
 129       $fieldValues = array('option_group_id' => $this->_gid);
 130       $defaults['weight'] = CRM_Utils_Weight::getDefaultWeight('CRM_Core_DAO_OptionValue', $fieldValues);
 131     }
 132
 133     //setDefault of contact types for email greeting, postal greeting, addressee, CRM-4575
 134     if (in_array($this->_gName, array(
 135       'email_greeting', 'postal_greeting', 'addressee'))) {
 136       $defaults['contactOptions'] = (CRM_Utils_Array::value('filter', $defaults)) ? $defaults['filter'] : NULL;
 137     }
 138     // CRM-11516
 139     if ($this->_gName == 'payment_instrument' && $this->_id) {
 140       $defaults['financial_account_id'] = CRM_Financial_BAO_FinancialTypeAccount::getFinancialAccount($this->_id, 'civicrm_option_value', 'financial_account_id');
 141     }
 142     return $defaults;
 143   }
 144
 145   /**
 146    * Function to build the form
 147    *
 148    * @return void
 149    * @access public
 150    */
 151   public function buildQuickForm() {
 152     parent::buildQuickForm();
 153     if ($this->_action & CRM_Core_Action::DELETE) {
 154       return;
 155     }
 156
 157     $this->applyFilter('__ALL__', 'trim');
 158
 159     $isReserved = FALSE;
 160     if ($this->_id) {
 161       $isReserved = (bool) CRM_Core_DAO::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id, 'is_reserved');
 162     }
 163
 164     $this->add('text',
 165       'label',
 166       ts('Label'),
 167       CRM_Core_DAO::getAttribute('CRM_Core_DAO_OptionValue', 'label'),
 168       TRUE
 169     );
 170
 171     if (!in_array($this->_gName, array(
 172       'email_greeting', 'postal_greeting', 'addressee')) && !$isReserved) {
 173       $this->addRule('label',
 174         ts('This Label already exists in the database for this option group. Please select a different Value.'),
 175         'optionExists',
 176         array('CRM_Core_DAO_OptionValue', $this->_id, $this->_gid, 'label')
 177       );
 178     }
 179
 180     if ($this->_gName == 'case_status') {
 181       $classes = array('Opened' => ts('Opened'),
 182         'Closed' => ts('Closed'),
 183       );
 184
 185       $grouping = $this->add('select',
 186         'grouping',
 187         ts('Status Class'),
 188         $classes
 189       );
 190       if ($isReserved) {
 191         $grouping->freeze();
 192       }
 193     }
 194     // CRM-11516
 195     if ($this->_gName == 'payment_instrument') {
 196       $accountType = CRM_Core_PseudoConstant::accountOptionValues('financial_account_type', NULL, " AND v.name = 'Asset' ");
 197       $financialAccount = CRM_Contribute_PseudoConstant::financialAccount(NULL, key($accountType));
 198
 199       $this->add('select', 'financial_account_id', ts('Financial Account'),
 200         array('' => ts('- select -')) + $financialAccount,
 201         TRUE
 202       );
 203     }
 204
 205     $required = FALSE;
 206     if ($this->_gName == 'custom_search') {
 207       $required = TRUE;
 208     }
 209     elseif ($this->_gName == 'redaction_rule' || $this->_gName == 'engagement_index') {
 210       $this->add('text',
 211         'value',
 212         ts('Value'),
 213         CRM_Core_DAO::getAttribute('CRM_Core_DAO_OptionValue', 'value'),
 214         TRUE
 215       );
 216       if ($this->_gName == 'redaction_rule') {
 217         $this->add('checkbox',
 218           'filter',
 219           ts('Regular Expression?')
 220         );
 221       }
 222     }
 223     if ($this->_gName == 'participant_listing') {
 224       $this->add('text',
 225         'description',
 226         ts('Description'),
 227         CRM_Core_DAO::getAttribute('CRM_Core_DAO_OptionValue', 'description')
 228       );
 229     }
 230     else {
 231       // Hard-coding attributes here since description is still stored as varchar and not text in the schema. dgg
 232       $this->addWysiwyg('description',
 233         ts('Description'),
 234         array('rows' => 4, 'cols' => 80),
 235         $required
 236       );
 237     }
 238
 239     if ($this->_gName == 'event_badge') {
 240       $this->add('text',
 241         'name',
 242         ts('Class Name'),
 243         CRM_Core_DAO::getAttribute('CRM_Core_DAO_OptionValue', 'name')
 244       );
 245     }
 246
 247     $this->add('text',
 248       'weight',
 249       ts('Weight'),
 250       CRM_Core_DAO::getAttribute('CRM_Core_DAO_OptionValue', 'weight'),
 251       TRUE
 252     );
 253     $this->addRule('weight', ts('is a numeric field'), 'numeric');
 254
 255     // If CiviCase enabled AND "Add" mode OR "edit" mode for non-reserved activities, only allow user to pick Core or CiviCase component.
 256     // FIXME: Each component should define whether adding new activity types is allowed.
 257     $config = CRM_Core_Config::singleton();
 258     if ($this->_gName == 'activity_type' && in_array("CiviCase", $config->enableComponents) &&
 259       (($this->_action & CRM_Core_Action::ADD) || !$isReserved)
 260     ) {
 261       $caseID = CRM_Core_Component::getComponentID('CiviCase');
 262       $components = array('' => ts('Contacts OR Cases'), $caseID => ts('Cases Only'));
 263       $this->add('select',
 264         'component_id',
 265         ts('Component'),
 266         $components, FALSE
 267       );
 268     }
 269
 270     $enabled = $this->add('checkbox', 'is_active', ts('Enabled?'));
 271
 272     if ($isReserved) {
 273       $enabled->freeze();
 274     }
 275
 276     //fix for CRM-3552, CRM-4575
 277     $showIsDefaultGroups = array(
 278       'email_greeting',
 279       'postal_greeting',
 280       'addressee',
 281       'from_email_address',
 282       'case_status',
 283       'encounter_medium',
 284       'case_type',
 285       'payment_instrument',
 286       'communication_style',
 287       'soft_credit_type',
 288       'website_type',
 289     );
 290
 291     if (in_array($this->_gName, $showIsDefaultGroups)) {
 292       $this->assign('showDefault', TRUE);
 293       $this->add('checkbox', 'is_default', ts('Default Option?'));
 294     }
 295
 296     //get contact type for which user want to create a new greeting/addressee type, CRM-4575
 297     if (in_array($this->_gName, array(
 298       'email_greeting', 'postal_greeting', 'addressee')) && !$isReserved) {
 299       $values = array(1 => ts('Individual'),
 300         2 => ts('Household'),
 301         3 => ts('Organization'),
 302         4 => ts('Multiple Contact Merge'),
 303       );
 304       $this->add('select', 'contactOptions', ts('Contact Type'), array('' => '-select-') + $values, TRUE);
 305       $this->assign('showContactFilter', TRUE);
 306     }
 307
 308     if ($this->_gName == 'participant_status') {
 309       // For Participant Status options, expose the 'filter' field to track which statuses are "Counted", and the Visibility field
 310       $element = $this->add('checkbox', 'filter', ts('Counted?'));
 311       $this->add('select', 'visibility_id', ts('Visibility'), CRM_Core_PseudoConstant::visibility());
 312     }
 313     if ($this->_gName == 'participant_role') {
 314       // For Participant Role options, expose the 'filter' field to track which statuses are "Counted"
 315       $this->add('checkbox', 'filter', ts('Counted?'));
 316     }
 317
 318     $this->addFormRule(array('CRM_Admin_Form_Options', 'formRule'), $this);
 319   }
 320
 321   /**
 322    * global form rule
 323    *
 324    * @param array $fields the input form values
 325    * @param array $files  the uploaded files if any
 326    * @param array $self   current form object.
 327    *
 328    * @return array array of errors / empty array.
 329    * @access public
 330    * @static
 331    */
 332   static function formRule($fields, $files, $self) {
 333     $errors = array();
 334     if ($self->_gName == 'case_status' && empty($fields['grouping'])) {
 335       $errors['grouping'] = ts('Status class is a required field');
 336     }
 337
 338     if (in_array($self->_gName, array('email_greeting', 'postal_greeting', 'addressee')) && empty($self->_defaultValues['is_reserved'])) {
 339       $label               = $fields['label'];
 340       $condition           = " AND v.label = '{$label}' ";
 341       $values              = CRM_Core_OptionGroup::values($self->_gName, FALSE, FALSE, FALSE, $condition, 'filter');
 342       $checkContactOptions = TRUE;
 343
 344       if ($self->_id && ($self->_defaultValues['contactOptions'] == $fields['contactOptions'])) {
 345         $checkContactOptions = FALSE;
 346       }
 347
 348       if ($checkContactOptions && in_array($fields['contactOptions'], $values)) {
 349         $errors['label'] = ts('This Label already exists in the database for the selected contact type.');
 350       }
 351     }
 352
 353     if ($self->_gName == 'from_email_address') {
 354       $formEmail = CRM_Utils_Mail::pluckEmailFromHeader($fields['label']);
 355       if (!CRM_Utils_Rule::email($formEmail)) {
 356         $errors['label'] = ts('Please enter the valid email address.');
 357       }
 358
 359       $formName = explode('"', $fields['label']);
 360       if (empty($formName[1]) || count($formName) != 3) {
 361         $errors['label'] = ts('Please follow the proper format for From Email Address');
 362       }
 363     }
 364
 365     return $errors;
 366   }
 367
 368   /**
 369    * Function to process the form
 370    *
 371    * @access public
 372    *
 373    * @return void
 374    */
 375   public function postProcess() {
 376     if ($this->_action & CRM_Core_Action::DELETE) {
 377       $fieldValues = array('option_group_id' => $this->_gid);
 378       $wt = CRM_Utils_Weight::delWeight('CRM_Core_DAO_OptionValue', $this->_id, $fieldValues);
 379
 380       if (CRM_Core_BAO_OptionValue::del($this->_id)) {
 381         if ($this->_gName == 'phone_type') {
 382           CRM_Core_BAO_Phone::setOptionToNull(CRM_Utils_Array::value('value', $this->_defaultValues));
 383         }
 384
 385         CRM_Core_Session::setStatus(ts('Selected %1 type has been deleted.', array(1 => $this->_gLabel)), ts('Record Deleted'), 'success');
 386       }
 387       else {
 388         CRM_Core_Session::setStatus(ts('Selected %1 type has not been deleted.', array(1 => $this->_gLabel)), ts('Sorry'), 'error');
 389         CRM_Utils_Weight::correctDuplicateWeights('CRM_Core_DAO_OptionValue', $fieldValues);
 390       }
 391     }
 392     else {
 393       $params = $ids = array();
 394       $params = $this->exportValues();
 395
 396       // allow multiple defaults within group.
 397       $allowMultiDefaults = array('email_greeting', 'postal_greeting', 'addressee', 'from_email_address');
 398       if (in_array($this->_gName, $allowMultiDefaults)) {
 399         if ($this->_gName == 'from_email_address') {
 400           $params['reset_default_for'] = array('domain_id' => CRM_Core_Config::domainID());
 401         }
 402         elseif ($filter = CRM_Utils_Array::value('contactOptions', $params)) {
 403           $params['filter'] = $filter;
 404           $params['reset_default_for'] = array('filter' => "0, " . $params['filter']);
 405         }
 406
 407         //make sure we should has to have space, CRM-6977
 408         if ($this->_gName == 'from_email_address') {
 409           $params['label'] = str_replace('"<', '" <', $params['label']);
 410         }
 411       }
 412
 413       // set value of filter if not present in params
 414       if ($this->_id && !array_key_exists('filter', $params)) {
 415         if ($this->_gName == 'participant_role') {
 416           $params['filter'] = 0;
 417         } else {
 418           $params['filter'] = CRM_Core_DAO::getFieldValue('CRM_Core_DAO_OptionValue', $this->_id, 'filter', 'id');
 419         }
 420       }
 421
 422       $groupParams = array('name' => ($this->_gName));
 423       $optionValue = CRM_Core_OptionValue::addOptionValue($params, $groupParams, $this->_action, $this->_id);
 424
 425       // CRM-11516
 426       if (!empty($params['financial_account_id'])) {
 427         $relationTypeId = key(CRM_Core_PseudoConstant::accountOptionValues('account_relationship', NULL, " AND v.name LIKE 'Asset Account is' "));
 428         $params = array(
 429           'entity_table' => 'civicrm_option_value',
 430           'entity_id' => $optionValue->id,
 431           'account_relationship' => $relationTypeId,
 432           'financial_account_id' => $params['financial_account_id']
 433         );
 434         CRM_Financial_BAO_FinancialTypeAccount::add($params);
 435       }
 436
 437       CRM_Core_Session::setStatus(ts('The %1 \'%2\' has been saved.', array(1 => $this->_gLabel, 2 => $optionValue->label)), ts('Saved'), 'success');
 438     }
 439   }
 440 }