1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
<?php
/**
* $Horde: nag/tasklists/create.php,v 1.1.2.3 2009-01-06 15:25:09 jan Exp $
*
* Copyright 2002-2009 The Horde Project (http://www.horde.org/)
*
* See the enclosed file COPYING for license information (GPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
*/
@define('NAG_BASE', dirname(dirname(__FILE__)));
require_once NAG_BASE . '/lib/base.php';
require_once NAG_BASE . '/lib/Forms/CreateTaskList.php';
// Exit if this isn't an authenticated user or if the user can't
// create new task lists (default share is locked).
if (!Auth::getAuth() || $prefs->isLocked('default_tasklist')) {
header('Location: ' . Horde::applicationUrl('list.php', true));
exit;
}
$vars = Variables::getDefaultVariables();
$form = new Nag_CreateTaskListForm($vars);
// Execute if the form is valid.
if ($form->validate($vars)) {
$result = $form->execute();
if (is_a($result, 'PEAR_Error')) {
$notification->push($result, 'horde.error');
} else {
$notification->push(sprintf(_("The task list \"%s\" has been created."), $vars->get('name')), 'horde.success');
}
header('Location: ' . Horde::applicationUrl('tasklists/', true));
exit;
}
$title = $form->getTitle();
require NAG_TEMPLATES . '/common-header.inc';
require NAG_TEMPLATES . '/menu.inc';
echo $form->renderActive($form->getRenderer(), $vars, 'create.php', 'post');
require $registry->get('templates', 'horde') . '/common-footer.inc';
|
