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 * Class CRM_Report_Form_Instance
15 class CRM_Report_Form_Instance
{
20 * @param CRM_Core_Form $form
22 public static function buildForm(&$form) {
23 // We should not build form elements in dashlet mode.
24 if ($form->_section
) {
28 // Check role based permission.
29 $instanceID = $form->getVar('_id');
30 if ($instanceID && !CRM_Report_Utils_Report
::isInstanceGroupRoleAllowed($instanceID)) {
31 $url = CRM_Utils_System
::url('civicrm/report/list', 'reset=1');
32 CRM_Core_Error
::statusBounce(ts('You do not have permission to access this report.'),
37 $attributes = CRM_Core_DAO
::getAttribute('CRM_Report_DAO_ReportInstance');
47 ts('Report Description'),
48 $attributes['description']
54 $attributes['email_subject']
60 $attributes['email_to']
66 $attributes['email_subject']
71 ts('Limit Dashboard Results'),
72 ['class' => 'four', 'min' => 1]
75 $form->add('textarea',
81 $form->add('textarea',
87 $form->addElement('checkbox', 'is_navigation', ts('Include Report in Navigation Menu?'), NULL,
88 ['onclick' => "return showHideByValue('is_navigation','','navigation_menu','table-row','radio',false);"]
91 $form->addElement('select', 'view_mode', ts('Configure link to...'), [
92 'view' => ts('View Results'),
93 'criteria' => ts('Show Criteria'),
96 $form->addElement('checkbox', 'addToDashboard', ts('Available for Dashboard?'));
97 $form->add('number', 'cache_minutes', ts('Cache dashlet for'), ['class' => 'four', 'min' => 1]);
98 $form->addElement('checkbox', 'add_to_my_reports', ts('Add to My Reports?'), NULL);
100 $form->addElement('checkbox', 'is_reserved', ts('Reserved Report?'));
101 if (!CRM_Core_Permission
::check('administer reserved reports')) {
102 $form->freeze('is_reserved');
105 $form->addElement('select',
108 ['0' => ts('Everyone (includes anonymous)')] + CRM_Core_Permission
::basicPermissions()
111 // prepare user_roles to save as names not as ids
112 if ($user_roles = CRM_Core_Config
::singleton()->userSystem
->getRoleNames()) {
113 $grouprole = $form->addElement('advmultiselect',
115 ts('ACL Group/Role'),
119 'style' => 'width:240px',
120 'class' => 'advmultiselect',
123 $grouprole->setButtonAttributes('add', ['value' => ts('Add >>')]);
124 $grouprole->setButtonAttributes('remove', ['value' => ts('<< Remove')]);
128 $parentMenu = CRM_Core_BAO_Navigation
::getNavigationList();
130 $form->add('select', 'parent_id', ts('Parent Menu'), ['' => ts('- select -')] +
$parentMenu);
132 // For now we only providing drilldown for one primary detail report only. In future this could be multiple reports
133 foreach ($form->_drilldownReport
as $reportUrl => $drillLabel) {
134 $instanceList = CRM_Report_Utils_Report
::getInstanceList($reportUrl);
135 if (count($instanceList) > 1) {
136 $form->add('select', 'drilldown_id', $drillLabel, ['' => ts('- select -')] +
$instanceList);
144 'name' => ts('Save Report'),
149 'name' => ts('Cancel'),
153 $form->addFormRule(['CRM_Report_Form_Instance', 'formRule'], $form);
159 * @param array $fields
160 * @param array $errors
161 * @param CRM_Report_Form_Instance $self
165 public static function formRule($fields, $errors, $self) {
166 // Validate both the "next" and "save" buttons for creating/updating a report.
167 $nextButton = $self->controller
->getButtonName();
168 $saveButton = str_replace('_next', '_save', $nextButton);
169 $clickedButton = $self->getVar('_instanceButtonName');
172 if ($clickedButton == $nextButton ||
$clickedButton == $saveButton) {
173 if (empty($fields['title'])) {
174 $errors['title'] = ts('Title is a required field.');
175 $self->assign('instanceFormError', TRUE);
179 return empty($errors) ?
TRUE : $errors;
183 * Set default values.
185 * @param CRM_Core_Form $form
186 * @param array $defaults
188 public static function setDefaultValues(&$form, &$defaults) {
189 // we should not build form elements in dashlet mode.
190 if ($form->_section
) {
194 $instanceID = $form->getVar('_id');
195 $navigationDefaults = [];
197 if (!isset($defaults['permission'])) {
198 $defaults['permission'] = 'access CiviReport';
201 $userFrameworkResourceURL = CRM_Core_Config
::singleton()->userFrameworkResourceURL
;
203 // Add a special region for the default HTML header of printed reports. It
204 // won't affect reports with customized headers, just ones with the default.
205 $printHeaderRegion = CRM_Core_Region
::instance('default-report-header', FALSE);
206 $htmlHeader = ($printHeaderRegion) ?
$printHeaderRegion->render('', FALSE) : '';
208 $defaults['report_header'] = $report_header = "<html>
210 <title>CiviCRM Report</title>
211 <meta http-equiv='Content-Type' content='text/html; charset=utf-8' />
212 <style type=\"text/css\">@import url({$userFrameworkResourceURL}css/print.css);</style>
215 <body><div id=\"crm-container\">";
217 $defaults['report_footer'] = $report_footer = "<p><img src=\"{$userFrameworkResourceURL}i/powered_by.png\" /></p></div></body>
221 // CRM-17225 view_mode currently supports 'view' or 'criteria'.
222 // Prior to 4.7 'view' meant reset=1 in the url & if not set
223 // then show criteria.
224 // From 4.7 we will pro-actively set 'force=1' but still respect the old behaviour.
225 // we may look to add pdf, print_view, csv & various charts as these could simply
226 // be added to the url allowing us to conceptualise 'view right now' vs saved view
227 // & using a multiselect (option value?) could help here.
228 // Note that accessing reports without reset=1 in the url turns out to be
229 // dangerous as it seems to carry actions like 'delete' from one report to another.
230 $defaults['view_mode'] = 'view';
231 $output = CRM_Utils_Request
::retrieve('output', 'String');
232 if ($output == 'criteria') {
233 $defaults['view_mode'] = 'criteria';
236 if (empty($defaults['cache_minutes'])) {
237 $defaults['cache_minutes'] = '60';
241 // this is already retrieved via Form.php
242 $defaults['description'] = $defaults['description'] ??
NULL;
243 if (!empty($defaults['header'])) {
244 $defaults['report_header'] = $defaults['header'];
246 if (!empty($defaults['footer'])) {
247 $defaults['report_footer'] = $defaults['footer'];
250 // CRM-17310 private reports option.
251 $defaults['add_to_my_reports'] = 0;
252 if (CRM_Utils_Array
::value('owner_id', $defaults) != NULL) {
253 $defaults['add_to_my_reports'] = 1;
256 if (!empty($defaults['navigation_id'])) {
257 // Get the default navigation parent id.
258 $params = ['id' => $defaults['navigation_id']];
259 CRM_Core_BAO_Navigation
::retrieve($params, $navigationDefaults);
260 $defaults['is_navigation'] = 1;
261 $defaults['parent_id'] = $navigationDefaults['parent_id'] ??
NULL;
262 if (!empty($navigationDefaults['is_active'])) {
263 $form->assign('is_navigation', TRUE);
265 // A saved view mode will over-ride any url assumptions.
266 if (strpos($navigationDefaults['url'], 'output=criteria')) {
267 $defaults['view_mode'] = 'criteria';
270 if (!empty($navigationDefaults['id'])) {
271 $form->_navigation
['id'] = $navigationDefaults['id'];
272 $form->_navigation
['parent_id'] = !empty($navigationDefaults['parent_id']) ?
273 $navigationDefaults['parent_id'] : NULL;
277 if (!empty($defaults['grouprole'])) {
278 foreach (explode(CRM_Core_DAO
::VALUE_SEPARATOR
, $defaults['grouprole']) as $value) {
279 $groupRoles[] = $value;
281 $defaults['grouprole'] = $groupRoles;
284 elseif (property_exists($form, '_description')) {
285 $defaults['description'] = $form->_description
;
290 * Post process function.
292 * @param CRM_Core_Form $form
293 * @param bool $redirect
295 public static function postProcess(&$form, $redirect = TRUE) {
296 $params = $form->getVar('_params');
297 $instanceID = $form->getVar('_id');
299 if ($isNew = $form->getVar('_createNew')) {
300 // set the report_id since base template is going to be same, and we going to unset $instanceID
301 // which will make it difficult later on, to compute report_id
302 $params['report_id'] = CRM_Report_Utils_Report
::getValueFromUrl($instanceID);
303 // Unset $instanceID so a new copy would be created.
306 $params['instance_id'] = $instanceID;
307 if (!empty($params['is_navigation'])) {
308 $params['navigation'] = $form->_navigation
;
310 elseif ($instanceID) {
311 // Delete navigation if exists.
312 $navId = CRM_Core_DAO
::getFieldValue('CRM_Report_DAO_ReportInstance', $instanceID, 'navigation_id', 'id');
314 CRM_Core_BAO_Navigation
::processDelete($navId);
315 CRM_Core_BAO_Navigation
::resetNavigation();
319 // make a copy of params
320 $formValues = $params;
322 // unset params from $formValues that doesn't match with DB columns of instance tables, and also not required in form-values for sure
337 foreach ($unsetFields as $field) {
338 unset($formValues[$field]);
340 $view_mode = $formValues['view_mode'];
342 // CRM-17310 my reports functionality - we should set owner if the checkbox is 1,
343 // it seems to be not set at all if unchecked.
344 if (!empty($formValues['add_to_my_reports'])) {
345 $params['owner_id'] = CRM_Core_Session
::getLoggedInContactID();
348 $params['owner_id'] = 'null';
350 unset($formValues['add_to_my_reports']);
352 // pass form_values as string
353 $params['form_values'] = serialize($formValues);
355 $instance = CRM_Report_BAO_ReportInstance
::create($params);
356 $form->set('id', $instance->id
);
358 if ($instanceID && !$isNew) {
359 // updating existing instance
360 $statusMsg = ts('"%1" report has been updated.', [1 => $instance->title
]);
362 elseif ($form->getVar('_id') && $isNew) {
363 $statusMsg = ts('Your report has been successfully copied as "%1". You are currently viewing the new copy.', [1 => $instance->title
]);
366 $statusMsg = ts('"%1" report has been successfully created. You are currently viewing the new report instance.', [1 => $instance->title
]);
368 CRM_Core_Session
::setStatus($statusMsg);
371 $urlParams = ['reset' => 1];
372 if ($view_mode == 'view') {
373 $urlParams['force'] = 1;
376 $urlParams['output'] = 'criteria';
378 CRM_Utils_System
::redirect(CRM_Utils_System
::url("civicrm/report/instance/{$instance->id}", $urlParams));