Commit | Line | Data |
---|---|---|
6a488035 TO |
1 | <?php |
2 | /* | |
3 | +--------------------------------------------------------------------+ | |
232624b1 | 4 | | CiviCRM version 4.4 | |
6a488035 TO |
5 | +--------------------------------------------------------------------+ |
6 | | Copyright CiviCRM LLC (c) 2004-2013 | | |
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-2013 | |
32 | * $Id$ | |
33 | * | |
34 | */ | |
35 | ||
36 | /** | |
37 | * This class generates form components for Component | |
38 | */ | |
39 | class CRM_Admin_Form_Setting_Component extends CRM_Admin_Form_Setting { | |
40 | protected $_components; | |
41 | ||
42 | /** | |
43 | * Function to build the form | |
44 | * | |
45 | * @return None | |
46 | * @access public | |
47 | */ | |
48 | public function buildQuickForm() { | |
49 | CRM_Utils_System::setTitle(ts('Settings - Enable Components')); | |
50 | $components = $this->_getComponentSelectValues(); | |
51 | $include = &$this->addElement('advmultiselect', 'enableComponents', | |
52 | ts('Components') . ' ', $components, | |
53 | array( | |
54 | 'size' => 5, | |
55 | 'style' => 'width:150px', | |
56 | 'class' => 'advmultiselect', | |
57 | ) | |
58 | ); | |
59 | ||
60 | $include->setButtonAttributes('add', array('value' => ts('Enable >>'))); | |
61 | $include->setButtonAttributes('remove', array('value' => ts('<< Disable'))); | |
62 | ||
63 | $this->addFormRule(array('CRM_Admin_Form_Setting_Component', 'formRule'), $this); | |
64 | ||
65 | parent::buildQuickForm(); | |
66 | } | |
67 | ||
68 | /** | |
69 | * global form rule | |
70 | * | |
71 | * @param array $fields the input form values | |
72 | * @param array $files the uploaded files if any | |
73 | * @param array $options additional user data | |
74 | * | |
75 | * @return true if no errors, else array of errors | |
76 | * @access public | |
77 | * @static | |
78 | */ | |
31195a09 | 79 | static function formRule($fields, $files, $options) { |
6a488035 TO |
80 | $errors = array(); |
81 | ||
6f98c8ae | 82 | if (array_key_exists('enableComponents', $fields) && is_array($fields['enableComponents'])) { |
6a488035 TO |
83 | if (in_array('CiviPledge', $fields['enableComponents']) && |
84 | !in_array('CiviContribute', $fields['enableComponents']) | |
85 | ) { | |
86 | $errors['enableComponents'] = ts('You need to enable CiviContribute before enabling CiviPledge.'); | |
87 | } | |
88 | if (in_array('CiviCase', $fields['enableComponents']) && | |
89 | !CRM_Core_DAO::checkTriggerViewPermission(TRUE, FALSE) | |
90 | ) { | |
91 | $errors['enableComponents'] = ts('CiviCase requires CREATE VIEW and DROP VIEW permissions for the database.'); | |
92 | } | |
93 | } | |
94 | ||
95 | return $errors; | |
96 | } | |
97 | ||
98 | private function _getComponentSelectValues() { | |
99 | $ret = array(); | |
100 | $this->_components = CRM_Core_Component::getComponents(); | |
101 | foreach ($this->_components as $name => $object) { | |
102 | $ret[$name] = $object->info['translatedName']; | |
103 | } | |
104 | ||
105 | return $ret; | |
106 | } | |
107 | ||
108 | public function postProcess() { | |
109 | $params = $this->controller->exportValues($this->_name); | |
110 | ||
2bc3bd8f | 111 | CRM_Case_Info::onToggleComponents($this->_defaults['enableComponents'], $params['enableComponents'], NULL); |
6a488035 TO |
112 | parent::commonProcess($params); |
113 | ||
114 | // reset navigation when components are enabled / disabled | |
115 | CRM_Core_BAO_Navigation::resetNavigation(); | |
116 | } | |
117 | ||
e6d720bb | 118 | public static function loadCaseSampleData($dsn, $fileName, $lineMode = FALSE) { |
6a488035 TO |
119 | global $crmPath; |
120 | ||
121 | $db = &DB::connect($dsn); | |
122 | if (PEAR::isError($db)) { | |
123 | die("Cannot open $dsn: " . $db->getMessage()); | |
124 | } | |
125 | ||
126 | if (!$lineMode) { | |
127 | $string = file_get_contents($fileName); | |
128 | ||
129 | // change \r\n to fix windows issues | |
130 | $string = str_replace("\r\n", "\n", $string); | |
131 | ||
132 | //get rid of comments starting with # and -- | |
133 | ||
134 | $string = preg_replace("/^#[^\n]*$/m", "\n", $string); | |
135 | $string = preg_replace("/^(--[^-]).*/m", "\n", $string); | |
136 | ||
137 | $queries = preg_split('/;$/m', $string); | |
138 | foreach ($queries as $query) { | |
139 | $query = trim($query); | |
140 | if (!empty($query)) { | |
141 | $res = &$db->query($query); | |
142 | if (PEAR::isError($res)) { | |
143 | die("Cannot execute $query: " . $res->getMessage()); | |
144 | } | |
145 | } | |
146 | } | |
147 | } | |
148 | else { | |
149 | $fd = fopen($fileName, "r"); | |
150 | while ($string = fgets($fd)) { | |
151 | $string = preg_replace("/^#[^\n]*$/m", "\n", $string); | |
152 | $string = preg_replace("/^(--[^-]).*/m", "\n", $string); | |
153 | ||
154 | $string = trim($string); | |
155 | if (!empty($string)) { | |
156 | $res = &$db->query($string); | |
157 | if (PEAR::isError($res)) { | |
158 | die("Cannot execute $string: " . $res->getMessage()); | |
159 | } | |
160 | } | |
161 | } | |
162 | } | |
163 | } | |
164 | } | |
165 |