<?php
/* Copyright (C) 2005		Matthieu Valleton			<mv@seeschloss.org>
 * Copyright (C) 2006-2020	Laurent Destailleur			<eldy@users.sourceforge.net>
 * Copyright (C) 2007		Patrick Raguin				<patrick.raguin@gmail.com>
 * Copyright (C) 2005-2012	Regis Houssin				<regis.houssin@inodbox.com>
 * Copyright (C) 2015		Raphaël Doursenaud			<rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2020		Tobias Sekan				<tobias.sekan@startmail.com>
 * Copyright (C) 2020		Josep Lluís Amador			<joseplluis@lliuretic.cat>
 * Copyright (C) 2024		MDW							<mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024       Frédéric France             <frederic.france@free.fr>
 * Copyright (C) 2024		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/viewcat.php
 *       \ingroup    category
 *       \brief      Page to show a category card
 */

// Load Dolibarr environment
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/categories.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';

// Load translation files required by the page
$langs->loadLangs(array("categories", "compta"));

$id         = GETPOSTINT('id');
$label      = GETPOST('label', 'alpha');
$removeelem = GETPOSTINT('removeelem');
$elemid     = GETPOSTINT('elemid');

$action     = GETPOST('action', 'aZ09') ? GETPOST('action', 'aZ09') : 'view'; // The action 'add', 'create', 'edit', 'update', 'view', ...
$massaction = GETPOST('massaction', 'alpha'); // The bulk action (combo box choice into lists)
$show_files = GETPOSTINT('show_files'); // Show files area generated by bulk actions ?
$confirm    = GETPOST('confirm', 'alpha'); // Result of a confirmation
$cancel     = GETPOST('cancel', 'alpha'); // We click on a Cancel button
$toselect   = GETPOST('toselect', 'array'); // Array of ids of elements selected into a list
$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : 'categorylist'; // To manage different context of search
$backtopage = GETPOST('backtopage', 'alpha'); // Go back to a dedicated page
$optioncss = GETPOST('optioncss', 'aZ'); // Option for the css output (always '' except when 'print')


// Load variable for pagination
$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 || GETPOST('button_search', 'alpha') || GETPOST('button_removefilter', 'alpha') || (empty($toselect) && $massaction === '0')) {
	$page = 0;
}     // If $page is not defined, or '' or -1 or if we click on clear filters or if we select empty mass action
$offset = $limit * $page;
$pageprev = $page - 1;
$pagenext = $page + 1;

if ($id == "" && $label == "") {
	dol_print_error(null, 'Missing parameter id');
	exit();
}

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

// Security check
$result = restrictedArea($user, 'categorie', $id, '&category');

$object = new Categorie($db);
$result = $object->fetch($id, $label);
if ($result <= 0) {
	dol_print_error($db, $object->error);
	exit;
}

$type = $object->type;
if (is_numeric($type)) {
	$type = Categorie::$MAP_ID_TO_CODE[$type]; // For backward compatibility
}

$extrafields = new ExtraFields($db);
$extrafields->fetch_name_optionals_label($object->table_element);

/*
 *	Actions
 */

if ($confirm == 'no') {
	if ($backtopage) {
		header("Location: ".$backtopage);
		exit;
	}
}

