3 +--------------------------------------------------------------------+
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2018 |
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-2018
33 class CRM_Mailing_Controller_Send
extends CRM_Core_Controller
{
39 * @param bool|int $action
44 public function __construct($title = NULL, $action = CRM_Core_Action
::NONE
, $modal = TRUE) {
45 parent
::__construct($title, $modal, NULL, FALSE, TRUE);
47 // New: civicrm/mailing/send?reset=1
48 // Re-use: civicrm/mailing/send?reset=1&mid=%%mid%%
49 // Continue: civicrm/mailing/send?reset=1&mid=%%mid%%&continue=true
50 $mid = CRM_Utils_Request
::retrieve('mid', 'Positive');
51 $continue = CRM_Utils_Request
::retrieve('continue', 'String');
53 CRM_Utils_System
::redirect(CRM_Utils_System
::url('civicrm/a/', NULL, TRUE, '/mailing/new'));
55 if ($mid && $continue) {
56 //CRM-15979 - check if abtest exist for mailing then redirect accordingly
57 $abtest = CRM_Mailing_BAO_MailingAB
::getABTest($mid);
58 if (!empty($abtest) && !empty($abtest->id
)) {
59 $redirect = CRM_Utils_System
::url('civicrm/a/', NULL, TRUE, '/abtest/' . $abtest->id
);
62 $redirect = CRM_Utils_System
::url('civicrm/a/', NULL, TRUE, '/mailing/' . $mid);
64 CRM_Utils_System
::redirect($redirect);
66 if ($mid && !$continue) {
67 $clone = civicrm_api3('Mailing', 'clone', array('id' => $mid));
68 CRM_Utils_System
::redirect(CRM_Utils_System
::url('civicrm/a/', NULL, TRUE, '/mailing/' . $clone['id']));