3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.6 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
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-2014
37 * Page for displaying list of Mail account settings
39 class CRM_Admin_Page_MailSettings
extends CRM_Core_Page_Basic
{
41 public $useLivePageJS = TRUE;
44 * The action links that we need to display for the browse screen
49 static $_links = NULL;
54 * @return string Classname of BAO.
56 function getBAOName() {
57 return 'CRM_Core_BAO_MailSettings';
63 * @return array (reference) of action links
66 if (!(self
::$_links)) {
67 // helper variable for nicer formatting
68 self
::$_links = array(
69 CRM_Core_Action
::UPDATE
=> array(
71 'url' => 'civicrm/admin/mailSettings',
72 'qs' => 'action=update&id=%%id%%&reset=1',
73 'title' => ts('Edit Mail Settings'),
75 CRM_Core_Action
::DELETE
=> array(
76 'name' => ts('Delete'),
77 'url' => 'civicrm/admin/mailSettings',
78 'qs' => 'action=delete&id=%%id%%',
79 'title' => ts('Delete Mail Settings'),
88 * Browse all mail settings.
95 //get all mail settings.
96 $allMailSettings = array();
97 $mailSetting = new CRM_Core_DAO_MailSettings();
99 $allProtocols = CRM_Core_PseudoConstant
::get('CRM_Core_DAO_MailSettings', 'protocol');
101 //multi-domain support for mail settings. CRM-5244
102 $mailSetting->domain_id
= CRM_Core_Config
::domainID();
104 //find all mail settings.
105 $mailSetting->find();
106 while ($mailSetting->fetch()) {
107 //replace protocol value with name
108 $mailSetting->protocol
= CRM_Utils_Array
::value($mailSetting->protocol
, $allProtocols);
109 CRM_Core_DAO
::storeValues($mailSetting, $allMailSettings[$mailSetting->id
]);
111 //form all action links
112 $action = array_sum(array_keys($this->links()));
114 // disallow the DELETE action for the default set of settings
115 if ($mailSetting->is_default
) {
116 $action &= ~CRM_Core_Action
::DELETE
;
120 $allMailSettings[$mailSetting->id
]['action'] = CRM_Core_Action
::formLink(self
::links(), $action,
121 array('id' => $mailSetting->id
),
124 'mailSetting.manage.action',
130 $this->assign('rows', $allMailSettings);
134 * Get name of edit form
136 * @return string Classname of edit form.
138 function editForm() {
139 return 'CRM_Admin_Form_MailSettings';
145 * @return string name of this page.
147 function editName() {
148 return 'Mail Settings';
156 * @return string user context.
158 function userContext($mode = NULL) {
159 return 'civicrm/admin/mailSettings';