viewcat.php

Go to the documentation of this file.

<?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   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/>.
 */
 
// 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();
}
 
// 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);
 
// Initialize technical object to manage hooks. Note that conf->hooks_modules contains array array
$hookmanager->initHooks(array('categorycard', 'globalcard'));
 
/*
 *  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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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 {
      '@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"], '', '', '', '', '', '', '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();