CRM-17155 improve links & options from all reports page
[civicrm-core.git] / CRM / Report / Page / Instance.php
1 <?php
2 /*
3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.7 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2015 |
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-2015
32 */
33
34 /**
35 * Page for invoking report instances
36 */
37 class CRM_Report_Page_Instance extends CRM_Core_Page {
38 /**
39 * Run this page (figure out the action needed and perform it).
40 */
41 public function run() {
42 $instanceId = CRM_Report_Utils_Report::getInstanceID();
43 if (!$instanceId) {
44 $instanceId = CRM_Report_Utils_Report::getInstanceIDForPath();
45 }
46 if (is_numeric($instanceId)) {
47 $instanceURL = CRM_Utils_System::url("civicrm/report/instance/{$instanceId}", 'reset=1');
48 CRM_Core_Session::singleton()->replaceUserContext($instanceURL);
49 }
50 $action = CRM_Utils_Request::retrieve('action', 'String', $this);
51 $optionVal = CRM_Report_Utils_Report::getValueFromUrl($instanceId);
52 $reportUrl = CRM_Utils_System::url('civicrm/report/list', "reset=1");
53
54 if ($action & CRM_Core_Action::DELETE) {
55 if (!CRM_Core_Permission::check('administer Reports')) {
56 $statusMessage = ts('You do not have permission to Delete Report.');
57 CRM_Core_Error::statusBounce($statusMessage, $reportUrl);
58 }
59
60 $navId = CRM_Core_DAO::getFieldValue('CRM_Report_DAO_ReportInstance', $instanceId, 'navigation_id', 'id');
61 CRM_Report_BAO_ReportInstance::del($instanceId);
62
63 //delete navigation if exists
64 if ($navId) {
65 CRM_Core_BAO_Navigation::processDelete($navId);
66 CRM_Core_BAO_Navigation::resetNavigation();
67 }
68
69 CRM_Core_Session::setStatus(ts('Selected report has been deleted.'), ts('Deleted'), 'success');
70 }
71 else {
72 $templateInfo = CRM_Core_OptionGroup::getRowValues('report_template', "{$optionVal}", 'value');
73 if (empty($templateInfo)) {
74 CRM_Core_Error::statusBounce('You have tried to access a report that does not exist.');
75 }
76
77 $extKey = strpos($templateInfo['name'], '.');
78
79 $reportClass = NULL;
80
81 if ($extKey !== FALSE) {
82 $ext = CRM_Extension_System::singleton()->getMapper();
83 $reportClass = $ext->keyToClass($templateInfo['name'], 'report');
84 $templateInfo['name'] = $reportClass;
85 }
86
87 if (strstr($templateInfo['name'], '_Form') || !is_null($reportClass)) {
88 $instanceInfo = array();
89 CRM_Report_BAO_ReportInstance::retrieve(array('id' => $instanceId), $instanceInfo);
90
91 if (!empty($instanceInfo['title'])) {
92 CRM_Utils_System::setTitle($instanceInfo['title']);
93 $this->assign('reportTitle', $instanceInfo['title']);
94 }
95 else {
96 CRM_Utils_System::setTitle($templateInfo['label']);
97 $this->assign('reportTitle', $templateInfo['label']);
98 }
99
100 $wrapper = new CRM_Utils_Wrapper();
101 return $wrapper->run($templateInfo['name'], NULL, NULL);
102 }
103
104 CRM_Core_Session::setStatus(ts('Could not find template for the instance.'), ts('Template Not Found'), 'error');
105 }
106 return CRM_Utils_System::redirect($reportUrl);
107 }
108
109 }