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 for Component
39 class CRM_Admin_Form_Setting_Component
extends CRM_Admin_Form_Setting
{
40 protected $_components;
43 * Build the form object
47 public function buildQuickForm() {
48 CRM_Utils_System
::setTitle(ts('Settings - Enable Components'));
49 $components = $this->_getComponentSelectValues();
50 $include = &$this->addElement('advmultiselect', 'enableComponents',
51 ts('Components') . ' ', $components,
54 'style' => 'width:150px',
55 'class' => 'advmultiselect',
59 $include->setButtonAttributes('add', array('value' => ts('Enable >>')));
60 $include->setButtonAttributes('remove', array('value' => ts('<< Disable')));
62 $this->addFormRule(array('CRM_Admin_Form_Setting_Component', 'formRule'), $this);
64 parent
::buildQuickForm();
70 * @param array $fields
71 * The input form values.
73 * The uploaded files if any.
74 * @param array $options
75 * Additional user data.
77 * @return true if no errors, else array of errors
80 public static function formRule($fields, $files, $options) {
83 if (array_key_exists('enableComponents', $fields) && is_array($fields['enableComponents'])) {
84 if (in_array('CiviPledge', $fields['enableComponents']) &&
85 !in_array('CiviContribute', $fields['enableComponents'])
87 $errors['enableComponents'] = ts('You need to enable CiviContribute before enabling CiviPledge.');
89 if (in_array('CiviCase', $fields['enableComponents']) &&
90 !CRM_Core_DAO
::checkTriggerViewPermission(TRUE, FALSE)
92 $errors['enableComponents'] = ts('CiviCase requires CREATE VIEW and DROP VIEW permissions for the database.');
102 private function _getComponentSelectValues() {
104 $this->_components
= CRM_Core_Component
::getComponents();
105 foreach ($this->_components
as $name => $object) {
106 $ret[$name] = $object->info
['translatedName'];
112 public function postProcess() {
113 $params = $this->controller
->exportValues($this->_name
);
115 CRM_Case_Info
::onToggleComponents($this->_defaults
['enableComponents'], $params['enableComponents'], NULL);
116 parent
::commonProcess($params);
118 // reset navigation when components are enabled / disabled
119 CRM_Core_BAO_Navigation
::resetNavigation();
124 * @param string $fileName
125 * @param bool $lineMode
127 public static function loadCaseSampleData($dsn, $fileName, $lineMode = FALSE) {
128 $db = &DB
::connect($dsn);
129 if (PEAR
::isError($db)) {
130 die("Cannot open $dsn: " . $db->getMessage());
133 $domain = new CRM_Core_DAO_Domain();
135 $multiLingual = (bool) $domain->locales
;
136 $smarty = CRM_Core_Smarty
::singleton();
137 $smarty->assign('multilingual', $multiLingual);
138 $smarty->assign('locales', explode(CRM_Core_DAO
::VALUE_SEPARATOR
, $domain->locales
));
142 $string = $smarty->fetch($fileName);
143 // change \r\n to fix windows issues
144 $string = str_replace("\r\n", "\n", $string);
146 //get rid of comments starting with # and --
148 $string = preg_replace("/^#[^\n]*$/m", "\n", $string);
149 $string = preg_replace("/^(--[^-]).*/m", "\n", $string);
151 $queries = preg_split('/;$/m', $string);
152 foreach ($queries as $query) {
153 $query = trim($query);
154 if (!empty($query)) {
155 $res = &$db->query($query);
156 if (PEAR
::isError($res)) {
157 die("Cannot execute $query: " . $res->getMessage());
163 $fd = fopen($fileName, "r");
164 while ($string = fgets($fd)) {
165 $string = preg_replace("/^#[^\n]*$/m", "\n", $string);
166 $string = preg_replace("/^(--[^-]).*/m", "\n", $string);
168 $string = trim($string);
169 if (!empty($string)) {
170 $res = &$db->query($string);
171 if (PEAR
::isError($res)) {
172 die("Cannot execute $string: " . $res->getMessage());