card.php

<?php
/* Copyright (C) 2005       Matthieu Valleton           <mv@seeschloss.org>
 * Copyright (C) 2006-2021  Laurent Destailleur         <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2014  Regis Houssin               <regis.houssin@inodbox.com>
 * Copyright (C) 2007       Patrick Raguin              <patrick.raguin@gmail.com>
 * Copyright (C) 2013       Florian Henry               <florian.henry@open-concept.pro>
 * Copyright (C) 2015       Raphaël Doursenaud          <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2020-2026  Frédéric France             <frederic.france@free.fr>
 * Copyright (C) 2024       MDW                         <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2026       Alexandre Spangaro          <alexandre@inovea-conseil.com>
 *
 * 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       htdocs/categories/card.php
 *		\ingroup    category
 *		\brief      Page to create a new category
 */

// Load Dolibarr environment
require '../main.inc.php';
/**
 * @var Conf $conf
 * @var DoliDB $db
 * @var ExtraFields $extrafields
 * @var HookManager $hookmanager
 * @var Translate $langs
 * @var User $user
 */

require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';

// Load translation files required by the page
$langs->load("categories");

// Security check
$socid = GETPOSTINT('socid');
if (!$user->hasRight('categorie', 'lire')) {
	accessforbidden();
}

$action = GETPOST('action', 'alpha');
$cancel		= GETPOST('cancel', 'alpha');
$origin		= GETPOST('origin', 'alpha');
$catorigin  = GETPOSTINT('catorigin');
$type = GETPOST('type', 'aZ09');
$urlfrom = GETPOST('urlfrom', 'alpha');
$backtopage = GETPOST('backtopage', 'alpha');

$label = (string) GETPOST('label', 'alphanohtml');
$description = (string) GETPOST('description', 'restricthtml');
$color = preg_replace('/[^0-9a-f#]/i', '', (string) GETPOST('color', 'alphanohtml'));
$position = GETPOSTISSET('position') ? GETPOSTINT('position') : 1;
$visible = GETPOSTINT('visible');
$parent = GETPOSTINT('parent');

$idProdOrigin = 0;
$idSupplierOrigin = 0;
$idCompanyOrigin = 0;
$idMemberOrigin = 0;
$idContactOrigin = 0;
$idProjectOrigin = 0;
$idProdOrigin = 0;

if ($origin) {
	if ($type == Categorie::TYPE_PRODUCT) {
		$idProdOrigin     = $origin;
	}
	if ($type == Categorie::TYPE_SUPPLIER) {
		$idSupplierOrigin = $origin;
	}
	if ($type == Categorie::TYPE_CUSTOMER) {
		$idCompanyOrigin  = $origin;
	}
	if ($type == Categorie::TYPE_MEMBER) {
		$idMemberOrigin   = $origin;
	}
	if ($type == Categorie::TYPE_CONTACT) {
		$idContactOrigin  = $origin;
	}
	if ($type == Categorie::TYPE_PROJECT) {
		$idProjectOrigin  = $origin;
	}
}

if ($catorigin && $type == Categorie::TYPE_PRODUCT) {
	$idCatOrigin = $catorigin;
}
if (!GETPOSTISSET('parent') && $catorigin) {
	$parent = $catorigin;
}

$object = new Categorie($db);

$extrafields->fetch_name_optionals_label($object->table_element);

// Initialize a technical object to manage hooks. Note that conf->hooks_modules contains array array
$hookmanager->initHooks(array('categorycard'));

$error = 0;


/*
 *	Actions
 */

$parameters = array('socid' => $socid, 'origin' => $origin, 'catorigin' => $catorigin, 'type' => $type, 'urlfrom' => $urlfrom, 'backtopage' => $backtopage, 'label' => $label, 'description' => $description, 'color' => $color, 'position' => $position, 'visible' => $visible, 'parent' => $parent);
// Note that $action and $object may be modified by some hooks
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
if ($reshook < 0) {
	setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}

if (empty($reshook)) {
	$result = 0;

	// Add action
	if ($action == 'add' && $user->hasRight('categorie', 'creer')) {
		// Action add a category
		if ($cancel) {
			if ($urlfrom) {
				header("Location: ".$urlfrom);
				exit;
			} elseif ($backtopage) {
				header("Location: ".$backtopage);
				exit;
			} elseif ($idProdOrigin) {
				header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idProdOrigin.'&type='.$type);
				exit;
			} elseif ($idCompanyOrigin) {
				header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idCompanyOrigin.'&type='.$type);
				exit;
			} elseif ($idSupplierOrigin) {
				header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idSupplierOrigin.'&type='.$type);
				exit;
			} elseif ($idMemberOrigin) {
				header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idMemberOrigin.'&type='.$type);
				exit;
			} elseif ($idContactOrigin) {
				header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idContactOrigin.'&type='.$type);
				exit;
			} elseif ($idProjectOrigin) {
				header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idProjectOrigin.'&type='.$type);
				exit;
			} else {
				header("Location: ".DOL_URL_ROOT.'/categories/categorie_list.php?leftmenu=cat&type='.$type);
				exit;
			}
		}
		$object->label			= $label;
		$object->color			= $color;
		$object->position		= $position;
		$object->description = dol_htmlcleanlastbr($description);
		$object->socid			= ($socid > 0 ? $socid : 0);
		$object->visible = $visible;
		$object->type = $type;

		if ($parent != "-1") {
			$object->fk_parent = $parent;
		}

		$ret = $extrafields->setOptionalsFromPost(null, $object);
		if ($ret < 0) {
			$error++;
		}

		if (!$object->label) {
			$error++;
			setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentities("Ref")), null, 'errors');
			$action = 'create';
		}

		// Create category in database
		if (!$error) {
			$result = $object->create($user);
			if ($result > 0) {
				$action = 'confirmed';
			} else {
				setEventMessages($object->error, $object->errors, 'errors');
			}
		}
	}

	// Action confirmation of creation category
	if ($action == 'confirmed' && $user->hasRight('categorie', 'creer')) {
		if ($urlfrom) {
			header("Location: ".$urlfrom);
			exit;
		} elseif ($backtopage) {
			header("Location: ".$backtopage);
			exit;
		} elseif ($idProdOrigin) {
			header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idProdOrigin.'&type='.$type.'&mesg='.urlencode($langs->trans("CatCreated")));
			exit;
		} elseif ($idCompanyOrigin) {
			header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idCompanyOrigin.'&type='.$type.'&mesg='.urlencode($langs->trans("CatCreated")));
			exit;
		} elseif ($idSupplierOrigin) {
			header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idSupplierOrigin.'&type='.$type.'&mesg='.urlencode($langs->trans("CatCreated")));
			exit;
		} elseif ($idMemberOrigin) {
			header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idMemberOrigin.'&type='.$type.'&mesg='.urlencode($langs->trans("CatCreated")));
			exit;
		} elseif ($idContactOrigin) {
			header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idContactOrigin.'&type='.$type.'&mesg='.urlencode($langs->trans("CatCreated")));
			exit;
		} elseif ($idProjectOrigin) {
			header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$idProjectOrigin.'&type='.$type.'&mesg='.urlencode($langs->trans("CatCreated")));
			exit;
		}

		header("Location: ".DOL_URL_ROOT.'/categories/viewcat.php?id='.$result.'&type='.$type);
		exit;
	}
}


