3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.7 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2016 |
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-2016
35 * Page for invoking report instances
37 class CRM_Report_Page_Instance
extends CRM_Core_Page
{
39 * Run this page (figure out the action needed and perform it).
41 public function run() {
42 $instanceId = CRM_Report_Utils_Report
::getInstanceID();
44 $instanceId = CRM_Report_Utils_Report
::getInstanceIDForPath();
46 if (is_numeric($instanceId)) {
47 $instanceURL = CRM_Utils_System
::url("civicrm/report/instance/{$instanceId}", 'reset=1');
48 CRM_Core_Session
::singleton()->replaceUserContext($instanceURL);
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");
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);
60 $navId = CRM_Core_DAO
::getFieldValue('CRM_Report_DAO_ReportInstance', $instanceId, 'navigation_id', 'id');
61 CRM_Report_BAO_ReportInstance
::del($instanceId);
63 //delete navigation if exists
65 CRM_Core_BAO_Navigation
::processDelete($navId);
66 CRM_Core_BAO_Navigation
::resetNavigation();
69 CRM_Core_Session
::setStatus(ts('Selected report has been deleted.'), ts('Deleted'), 'success');
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.');
77 $extKey = strpos($templateInfo['name'], '.');
81 if ($extKey !== FALSE) {
82 $ext = CRM_Extension_System
::singleton()->getMapper();
83 $reportClass = $ext->keyToClass($templateInfo['name'], 'report');
84 $templateInfo['name'] = $reportClass;
87 if (strstr($templateInfo['name'], '_Form') ||
!is_null($reportClass)) {
88 $instanceInfo = array();
89 CRM_Report_BAO_ReportInstance
::retrieve(array('id' => $instanceId), $instanceInfo);
91 if (!empty($instanceInfo['title'])) {
92 CRM_Utils_System
::setTitle($instanceInfo['title']);
93 $this->assign('reportTitle', $instanceInfo['title']);
96 CRM_Utils_System
::setTitle($templateInfo['label']);
97 $this->assign('reportTitle', $templateInfo['label']);
100 $wrapper = new CRM_Utils_Wrapper();
101 return $wrapper->run($templateInfo['name'], NULL, NULL);
104 CRM_Core_Session
::setStatus(ts('Could not find template for the instance.'), ts('Template Not Found'), 'error');
106 return CRM_Utils_System
::redirect($reportUrl);