dolibarr  20.0.0-alpha
calendar_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) 2023 Alice Adminson <aadminson@example.com>
4  * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program. If not, see <https://www.gnu.org/licenses/>.
18  */
19 
26 // Load Dolibarr environment
27 require '../main.inc.php';
28 
29 require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
31 dol_include_once('/bookcal/class/calendar.class.php');
32 dol_include_once('/bookcal/lib/bookcal_calendar.lib.php');
33 
34 // Load translation files required by the page
35 $langs->loadLangs(array("agenda", "companies", "other", "mails"));
36 
37 $id = (GETPOST('id') ? GETPOSTINT('id') : GETPOSTINT('facid')); // For backward compatibility
38 $ref = GETPOST('ref', 'alpha');
39 $lineid = GETPOSTINT('lineid');
40 $socid = GETPOSTINT('socid');
41 $action = GETPOST('action', 'aZ09');
42 
43 // Initialize technical objects
44 $object = new Calendar($db);
45 $extrafields = new ExtraFields($db);
46 $diroutputmassaction = $conf->bookcal->dir_output.'/temp/massgeneration/'.$user->id;
47 $hookmanager->initHooks(array('calendarcontact', 'globalcard')); // Note that conf->hooks_modules contains array
48 // Fetch optionals attributes and labels
49 $extrafields->fetch_name_optionals_label($object->table_element);
50 
51 // Load object
52 include 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
53 
54 // There is several ways to check permission.
55 // Set $enablepermissioncheck to 1 to enable a minimum low level of checks
56 $enablepermissioncheck = 0;
57 if ($enablepermissioncheck) {
58  $permissiontoread = $user->hasRight('bookcal', 'calendar', 'read');
59  $permission = $user->hasRight('bookcal', 'calendar', 'write');
60 } else {
61  $permissiontoread = 1;
62  $permission = 1;
63 }
64 
65 // Security check (enable the most restrictive one)
66 //if ($user->socid > 0) accessforbidden();
67 //if ($user->socid > 0) $socid = $user->socid;
68 //$isdraft = (($object->status == $object::STATUS_DRAFT) ? 1 : 0);
69 //restrictedArea($user, $object->module, $object->id, $object->table_element, $object->element, 'fk_soc', 'rowid', $isdraft);
70 if (!isModEnabled("bookcal")) {
72 }
73 if (!$permissiontoread) {
75 }
76 
77 
78 /*
79  * Add a new contact
80  */
81 
82 if ($action == 'addcontact' && $permission) {
83  $contactid = (GETPOST('userid') ? GETPOSTINT('userid') : GETPOSTINT('contactid'));
84  $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
85  $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
86 
87  if ($result >= 0) {
88  header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
89  exit;
90  } else {
91  if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
92  $langs->load("errors");
93  setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
94  } else {
95  setEventMessages($object->error, $object->errors, 'errors');
96  }
97  }
98 } elseif ($action == 'swapstatut' && $permission) {
99  // Toggle the status of a contact
100  $result = $object->swapContactStatus(GETPOSTINT('ligne'));
101 } elseif ($action == 'deletecontact' && $permission) {
102  // Deletes a contact
103  $result = $object->delete_contact($lineid);
104 
105  if ($result >= 0) {
106  header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
107  exit;
108  } else {
109  dol_print_error($db);
110  }
111 }
112 
113 
114 /*
115  * View
116  */
117 
118 $title = $langs->trans('Calendar')." - ".$langs->trans('ContactsAddresses');
119 $help_url = '';
120 //$help_url='EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
121 llxHeader('', $title, $help_url);
122 
123 $form = new Form($db);
124 $formcompany = new FormCompany($db);
125 $contactstatic = new Contact($db);
126 $userstatic = new User($db);
127 
128 
129 /* *************************************************************************** */
130 /* */
131 /* View and edit mode */
132 /* */
133 /* *************************************************************************** */
134 
135 if ($object->id) {
136  /*
137  * Show tabs
138  */
139  $head = calendarPrepareHead($object);
140 
141  print dol_get_fiche_head($head, 'contact', $langs->trans("Calendar"), -1, $object->picto);
142 
143  $linkback = '<a href="'.dol_buildpath('/bookcal/calendar_list.php', 1).'?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
144 
145  $morehtmlref = '<div class="refidno">';
146  /*
147  // Ref customer
148  $morehtmlref.=$form->editfieldkey("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', 0, 1);
149  $morehtmlref.=$form->editfieldval("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', null, null, '', 1);
150  // Thirdparty
151  $morehtmlref.='<br>'.$langs->trans('ThirdParty') . ' : ' . (is_object($object->thirdparty) ? $object->thirdparty->getNomUrl(1) : '');
152  // Project
153  if (isModEnabled('project')) {
154  $langs->load("projects");
155  $morehtmlref.='<br>'.$langs->trans('Project') . ' ';
156  if ($permissiontoadd)
157  {
158  if ($action != 'classify')
159  //$morehtmlref.='<a class="editfielda" href="' . $_SERVER['PHP_SELF'] . '?action=classify&token='.newToken().'&id=' . $object->id . '">' . img_edit($langs->transnoentitiesnoconv('SetProject')) . '</a> : ';
160  $morehtmlref.=' : ';
161  if ($action == 'classify') {
162  //$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
163  $morehtmlref.='<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
164  $morehtmlref.='<input type="hidden" name="action" value="classin">';
165  $morehtmlref.='<input type="hidden" name="token" value="'.newToken().'">';
166  $morehtmlref.=$formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
167  $morehtmlref.='<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
168  $morehtmlref.='</form>';
169  } else {
170  $morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
171  }
172  } else {
173  if (!empty($object->fk_project)) {
174  $proj = new Project($db);
175  $proj->fetch($object->fk_project);
176  $morehtmlref .= ': '.$proj->getNomUrl();
177  } else {
178  $morehtmlref .= '';
179  }
180  }
181  }*/
182  $morehtmlref .= '</div>';
183 
184  dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref, '', 0, '', '', 1);
185 
186  print dol_get_fiche_end();
187 
188  print '<br>';
189 
190  // Contacts lines (modules that overwrite templates must declare this into descriptor)
191  $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
192  foreach ($dirtpls as $reldir) {
193  $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
194  if ($res) {
195  break;
196  }
197  }
198 }
199 
200 // End of page
201 llxFooter();
202 $db->close();
if($user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition: card.php:58
if(GETPOST('button_removefilter_x', 'alpha')||GETPOST('button_removefilter.x', 'alpha')||GETPOST('button_removefilter', 'alpha')) if(GETPOST('button_search_x', 'alpha')||GETPOST('button_search.x', 'alpha')||GETPOST('button_search', 'alpha')) if($action=="save" &&empty($cancel)) $help_url
View.
Definition: agenda.php:118
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
calendarPrepareHead($object)
Prepare array of tabs for Calendar.
Class for Calendar.
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 to manage Dolibarr users.
Definition: user.class.php:50
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
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_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.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
isModEnabled($module)
Is Dolibarr module enabled.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.