$parameters = array('type' => $type, 'id' => $id, 'label' => $label);
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
// Remove element from category
if ($id > 0 && $removeelem > 0 && $action == 'unlink') {
	if ($type == Categorie::TYPE_PRODUCT && ($user->hasRight('produit', 'creer') || $user->hasRight('service', 'creer'))) {
		require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
		$tmpobject = new Product($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'product';
	} elseif ($type == Categorie::TYPE_SUPPLIER && $user->hasRight('societe', 'creer')) {
		$tmpobject = new Societe($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'supplier';
	} elseif ($type == Categorie::TYPE_CUSTOMER && $user->hasRight('societe', 'creer')) {
		$tmpobject = new Societe($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'customer';
	} elseif ($type == Categorie::TYPE_MEMBER && $user->hasRight('adherent', 'creer')) {
		require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
		$tmpobject = new Adherent($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'member';
	} elseif ($type == Categorie::TYPE_CONTACT && $user->hasRight('societe', 'creer')) {
		require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
		$tmpobject = new Contact($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'contact';
	} elseif ($type == Categorie::TYPE_ACCOUNT && $user->hasRight('banque', 'configurer')) {
		require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
		$tmpobject = new Account($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'account';
	} elseif ($type == Categorie::TYPE_PROJECT && $user->hasRight('projet', 'creer')) {
		require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
		$tmpobject = new Project($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'project';
	} elseif ($type == Categorie::TYPE_USER && $user->hasRight('user', 'user', 'creer')) {
		require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
		$tmpobject = new User($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'user';
	} elseif ($type == Categorie::TYPE_TICKET && $user->hasRight('ticket', 'write')) {
		require_once DOL_DOCUMENT_ROOT.'/ticket/class/ticket.class.php';
		$tmpobject = new Ticket($db);
		$result = $tmpobject->fetch($removeelem);
		$elementtype = 'ticket';
	}

	$result = $object->del_type($tmpobject, $elementtype);
	if ($result < 0) {
		dol_print_error(null, $object->error);
	}
}

if ($user->hasRight('categorie', 'supprimer') && $action == 'confirm_delete' && $confirm == 'yes') {
	if ($object->delete($user) >= 0) {
		if ($backtopage) {
			header("Location: ".$backtopage);
			exit;
		} else {
			header("Location: ".DOL_URL_ROOT.'/categories/index.php?type='.$type);
			exit;
		}
	} else {
		setEventMessages($object->error, $object->errors, 'errors');
	}
}

if ($elemid && $action == 'addintocategory' &&
	(
		($type == Categorie::TYPE_PRODUCT && ($user->hasRight('produit', 'creer') || $user->hasRight('service', 'creer'))) ||
	 ($type == Categorie::TYPE_CUSTOMER && $user->hasRight('societe', 'creer')) ||
	 ($type == Categorie::TYPE_SUPPLIER && $user->hasRight('societe', 'creer')) ||
	 ($type == Categorie::TYPE_TICKET && $user->hasRight('ticket', 'write')) ||
	 ($type == Categorie::TYPE_PROJECT && $user->hasRight('projet', 'creer')) ||
	 ($type == Categorie::TYPE_MEMBER && $user->hasRight('adherent', 'creer')) ||
	 ($type == Categorie::TYPE_CONTACT && $user->hasRight('societe', 'creer')) ||
	 ($type == Categorie::TYPE_USER && $user->hasRight('user', 'user', 'creer')) ||
	 ($type == Categorie::TYPE_ACCOUNT && $user->hasRight('banque', 'configurer'))
	)) {
	if ($type == Categorie::TYPE_PRODUCT) {
		require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
		$newobject = new Product($db);
		$elementtype = 'product';
	} elseif ($type == Categorie::TYPE_CUSTOMER) {
		require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
		$newobject = new Societe($db);
		$elementtype = 'customer';
	} elseif ($type == Categorie::TYPE_SUPPLIER) {
		require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
		$newobject = new Societe($db);
		$elementtype = 'supplier';
	} elseif ($type == Categorie::TYPE_TICKET) {
		require_once DOL_DOCUMENT_ROOT.'/ticket/class/ticket.class.php';
		$newobject = new Ticket($db);
		$elementtype = 'ticket';
	} elseif ($type == Categorie::TYPE_PROJECT) {
		require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
		$newobject = new Project($db);
		$elementtype = 'project';
	} elseif ($type == Categorie::TYPE_MEMBER) {
		require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
		$newobject = new Adherent($db);
		$elementtype = 'member';
	} elseif ($type == Categorie::TYPE_CONTACT) {
		require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
		$newobject = new Contact($db);
		$elementtype = 'contact';
	} elseif ($type == Categorie::TYPE_USER) {
		require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
		$newobject = new User($db);
		$elementtype = 'user';
	} elseif ($type == Categorie::TYPE_ACCOUNT) {
		require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
		$newobject = new Account($db);
		$elementtype = 'bank_account';
	} else {
		dol_print_error(null, "Not supported value of type = ".$type);
	}
	$result = $newobject->fetch($elemid);

	// Add into category
	$result = $object->add_type($newobject, $elementtype);
	if ($result >= 0) {
		setEventMessages($langs->trans("WasAddedSuccessfully", $newobject->ref), null, 'mesgs');
	} else {
		if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
			setEventMessages($langs->trans("ObjectAlreadyLinkedToCategory"), null, 'warnings');
		} else {
			setEventMessages($object->error, $object->errors, 'errors');
		}
	}
}


/*
 * View
 */

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

$arrayofjs = array('/includes/jquery/plugins/jquerytreeview/jquery.treeview.js', '/includes/jquery/plugins/jquerytreeview/lib/jquery.cookie.js');
$arrayofcss = array('/includes/jquery/plugins/jquerytreeview/jquery.treeview.css');

$help_url = '';

llxHeader("", $langs->trans("Categories"), $help_url, '', 0, 0, $arrayofjs, $arrayofcss);

$title = Categorie::$MAP_TYPE_TITLE_AREA[$type];

$head = categories_prepare_head($object, $type);
print dol_get_fiche_head($head, 'card', $langs->trans($title), -1, 'category');

$backtolist = (GETPOST('backtolist') ? GETPOST('backtolist') : DOL_URL_ROOT.'/categories/index.php?leftmenu=cat&type='.urlencode($type));
$linkback = '<a href="'.dol_sanitizeUrl($backtolist).'">'.$langs->trans("BackToList").'</a>';
$object->next_prev_filter = 'type = '.((int) $object->type);
$object->ref = $object->label;
$morehtmlref = '<br><div class="refidno"><a href="'.DOL_URL_ROOT.'/categories/index.php?leftmenu=cat&type='.urlencode($type).'">'.$langs->trans("Root").'</a> >> ';
$ways = $object->print_all_ways(" &gt;&gt; ", '', 1);
foreach ($ways as $way) {
	$morehtmlref .= $way."<br>\n";
}
$morehtmlref .= '</div>';

dol_banner_tab($object, 'label', $linkback, ($user->socid ? 0 : 1), 'label', 'label', $morehtmlref, '&type='.urlencode($type), 0, '', '', 1);


/*
 * Confirmation suppression
 */

if ($action == 'delete') {
	if ($backtopage) {
		print $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id.'&type='.$type.'&backtopage='.urlencode($backtopage), $langs->trans('DeleteCategory'), $langs->trans('ConfirmDeleteCategory'), 'confirm_delete', '', '', 2);
	} else {
		print $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id.'&type='.$type, $langs->trans('DeleteCategory'), $langs->trans('ConfirmDeleteCategory'), 'confirm_delete', '', '', 1);
	}
}

print '<br>';

print '<div class="fichecenter">';
print '<div class="underbanner clearboth"></div>';
print '<table class="border centpercent tableforfield">';

// Description
print '<tr><td class="titlefield notopnoleft tdtop">';
print $langs->trans("Description").'</td><td>';
print dol_htmlentitiesbr($object->description);
print '</td></tr>';

// Color
print '<tr><td class="notopnoleft">';
print $langs->trans("Color").'</td><td>';
print $formother->showColor($object->color);
print '</td></tr>';

// Position
print '<tr><td class="titlefield notopnoleft">';
print $langs->trans("Position").'</td><td>';
print $object->position;
print '</td></tr>';

// Other attributes
include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_view.tpl.php';

print '</table>';
print '</div>';

print dol_get_fiche_end();


/*
 * Boutons actions
 */

print "<div class='tabsAction'>\n";
$reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) {
	setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}
if (empty($reshook)) {
	if ($user->hasRight('categorie', 'creer')) {
		$socid = ($object->socid ? "&socid=".$object->socid : "");
		print '<a class="butAction" href="edit.php?id='.$object->id.$socid.'&type='.$type.'">'.$langs->trans("Modify").'</a>';
	}

	if ($user->hasRight('categorie', 'supprimer')) {
		print '<a class="butActionDelete" href="'.$_SERVER["PHP_SELF"].'?action=delete&token='.newToken().'&id='.$object->id.'&type='.$type.'&backtolist='.urlencode($backtolist).'">'.$langs->trans("Delete").'</a>';
	}
}

print "</div>";

$newcardbutton = '';
if ($user->hasRight('categorie', 'creer')) {
	$link = DOL_URL_ROOT.'/categories/card.php';
	$link .= '?action=create';
	$link .= '&type='.$type;
	$link .= '&catorigin='.$object->id;
	$link .= '&backtopage='.urlencode($_SERVER["PHP_SELF"].'?type='.$type.'&id='.$id);

	$newcardbutton = '<div class="right">';
	$newcardbutton .= dolGetButtonTitle($langs->trans('NewCategory'), '', 'fa fa-plus-circle', $link);
	$newcardbutton .= '</div>';
}


/*
 * Sub-category tree view of this category
 */

print '<div class="fichecenter">';

print load_fiche_titre($langs->trans("SubCats"), $newcardbutton, 'object_category');


print '<table class="liste nohover centpercent borderbottom">';

print '<tr class="liste_titre">';
print '<td>'.$langs->trans("SubCats").'</td>';
print '<td></td>';
print '<td class="right">';

if (!empty($conf->use_javascript_ajax)) {
	print '<div id="iddivjstreecontrol">';
	print '<a class="notasortlink" href="#">'.img_picto('', 'folder').' '.$langs->trans("UndoExpandAll").'</a>';
	print " | ";
	print '<a class="notasortlink" href="#">'.img_picto('', 'folder-open').' '.$langs->trans("ExpandAll").'</a>';
	print '</div>';
}

print '</td>';
print '</tr>';

$cats = $object->get_filles();
if ($cats < 0) {
	dol_print_error($db, $object->error, $object->errors);
} elseif (count($cats) < 1) {
	print '<tr class="oddeven nobottom">';
	print '<td colspan="3"><span class="opacitymedium">'.$langs->trans("NoSubCat").'</span></td>';
	print '</tr>';
} else {
	$categstatic = new Categorie($db);

	$fulltree = $categstatic->get_full_arbo($type, $object->id, 1);

	// Load possible missing includes
	if (getDolGlobalString('CATEGORY_SHOW_COUNTS')) {
		if ($type == Categorie::TYPE_MEMBER) {
			require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
		}
		if ($type == Categorie::TYPE_ACCOUNT) {
			require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
		}
		if ($type == Categorie::TYPE_PROJECT) {
			require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
		}
		if ($type == Categorie::TYPE_USER) {
			require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
		}
	}

	// Define data (format for treeview)
	$data = array();
	$data[] = array('rowid' => 0, 'fk_menu' => -1, 'title' => "racine", 'mainmenu' => '', 'leftmenu' => '', 'fk_mainmenu' => '', 'fk_leftmenu' => '');
	foreach ($fulltree as $key => $val) {
		$categstatic->id = $val['id'];
		$categstatic->ref = $val['label'];
		$categstatic->color = $val['color'];
		$categstatic->type = $type;
		$desc = dol_htmlcleanlastbr($val['description']);

		$counter = '';
		if (getDolGlobalString('CATEGORY_SHOW_COUNTS')) {
			// we need only a count of the elements, so it is enough to consume only the id's from the database
			$elements = $categstatic->getObjectsInCateg($type, 1);

			$counter = "<td class='left' width='40px;'>".(is_array($elements) ? count($elements) : '0')."</td>";
		}

		$color = $categstatic->color ? ' style="background: #'.sprintf("%06s", $categstatic->color).';"' : ' style="background: #bbb"';
		$li = $categstatic->getNomUrl(1, '', 60, '&backtolist='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.$type));

		$entry = '<table class="nobordernopadding centpercent">';
		$entry .= '<tr>';

		$entry .= '<td>';
		$entry .= '<span class="noborderoncategories" '.$color.'>'.$li.'</span>';
		$entry .= '</td>';

		$entry .= $counter;

		$entry .= '<td class="right" width="20px;">';
		$entry .= '<a href="'.DOL_URL_ROOT.'/categories/viewcat.php?id='.$val['id'].'&type='.$type.'&backtolist='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.$type).'">'.img_view().'</a>';
		$entry .= '</td>';
		$entry .= '<td class="right" width="20px;">';
		$entry .= '<a class="editfielda" href="'.DOL_URL_ROOT.'/categories/edit.php?id='.$val['id'].'&type='.$type.'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.$type).'">'.img_edit().'</a>';
		$entry .= '</td>';
		$entry .= '<td class="right" width="20px;">';
		$entry .= '<a class="deletefilelink" href="'.DOL_URL_ROOT.'/categories/viewcat.php?action=delete&token='.newToken().'&id='.$val['id'].'&type='.$type.'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.$type).'&backtolist='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.$type).'">'.img_delete().'</a>';
		$entry .= '</td>';

		$entry .= '</tr>';
		$entry .= '</table>';

		$data[] = array('rowid' => $val['rowid'], 'fk_menu' => $val['fk_parent'], 'entry' => $entry);
	}

	$nbofentries = (count($data) - 1);
	if ($nbofentries > 0) {
		require_once DOL_DOCUMENT_ROOT.'/core/lib/treeview.lib.php';
		print '<tr class="pair">';
		print '<td colspan="3">';

		// $data[0] is the current shown category, to don'T show the current category use $data[1] instead
		tree_recur($data, $data[1], 0);

		print '</td>';
		print '</tr>';
	} else {
		print '<tr class="pair">';
		print '<td colspan="3">';
		print '<table class="nobordernopadding">';

		print '<tr class="nobordernopadding">';
		print '<td>'.img_picto_common('', 'treemenu/branchbottom.gif').'</td>';
		print '<td class="valignmiddle"><span class="opacitymedium">'.$langs->trans("NoCategoryYet").'</span></td>';
		print '<td>&nbsp;</td>';
		print '</tr>';

		print '</table>';
		print '</td>';
		print '</tr>';
	}
}

print "</table>";
print "</div>";

// List of mass actions available
$arrayofmassactions = array(
	//'validate'=>$langs->trans("Validate"),
	//'generate_doc'=>$langs->trans("ReGeneratePDF"),
	//'builddoc'=>$langs->trans("PDFMerge"),
	//'presend'=>$langs->trans("SendByMail"),
);
$massactionbutton = $form->selectMassAction('', $arrayofmassactions);

$typeid = $type;


// List of products or services (type is type of category)
if ($type == Categorie::TYPE_PRODUCT) {
	if ($user->hasRight("product", "read") || $user->hasRight("service", "read")) {
		$permission = ($user->hasRight('produit', 'creer') || $user->hasRight('service', 'creer'));

		$prods = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if ($prods < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Product[] $prods */
			'@phan-var-force Product[] $prods';
			// Form to add record into the category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AddProductServiceIntoCategory").' &nbsp;';
				$form->select_produits('', 'elemid', '', 0, 0, -1, 2, '', 1, array(), 0, 1, 0, '', 0, '', null);
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}

			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($prods);
			$nbtotalofrecords = '';
			$newcardbutton = dolGetButtonTitle($langs->trans("AddProduct"), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/product/card.php?action=create&categories[]='.$object->id.'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$object->id), '', $user->hasRight('societe', 'creer'));

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("ProductsAndServices"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'products', 0, $newcardbutton, '', $limit);


			print '<table class="noborder centpercent">'."\n";
			print '<tr class="liste_titre"><td colspan="3">'.$langs->trans("Ref").'</td></tr>'."\n";

			if (count($prods) > 0) {
				$i = 0;
				foreach ($prods as $prod) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap" valign="top">';
					print $prod->getNomUrl(1);
					print "</td>\n";
					print '<td class="tdtop">'.$prod->label."</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print '<a class="reposition" href= "'.$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".((int) $object->id)."&type=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".$prod->id.'">';
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="2"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("ProductsAndServices"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'products');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of customers
if ($type == Categorie::TYPE_CUSTOMER) {
	if ($user->hasRight("societe", "read")) {
		$permission = $user->hasRight('societe', 'creer');

		$socs = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if ($socs < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Societe[] $socs */
			'@phan-var-force Societe[] $socs';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AddCustomerIntoCategory").' &nbsp;';
				$filter = '(s.client:IN:1,3)';
				print $form->select_company('', 'elemid', $filter);
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}

			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($socs);
			$nbtotalofrecords = '';
			$newcardbutton = dolGetButtonTitle($langs->trans("AddThirdParty"), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/societe/card.php?action=create&client=3&custcats[]='.$object->id.'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$object->id), '', $user->hasRight('societe', 'creer'));

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Customers"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'companies', 0, $newcardbutton, '', $limit);

			print '<table class="noborder centpercent">'."\n";
			print '<tr class="liste_titre"><td colspan="2">'.$langs->trans("Name").'</td></tr>'."\n";

			if (count($socs) > 0) {
				$i = 0;
				foreach ($socs as $key => $soc) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $soc->getNomUrl(1);
					print "</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$soc->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="2"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Customers"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'companies');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of suppliers
if ($type == Categorie::TYPE_SUPPLIER) {
	if ($user->hasRight("fournisseur", "read")) {
		$permission = $user->hasRight('societe', 'creer');

		$socs = $object->getObjectsInCateg($type, 0, $limit, $offset);

		if ($socs < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Fournisseur[] $socs */
			'@phan-var-force Fournisseur[] $socs';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AddSupplierIntoCategory").' &nbsp;';
				$filter = '(s.fournisseur:=:1)';
				print $form->select_company('', 'elemid', $filter);
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}

			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($socs);
			$nbtotalofrecords = '';
			$newcardbutton = dolGetButtonTitle($langs->trans("AddSupplier"), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/societe/card.php?action=create&fournisseur=1&suppcats[]='.$object->id.'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$object->id), '', $user->hasRight('societe', 'creer'));

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Suppliers"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'companies', 0, $newcardbutton, '', $limit);

			print '<table class="noborder centpercent">'."\n";
			print '<tr class="liste_titre"><td colspan="2">'.$langs->trans("Name")."</td></tr>\n";

			if (count($socs) > 0) {
				$i = 0;
				foreach ($socs as $soc) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $soc->getNomUrl(1);
					print "</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print '<a class="reposition" href="'.$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$soc->id.($limit?'&limit='.$limit:'').'">';
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';

					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="2"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Suppliers"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'companies');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of members
if ($type == Categorie::TYPE_MEMBER) {
	if ($user->hasRight("adherent", "read")) {
		require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';

		$permission = $user->hasRight('adherent', 'creer');

		$members = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if ($members < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Adherent[] $members */
			'@phan-var-force Adherent[] $members';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AssignCategoryTo").' &nbsp;';
				print $form->selectMembers('', 'elemid');
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("Save").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}

			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($members);
			$nbtotalofrecords = '';
			$newcardbutton = dolGetButtonTitle($langs->trans("AddMember"), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/adherents/card.php?action=create&memcats[]='.$object->id.'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$object->id), '', $user->hasRight('adherent', 'creer'));

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Member"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'members', 0, $newcardbutton, '', $limit);

			print '<table class="noborder centpecent">'."\n";
			print '<tr class="liste_titre"><td colspan="4">'.$langs->trans("Name").'</td></tr>'."\n";

			if (count($members) > 0) {
				$i = 0;
				foreach ($members as $key => $member) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					$member->ref = $member->login;
					print $member->getNomUrl(1, 0);
					print "</td>\n";
					print '<td class="tdtop">'.$member->lastname."</td>\n";
					print '<td class="tdtop">'.$member->firstname."</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$member->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="4"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Member"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'members');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of contacts
if ($type == Categorie::TYPE_CONTACT) {
	if ($user->hasRight("societe", "read")) {
		$permission = $user->hasRight('societe', 'creer');

		$contacts = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if (is_numeric($contacts) && $contacts < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Contact[] $contacts */
			'@phan-var-force Contact[] $contacts';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AssignCategoryTo").' &nbsp;';
				//print $form->selectcontacts('', '', 'elemid');
				print $form->select_contact(0, '', 'elemid', '', '', '', 0, 'maxwidth300 widthcentpercentminusx');
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}
			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($contacts);
			$nbtotalofrecords = '';
			$newcardbutton = dolGetButtonTitle($langs->trans("AddContact"), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/contact/card.php?action=create&contcats[]='.$object->id.'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$object->id), '', $user->hasRight('societe', 'creer'));

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Contact"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'contact', 0, $newcardbutton, '', $limit);

			$objsoc = new Societe($db);

			print '<table class="noborder centpercent">'."\n";
			print '<tr class="liste_titre"><td colspan="2">'.$langs->trans("Ref").'</td></tr>'."\n";

			if (is_array($contacts) && count($contacts) > 0) {
				$i = 0;
				foreach ($contacts as $key => $contact) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $contact->getNomUrl(1, 'category');
					if ($contact->socid > 0) {
						$objsoc->fetch($contact->socid);
						print ' - ';
						print $objsoc->getNomUrl(1, 'contact');
					}
					print "</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$contact->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="2"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Contact"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'contact');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of bank accounts
if ($type == Categorie::TYPE_ACCOUNT) {
	if ($user->hasRight("banque", "read")) {
		require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';

		$permission = $user->hasRight('banque', 'creer');

		$accounts = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if ($accounts < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Account[] $accounts */
			'@phan-var-force Account[] $accounts';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AddObjectIntoCategory").' &nbsp;';
				print $form->select_comptes('', 'elemid', 0, '', 0, '', 0, '', 1);
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}

			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($accounts);
			$nbtotalofrecords = '';
			$newcardbutton = '';

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Account"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'bank_account', 0, $newcardbutton, '', $limit);

			print '<table class="noborder centpecent">'."\n";
			print '<tr class="liste_titre"><td colspan="4">'.$langs->trans("Ref").'</td></tr>'."\n";

			if (count($accounts) > 0) {
				$i = 0;
				foreach ($accounts as $key => $account) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $account->getNomUrl(1, 0);
					print "</td>\n";
					print '<td class="tdtop">'.$account->bank."</td>\n";
					print '<td class="tdtop">'.$account->number."</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$account->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="4"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Banque"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'bank');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of Project
if ($type == Categorie::TYPE_PROJECT) {
	if ($user->hasRight("project", "read")) {
		require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';

		$permission = $user->hasRight('projet', 'creer');

		$objects = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if ($objects < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Project $object */
			'@phan-var-force Project $object';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AddObjectIntoCategory").' &nbsp;';
				$form->selectProjects('', 'elemid');
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}

			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($objects);
			$nbtotalofrecords = '';
			$newcardbutton = '';

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Project"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'project', 0, $newcardbutton, '', $limit);

			print '<table class="noborder centpecent">'."\n";
			print '<tr class="liste_titre"><td colspan="4">'.$langs->trans("Ref").'</td></tr>'."\n";

			if (count($objects) > 0) {
				$i = 0;
				foreach ($objects as $key => $project) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $project->getNomUrl(1);
					print "</td>\n";
					print '<td class="tdtop">'.$project->ref."</td>\n";
					print '<td class="tdtop">'.$project->title."</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$project->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="4"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Project"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'project');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of users
if ($type == Categorie::TYPE_USER) {
	if ($user->hasRight("user", "user", "read")) {
		require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';

		$users = $object->getObjectsInCateg($type);
		if ($users < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var User[] $users */
			'@phan-var-force User[] $users';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				$force_entity = getEntity($object->element);	// So we will get same filter than the getObjectsInCateg()
				print img_picto('', $type, 'class="pictofixedwidth"');
				print $form->select_dolusers('', 'elemid', 1, null, 0, '', '', $force_entity);
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}
			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';

			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($users);
			$nbtotalofrecords = '';
			$newcardbutton = '';

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Users"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'user', 0, '', '', $limit);

			print '<table class="noborder centpecent">'."\n";
			print '<tr class="liste_titre"><td colspan="3">'.$langs->trans("Users").' <span class="badge">'.$num.'</span></td></tr>'."\n";

			if (count($users) > 0) {
				// Use "$userentry" here, because "$user" is the current user
				foreach ($users as $key => $userentry) {
					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $userentry->getNomUrl(-1);
					print "</td>\n";
					print '<td class="tdtop">'.$userentry->job."</td>\n";

					// Link to delete from category
					print '<td class="right">';
					if ($user->hasRight('user', 'user', 'creer')) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$userentry->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="3"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Users"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'user');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}


// List of warehouses
if ($type == Categorie::TYPE_WAREHOUSE) {
	if ($user->hasRight("stock", "read")) {
		$permission = $user->hasRight('stock', 'creer');

		require_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';

		$objects = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if ($objects < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Entrepot[] $objects */
			'@phan-var-force Entrepot[] $objects';
			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($objects);
			$nbtotalofrecords = '';
			$newcardbutton = '';

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Warehouses"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'stock', 0, $newcardbutton, '', $limit);

			print '<table class="noborder centpecent">'."\n";
			print '<tr class="liste_titre"><td colspan="4">'.$langs->trans("Ref").'</td></tr>'."\n";

			if (count($objects) > 0) {
				$i = 0;
				foreach ($objects as $key => $warehouse) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $warehouse->getNomUrl(1);
					print "</td>\n";
					print '<td class="tdtop">'.$warehouse->ref."</td>\n";
					print '<td class="tdtop">'.$warehouse->lieu."</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$warehouse->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="4"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Warehouse"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'stock');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// List of tickets
if ($type == Categorie::TYPE_TICKET) {
	if ($user->hasRight("ticket", "read")) {
		$permission = $user->hasRight('categorie', 'creer');

		$tickets = $object->getObjectsInCateg($type, 0, $limit, $offset);
		if ($tickets < 0) {
			dol_print_error($db, $object->error, $object->errors);
		} else {
			/** @var Ticket[] $tickets */
			'@phan-var-force Ticket[] $tickets';
			// Form to add record into a category
			$showclassifyform = 1;
			if ($showclassifyform) {
				print '<br>';
				print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
				print '<input type="hidden" name="token" value="'.newToken().'">';
				print '<input type="hidden" name="typeid" value="'.$typeid.'">';
				print '<input type="hidden" name="type" value="'.$typeid.'">';
				print '<input type="hidden" name="id" value="'.$object->id.'">';
				print '<input type="hidden" name="action" value="addintocategory">';
				print '<table class="noborder centpercent">';
				print '<tr class="liste_titre"><td>';
				print $langs->trans("AddTicketIntoCategory").' &nbsp;';
				$form->selectTickets('', 'elemid');
				print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
				print '</tr>';
				print '</table>';
				print '</form>';
			}

			print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
			print '<input type="hidden" name="token" value="'.newToken().'">';
			print '<input type="hidden" name="typeid" value="'.$typeid.'">';
			print '<input type="hidden" name="type" value="'.$typeid.'">';
			print '<input type="hidden" name="id" value="'.$object->id.'">';
			print '<input type="hidden" name="action" value="list">';

			print '<br>';
			$param = '&limit='.$limit.'&id='.$id.'&type='.$type;
			$num = count($tickets);
			$nbtotalofrecords = '';
			$newcardbutton = '';

			// @phan-suppress-next-line PhanPluginSuspiciousParamOrder
			print_barre_liste($langs->trans("Ticket"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'ticket', 0, $newcardbutton, '', $limit);


			print '<table class="noborder centpercent">'."\n";
			print '<tr class="liste_titre"><td colspan="3">'.$langs->trans("Ref").'</td></tr>'."\n";

			if (count($tickets) > 0) {
				$i = 0;
				foreach ($tickets as $ticket) {
					$i++;
					if ($i > $limit) {
						break;
					}

					print "\t".'<tr class="oddeven">'."\n";
					print '<td class="nowrap tdtop">';
					print $ticket->getNomUrl(1);
					print "</td>\n";
					print '<td class="tdtop">'.$ticket->label."</td>\n";
					// Link to delete from category
					print '<td class="right">';
					if ($permission) {
						print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".$object->id."&type=".$typeid."&action=unlink&token=".newToken()."&removeelem=".$ticket->id."'>";
						print $langs->trans("DeleteFromCat");
						print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', false, 0, 0, '', 'paddingleft');
						print "</a>";
					}
					print '</td>';
					print "</tr>\n";
				}
			} else {
				print '<tr class="oddeven"><td colspan="2"><span class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</span></td></tr>';
			}
			print "</table>\n";

			print '</form>'."\n";
		}
	} else {
		print_barre_liste($langs->trans("Ticket"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'ticket');
		accessforbidden("NotEnoughPermissions", 0, 0);
	}
}

// Note that $action and $object may have been modified by some hooks
$parameters = array('type' => $type, 'id' => $id, 'label' => $label);
$reshook = $hookmanager->executeHooks('addMoreCategoriesList', $parameters, $object, $action);

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