CRM-15801 - crmMailing - Display the "Unsubscribe tracking group" field
[civicrm-core.git] / CRM / Mailing / Form / Task / AdhocMailing.php
1 <?php
2 /*
3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.6 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
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-2014
32 * $Id$
33 *
34 */
35
36 /**
37 * Given the selected contacts, prepare a mailing with a hidden group.
38 */
39 class CRM_Mailing_Form_Task_AdhocMailing extends CRM_Contact_Form_Task {
40
41 public function preProcess() {
42 parent::preProcess();
43 list ($groupId, $ssId) = $this->createHiddenGroup();
44 $mailing = civicrm_api3('Mailing', 'create', array(
45 'name' => "",
46 'campaign_id' => NULL,
47 'replyto_email' => "",
48 'subject' => "",
49 'body_html' => "",
50 'body_text' => "",
51 'groups' => array(
52 'include' => array($groupId),
53 'exclude' => array(),
54 'base' => array(),
55 ),
56 'mailings' => array(
57 'include' => array(),
58 'exclude' => array(),
59 ),
60 ));
61
62 CRM_Utils_System::redirect(CRM_Utils_System::url('civicrm/a/', NULL, TRUE, '/mailing/' . $mailing['id']));
63 }
64
65 }