Handle bordereaudoc actions and email workflow

admin/setup.php

@@ -58,7 +58,7 @@
 // Libraries
 require_once DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php";
 require_once '../lib/diffusionplans.lib.php';
-require_once '../class/diffusion.class.php';
+require_once '../class/bordereaudoc.class.php';
 
 
 /**
@@ -84,7 +84,7 @@
 $value = GETPOST('value', 'alpha');
 $label = GETPOST('label', 'alpha');
 $scandir = GETPOST('scan_dir', 'alpha');
-$type = 'diffusion';
+$type = 'bordereaudoc';
 
 $error = 0;
 $setupnotempty = 0;
@@ -197,7 +197,7 @@
 $moduledir = 'diffusionplans';
 $myTmpObjects = array();
 // TODO Scan list of objects to fill this array
-$myTmpObjects['diffusion'] = array('label' => 'Diffusion', 'includerefgeneration' => 1, 'includedocgeneration' => 1, 'class' => 'Diffusion');
+$myTmpObjects['bordereaudoc'] = array('label' => 'Bordereaudoc', 'includerefgeneration' => 1, 'includedocgeneration' => 1, 'class' => 'Bordereaudoc');
 
 $tmpobjectkey = GETPOST('object', 'aZ09');
 if ($tmpobjectkey && !array_key_exists($tmpobjectkey, $myTmpObjects)) {
@@ -237,15 +237,15 @@
 
 	$className = $myTmpObjects[$tmpobjectkey]['class'];
 	$tmpobject = new $className($db);
-	'@phan-var-force Diffusion $tmpobject';
+        '@phan-var-force Bordereaudoc $tmpobject';
 	$tmpobject->initAsSpecimen();
 
 	// Search template files
 	$file = '';
 	$className = '';
 	$dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']);
 	foreach ($dirmodels as $reldir) {
-		$file = dol_buildpath($reldir."core/modules/diffusionplans/doc/pdf_".$modele."_".strtolower($tmpobjectkey).".modules.php", 0);
+                $file = dol_buildpath($reldir."core/modules/bordereaudoc/pdf_".$modele."_".strtolower($tmpobjectkey).".modules.php", 0);
 		if (file_exists($file)) {
 			$className = "pdf_".$modele."_".strtolower($tmpobjectkey);
 			break;
@@ -432,7 +432,7 @@
 
 								$className = $myTmpObjectArray['class'];
 								$mytmpinstance = new $className($db);
-								'@phan-var-force Diffusion $mytmpinstance';
+                                                            '@phan-var-force Bordereaudoc $mytmpinstance';
 								$mytmpinstance->initAsSpecimen();
 
 								// Info

bordereaudoc_agenda.php

@@ -0,0 +1,147 @@
+<?php
+/* Copyright (C) 2025 Pierre ARDOIN <[email protected]>
+*
+* This program is free software; you can redistribute it and/or modify
+* it under the terms of the GNU General Public License as published by
+* the Free Software Foundation; either version 3 of the License, or
+* (at your option) any later version.
+*
+* This program is distributed in the hope that it will be useful,
+* but WITHOUT ANY WARRANTY; without even the implied warranty of
+* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+* GNU General Public License for more details.
+*
+* You should have received a copy of the GNU General Public License
+* along with this program.  If not, see <https://www.gnu.org/licenses/>.
+*/
+
+/**
+* \file       bordereaudoc_agenda.php
+* \ingroup    diffusionplans
+* \brief      Tab of events for Bordereaudoc.
+*/
+
+// Load Dolibarr environment
+$res = 0;
+if (!$res && !empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) {
+	$res = @include $_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php";
+}
+$tmp = empty($_SERVER['SCRIPT_FILENAME']) ? '' : $_SERVER['SCRIPT_FILENAME'];
+$tmp2 = realpath(__FILE__);
+$i = strlen($tmp) - 1;
+$j = strlen($tmp2) - 1;
+while ($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i] == $tmp2[$j]) {
+	$i--;
+	$j--;
+}
+if (!$res && $i > 0 && file_exists(substr($tmp, 0, ($i + 1))."/main.inc.php")) {
+	$res = @include substr($tmp, 0, ($i + 1))."/main.inc.php";
+}
+if (!$res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php")) {
+	$res = @include dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php";
+}
+if (!$res && file_exists("../main.inc.php")) {
+	$res = @include "../main.inc.php";
+}
+if (!$res && file_exists("../../main.inc.php")) {
+	$res = @include "../../main.inc.php";
+}
+if (!$res && file_exists("../../../main.inc.php")) {
+	$res = @include "../../../main.inc.php";
+}
+if (!$res) {
+	die("Include of main fails");
+}
+
+require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
+require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
+require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
+dol_include_once('/diffusionplans/class/bordereaudoc.class.php');
+dol_include_once('/diffusionplans/lib/diffusionplans_bordereaudoc.lib.php');
+
+// Load translation files required by the page
+$langs->loadLangs(array('diffusionplans@diffusionplans', 'other'));
+
+// Get parameters
+$id = GETPOSTINT('id');
+$ref = GETPOST('ref', 'alpha');
+$action = GETPOST('action', 'aZ09');
+$backtopage = GETPOST('backtopage', 'alpha');
+$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : 'bordereaudocagenda';
+
+$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
+$sortfield = GETPOST('sortfield', 'aZ09comma');
+$sortorder = GETPOST('sortorder', 'aZ09comma');
+$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT('page');
+if (empty($page) || $page == -1) {
+	$page = 0;
+}
+$offset = $limit * $page;
+if (!$sortorder) {
+	$sortorder = 'DESC';
+}
+if (!$sortfield) {
+	$sortfield = 'a.datep';
+}
+
+// Initialize objects
+$object = new Bordereaudoc($db);
+$form = new Form($db);
+$hookmanager->initHooks(array('bordereaudocagenda', 'globalcard'));
+
+// Permissions
+$permissiontoread = $user->hasRight('diffusionplans', 'bordereaudoc', 'read');
+$permissiontoadd = $user->hasRight('agenda', 'myactions', 'create');
+
+if (!$permissiontoread) {
+	accessforbidden();
+}
+
+// Load object
+include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php';
+if (empty($object->id)) {
+	accessforbidden();
+}
+
+$backtopage = $backtopage ?: dol_buildpath('/diffusionplans/bordereaudoc_card.php', 1).'?id='.$object->id;
+$param = '?id='.$object->id;
+
+// Actions
+$object->fetch_thirdparty();
+$permissiontoreadnote = $permissiontoread;
+$permissiontodeletenote = $permissiontoadd;
+include DOL_DOCUMENT_ROOT.'/core/actions_agenda.inc.php';
+
+// View
+$help_url = '';
+$title = $langs->trans('Agenda');
+llxHeader('', $title, $help_url);
+
+$head = bordereaudocPrepareHead($object);
+print dol_get_fiche_head($head, 'agenda', $langs->trans('Bordereaudoc'), -1, $object->picto);
+
+dol_banner_tab($object, 'ref', $backtopage, ($user->socid ? 0 : 1), 'ref', 'fk_project');
+
+print '<div class="fichecenter">';
+print '<div class="fichehalfleft">';
+
+$morehtmlright = '';
+$morehtmlcenter = $langs->trans('Project').': ';
+if (!empty($object->fk_project)) {
+	$projectstatic = new Project($db);
+	$projectstatic->fetch($object->fk_project);
+	$morehtmlcenter .= $projectstatic->getNomUrl(1);
+} else {
+	$morehtmlcenter .= $langs->trans('None');
+}
+
+include DOL_DOCUMENT_ROOT.'/core/tpl/agenda_view.tpl.php';
+
+print '</div>';
+print '</div>';
+
+print dol_get_fiche_end();
+
+// Footer
+llxFooter();
+$db->close();