3 +--------------------------------------------------------------------+
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2019 |
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-2019
35 * This class is to build the form for deleting a Survey.
37 class CRM_Campaign_Form_Survey_Delete
extends CRM_Core_Form
{
40 * The id of the object being deleted
51 protected $_surveyTitle;
54 * Set variables up before form is built.
56 public function preProcess() {
57 if (!CRM_Campaign_BAO_Campaign
::accessCampaign()) {
58 CRM_Utils_System
::permissionDenied();
61 $this->_surveyId
= CRM_Utils_Request
::retrieve('id', 'Positive', $this, FALSE);
62 $params = ['id' => $this->_surveyId
];
63 CRM_Campaign_BAO_Survey
::retrieve($params, $surveyInfo);
64 $this->_surveyTitle
= $surveyInfo['title'];
65 $this->assign('surveyTitle', $this->_surveyTitle
);
66 CRM_Utils_System
::setTitle(ts('Delete Survey') . ' - ' . $this->_surveyTitle
);
70 * Build the form object.
72 public function buildQuickForm() {
76 'name' => ts('Delete'),
81 'name' => ts('Cancel'),
87 * Process the form when submitted.
89 public function postProcess() {
90 if ($this->_surveyId
) {
91 CRM_Campaign_BAO_Survey
::del($this->_surveyId
);
92 CRM_Core_Session
::setStatus('', ts("'%1' survey has been deleted.", [1 => $this->_surveyTitle
]), 'success');
93 CRM_Utils_System
::redirect(CRM_Utils_System
::url('civicrm/campaign', 'reset=1&subPage=survey'));
96 CRM_Core_Error
::fatal(ts('Delete action is missing expected survey ID.'));