3 +--------------------------------------------------------------------+
4 | Copyright CiviCRM LLC. All rights reserved. |
6 | This work is published under the GNU AGPLv3 license with some |
7 | permitted exceptions and without any warranty. For full license |
8 | and copyright information, see https://civicrm.org/licensing |
9 +--------------------------------------------------------------------+
13 * This file contains the various menus of the CiviCRM module
16 * @copyright CiviCRM LLC https://civicrm.org/licensing
19 require_once 'CRM/Core/I18n.php';
22 * Class CRM_Core_Menu.
27 * The list of menu items.
31 public static $_items = NULL;
34 * The list of permissioned menu items.
38 public static $_permissionedItems = NULL;
40 public static $_serializedElements = array(
48 public static $_menuCache = NULL;
52 * This function fetches the menu items from xml and xmlMenu hooks.
54 * @param bool $fetchFromXML
55 * Fetch the menu items from xml and not from cache.
59 public static function &xmlItems($fetchFromXML = FALSE) {
60 if (!self
::$_items ||
$fetchFromXML) {
61 $config = CRM_Core_Config
::singleton();
63 // We needs this until Core becomes a component
64 $coreMenuFilesNamespace = 'CRM_Core_xml_Menu';
65 $coreMenuFilesPath = str_replace('_', DIRECTORY_SEPARATOR
, $coreMenuFilesNamespace);
67 $files = CRM_Utils_File
::getFilesByExtension($civicrm_root . DIRECTORY_SEPARATOR
. $coreMenuFilesPath, 'xml');
69 // Grab component menu files
70 $files = array_merge($files,
71 CRM_Core_Component
::xmlMenu()
74 // lets call a hook and get any additional files if needed
75 CRM_Utils_Hook
::xmlMenu($files);
78 foreach ($files as $file) {
79 self
::read($file, self
::$_items);
82 CRM_Utils_Hook
::alterMenu(self
::$_items);
94 * An alterable list of menu items.
98 public static function read($name, &$menu) {
99 $xml = simplexml_load_string(file_get_contents($name));
100 self
::readXML($xml, $menu);
104 * @param SimpleXMLElement $xml
105 * An XML document defining a list of menu items.
107 * An alterable list of menu items.
109 * @throws CRM_Core_Exception
111 public static function readXML($xml, &$menu) {
112 $config = CRM_Core_Config
::singleton();
113 foreach ($xml->item
as $item) {
114 if (!(string ) $item->path
) {
115 CRM_Core_Error
::debug('i', $item);
116 throw new CRM_Core_Exception('Unable to read XML file');
118 $path = (string ) $item->path
;
122 if ($item->ids_arguments
) {
124 foreach (array('json' => 'json', 'html' => 'html', 'exception' => 'exceptions') as $tag => $attr) {
126 foreach ($item->ids_arguments
->{$tag} as $value) {
127 $ids[$attr][] = (string) $value;
130 $menu[$path]['ids_arguments'] = $ids;
131 unset($item->ids_arguments
);
134 foreach ($item as $key => $value) {
135 $key = (string ) $key;
136 $value = (string ) $value;
137 if (strpos($key, '_callback') &&
140 // FIXME Remove the rewrite at this level. Instead, change downstream call_user_func*($value)
141 // to call_user_func*(Civi\Core\Resolver::singleton()->get($value)).
142 $value = explode('::', $value);
144 elseif ($key == 'access_arguments') {
145 // FIXME Move the permission parser to its own class (or *maybe* CRM_Core_Permission).
146 if (strpos($value, ',') ||
149 if (strpos($value, ',')) {
150 $elements = explode(',', $value);
154 $elements = explode(';', $value);
158 foreach ($elements as $element) {
161 $value = array($items, $op);
164 $value = array(array($value), 'and');
167 elseif ($key == 'is_public' ||
$key == 'is_ssl') {
168 $value = ($value == 'true' ||
$value == 1) ?
1 : 0;
170 $menu[$path][$key] = $value;
176 * This function defines information for various menu items.
178 * @param bool $fetchFromXML
179 * Fetch the menu items from xml and not from cache.
183 public static function &items($fetchFromXML = FALSE) {
184 return self
::xmlItems($fetchFromXML);
188 * Is array true (whatever that means!).
190 * @param array $values
194 public static function isArrayTrue(&$values) {
195 foreach ($values as $name => $value) {
207 * @param string $path
209 * @throws CRM_Core_Exception
211 public static function fillMenuValues(&$menu, $path) {
212 $fieldsToPropagate = array(
220 foreach ($fieldsToPropagate as $field) {
221 $fieldsPresent[$field] = isset($menu[$path][$field]);
224 $args = explode('/', $path);
225 while (!self
::isArrayTrue($fieldsPresent) && !empty($args)) {
228 $parentPath = implode('/', $args);
230 foreach ($fieldsToPropagate as $field) {
231 if (!$fieldsPresent[$field]) {
232 $fieldInParentMenu = $menu[$parentPath][$field] ??
NULL;
233 if ($fieldInParentMenu !== NULL) {
234 $fieldsPresent[$field] = TRUE;
235 $menu[$path][$field] = $fieldInParentMenu;
241 if (self
::isArrayTrue($fieldsPresent)) {
246 foreach ($fieldsToPropagate as $field) {
247 if (!$fieldsPresent[$field]) {
248 $messages[] = ts("Could not find %1 in path tree",
253 throw new CRM_Core_Exception("'$path': " . implode(', ', $messages));
257 * We use this function to.
259 * 1. Compute the breadcrumb
260 * 2. Compute local tasks value if any
261 * 3. Propagate access argument, access callback, page callback to the menu item
262 * 4. Build the global navigation block
266 public static function build(&$menu) {
267 foreach ($menu as $path => $menuItems) {
268 self
::buildBreadcrumb($menu, $path);
269 self
::fillMenuValues($menu, $path);
270 self
::fillComponentIds($menu, $path);
271 self
::buildReturnUrl($menu, $path);
273 // add add page_type if not present
274 if (!isset($menu[$path]['page_type'])) {
275 $menu[$path]['page_type'] = 0;
279 self
::buildAdminLinks($menu);
283 * This function recomputes menu from xml and populates civicrm_menu.
285 * @param bool $truncate
287 public static function store($truncate = TRUE) {
288 // first clean up the db
290 $query = 'TRUNCATE civicrm_menu';
291 CRM_Core_DAO
::executeQuery($query);
293 $menuArray = self
::items($truncate);
295 self
::build($menuArray);
297 $daoFields = CRM_Core_DAO_Menu
::fields();
299 foreach ($menuArray as $path => $item) {
300 $menu = new CRM_Core_DAO_Menu();
302 $menu->domain_id
= CRM_Core_Config
::domainID();
306 if (!CRM_Core_Config
::isUpgradeMode() ||
307 CRM_Core_BAO_SchemaHandler
::checkIfFieldExists('civicrm_menu', 'module_data', FALSE)
309 // Move unrecognized fields to $module_data.
311 foreach (array_keys($item) as $key) {
312 if (!isset($daoFields[$key])) {
313 $module_data[$key] = $item[$key];
318 $menu->module_data
= serialize($module_data);
321 $menu->copyValues($item);
323 foreach (self
::$_serializedElements as $element) {
324 if (!isset($item[$element]) ||
325 $item[$element] == 'null'
327 $menu->$element = NULL;
330 $menu->$element = serialize($item[$element]);
343 public static function buildAdminLinks(&$menu) {
346 foreach ($menu as $path => $item) {
347 if (empty($item['adminGroup'])) {
351 $query = !empty($item['path_arguments']) ?
str_replace(',', '&', $item['path_arguments']) . '&reset=1' : 'reset=1';
354 'title' => $item['title'],
355 'desc' => $item['desc'] ??
NULL,
356 'id' => strtr($item['title'], array(
363 'url' => CRM_Utils_System
::url($path, $query,
368 // forceBackend; CRM-14439 work-around; acceptable for now because we don't display breadcrumbs on frontend
371 'icon' => $item['icon'] ??
NULL,
372 'extra' => $item['extra'] ??
NULL,
374 if (!array_key_exists($item['adminGroup'], $values)) {
375 $values[$item['adminGroup']] = [];
376 $values[$item['adminGroup']]['fields'] = [];
378 $values[$item['adminGroup']]['fields']["{weight}.{$item['title']}"] = $value;
379 $values[$item['adminGroup']]['component_id'] = $item['component_id'];
382 foreach ($values as $group => $dontCare) {
383 ksort($values[$group]);
386 $menu['admin'] = array('breadcrumb' => $values);
394 public static function &getAdminLinks() {
395 $links = self
::get('admin');
398 !isset($links['breadcrumb'])
403 $values = &$links['breadcrumb'];
408 * Get the breadcrumb for a given path.
411 * An array of all the menu items.
412 * @param string $path
413 * Path for which breadcrumb is to be build.
416 * The breadcrumb for this path
418 public static function buildBreadcrumb(&$menu, $path) {
421 $pathElements = explode('/', $path);
422 array_pop($pathElements);
425 while ($newPath = array_shift($pathElements)) {
426 $currentPath = $currentPath ?
($currentPath . '/' . $newPath) : $newPath;
428 // when we come across breadcrumb which involves ids,
429 // we should skip now and later on append dynamically.
430 if (isset($menu[$currentPath]['skipBreadcrumb'])) {
434 // add to crumb, if current-path exists in params.
435 if (array_key_exists($currentPath, $menu) &&
436 isset($menu[$currentPath]['title'])
438 $urlVar = !empty($menu[$currentPath]['path_arguments']) ?
'&' . $menu[$currentPath]['path_arguments'] : '';
440 'title' => $menu[$currentPath]['title'],
441 'url' => CRM_Utils_System
::url($currentPath,
451 // forceBackend; CRM-14439 work-around; acceptable for now because we don't display breadcrumbs on frontend
457 $menu[$path]['breadcrumb'] = $crumbs;
466 public static function buildReturnUrl(&$menu, $path) {
467 if (!isset($menu[$path]['return_url'])) {
468 list($menu[$path]['return_url'], $menu[$path]['return_url_args']) = self
::getReturnUrl($menu, $path);
478 public static function getReturnUrl(&$menu, $path) {
479 if (!isset($menu[$path]['return_url'])) {
480 $pathElements = explode('/', $path);
481 array_pop($pathElements);
483 if (empty($pathElements)) {
484 return array(NULL, NULL);
486 $newPath = implode('/', $pathElements);
488 return self
::getReturnUrl($menu, $newPath);
492 CRM_Utils_Array
::value('return_url',
495 CRM_Utils_Array
::value('return_url_args',
506 * @throws \CRM_Core_Exception
508 public static function fillComponentIds(&$menu, $path) {
511 if (array_key_exists('component_id', $menu[$path])) {
515 $args = explode('/', $path);
517 if (count($args) > 1) {
518 $compPath = $args[0] . '/' . $args[1];
521 $compPath = $args[0];
526 if (array_key_exists($compPath, $cache)) {
527 $menu[$path]['component_id'] = $cache[$compPath];
530 if (!empty($menu[$compPath]['component'])) {
531 $componentId = CRM_Core_DAO
::getFieldValue('CRM_Core_DAO_Component',
532 $menu[$compPath]['component'],
536 $menu[$path]['component_id'] = $componentId ?
$componentId : NULL;
537 $cache[$compPath] = $menu[$path]['component_id'];
542 * @param $path string
543 * Path of menu item to retrieve.
548 public static function get($path) {
549 // return null if menu rebuild
550 $config = CRM_Core_Config
::singleton();
552 $args = explode('/', $path);
555 while (!empty($args)) {
556 $string = implode('/', $args);
557 $string = CRM_Core_DAO
::escapeString($string);
558 $elements[] = "'{$string}'";
562 $queryString = implode(', ', $elements);
563 $domainID = CRM_Core_Config
::domainID();
569 WHERE path in ( $queryString )
570 AND domain_id = $domainID
571 ORDER BY length(path) DESC
576 if ($path != 'navigation') {
581 WHERE path IN ( 'navigation' )
582 AND domain_id = $domainID
587 $menu = new CRM_Core_DAO_Menu();
588 $menu->query($query);
590 self
::$_menuCache = [];
592 while ($menu->fetch()) {
593 self
::$_menuCache[$menu->path
] = [];
594 CRM_Core_DAO
::storeValues($menu, self
::$_menuCache[$menu->path
]);
596 // Move module_data into main item.
597 if (isset(self
::$_menuCache[$menu->path
]['module_data'])) {
598 CRM_Utils_Array
::extend(self
::$_menuCache[$menu->path
],
599 CRM_Utils_String
::unserialize(self
::$_menuCache[$menu->path
]['module_data']));
600 unset(self
::$_menuCache[$menu->path
]['module_data']);
603 // Unserialize other elements.
604 foreach (self
::$_serializedElements as $element) {
605 self
::$_menuCache[$menu->path
][$element] = CRM_Utils_String
::unserialize($menu->$element);
607 if (strpos($path, $menu->path
) !== FALSE) {
608 $menuPath = &self
::$_menuCache[$menu->path
];
613 if (strstr($path, 'report/instance')) {
614 $args = explode('/', $path);
615 if (is_numeric(end($args))) {
616 $menuPath['path'] .= '/' . end($args);
620 // *FIXME* : hack for 4.1 -> 4.2 upgrades.
621 if (preg_match('/^civicrm\/(upgrade\/)?queue\//', $path)) {
622 CRM_Queue_Menu
::alter($path, $menuPath);
625 // Part of upgrade framework but not run inside main upgrade because it deletes data
626 // Once we have another example of a 'cleanup' we should generalize the clause below so it grabs string
627 // which follows upgrade/ and checks for existence of a function in Cleanup class.
628 if ($path == 'civicrm/upgrade/cleanup425') {
629 $menuPath['page_callback'] = array('CRM_Upgrade_Page_Cleanup', 'cleanup425');
630 $menuPath['access_arguments'][0][] = 'administer CiviCRM';
631 $menuPath['access_callback'] = array('CRM_Core_Permission', 'checkMenu');
634 if (!empty($menuPath)) {
635 $i18n = CRM_Core_I18n
::singleton();
636 $i18n->localizeTitles($menuPath);
646 public static function getArrayForPathArgs($pathArgs) {
647 if (!is_string($pathArgs)) {
652 $elements = explode(',', $pathArgs);
653 foreach ($elements as $keyVal) {
654 list($key, $val) = explode('=', $keyVal, 2);
658 if (array_key_exists('urlToSession', $arr)) {
661 $params = explode(';', $arr['urlToSession']);
663 foreach ($params as $keyVal) {
664 list($urlToSession[$count]['urlVar'],
665 $urlToSession[$count]['sessionVar'],
666 $urlToSession[$count]['type'],
667 $urlToSession[$count]['default']
668 ) = explode(':', $keyVal);
671 $arr['urlToSession'] = $urlToSession;