Add documentation
[ldapsaisie.git] / public_html / create.php
1 <?php
2 /*******************************************************************************
3  * Copyright (C) 2007 Easter-eggs
4  * http://ldapsaisie.labs.libre-entreprise.org
5  *
6  * Author: See AUTHORS file in top-level directory.
7  *
8  * This program is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU General Public License version 2
10  * as published by the Free Software Foundation.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20
21 ******************************************************************************/
22
23 require_once 'core.php';
24
25 if(LSsession :: startLSsession()) {
26
27   if (isset($_POST['LSform_objecttype'])) {
28     $LSobject = $_POST['LSform_objecttype'];
29   }
30   else if (isset($_GET['LSobject'])) {
31     $LSobject = $_GET['LSobject'];
32   }
33   
34   if (isset($LSobject)) {
35     // LSObject creation
36     if (LSsession ::loadLSobject($LSobject)) {
37       if ( LSsession :: canCreate($LSobject) ) {
38         $object = new $LSobject();
39         
40         if (isset($_GET['load']) && $_GET['load']!='') {
41           $form = $object -> getForm('create',urldecode($_GET['load']));
42         }
43         else {
44           $form = $object -> getForm('create');
45         }
46
47         if (isset($_REQUEST['LSform_dataEntryForm'])) {
48           $form -> applyDataEntryForm((string)$_REQUEST['LSform_dataEntryForm']);
49           LStemplate :: assign('LSform_dataEntryForm',(string)$_REQUEST['LSform_dataEntryForm']);
50         }
51
52         LStemplate :: assign('listAvailableDataEntryForm',LSform :: listAvailableDataEntryForm($LSobject));
53         LStemplate :: assign('DataEntryFormLabel',_('Data entry form'));
54
55         if ($form->validate()) {
56           // Data update for LDAP object
57           if ($object -> updateData('create')) {
58             if (!LSerror::errorsDefined()) {
59               LSsession :: addInfo(_("Object has been added."));
60             }
61             if (isset($_REQUEST['ajax'])) {
62               LSsession :: displayAjaxReturn (
63                 array(
64                   'LSredirect' => 'view.php?LSobject='.$LSobject.'&dn='.urlencode($object -> getDn())
65                 )
66               );
67               exit();
68             }
69             else {
70               if (!LSdebugDefined()) {
71                 LSsession :: redirect('view.php?LSobject='.$LSobject.'&dn='.urlencode($object -> getDn()));
72               }
73             }
74           }
75           else {
76             if (isset($_REQUEST['ajax'])) {
77               LSsession :: displayAjaxReturn (
78                 array(
79                   'LSformErrors' => $form -> getErrors()
80                 )
81               );
82               exit();
83             }
84             else {
85               LSsession :: displayTemplate();
86             }
87           }
88         }
89         else if (isset($_REQUEST['ajax']) && $form -> definedError()) {
90           LSsession :: displayAjaxReturn (
91             array(
92               'LSformErrors' => $form -> getErrors()
93             )
94           );
95           exit();
96         }
97         // Define page title
98         LStemplate :: assign('pagetitle',_('New').' : '.$object -> getLabel());
99         LSsession :: setTemplate('create.tpl');
100         $form -> display();
101       }
102       else {
103         LSerror :: addErrorCode('LSsession_11');
104       }
105     }
106     else {
107       LSerror :: addErrorCode('LSldapObject_01');
108     }
109   }
110   else {
111     LSerror :: addErrorCode('LSsession_12');
112   }
113
114 }
115 else {
116   LSsession :: setTemplate('login.tpl');
117 }
118 LSsession :: displayTemplate();
119
120 ?>