dolibarr 21.0.0-beta
myobject_agenda.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2017 Laurent Destailleur <eldy@users.sourceforge.net>
3 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
4 * Copyright (C) ---Replace with your own copyright and developer email---
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//if (! defined('NOREQUIREDB')) define('NOREQUIREDB', '1'); // Do not create database handler $db
27//if (! defined('NOREQUIREUSER')) define('NOREQUIREUSER', '1'); // Do not load object $user
28//if (! defined('NOREQUIRESOC')) define('NOREQUIRESOC', '1'); // Do not load object $mysoc
29//if (! defined('NOREQUIRETRAN')) define('NOREQUIRETRAN', '1'); // Do not load object $langs
30//if (! defined('NOSCANGETFORINJECTION')) define('NOSCANGETFORINJECTION', '1'); // Do not check injection attack on GET parameters
31//if (! defined('NOSCANPOSTFORINJECTION')) define('NOSCANPOSTFORINJECTION', '1'); // Do not check injection attack on POST parameters
32//if (! defined('NOTOKENRENEWAL')) define('NOTOKENRENEWAL', '1'); // Do not roll the Anti CSRF token (used if MAIN_SECURITY_CSRF_WITH_TOKEN is on)
33//if (! defined('NOSTYLECHECK')) define('NOSTYLECHECK', '1'); // Do not check style html tag into posted data
34//if (! defined('NOREQUIREMENU')) define('NOREQUIREMENU', '1'); // If there is no need to load and show top and left menu
35//if (! defined('NOREQUIREHTML')) define('NOREQUIREHTML', '1'); // If we don't need to load the html.form.class.php
36//if (! defined('NOREQUIREAJAX')) define('NOREQUIREAJAX', '1'); // Do not load ajax.lib.php library
37//if (! defined("NOLOGIN")) define("NOLOGIN", '1'); // If this page is public (can be called outside logged session). This include the NOIPCHECK too.
38//if (! defined('NOIPCHECK')) define('NOIPCHECK', '1'); // Do not check IP defined into conf $dolibarr_main_restrict_ip
39//if (! defined("MAIN_LANG_DEFAULT")) define('MAIN_LANG_DEFAULT', 'auto'); // Force lang to a particular value
40//if (! defined("MAIN_AUTHENTICATION_MODE")) define('MAIN_AUTHENTICATION_MODE', 'aloginmodule'); // Force authentication handler
41//if (! defined("MAIN_SECURITY_FORCECSP")) define('MAIN_SECURITY_FORCECSP', 'none'); // Disable all Content Security Policies
42//if (! defined('CSRFCHECK_WITH_TOKEN')) define('CSRFCHECK_WITH_TOKEN', '1'); // Force use of CSRF protection with tokens even for GET
43//if (! defined('NOBROWSERNOTIF')) define('NOBROWSERNOTIF', '1'); // Disable browser notification
44
45// Load Dolibarr environment
46$res = 0;
47// Try main.inc.php into web root known defined into CONTEXT_DOCUMENT_ROOT (not always defined)
48if (!$res && !empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) {
49 $res = @include $_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php";
50}
51// Try main.inc.php into web root detected using web root calculated from SCRIPT_FILENAME
52$tmp = empty($_SERVER['SCRIPT_FILENAME']) ? '' : $_SERVER['SCRIPT_FILENAME'];
53$tmp2 = realpath(__FILE__);
54$i = strlen($tmp) - 1;
55$j = strlen($tmp2) - 1;
56while ($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i] == $tmp2[$j]) {
57 $i--;
58 $j--;
59}
60if (!$res && $i > 0 && file_exists(substr($tmp, 0, ($i + 1))."/main.inc.php")) {
61 $res = @include substr($tmp, 0, ($i + 1))."/main.inc.php";
62}
63if (!$res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php")) {
64 $res = @include dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php";
65}
66// Try main.inc.php using relative path
67if (!$res && file_exists("../main.inc.php")) {
68 $res = @include "../main.inc.php";
69}
70if (!$res && file_exists("../../main.inc.php")) {
71 $res = @include "../../main.inc.php";
72}
73if (!$res && file_exists("../../../main.inc.php")) {
74 $res = @include "../../../main.inc.php";
75}
76if (!$res) {
77 die("Include of main fails");
78}
79
80require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
81require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
82require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
83dol_include_once('/mymodule/class/myobject.class.php');
84dol_include_once('/mymodule/lib/mymodule_myobject.lib.php');
85
94// Load translation files required by the page
95$langs->loadLangs(array("mymodule@mymodule", "other"));
96
97// Get parameters
98$id = GETPOSTINT('id');
99$ref = GETPOST('ref', 'alpha');
100$action = GETPOST('action', 'aZ09');
101$cancel = GETPOST('cancel', 'aZ09');
102$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : str_replace('_', '', basename(dirname(__FILE__)).basename(__FILE__, '.php')); // To manage different context of search
103$backtopage = GETPOST('backtopage', 'alpha');
104
105if (GETPOST('actioncode', 'array')) {
106 $actioncode = GETPOST('actioncode', 'array', 3);
107 if (!count($actioncode)) {
108 $actioncode = '0';
109 }
110} else {
111 $actioncode = GETPOST("actioncode", "alpha", 3) ? GETPOST("actioncode", "alpha", 3) : (GETPOST("actioncode") == '0' ? '0' : getDolGlobalString('AGENDA_DEFAULT_FILTER_TYPE_FOR_OBJECT'));
112}
113$search_rowid = GETPOST('search_rowid');
114$search_agenda_label = GETPOST('search_agenda_label');
115
116$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
117$sortfield = GETPOST('sortfield', 'aZ09comma');
118$sortorder = GETPOST('sortorder', 'aZ09comma');
119$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
120if (empty($page) || $page == -1) {
121 $page = 0;
122} // If $page is not defined, or '' or -1
123$offset = $limit * $page;
124$pageprev = $page - 1;
125$pagenext = $page + 1;
126if (!$sortfield) {
127 $sortfield = 'a.datep,a.id';
128}
129if (!$sortorder) {
130 $sortorder = 'DESC,DESC';
131}
132
133// Initialize a technical objects
134$object = new MyObject($db);
135$extrafields = new ExtraFields($db);
136$diroutputmassaction = $conf->mymodule->dir_output.'/temp/massgeneration/'.$user->id;
137$hookmanager->initHooks(array($object->element.'agenda', 'globalcard')); // Note that conf->hooks_modules contains array
138// Fetch optionals attributes and labels
139$extrafields->fetch_name_optionals_label($object->table_element);
140
141// Load object
142include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php'; // Must be 'include', not 'include_once'. Include fetch and fetch_thirdparty but not fetch_optionals
143if ($id > 0 || !empty($ref)) {
144 $upload_dir = $conf->mymodule->multidir_output[!empty($object->entity) ? $object->entity : $conf->entity]."/".$object->id;
145}
146
147// There is several ways to check permission.
148// Set $enablepermissioncheck to 1 to enable a minimum low level of checks
149$enablepermissioncheck = getDolGlobalInt('MYMODULE_ENABLE_PERMISSION_CHECK');
150if ($enablepermissioncheck) {
151 $permissiontoread = $user->hasRight('mymodule', 'myobject', 'read');
152 $permissiontoadd = $user->hasRight('mymodule', 'myobject', 'write');
153} else {
154 $permissiontoread = 1;
155 $permissiontoadd = 1;
156}
157
158// Security check (enable the most restrictive one)
159//if ($user->socid > 0) accessforbidden();
160//if ($user->socid > 0) $socid = $user->socid;
161//$isdraft = (($object->status == $object::STATUS_DRAFT) ? 1 : 0);
162//restrictedArea($user, $object->module, $object->id, $object->table_element, $object->element, 'fk_soc', 'rowid', $isdraft);
163if (!isModEnabled("mymodule")) {
165}
166if (!$permissiontoread) {
168}
169
170
171/*
172 * Actions
173 */
174
175$parameters = array('id' => $id);
176$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
177if ($reshook < 0) {
178 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
179}
180
181if (empty($reshook)) {
182 // Cancel
183 if (GETPOST('cancel', 'alpha') && !empty($backtopage)) {
184 header("Location: ".$backtopage);
185 exit;
186 }
187
188 // Purge search criteria
189 if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter.x', 'alpha') || GETPOST('button_removefilter', 'alpha')) { // All tests are required to be compatible with all browsers
190 $actioncode = '';
191 $search_agenda_label = '';
192 }
193}
194
195
196
197/*
198 * View
199 */
200
201$form = new Form($db);
202
203if ($object->id > 0) {
204 $title = $langs->trans("MyObject")." - ".$langs->trans('Agenda');
205 //$title = $object->ref." - ".$langs->trans("Agenda");
206 $help_url = 'EN:Module_Agenda_En|DE:Modul_Terminplanung';
207
208 llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-mymodule page-card_agenda');
209
210 if (isModEnabled('notification')) {
211 $langs->load("mails");
212 }
213 $head = myobjectPrepareHead($object);
214
215
216 print dol_get_fiche_head($head, 'agenda', $langs->trans("MyObject"), -1, $object->picto);
217
218 // Object card
219 // ------------------------------------------------------------
220 $linkback = '<a href="'.dol_buildpath('/mymodule/myobject_list.php', 1).'?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
221
222 $morehtmlref = '<div class="refidno">';
223 /*
224 // Ref customer
225 $morehtmlref.=$form->editfieldkey("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', 0, 1);
226 $morehtmlref.=$form->editfieldval("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', null, null, '', 1);
227 // Thirdparty
228 $morehtmlref.='<br>'.$langs->trans('ThirdParty') . ' : ' . (is_object($object->thirdparty) ? $object->thirdparty->getNomUrl(1) : '');
229 // Project
230 if (isModEnabled('project')) {
231 $langs->load("projects");
232 $morehtmlref.='<br>'.$langs->trans('Project') . ' ';
233 if ($permissiontoadd) {
234 if ($action != 'classify') {
235 //$morehtmlref.='<a class="editfielda" href="' . $_SERVER['PHP_SELF'] . '?action=classify&token='.newToken().'&id=' . $object->id . '">' . img_edit($langs->transnoentitiesnoconv('SetProject')) . '</a> : ';
236 }
237 $morehtmlref.=' : ';
238 if ($action == 'classify') {
239 //$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
240 $morehtmlref.='<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
241 $morehtmlref.='<input type="hidden" name="action" value="classin">';
242 $morehtmlref.='<input type="hidden" name="token" value="'.newToken().'">';
243 $morehtmlref.=$formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
244 $morehtmlref.='<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
245 $morehtmlref.='</form>';
246 } else {
247 $morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
248 }
249 } else {
250 if (!empty($object->fk_project)) {
251 $proj = new Project($db);
252 $proj->fetch($object->fk_project);
253 $morehtmlref .= ': '.$proj->getNomUrl();
254 } else {
255 $morehtmlref .= '';
256 }
257 }
258 }*/
259 $morehtmlref .= '</div>';
260
261
262 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);
263
264 print '<div class="fichecenter">';
265 print '<div class="underbanner clearboth"></div>';
266
267 $object->info($object->id);
268 dol_print_object_info($object, 1);
269
270 print '</div>';
271
272 print dol_get_fiche_end();
273
274
275
276 // Actions buttons
277
278 $objthirdparty = $object;
279 $objcon = new stdClass();
280
281 $out = '&origin='.urlencode($object->element.(property_exists($object, 'module') ? '@'.$object->module : '')).'&originid='.urlencode((string) $object->id);
282 $urlbacktopage = $_SERVER['PHP_SELF'].'?id='.$object->id;
283 $out .= '&backtopage='.urlencode($urlbacktopage);
284 $permok = $user->hasRight('agenda', 'myactions', 'create');
285 if ((!empty($objthirdparty->id) || !empty($objcon->id)) && $permok) {
286 //$out.='<a href="'.DOL_URL_ROOT.'/comm/action/card.php?action=create';
287 if (get_class($objthirdparty) == 'Societe') {
288 $out .= '&socid='.urlencode((string) $objthirdparty->id);
289 }
290 $out .= (!empty($objcon->id) ? '&contactid='.urlencode($objcon->id) : '');
291 //$out.=$langs->trans("AddAnAction").' ';
292 //$out.=img_picto($langs->trans("AddAnAction"),'filenew');
293 //$out.="</a>";
294 }
295
296 $morehtmlright = '';
297
298 //$messagingUrl = DOL_URL_ROOT.'/societe/messaging.php?socid='.$object->id;
299 //$morehtmlright .= dolGetButtonTitle($langs->trans('ShowAsConversation'), '', 'fa fa-comments imgforviewmode', $messagingUrl, '', 1);
300 //$messagingUrl = DOL_URL_ROOT.'/societe/agenda.php?socid='.$object->id;
301 //$morehtmlright .= dolGetButtonTitle($langs->trans('MessageListViewType'), '', 'fa fa-bars imgforviewmode', $messagingUrl, '', 2);
302
303 if (isModEnabled('agenda')) {
304 if ($user->hasRight('agenda', 'myactions', 'create') || $user->hasRight('agenda', 'allactions', 'create')) {
305 $morehtmlright .= dolGetButtonTitle($langs->trans('AddAction'), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/comm/action/card.php?action=create'.$out);
306 } else {
307 $morehtmlright .= dolGetButtonTitle($langs->trans('AddAction'), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/comm/action/card.php?action=create'.$out, '', 0);
308 }
309 }
310
311
312 if (isModEnabled('agenda') && ($user->hasRight('agenda', 'myactions', 'read') || $user->hasRight('agenda', 'allactions', 'read'))) {
313 print '<br>';
314
315 $param = '&id='.$object->id.(!empty($socid) ? '&socid='.$socid : '');
316 if (!empty($contextpage) && $contextpage != $_SERVER["PHP_SELF"]) {
317 $param .= '&contextpage='.urlencode($contextpage);
318 }
319 if ($limit > 0 && $limit != $conf->liste_limit) {
320 $param .= '&limit='.((int) $limit);
321 }
322
323 // Try to know count of actioncomm from cache
324 $nbEvent = 0;
325 //require_once DOL_DOCUMENT_ROOT.'/core/lib/memory.lib.php';
326 //$cachekey = 'count_events_myobject_'.$object->id;
327 //$nbEvent = dol_getcache($cachekey);
328 $titlelist = $langs->trans("Actions").(is_numeric($nbEvent) ? '<span class="opacitymedium colorblack paddingleft">('.$nbEvent.')</span>' : '');
329 if (!empty($conf->dol_optimize_smallscreen)) {
330 $titlelist = $langs->trans("Actions").(is_numeric($nbEvent) ? '<span class="opacitymedium colorblack paddingleft">('.$nbEvent.')</span>' : '');
331 }
332
333 print_barre_liste($titlelist, 0, $_SERVER["PHP_SELF"], '', $sortfield, $sortorder, '', 0, -1, '', 0, $morehtmlright, '', 0, 1, 0);
334
335 // List of all actions
336 $filters = array();
337 $filters['search_agenda_label'] = $search_agenda_label;
338 $filters['search_rowid'] = $search_rowid;
339
340 // TODO Replace this with same code than into list.php
341 show_actions_done($conf, $langs, $db, $object, null, 0, $actioncode, '', $filters, $sortfield, $sortorder, property_exists($object, 'module') ? $object->module : '');
342 }
343}
344
345// End of page
346llxFooter();
347$db->close();
$id
Definition account.php:48
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:66
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Definition wrapper.php:71
Class to manage standard extra fields.
Class to manage generation of HTML components Only common components must be here.
Class for MyObject.
show_actions_done($conf, $langs, $db, $filterobj, $objcon=null, $noprint=0, $actioncode='', $donetodo='done', $filters=array(), $sortfield='a.datep, a.id', $sortorder='DESC', $module='')
Show html area with actions (done or not, ignore the name of function).
llxFooter()
Footer empty.
Definition document.php:107
dol_print_object_info($object, $usetable=0)
Show information on an object TODO Move this into html.formother.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $selectlimitsuffix=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
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.
dolGetButtonTitle($label, $helpText='', $iconClass='fa fa-file', $url='', $id='', $status=1, $params=array())
Function dolGetButtonTitle : this kind of buttons are used in title in list.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
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.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
Definition member.php:79
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.