viewcat.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2005   Matthieu Valleton     <mv@seeschloss.org>
 * Copyright (C) 2006-2024  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) 2022-2023  Solution Libre SAS      <contact@solution-libre.fr>
 * Copyright (C) 2024-2025  MDW             <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024-2025  Frédéric France             <frederic.france@free.fr>
 * Copyright (C) 2024-2025  Alexandre Spangaro      <alexandre@inovea-conseil.com>
 * Copyright (C) 2023-2024  Charlene Benke        <charlene@patas-monkey.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/>.
 */
 
// 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"));
 
$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:int'); // 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')
 
$id         = GETPOSTINT('id');
$label      = GETPOST('label', 'alpha');
$removeelem = GETPOSTINT('removeelem');
$elemid     = GETPOSTINT('elemid');
 
if (GETPOST('addintocategory')) {
  $action = 'addintocategory';
}
 
 
// 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'));
 
$object = new Categorie($db);
$result = $object->fetch($id, $label);
if ($result <= 0) {
  dol_print_error($db, $object->error);
  exit;
}
 
// Security check
$result = restrictedArea($user, 'categorie', $object->id, '&category');
 
$type = $object->type;
if (is_numeric($type)) {
  $type = array_search($type, $object->MAP_ID); // 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') {  // Test on permission not required here. Done later according to type of object.
  $tmpobject = null;
  $elementtype = '';
  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_WAREHOUSE && $user->hasRight('stock', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';
    $tmpobject = new Entrepot($db);
    $result = $tmpobject->fetch($removeelem);
    $elementtype = 'warehouse';
  } 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';
  } elseif ($type == Categorie::TYPE_FICHINTER && $user->hasRight('ficheinter', 'write')) {
    require_once DOL_DOCUMENT_ROOT.'/fichinter/class/fichinter.class.php';
    $tmpobject = new Fichinter($db);
    $result = $tmpobject->fetch($removeelem);
    $elementtype = 'fichinter';
  } elseif ($type == Categorie::TYPE_ORDER && $user->hasRight('commande', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
    $tmpobject = new Commande($db);
    $result = $tmpobject->fetch($removeelem);
    $elementtype = 'order';
  } elseif ($type == Categorie::TYPE_INVOICE && $user->hasRight('facture', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
    $tmpobject = new Facture($db);
    $result = $tmpobject->fetch($removeelem);
    $elementtype = 'invoice';
  } elseif ($type == Categorie::TYPE_SUPPLIER_ORDER && $user->hasRight('fournisseur', 'commande', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
    $tmpobject = new CommandeFournisseur($db);
    $result = $tmpobject->fetch($removeelem);
    $elementtype = 'supplier_order';
  } elseif ($type == Categorie::TYPE_SUPPLIER_INVOICE && $user->hasRight('fournisseur', 'facture', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
    $tmpobject = new FactureFournisseur($db);
    $result = $tmpobject->fetch($removeelem);
    $elementtype = 'supplier_invoice';
  } else {
    dol_print_error(null, "Not supported value of type = ".$type);
    $result = -100;
  }
 
  if ($tmpobject !== null) {
    // also enter here when item was not found to report error
    $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: ".dolBuildUrl(DOL_URL_ROOT.'/categories/categorie_list.php', ['type' => $type]));
      exit;
    }
  } else {
    setEventMessages($object->error, $object->errors, 'errors');
  }
}
 
if ($elemid && $action == 'addintocategory') {  // Test on permission not required here. Done just after depending on object type
  $newobject = null;
  $elementtype = '';
  if ($type == Categorie::TYPE_PRODUCT && ($user->hasRight('produit', 'creer') || $user->hasRight('service', 'creer'))) {
    require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
    $newobject = new Product($db);
    $elementtype = 'product';
  } elseif ($type == Categorie::TYPE_CUSTOMER && $user->hasRight('societe', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
    $newobject = new Societe($db);
    $elementtype = 'customer';
  } elseif ($type == Categorie::TYPE_SUPPLIER && $user->hasRight('societe', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
    $newobject = new Societe($db);
    $elementtype = 'supplier';
  } elseif ($type == Categorie::TYPE_TICKET && $user->hasRight('ticket', 'write')) {
    require_once DOL_DOCUMENT_ROOT.'/ticket/class/ticket.class.php';
    $newobject = new Ticket($db);
    $elementtype = 'ticket';
  } elseif ($type == Categorie::TYPE_FICHINTER && $user->hasRight('ficheinter', 'write')) {
    require_once DOL_DOCUMENT_ROOT.'/fichinter/class/fichinter.class.php';
    $newobject = new Fichinter($db);
    $elementtype = 'fichinter';
  } elseif ($type == Categorie::TYPE_PROJECT && $user->hasRight('projet', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
    $newobject = new Project($db);
    $elementtype = 'project';
  } elseif ($type == Categorie::TYPE_MEMBER && $user->hasRight('adherent', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
    $newobject = new Adherent($db);
    $elementtype = 'member';
  } elseif ($type == Categorie::TYPE_CONTACT && $user->hasRight('societe', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
    $newobject = new Contact($db);
    $elementtype = 'contact';
  } elseif ($type == Categorie::TYPE_USER && $user->hasRight('user', 'user', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
    $newobject = new User($db);
    $elementtype = 'user';
  } elseif ($type == Categorie::TYPE_WAREHOUSE && $user->hasRight('stock', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';
    $newobject = new Entrepot($db);
    $elementtype = 'warehouse';
  } elseif ($type == Categorie::TYPE_ACCOUNT && $user->hasRight('banque', 'configurer')) {
    require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
    $newobject = new Account($db);
    $elementtype = 'bank_account';
  } elseif ($type == Categorie::TYPE_ORDER && $user->hasRight('commande', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
    $newobject = new Commande($db);
    $elementtype = 'order';
  } elseif ($type == Categorie::TYPE_INVOICE && $user->hasRight('facture', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
    $newobject = new Facture($db);
    $elementtype = 'invoice';
  } elseif ($type == Categorie::TYPE_SUPPLIER_ORDER && $user->hasRight('fournisseur', 'commande', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
    $newobject = new CommandeFournisseur($db);
    $elementtype = 'supplier_order';
  } elseif ($type == Categorie::TYPE_SUPPLIER_INVOICE && $user->hasRight('fournisseur', 'facture', 'creer')) {
    require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
    $newobject = new FactureFournisseur($db);
    $elementtype = 'supplier_invoice';
  } else {
    // No permission to modify the objects of this type: refuse instead of reporting a success
    $result = -1;
    $object->error = $langs->trans("NotEnoughPermissions");
  }
  if ($newobject !== null) {
    $result = $newobject->fetch($elemid);
  }
 
  if ($result >= 0 && $newobject !== null) {
    // 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 = $langs->trans("Categories");
$title .= ' ('.$langs->trans(empty(Categorie::$MAP_TYPE_TITLE_AREA[$type]) ? ucfirst($type) : 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/categorie_list.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/categorie_list.php?leftmenu=cat&type='.urlencode($type).'">'.$langs->trans("Root").'</a>';
$morehtmlref .= ' > ';
$ways = $object->print_all_ways("auto", '', 1, 0, 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 of deletion
if ($action == 'delete') {
  if ($backtopage) {
    print $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id.'&type='.urlencode($type).'&backtopage='.urlencode($backtopage), $langs->trans('DeleteCategory'), $langs->trans('ConfirmDeleteCategory'), 'confirm_delete', '', '', 2);
  } else {
    print $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id.'&type='.urlencode($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 ? $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 ? $object->socid : "");
    print '<a class="butAction" href="'.dolBuildUrl(DOL_URL_ROOT.'/categories/edit.php', ['id' => $object->id, 'socid' => $socid, 'type' => $type]).'">'.$langs->trans("Modify").'</a>';
  }
 
  if ($user->hasRight('categorie', 'supprimer')) {
    print '<a class="butActionDelete" href="'.dolBuildUrl($_SERVER["PHP_SELF"], ['action' => 'delete', 'id' => $object->id, 'type' => $type, 'backtolist' => $backtolist], true).'">'.$langs->trans("Delete").'</a>';
  }
}
 
print "</div>";
 
$newcardbutton = '';
if ($user->hasRight('categorie', 'creer')) {
  $link = dolBuildUrl(DOL_URL_ROOT.'/categories/card.php', ['action'=> 'create', 'type' => $type, 'catorigin' => $object->id, 'backtopage' => dolBuildUrl($_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');
 
$cats = $object->get_filles();
 
print '<table class="liste nohover noborder centpercent borderbottom">';
 
print '<tr class="liste_titre">';
print '<td>'.$langs->trans("SubCats").'</td>';
print '<td></td>';
print '<td class="right">';
 
if (is_array($cats) && count($cats) > 1 && !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>';
 
if (is_numeric($cats) && $cats < 0) {
  dol_print_error($db, $object->error, $object->errors);
} elseif (count($cats) < 1) {
  print '<tr class="oddeven nobottom nohover">';
  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>";
    }
 
    if ($categstatic->color) {
      $stylecolor = ' style="background: #'.sprintf("%06s", $categstatic->color).';"';
    } else {
      $stylecolor = ' style="background: #bbb;"';
    }
    $li = $categstatic->getNomUrl(1, '', 60, '&backtolist='.urlencode($_SERVER["PHP_SELF"].'?id='.((int) $id).'&type='.urlencode($type)), 0);
 
    $entry = '<table class="nobordernopadding centpercent">';
    $entry .= '<tr>';
 
    $entry .= '<td>';
    $entry .= '<span class="noborderoncategories" '.$stylecolor.'>'.$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='.urlencode($type).'&backtolist='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.urlencode($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='.urlencode($type).'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.urlencode($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='.urlencode($type).'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.urlencode($type)).'&backtolist='.urlencode($_SERVER["PHP_SELF"].'?id='.$id.'&type='.urlencode($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;  // warning, typeid can be a string
 
 
// 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'));
    $showclassifyform = ($user->hasRight('produit', 'creer') || $user->hasRight('service', 'creer'));
 
    $prods = $object->getObjectsInCateg($type, 0, $limit, $offset, 'ref');
    if ($prods < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Product[] $prods';
      // Form to add record into the category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        print '<table class="noborder centpercent">';
        print '<tr class="liste_titre"><td>';
        print $langs->trans("AddProductServiceIntoCategory").' &nbsp;';
        $form->select_produits(0, 'elemid', '', 0, 0, -1, 2, '', 1, array(), 0, 1, 0, '', 0, '', null);
        print '<input type="submit" class="button buttongen" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      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 '<tr class="oddeven">'."\n";
          print '<td class="nowrap tdtop">';
          print $prod->getNomUrl(1);
          print "</td>\n";
          print '<td class="tdtop">'.dolPrintHTML($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=".((int) $prod->id).($limit ? '&limit='.$limit : '').'">';
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $user->hasRight('societe', 'creer');
 
    $socs = $object->getObjectsInCateg($type, 0, $limit, $offset, 'nom');
    if ($socs < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Societe[] $socs';
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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 '<input type="hidden" name="page_y" value="">';
 
      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&customer=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);
 
      if ($showclassifyform) {
        print '<table class="noborder centpercent">';
        print '<tr class="liste_titre"><td>';
        print $langs->trans("AddCustomerIntoCategory").' &nbsp;';
        $filter = '(s.client:IN:1,2,3)';
        print $form->select_company('', 'elemid', $filter);
        print '<input type="submit" class="reposition button buttongen" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      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 tdoverflowmax250">';
          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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $soc->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $user->hasRight('societe', 'creer');
 
    $socs = $object->getObjectsInCateg($type, 0, $limit, $offset, 'nom');
 
    if ($socs < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Fournisseur[] $socs';
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        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" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $soc->id).($limit ? '&limit='.$limit : '').'">';
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $user->hasRight('adherent', 'creer');
 
    $members = $object->getObjectsInCateg($type, 0, $limit, $offset, 'lastname');
    if ($members < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Adherent[] $members';
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        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 '<table class="noborder centpercent">'."\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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $member->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $user->hasRight('societe', 'creer');
 
    $contacts = $object->getObjectsInCateg($type, 0, $limit, $offset, 'lastname');
    if (is_numeric($contacts) && $contacts < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Contact[] $contacts';
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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'));
 
      $objsoc = new Societe($db);
 
      // @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);
 
      if ($showclassifyform) {
        print '<table class="noborder centpercent">';
        print '<tr class="liste_titre"><td>';
        print $langs->trans("AssignCategoryTo").' &nbsp;';
        print $form->select_contact(0, '', 'elemid', '', '', '', 0, 'maxwidth300 widthcentpercentminusx');
        print '<input type="submit" class="button buttongen" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $contact->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $user->hasRight('banque', 'creer');
 
    $accounts = $object->getObjectsInCateg($type, 0, $limit, $offset);
    if ($accounts < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Account[] $accounts';
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        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" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      print '<table class="noborder centpercent">'."\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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $account->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $user->hasRight('projet', 'creer');
 
    $objects = $object->getObjectsInCateg($type, 0, $limit, $offset);
    if ($objects < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Project[] $objects';
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        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" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      print '<table class="noborder centpercent">'."\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->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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $project->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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';
    $showclassifyform = $user->hasRight("user", "user", "creer");
 
    $users = $object->getObjectsInCateg($type, 0, 0, 0, 'lastname');
    if ($users < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force User[] $users';
 
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        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" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      print '<table class="noborder centpercent">'."\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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $userentry->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $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 {
      '@phan-var-force Entrepot[] $objects';
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        print '<table class="noborder centpercent">';
        print '<tr class="liste_titre"><td>';
        print $langs->trans("AddWarehouseIntoCategory").' &nbsp;';
        print $form->selectForForms('Entrepot:product/stock/class/entrepot.class.php', 'elemid', 0, 1, '', '', 'maxwidth500');
        print '<input type="submit" class="button buttongen" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      print '<table class="noborder centpercent">'."\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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $warehouse->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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');
    $showclassifyform = $user->hasRight('categorie', 'creer');
 
    $tickets = $object->getObjectsInCateg($type, 0, $limit, $offset);
    if ($tickets < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Ticket[] $tickets';
      // Form to add record into a category
      print '<form method="post" action="'.dolBuildUrl($_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="page_y" value="">';
      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);
 
      if ($showclassifyform) {
        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" name="addintocategory" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
      }
 
      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->track_id."</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=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $ticket->id).($limit ? '&limit='.$limit : '')."'>";
            //print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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);
  }
}
 
// List of Interventions
if ($type == Categorie::TYPE_FICHINTER) {
  if ($user->hasRight("fichinter", "lire")) {
    $permission = $user->hasRight('categorie', 'creer');
    $showclassifyform = $user->hasRight('categorie', 'creer');
 
    $fichinters = $object->getObjectsInCateg($type, 0, $limit, $offset);
    if ($fichinters < 0) {
      dol_print_error($db, $object->error, $object->errors);
    } else {
      '@phan-var-force Fichinter[] $fichinters';
 
      // Form to add record into a category
      if ($showclassifyform) {
        print '<br>';
        print '<form method="post" action="'.dolBuildUrl($_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("AddFichinterIntoCategory").' &nbsp;';
        print $form->selectForForms('Fichinter:fichinter/class/fichinter.class.php', 'elemid', 0, 1, '', '', 'maxwidth500');
        print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
        print '</tr>';
        print '</table>';
        print '</form>';
      }
 
      print '<form method="post" action="'.dolBuildUrl($_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($fichinters);
      $nbtotalofrecords = '';
      $newcardbutton = '';
 
      $langs->load('interventions');
      // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
      print_barre_liste($langs->trans("Intervention"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'object_intervention', 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($fichinters) > 0) {
        $i = 0;
        foreach ($fichinters as $fichinter) {
          $i++;
          if ($i > $limit) {
            break;
          }
 
          print "\t".'<tr class="oddeven">'."\n";
          print '<td class="nowrap tdtop">';
          print $fichinter->getNomUrl(1);
          print "</td>\n";
          print '<td class="tdtop">'.$fichinter->description."</td>\n";
          // Link to delete from category
          print '<td class="right">';
          if ($permission) {
            print "<a href= '".$_SERVER['PHP_SELF']."?".(empty($socid) ? 'id' : 'socid')."=".((int) $object->id)."&type=".urlencode($typeid)."&action=unlink&token=".newToken()."&removeelem=".((int) $fichinter->id).($limit ? '&limit='.$limit : '')."'>";
            print $langs->trans("DeleteFromCat");
            print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 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("Intervention"), null, $_SERVER["PHP_SELF"], '', '', '', '', 0, '', 'fichinter');
    accessforbidden("NotEnoughPermissions", 0, 0);
  }
}
 
// List of Orders
// The objects of the category are listed only to a user allowed to read them
if ($type == Categorie::TYPE_ORDER && !$user->hasRight('commande', 'lire')) {
  accessforbidden("NotEnoughPermissions", 0, 0);
}
if ($type == Categorie::TYPE_ORDER) {
  require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
 
  $permission = $user->hasRight('commande', 'creer');
 
  $objects = $object->getObjectsInCateg($type, 0, $limit, $offset);
  if ($objects < 0) {
    dol_print_error($db, $object->error, $object->errors);
  } else {
    '@phan-var-force Commande[] $objects';
    // Form to add record into a category
    $showclassifyform = $user->hasRight('order', 'write');
    if ($showclassifyform) {
      print '<br>';
      print '<form method="post" action="'.dolBuildUrl($_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("AddOrderIntoCategory").' &nbsp;';
      print $form->selectForForms('Commande:commande/class/commande.class.php', 'elemid', 0, 1, '', '', 'maxwidth500');
      print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
      print '</tr>';
      print '</table>';
      print '</form>';
    }
 
    print '<form method="post" action="'.dolBuildUrl($_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("Orders"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'bill', 0, $newcardbutton, '', $limit);
 
    print "<table class='noborder centpercent'>\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 => $order) {
        $i++;
        if ($i > $limit) {
          break;
        }
 
        print "\t".'<tr class="oddeven">'."\n";
        print '<td class="nowrap tdtop">';
        print $order->getNomUrl(1);
        print "</td>\n";
        print '<td class="tdtop">'.$order->ref."</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=".$order->id."'>";
          print $langs->trans("DeleteFromCat");
          print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 0, 0, '', 'paddingleft');
          print "</a>";
        }
        print "</tr>\n";
      }
    } else {
      print '<tr class="oddeven"><td colspan="3" class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</td></tr>';
    }
    print "</table>\n";
 
    print "</form>\n";
  }
}
 
// List of Invoices
if ($type == Categorie::TYPE_INVOICE && !$user->hasRight('facture', 'lire')) {
  accessforbidden("NotEnoughPermissions", 0, 0);
}
if ($type == Categorie::TYPE_INVOICE) {
  require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
 
  $permission = $user->hasRight('facture', 'creer');
 
  $objects = $object->getObjectsInCateg($type, 0, $limit, $offset);
  if ($objects < 0) {
    dol_print_error($db, $object->error, $object->errors);
  } else {
    // Form to add record into a category
    $showclassifyform = $user->hasRight('facture', 'write');
    if ($showclassifyform) {
      print '<br>';
      print '<form method="post" action="'.dolBuildUrl($_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("AddInvoiceIntoCategory").' &nbsp;';
      print $form->selectForForms('Facture:compta/facture/class/facture.class.php', 'elemid', 0, 1, '', '', 'maxwidth500');
      print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
      print '</tr>';
      print '</table>';
      print '</form>';
    }
 
    print '<form method="post" action="'.dolBuildUrl($_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("BillsCustomers"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'bill', 0, $newcardbutton, '', $limit);
 
    print "<table class='noborder centpercent'>\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 => $invoice) {
        $i++;
        if ($i > $limit) {
          break;
        }
 
        print "\t".'<tr class="oddeven">'."\n";
        print '<td class="nowrap tdtop">';
        print $invoice->getNomUrl(1);
        print "</td>\n";
        print '<td class="tdtop">'.$invoice->ref."</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=".$invoice->id."'>";
          print $langs->trans("DeleteFromCat");
          print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 0, 0, '', 'paddingleft');
          print "</a>";
        }
        print "</tr>\n";
      }
    } else {
      print '<tr class="oddeven"><td colspan="3" class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</td></tr>';
    }
    print "</table>\n";
 
    print "</form>\n";
  }
}
 
// List of Supplier Orders
if ($type == Categorie::TYPE_SUPPLIER_ORDER && !((isModEnabled('fournisseur') && !getDolGlobalString('MAIN_USE_NEW_SUPPLIERMOD') && $user->hasRight('fournisseur', 'commande', 'lire')) || (isModEnabled('supplier_order') && $user->hasRight('supplier_order', 'lire')))) {
  accessforbidden("NotEnoughPermissions", 0, 0);
}
if ($type == Categorie::TYPE_SUPPLIER_ORDER) {
  require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
 
  $permission = $user->hasRight('fournisseur', 'commande', 'creer');
 
  $objects = $object->getObjectsInCateg($type, 0, $limit, $offset);
  if ($objects < 0) {
    dol_print_error($db, $object->error, $object->errors);
  } else {
    // Form to add record into a category
    $showclassifyform = $user->hasRight('fournisseur', 'commande', 'creer');
    ;
    if ($showclassifyform) {
      print '<br>';
      print '<form method="post" action="'.dolBuildUrl($_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("AddSupplierOrderIntoCategory").' &nbsp;';
      print $form->selectForForms('CommandeFournisseur:fourn/class/fournisseur.commande.class.php', 'elemid', 0, 1, '', '', 'maxwidth500');
      print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
      print '</tr>';
      print '</table>';
      print '</form>';
    }
 
    print '<form method="post" action="'.dolBuildUrl($_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("SuppliersOrders"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'supplier_order', 0, $newcardbutton, '', $limit);
 
    print "<table class='noborder centpercent'>\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 => $supplier_order) {
        $i++;
        if ($i > $limit) {
          break;
        }
 
        print "\t".'<tr class="oddeven">'."\n";
        print '<td class="nowrap tdtop">';
        print $supplier_order->getNomUrl(1);
        print "</td>\n";
        print '<td class="tdtop">'.$supplier_order->ref."</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=".$supplier_order->id."'>";
          print $langs->trans("DeleteFromCat");
          print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 0, 0, '', 'paddingleft');
          print "</a>";
        }
        print "</tr>\n";
      }
    } else {
      print '<tr class="oddeven"><td colspan="3" class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</td></tr>';
    }
    print "</table>\n";
 
    print "</form>\n";
  }
}
 
// List of Supplier Invoices
if ($type == Categorie::TYPE_SUPPLIER_INVOICE && !((isModEnabled('fournisseur') && !getDolGlobalString('MAIN_USE_NEW_SUPPLIERMOD') && $user->hasRight('fournisseur', 'facture', 'lire')) || (isModEnabled('supplier_invoice') && $user->hasRight('supplier_invoice', 'lire')))) {
  accessforbidden("NotEnoughPermissions", 0, 0);
}
if ($type == Categorie::TYPE_SUPPLIER_INVOICE) {
  require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
 
  $permission = $user->hasRight('fournisseur', 'facture', 'creer');
 
  $objects = $object->getObjectsInCateg($type, 0, $limit, $offset);
  if ($objects < 0) {
    dol_print_error($db, $object->error, $object->errors);
  } else {
    // Form to add record into a category
    $showclassifyform = $user->hasRight('fournisseur', 'facture', 'creer');;
    if ($showclassifyform) {
      print '<br>';
      print '<form method="post" action="'.dolBuildUrl($_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("AddSupplierInvoiceIntoCategory").' &nbsp;';
      print $form->selectForForms('FactureFournisseur:fourn/class/fournisseur.facture.class.php', 'elemid', 0, 1, '', '', 'maxwidth500');
      print '<input type="submit" class="button buttongen" value="'.$langs->trans("ClassifyInCategory").'"></td>';
      print '</tr>';
      print '</table>';
      print '</form>';
    }
 
    print '<form method="post" action="'.dolBuildUrl($_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("SuppliersOrders"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, $nbtotalofrecords, 'supplier_order', 0, $newcardbutton, '', $limit);
 
    print "<table class='noborder centpercent'>\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 => $supplier_invoice) {
        $i++;
        if ($i > $limit) {
          break;
        }
 
        print "\t".'<tr class="oddeven">'."\n";
        print '<td class="nowrap tdtop">';
        print $supplier_invoice->getNomUrl(1);
        print "</td>\n";
        print '<td class="tdtop">'.$supplier_invoice->ref."</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=".$supplier_invoice->id."'>";
          print $langs->trans("DeleteFromCat");
          print img_picto($langs->trans("DeleteFromCat"), 'unlink', '', 0, 0, 0, '', 'paddingleft');
          print "</a>";
        }
        print "</tr>\n";
      }
    } else {
      print '<tr class="oddeven"><td colspan="3" class="opacitymedium">'.$langs->trans("ThisCategoryHasNoItems").'</td></tr>';
    }
    print "</table>\n";
 
    print "</form>\n";
  }
}
 
// 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();