commiting uncommited changes on live site
[weblabels.fsf.org.git] / crm.fsf.org / 20131203 / files / sites / all / modules-old / civicrm / CRM / Dashlet / Page / MyCases.php
1 <?php
2 /*
3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.6 |
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 * $Id$
33 *
34 */
35
36 /**
37 * Main page for Cases dashlet
38 *
39 */
40 class CRM_Dashlet_Page_MyCases extends CRM_Core_Page {
41
42 /**
43 * List activities as dashlet.
44 *
45 * @return void
46 */
47 public function run() {
48 $context = CRM_Utils_Request::retrieve('context', 'String', $this, FALSE, 'dashlet');
49 $this->assign('context', $context);
50
51 //check for civicase access.
52 if (!CRM_Case_BAO_Case::accessCiviCase()) {
53 CRM_Core_Error::fatal(ts('You are not authorized to access this page.'));
54 }
55
56 $session = CRM_Core_Session::singleton();
57 $userID = $session->get('userID');
58 $upcoming = CRM_Case_BAO_Case::getCases(FALSE, $userID, 'upcoming', $context);
59
60 if (!empty($upcoming)) {
61 $this->assign('upcomingCases', $upcoming);
62 }
63 return parent::run();
64 }
65
66 }