/*
 * View
 */

$form = new Form($db);
$formother = new FormOther($db);

$help_url = 'EN:Module_Categories|FR:Module_Catégories|DE:Modul_Kategorien';

llxHeader("", $langs->trans("Categories"), $help_url);

if ($user->hasRight('categorie', 'creer')) {
	// Create or add
	if ($action == 'create' || $action == 'add') {
		dol_set_focus('#label');

		print '<form action="'.$_SERVER['PHP_SELF'].'?type='.$type.'" method="POST">';
		print '<input type="hidden" name="token" value="'.newToken().'">';
		print '<input type="hidden" name="urlfrom" value="'.$urlfrom.'">';
		print '<input type="hidden" name="action" value="add">';
		print '<input type="hidden" name="id" value="'.GETPOST('origin', 'alpha').'">';
		print '<input type="hidden" name="type" value="'.$type.'">';
		print '<input type="hidden" name="backtopage" value="'.$backtopage.'">';
		if ($origin) {
			print '<input type="hidden" name="origin" value="'.$origin.'">';
		}
		if ($catorigin) {
			print '<input type="hidden" name="catorigin" value="'.$catorigin.'">';
		}

		print load_fiche_titre($langs->trans("CreateCat"), '', 'category');

		print dol_get_fiche_head();

		print '<table class="border centpercent">';

		// Type
		$typeLabel = '';
		if (!empty($type) && !empty(Categorie::$MAP_TYPE_TITLE_AREA[$type])) {
			$typeLabel = $langs->trans(Categorie::$MAP_TYPE_TITLE_AREA[$type]);
		}

		if (!empty($typeLabel)) {
			print '<tr>';
			print '<td class="titlefieldcreate">'.$langs->trans("Type").'</td>';
			print '<td>'.$typeLabel;
			print '<input type="hidden" name="type" value="'.dol_escape_htmltag($type).'">';
			print '</td>';
			print '</tr>';
		}

		// Ref
		print '<tr>';
		print '<td class="titlefieldcreate fieldrequired">'.$langs->trans("Ref").'</td>';
		print '<td><input id="label" class="minwidth100" name="label" value="'.dol_escape_htmltag($label).'" placeholder="'.$langs->trans("MyTag").'">';
		print'</td></tr>';

		// Description
		print '<tr><td class="tdtop">'.$langs->trans("Description").'</td><td>';
		require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
		$doleditor = new DolEditor('description', $description, '', 160, 'dolibarr_notes', '', false, true, isModEnabled('fckeditor') && getDolGlobalInt('FCKEDITOR_ENABLE_SOCIETE'), ROWS_5, '90%');
		$doleditor->Create();
		print '</td></tr>';

		// Color
		print '<tr><td>'.$langs->trans("Color").'</td><td>';
		print $formother->selectColor($color, 'color');
		print '</td></tr>';

		// Position
		print '<tr>';
		print '<td class="titlefieldcreate">'.$langs->trans("Position").'</td><td><input id="position" type="number" class="minwidth50 maxwidth50" name="position" value="'.$position.'">';
		print'</td></tr>';

		$htmlselect = $form->select_all_categories($type, $parent, 'parent');

		// Parent category
		if ($form->num > 0) {
			print '<tr><td>'.$langs->trans("AddIn").'</td><td>';
			print img_picto($langs->trans("ParentCategory"), 'category', 'class="pictofixedwidth"');
			print $htmlselect;
			print ajax_combobox('parent');
			print '</td></tr>';
		}

		$parameters = array();
		$reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
		print $hookmanager->resPrint;
		if (empty($reshook)) {
			print $object->showOptionals($extrafields, 'create', $parameters);
		}

		print '</table>';

		print dol_get_fiche_end();

		print '<div class="center">';
		print '<input type="submit" class="button b" value="'.$langs->trans("CreateThisCat").'" name="creation" />';
		print '&nbsp; &nbsp; &nbsp;';
		print '<input type="submit" class="button button-cancel" value="'.$langs->trans("Cancel").'" name="cancel" />';
		print '</div>';

		print '</form>';
	}
}

// End of page
llxFooter();
$db->close();