dolibarr 18.0.6
myobject_contact.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2007-2017 Laurent Destailleur <eldy@users.sourceforge.net>
3 * Copyright (C) ---Put here your own copyright and developer email---
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 3 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program. If not, see <https://www.gnu.org/licenses/>.
17 */
18
25// Load Dolibarr environment
26$res = 0;
27// Try main.inc.php into web root known defined into CONTEXT_DOCUMENT_ROOT (not always defined)
28if (!$res && !empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) {
29 $res = @include $_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php";
30}
31// Try main.inc.php into web root detected using web root calculated from SCRIPT_FILENAME
32$tmp = empty($_SERVER['SCRIPT_FILENAME']) ? '' : $_SERVER['SCRIPT_FILENAME']; $tmp2 = realpath(__FILE__); $i = strlen($tmp) - 1; $j = strlen($tmp2) - 1;
33while ($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i] == $tmp2[$j]) {
34 $i--; $j--;
35}
36if (!$res && $i > 0 && file_exists(substr($tmp, 0, ($i + 1))."/main.inc.php")) {
37 $res = @include substr($tmp, 0, ($i + 1))."/main.inc.php";
38}
39if (!$res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php")) {
40 $res = @include dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php";
41}
42// Try main.inc.php using relative path
43if (!$res && file_exists("../main.inc.php")) {
44 $res = @include "../main.inc.php";
45}
46if (!$res && file_exists("../../main.inc.php")) {
47 $res = @include "../../main.inc.php";
48}
49if (!$res && file_exists("../../../main.inc.php")) {
50 $res = @include "../../../main.inc.php";
51}
52if (!$res) {
53 die("Include of main fails");
54}
55
56require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
57require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
58dol_include_once('/mymodule/class/myobject.class.php');
59dol_include_once('/mymodule/lib/mymodule_myobject.lib.php');
60
61// Load translation files required by the page
62$langs->loadLangs(array("mymodule@mymodule", "companies", "other", "mails"));
63
64$id = (GETPOST('id') ?GETPOST('id', 'int') : GETPOST('facid', 'int')); // For backward compatibility
65$ref = GETPOST('ref', 'alpha');
66$lineid = GETPOST('lineid', 'int');
67$socid = GETPOST('socid', 'int');
68$action = GETPOST('action', 'aZ09');
69
70// Initialize technical objects
71$object = new MyObject($db);
72$extrafields = new ExtraFields($db);
73$diroutputmassaction = $conf->mymodule->dir_output.'/temp/massgeneration/'.$user->id;
74$hookmanager->initHooks(array('myobjectcontact', 'globalcard')); // Note that conf->hooks_modules contains array
75// Fetch optionals attributes and labels
76$extrafields->fetch_name_optionals_label($object->table_element);
77
78// Load object
79include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php'; // Must be include, not include_once // Must be include, not include_once. Include fetch and fetch_thirdparty but not fetch_optionals
80
81// There is several ways to check permission.
82// Set $enablepermissioncheck to 1 to enable a minimum low level of checks
83$enablepermissioncheck = 0;
84if ($enablepermissioncheck) {
85 $permissiontoread = $user->rights->mymodule->myobject->read;
86 $permission = $user->rights->mymodule->myobject->write;
87} else {
88 $permissiontoread = 1;
89 $permission = 1;
90}
91
92// Security check (enable the most restrictive one)
93//if ($user->socid > 0) accessforbidden();
94//if ($user->socid > 0) $socid = $user->socid;
95//$isdraft = (($object->status == $object::STATUS_DRAFT) ? 1 : 0);
96//restrictedArea($user, $object->module, $object->id, $object->table_element, $object->element, 'fk_soc', 'rowid', $isdraft);
97if (!isModEnabled("mymodule")) {
99}
100if (!$permissiontoread) accessforbidden();
101
102
103/*
104 * Add a new contact
105 */
106
107if ($action == 'addcontact' && $permission) {
108 $contactid = (GETPOST('userid') ? GETPOST('userid', 'int') : GETPOST('contactid', 'int'));
109 $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
110 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
111
112 if ($result >= 0) {
113 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
114 exit;
115 } else {
116 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
117 $langs->load("errors");
118 setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
119 } else {
120 setEventMessages($object->error, $object->errors, 'errors');
121 }
122 }
123} elseif ($action == 'swapstatut' && $permission) {
124 // Toggle the status of a contact
125 $result = $object->swapContactStatus(GETPOST('ligne', 'int'));
126} elseif ($action == 'deletecontact' && $permission) {
127 // Deletes a contact
128 $result = $object->delete_contact($lineid);
129
130 if ($result >= 0) {
131 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
132 exit;
133 } else {
134 dol_print_error($db);
135 }
136}
137
138
139/*
140 * View
141 */
142
143$title = $langs->trans('MyObject')." - ".$langs->trans('ContactsAddresses');
144$help_url = '';
145//$help_url='EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
146llxHeader('', $title, $help_url);
147
148$form = new Form($db);
149$formcompany = new FormCompany($db);
150$contactstatic = new Contact($db);
151$userstatic = new User($db);
152
153
154/* *************************************************************************** */
155/* */
156/* View and edit mode */
157/* */
158/* *************************************************************************** */
159
160if ($object->id) {
161 /*
162 * Show tabs
163 */
164 $head = myobjectPrepareHead($object);
165
166 print dol_get_fiche_head($head, 'contact', $langs->trans("MyObject"), -1, $object->picto);
167
168 $linkback = '<a href="'.dol_buildpath('/mymodule/myobject_list.php', 1).'?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
169
170 $morehtmlref = '<div class="refidno">';
171 /*
172 // Ref customer
173 $morehtmlref.=$form->editfieldkey("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', 0, 1);
174 $morehtmlref.=$form->editfieldval("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', null, null, '', 1);
175 // Thirdparty
176 $morehtmlref.='<br>'.$langs->trans('ThirdParty') . ' : ' . (is_object($object->thirdparty) ? $object->thirdparty->getNomUrl(1) : '');
177 // Project
178 if (isModEnabled('project')) {
179 $langs->load("projects");
180 $morehtmlref.='<br>'.$langs->trans('Project') . ' ';
181 if ($permissiontoadd)
182 {
183 if ($action != 'classify')
184 //$morehtmlref.='<a class="editfielda" href="' . $_SERVER['PHP_SELF'] . '?action=classify&token='.newToken().'&id=' . $object->id . '">' . img_edit($langs->transnoentitiesnoconv('SetProject')) . '</a> : ';
185 $morehtmlref.=' : ';
186 if ($action == 'classify') {
187 //$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
188 $morehtmlref.='<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
189 $morehtmlref.='<input type="hidden" name="action" value="classin">';
190 $morehtmlref.='<input type="hidden" name="token" value="'.newToken().'">';
191 $morehtmlref.=$formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
192 $morehtmlref.='<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
193 $morehtmlref.='</form>';
194 } else {
195 $morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
196 }
197 } else {
198 if (!empty($object->fk_project)) {
199 $proj = new Project($db);
200 $proj->fetch($object->fk_project);
201 $morehtmlref .= ': '.$proj->getNomUrl();
202 } else {
203 $morehtmlref .= '';
204 }
205 }
206 }*/
207 $morehtmlref .= '</div>';
208
209 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref, '', 0, '', '', 1);
210
211 print dol_get_fiche_end();
212
213 print '<br>';
214
215 // Contacts lines (modules that overwrite templates must declare this into descriptor)
216 $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
217 foreach ($dirtpls as $reldir) {
218 $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
219 if ($res) {
220 break;
221 }
222 }
223}
224
225// End of page
226llxFooter();
227$db->close();
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:56
llxFooter()
Empty footer.
Definition wrapper.php:70
Class to manage contact/addresses.
Class to manage standard extra fields.
Class to build HTML component for third parties management Only common components are here.
Class to manage generation of HTML components Only common components must be here.
Class for MyObject.
Class to manage Dolibarr users.
dol_banner_tab($object, $paramid, $morehtml='', $shownav=1, $fieldid='rowid', $fieldref='ref', $morehtmlref='', $moreparam='', $nodbprefix=0, $morehtmlleft='', $morehtmlstatus='', $onlybanner=0, $morehtmlright='')
Show tab footer of a card.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_get_fiche_end($notab=0)
Return tab footer of a card.
if(!function_exists( 'dol_getprefix')) dol_include_once($relpath, $classname='')
Make an include_once using default root and alternate root if it fails.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
myobjectPrepareHead($object)
Prepare array of tabs for MyObject.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.