blockedlog_list.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2017   ATM Consulting        <contact@atm-consulting.fr>
 * Copyright (C) 2017-2018  Laurent Destailleur     <eldy@destailleur.fr>
 * Copyright (C) 2018-2026  Frédéric France       <frederic.france@free.fr>
 * Copyright (C) 2024-2026  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.'/blockedlog/lib/blockedlog.lib.php';
require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/json.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
 
// Load translation files required by the page
$langs->loadLangs(array('admin', 'banks', 'bills', 'blockedlog', 'cashdesk', 'other'));
 
// Get Parameters
$action      = GETPOST('action', 'aZ09');
$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : getDolDefaultContextPage(__FILE__); // 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')
 
$search_showonlyerrors = GETPOSTINT('search_showonlyerrors');
if ($search_showonlyerrors < 0) {
  $search_showonlyerrors = 0;
}
 
$search_startyear = GETPOSTINT('search_startyear');
$search_startmonth = GETPOSTINT('search_startmonth');
$search_startday = GETPOSTINT('search_startday');
$search_endyear = GETPOSTINT('search_endyear');
$search_endmonth = GETPOSTINT('search_endmonth');
$search_endday = GETPOSTINT('search_endday');
$search_id = GETPOST('search_id', 'alpha');         // Can be a USF search string
$search_fk_user = GETPOST('search_fk_user', 'intcomma');
$search_start = -1;
if (GETPOST('search_startyear') != '') {
  $search_start = dol_mktime(0, 0, 0, $search_startmonth, $search_startday, $search_startyear);
}
$search_end = -1;
if (GETPOST('search_endyear') != '') {
  $search_end = dol_mktime(23, 59, 59, $search_endmonth, $search_endday, $search_endyear);
}
$search_code = GETPOST('search_code', 'array:alpha');
$search_module_source = GETPOSTISSET('search_module_source') ? GETPOST('search_module_source', 'array:alpha') : (isModEnabled('takepos') ? array('takepos') : array());
$search_pos_source = GETPOST('search_pos_source');
$search_ref = GETPOST('search_ref', 'alpha');
$search_type_code = GETPOST('search_type_code', 'aZ09');
$search_amount = GETPOST('search_amount', 'alpha');
$search_signature = GETPOST('search_signature', 'alpha');
$withtab = GETPOSTISSET('withtab') ? GETPOSTINT('withtab') : 1;
 
if (($search_start == -1 || empty($search_start)) && !GETPOSTISSET('search_startmonth') && !GETPOSTISSET('begin')) {
  $search_start = dol_time_plus_duree(dol_now(), -1, 'w');
  $tmparray = dol_getdate($search_start);
  $search_startday = $tmparray['mday'];
  $search_startmonth = $tmparray['mon'];
  $search_startyear = $tmparray['year'];
}
 
$includebeforev2 = GETPOSTINT('includebeforev2');
 
// 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) {
  $page = 0;
}     // If $page is not defined, or '' or -1
$offset = $limit * $page;
$pageprev = $page - 1;
$pagenext = $page + 1;
 
if (empty($sortfield)) {
  $sortfield = 'rowid';
}
if (empty($sortorder)) {
  $sortorder = 'DESC';
}
 
$block_static = new BlockedLog($db);
$block_static->loadTrackedEvents();
 
// Access Control
if ((!$user->admin && !$user->hasRight('blockedlog', 'read')) || !isModEnabled('blockedlog')) {
  accessforbidden();
}
 
$result = restrictedArea($user, 'blockedlog', 0, '');
 
// Execution Time
$max_execution_time_for_importexport = getDolGlobalInt('EXPORT_MAX_EXECUTION_TIME', 300); // 5mn if not defined
$max_time = @ini_get("max_execution_time");
if ($max_time && $max_time < $max_execution_time_for_importexport) {
  dol_syslog("max_execution_time=".$max_time." is lower than max_execution_time_for_importexport=".$max_execution_time_for_importexport.". We try to increase it dynamically.");
  @ini_set("max_execution_time", $max_execution_time_for_importexport); // This work only if safe mode is off. also web servers has timeout of 300
}
 
$MAXLINES = getDolGlobalInt('BLOCKEDLOG_MAX_LINES', 10000);
$MAXFORSHOWNLINKS = getDolGlobalInt('BLOCKEDLOG_MAX_FOR_SHOWN_LINKS', 100);
 
$error = 0;
 
 
/*
 * Actions
 */
 
// Purge search criteria
if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter.x', 'alpha') || GETPOST('button_removefilter', 'alpha')) { // All tests are required to be compatible with all browsers
  $search_id = '';
  $search_fk_user = '';
  $search_start = dol_time_plus_duree(dol_now(), -1, 'w');
  $search_end = -1;
  $search_code = array();
  $search_module_source = isModEnabled('takepos') ? array('takepos') : array();
  $search_pos_source = '';
  $search_ref = '';
  $search_type_code = '';     // Type of payment
  $search_amount = '';
  $search_signature = '';
  $search_showonlyerrors = 0;
  $search_startyear = '';
  $search_startmonth = '';
  $search_startday = '';
  $search_endyear = '';
  $search_endmonth = '';
  $search_endday = '';
  $toselect = array();
  $search_array_options = array();
}
 
if (userIsTaxAuditor()) {
  // When this hidden option is on, open another tab as the tab by default
  header("Location: ".DOL_URL_ROOT."/blockedlog/admin/blockedlog_archives.php");
  exit;
}
 
 
/*
 *  View
 */
 
$form = new Form($db);
 
if ($withtab) {
  $title = $langs->trans("ModuleSetup").' '.$langs->trans('BlockedLog');
} else {
  $title = $langs->trans("BrowseBlockedLog");
}
$help_url = "EN:Module_Unalterable_Archives_-_Logs|FR:Module_Archives_-_Logs_Inaltérable";
 
llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'bodyforlist mod-blockedlog page-admin_blockedlog_list');
 
// Get list of blocked logs.
// Warning: This make a fetch on each line.
$blocks = $block_static->getLog('all', (string) $search_id, $MAXLINES, $sortfield, $sortorder, (int) $search_fk_user, $search_start, $search_end, $search_ref, $search_amount, $search_code, $search_signature, $search_module_source, $search_pos_source);
 
if (!is_array($blocks)) {
  if ($blocks == -2) {
    setEventMessages($langs->trans("TooManyRecordToScanRestrictFilters", $MAXLINES), null, 'errors');
  } else {
    dol_print_error($block_static->db, $block_static->error, $block_static->errors);
    exit;
  }
}
 
$linkback = '';
if ($withtab) {
  $linkback = '<a href="'.dolBuildUrl($backtopage ? $backtopage : DOL_URL_ROOT.'/admin/modules.php', ['restore_lastsearch_values' => 1]).'">'.img_picto($langs->trans("BackToModuleList"), 'back', 'class="pictofixedwidth"').'<span class="hideonsmartphone">'.$langs->trans("BackToModuleList").'</span></a>';
}
 
$morehtmlcenter = '';
$texttop = '';
 
$registrationnumber = getHashUniqueIdOfRegistration();
if (!userIsTaxAuditor()) { // @phpstan-ignore-line as it is already checked before
  $texttop = '<small class="opacitymedium">'.$langs->trans("RegistrationNumber").':</small> <small>'.dol_trunc($registrationnumber, 10).'</small>';
  if (!isRegistrationDataSavedAndPushed()) {
    $texttop = '';
  }
}
 
print load_fiche_titre($title.'<br>'.$texttop, $linkback, 'blockedlog', 0, '', '', $morehtmlcenter);
 
$head = blockedlogadmin_prepare_head($withtab);
 
print dol_get_fiche_head($head, 'fingerprints', '', -1);
 
//print $texttop;
//print '<br><br>';
 
print '<div class="justify">';
print '<span class="opacitymedium hideonsmartphone">';
print $langs->trans("FingerprintsDesc")."<br>";
print $langs->trans("FilesIntegrityDesc").': ';
print '</span>';
print '<a href="'.DOL_URL_ROOT.'/blockedlog/admin/filecheck.php">'.img_picto('', 'url', 'class="pictofixedwidth"').$langs->trans("FileCheck").'</a>';
print '<br>';
print "</div>\n";
 
$nbrecorddone = $block_static->countRecord();
$mindisksize = 50;  // Gb
$maxtranspermonth = 10000;
$nbrecordallowed = $mindisksize * 1024 * 1024 / 40 - $nbrecorddone;
$nbmonthallowed = $nbrecordallowed / $maxtranspermonth;
 
$htmltext = '';
$htmltext .= $langs->trans("UnalterableLogTool2", $langs->transnoentitiesnoconv("Archives"))."<br>";
$htmltext .= '<span class="small">'.$langs->trans("UnalterableLogTool2MaxUsage", $nbrecorddone, $mindisksize, $nbrecordallowed)."</span><br>";
 
$htmltext .= '<span class="small">'.$langs->trans("UnalterableLogTool3")."</span><br>";
if ($mysoc->country_code == 'FR') {
  $htmltext .= '<br><span class="small">'.$langs->trans("UnalterableLogTool1FR", $langs->transnoentitiesnoconv("Archives")).'</span><br>';
} else {
  $htmltext .= '<span class="small">'.$langs->trans("UnalterableLogTool2b", $langs->transnoentitiesnoconv("Archives"))."</span><br>";
}
 
print info_admin($htmltext, 0, 0, 'warning');
 
 
print '<br>';
 
$param = '';
if ($contextpage != getDolDefaultContextPage(__FILE__)) {
  $param .= '&contextpage='.urlencode($contextpage);
}
if ($limit > 0 && $limit != $conf->liste_limit) {
  $param .= '&limit='.((int) $limit);
}
if ($optioncss != '') {
  $param .= '&optioncss='.urlencode($optioncss);
}
if ($search_id != '') {
  $param .= '&search_id='.urlencode($search_id);
}
if ($search_ref != '') {
  $param .= '&search_ref='.urlencode($search_ref);
}
if ($search_fk_user > 0) {
  $param .= '&search_fk_user='.urlencode($search_fk_user);
}
if ($search_amount) {
  $param .= '&search_module_source='.urlencode($search_module_source);
}
if ($search_pos_source) {
  $param .= '&search_pos_source='.urlencode($search_pos_source);
}
if ($search_type_code) {
  $param .= '&search_type_code='.urlencode($search_type_code);
}
if ($search_startyear > 0) {
  $param .= '&search_startyear='.((int) $search_startyear);
}
if ($search_startmonth > 0) {
  $param .= '&search_startmonth='.((int) $search_startmonth);
}
if ($search_startday > 0) {
  $param .= '&search_startday='.((int) $search_startday);
}
if ($search_endyear > 0) {
  $param .= '&search_endyear='.((int) $search_endyear);
}
if ($search_endmonth > 0) {
  $param .= '&search_endmonth='.((int) $search_endmonth);
}
if ($search_endday > 0) {
  $param .= '&search_endday='.((int) $search_endday);
}
if ($search_amount) {
  $param .= '&search_amount='.urlencode($search_amount);
}
if ($search_signature) {
  $param .= '&search_signature='.urlencode($search_signature);
}
if ($search_showonlyerrors > 0) {
  $param .= '&search_showonlyerrors='.((int) $search_showonlyerrors);
}
if ($withtab) {
  $param .= '&withtab='.((int) $withtab);
}
 
// Clear memory cache of the obfuscation key
if (GETPOST('clearcache')) {
  unset($_SESSION['obfuscationkey_'.((int) $conf->entity)]);
  unset($conf->cache['obfuscationkey_'.((int) $conf->entity)]);
}
 
// Get the remoteobfuscation key
// Show an error to ask to retry later if we can't get it because it means we can't decode the HMAC KEY later so we can't validate record.
$remoteobfuscationkey = '';
if (isALNERunningVersion(1) && $mysoc->country_code == 'FR') {
  try {
    $remoteobfuscationkey = $block_static->getObfuscationKey();
    // Note: To emulate a pb in getting the obfuscation key, there is some code to uncomment into the method
  } catch (Exception $e) {
    $error++;
 
    print '<div class="error mess1">';
    print $e->getMessage();
    print '<br>';
    print '<a class="" href="'.$_SERVER["PHP_SELF"].'?clearcache=1">'.$langs->trans("Retry").'</a>';
    print '</div>';
  }
}
 
// Get the encoded HMAC key.
$hmac_encoded_secret_key = $block_static->getEncodedHMACSecretKey();  // Can be old 'dolcrypt:...' if migration not yet complete but should be 'dolobfuscationv1...'
if (empty($hmac_encoded_secret_key)) {
  // This is no more the case since Dolibarr v23 and Blockedlog v2+
  print '<div class="error mess2">';
  print 'Error: BLOCKEDLOG_HMAC_KEY was not found. It should have been initialized to a value "BLOCKEDLOG_HMAC_...." during initialization of module BlockedLog or during migration from a very old version.';
  print '</div>';
}
 
// Here we have the obfuscated value of BLOCKEDLOG_HMAC_KEY in $hmac_encoded_secret_key. We need to unobfuscate it.
$hmac_secret_key = '';
if (!$error) {
  try {
    $hmac_secret_key = $block_static->getClearHMACSecretKey($hmac_encoded_secret_key);    // Note: On network trouble, an Exception is thrown to the caller
  } catch (Exception $e) {
    print '<div class="error mess3">';
    print $e->getMessage();
    print '<br>';
    print '<a class="" href="'.$_SERVER["PHP_SELF"].'?clearcache=1">'.$langs->trans("Retry").'</a>';
    print '</div>';
  }
}
 
print '<form method="POST" id="searchFormList" action="'.dolBuildUrl($_SERVER["PHP_SELF"]).'" spellcheck="false">';
 
if ($optioncss != '') {
  print '<input type="hidden" name="optioncss" value="'.$optioncss.'">';
}
print '<input type="hidden" name="token" value="'.newToken().'">';
print '<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
print '<input type="hidden" name="action" value="list">';
print '<input type="hidden" name="sortfield" value="'.$sortfield.'">';
print '<input type="hidden" name="sortorder" value="'.$sortorder.'">';
print '<input type="hidden" name="page" value="'.$page.'">';
print '<input type="hidden" name="contextpage" value="'.$contextpage.'">';
print '<input type="hidden" name="withtab" value="'.$withtab.'">';
 
print '<div class="div-table-responsive">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
print '<table class="noborder centpercent liste">';
 
// Line of filters
print '<tr class="liste_titre_filter">';
 
// Action column
if ($conf->main_checkbox_left_column) {
  print '<td class="liste_titre center">';
  $searchpicto = $form->showFilterButtons();
  print $searchpicto;
  print '</td>';
}
 
print '<td class="liste_titre"><input type="text" class="maxwidth50" name="search_id" value="'.dol_escape_htmltag($search_id).'"></td>';
 
print '<td class="liste_titre">';
//print $langs->trans("from").': ';
print $form->selectDate($search_start, 'search_start');
//print '<br>';
//print $langs->trans("to").': ';
print $form->selectDate($search_end, 'search_end');
print '</td>';
 
// User
print '<td class="liste_titre">';
print $form->select_dolusers($search_fk_user, 'search_fk_user', 1, null, 0, '', '', '0', 0, 0, '', 0, '', 'maxwidth100');
print '</td>';
 
// Module source
print '<td class="liste_titre">';
//print $form->multiselectarray('search_module_source', $block_static->trackedmodules, $search_module_source, 0, 0, 'minwidth75 maxwidth200', 1);
print '<input type="text" class="maxwidth100" name="search_module_source" list="search_module_sources" value="'.dol_escape_htmltag($search_module_source[0]).'">';
if (isModEnabled('takepos')) {
  print '<datalist id="search_module_sources">
      <option value="takepos">
    <option value="backoffice">
  </datalist>';
}
print '</td>';
 
// POS source
print '<td class="liste_titre">';
print '<input type="text" class="maxwidth50" name="search_pos_source" value="'.dol_escape_htmltag($search_pos_source).'">';
print '</td>';
 
// Actions code
 
$actioncodetoshowincombo = array();
// Merge the action PAYMENT_CUSTOMER_CREATE and PAYMENT_CUSTOMER_DELETE into PAYMENT_CUSTOMER
foreach ($block_static->trackedevents as $key => $value) {
  if ($key === 'PAYMENT_CUSTOMER_DELETE') {
    $actioncodetoshowincombo['PAYMENT_CUSTOMER'] = array('id' => 'PAYMENT_CUSTOMER', 'label' => 'logPAYMENT_CUSTOMER', 'labelhtml' => img_picto('', 'bill', 'class="pictofixedwidth").').$langs->trans('logPAYMENT_CUSTOMER'));
    unset($actioncodetoshowincombo['PAYMENT_CUSTOMER_CREATE']);
    unset($actioncodetoshowincombo['PAYMENT_CUSTOMER_DELETE']);
  } else {
    $actioncodetoshowincombo[$key] = $value;
  }
}
$actioncodetoshowincombo['PAYMENT_CUSTOMER'] = array('id' => 'PAYMENT_CUSTOMER', 'label' => 'logPAYMENT_CUSTOMER', 'labelhtml' => img_picto('', 'bill', 'class="pictofixedwidth").').$langs->trans('logPAYMENT_CUSTOMER'));
 
print '<td class="liste_titre">';
print $form->multiselectarray('search_code', $actioncodetoshowincombo, $search_code, 0, 0, 'maxwidth200', 1);
print '</td>';
 
// Ref
print '<td class="liste_titre"><input type="text" class="maxwidth100" name="search_ref" value="'.dol_escape_htmltag($search_ref).'"></td>';
 
// Payment mode
//print '<td class="liste_titre"><input type="text" class="maxwidth100" name="search_type_code" value="'.dol_escape_htmltag($search_type_code).'"></td>';
 
// Amount
print '<td class="liste_titre right"><input type="text" class="maxwidth50" name="search_amount" value="'.dol_escape_htmltag($search_amount).'"></td>';
 
// Full data
print '<td class="liste_titre"></td>';
 
// Fingerprint
print '<td class="liste_titre"><input type="text" class="maxwidth50" name="search_signature" value="'.dol_escape_htmltag($search_signature).'"></td>';
 
// Status
print '<td class="liste_titre center minwidth75imp parentonrightofpage">';
$array = array("1" => $langs->trans("OnlyNonValid").' (KO)');
print $form->selectarray('search_showonlyerrors', $array, $search_showonlyerrors, 1, 0, 0, '', 1, 0, 0, 'ASC', 'search_status width100 onrightofpage', 1);
print '</td>';
 
// Link to debug information object
if (getDolGlobalString("BLOCKEDLOG_DEBUG")) { // If in experimental or develop mode, we add some debug information. It may help developers to find origin of bugs.
  print '<td class="liste_titre"></td>';
  print '<td class="liste_titre"></td>';
}
 
// Action column
if (!$conf->main_checkbox_left_column) {
  print '<td class="liste_titre center">';
  $searchpicto = $form->showFilterButtons();
  print $searchpicto;
  print '</td>';
}
 
print '</tr>';
 
 
print '<tr class="liste_titre">';
// Action column
if ($conf->main_checkbox_left_column) {
  print getTitleFieldOfList('<span id="blockchainstatus"></span>', 0, $_SERVER["PHP_SELF"], '', '', $param, 'class="center"', $sortfield, $sortorder, '')."\n";
}
print getTitleFieldOfList($langs->trans('#'), 0, $_SERVER["PHP_SELF"], 'rowid', '', $param, '', $sortfield, $sortorder, 'minwidth50 ')."\n";
print getTitleFieldOfList($langs->trans('Date'), 0, $_SERVER["PHP_SELF"], 'date_creation', '', $param, '', $sortfield, $sortorder, '')."\n";
print getTitleFieldOfList($langs->trans('Author'), 0, $_SERVER["PHP_SELF"], 'user_fullname', '', $param, '', $sortfield, $sortorder, '')."\n";
print getTitleFieldOfList($langs->trans('POS'), 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, '')."\n";
print getTitleFieldOfList($langs->trans('Terminal'), 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, '')."\n";
print getTitleFieldOfList($langs->trans('Action'), 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, '')."\n";
print getTitleFieldOfList($langs->trans('Ref'), 0, $_SERVER["PHP_SELF"], 'ref_object', '', $param, '', $sortfield, $sortorder, '')."\n";
//print getTitleFieldOfList($langs->trans('PaymentMode'), 0, $_SERVER["PHP_SELF"], 'type_code', '', $param, '', $sortfield, $sortorder, '')."\n";
print getTitleFieldOfList($langs->trans('Amount'), 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'right ', 0, $langs->trans("TotalTTCIfInvoiceSeeCompleteDataForDetail").'<br>'.$langs->trans("AmountInCurrency", getDolCurrency()))."\n";
print getTitleFieldOfList($langs->trans('DataOfArchivedEvent'), 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'center ', 0, $langs->trans('DataOfArchivedEventHelp'), 1)."\n";
print getTitleFieldOfList($langs->trans('Fingerprint'), 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, '')."\n";
print getTitleFieldOfList($form->textwithpicto($langs->trans('Status'), $langs->trans('DataOfArchivedEventHelp2')), 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, 'center ')."\n";
if (getDolGlobalString("BLOCKEDLOG_DEBUG")) { // If in experimental or develop mode, we add some debug information. It may help developers to find origin of bugs.
  print getTitleFieldOfList('', 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, '')."\n";
  print getTitleFieldOfList('', 0, $_SERVER["PHP_SELF"], '', '', $param, '', $sortfield, $sortorder, '')."\n";
}
// Action column
if (!$conf->main_checkbox_left_column) {
  print getTitleFieldOfList('<span id="blockchainstatus"></span>', 0, $_SERVER["PHP_SELF"], '', '', $param, 'class="center"', $sortfield, $sortorder, '')."\n";
}
print '</tr>';
 
$checkresult = array();
$checkdetail = array();
$checkerror = array();
$loweridinerror = 0;    // The lower rowid we found an anomaly (for debug or analysis purposes only)
 
// This is the algorithm that optimize the memory (note: it will not report errors that are outside the filter range, but we don't need them)
if (is_array($blocks)) {
  foreach ($blocks as &$block) {
    // Enable this log to get information used to recalculate the signature
    //var_dump($block->id.' '.$block->signature, $block->object_data);
 
    $tmpcheckresult = $block->checkSignature('', 1); // Note: this make a sql request at each call, we can't avoid this as the sorting order and filter is various
 
    $checksignature = $tmpcheckresult['checkresult'];
 
    $checkresult[$block->id] = $checksignature; // false if error
    $checkdetail[$block->id] = $tmpcheckresult;
 
    if (!empty($tmpcheckresult['error'])) {
      $checkerror[$block->id] = $tmpcheckresult['error'];
    }
    if (!empty($block->note)) {
      $checkresult[$block->id] = false;
      //$checkerror[$block->id] = $block->note;
    }
 
    if (!$checksignature) {
      if (empty($loweridinerror)) {
        $loweridinerror = $block->id;
      } else {
        $loweridinerror = min($loweridinerror, $block->id);
      }
    }
  }
}
 
$refinvoicefound = array();
$totalhtamount = array();
$totalvatamount = array();
$totalamount = array();
 
if (is_array($blocks)) {
  $nbshown = 0;
  $object_link = '';
  $object_link_title = '';
 
  $colspan = 12;
  if (getDolGlobalString("BLOCKEDLOG_DEBUG")) {
    $colspan++;
    $colspan++;
  }
 
  // Get the last record of the chain (may be used later).
  $lastrecord = $block_static->getLastRecord();
 
  $lockfile = $block_static->getEndOfChainFlagFile();
  $lockline = '';
 
  // Check that there was no deletion on the end of chain.
  // Note: We can find a similar code into the blockedlog_archive
  if (defined('BLOCKEDLOG_END_FLAG_IN_A_FILE')) {
    if (!file_exists($lockfile)) {
      $error++;
 
      print '<tr><td class="center" colspan="'.$colspan.'">';
      if ($mysoc->country_code == 'FR') {
        print '<span class="error">'.$langs->trans("ErrorEndOfChainFlagWasRemoved").'</span>';
      } else {
        print '<span class="warning">'.$langs->trans("WarningNoProtectionOnEndOfChain").'</span>';
      }
      print '</td></tr>';
    } else {
      $lockline = trim(file_get_contents($lockfile));
    }
  } else {
    $sql = "SELECT value from ".MAIN_DB_PREFIX."const";
    $sql .= " WHERE name = '".$db->escape(basename($lockfile))."' AND entity = ".((int) $conf->entity);
    $resql = $db->query($sql);
    if ($resql) {
      $obj = $db->fetch_object($resql);
      if ($obj) {
        $lockline = $obj->value;
      } else {
        $error++;
 
        print '<tr><td class="center" colspan="'.$colspan.'">';
        if ($mysoc->country_code == 'FR') {
          print '<span class="error">'.$langs->trans("ErrorEndOfChainFlagWasRemoved").'</span>';
        } else {
          print '<span class="warning">'.$langs->trans("WarningNoProtectionOnEndOfChain").'</span>';
        }
        print '</td></tr>';
      }
    }
  }
 
  if (! $error) {
    $headstring = '';
    if (preg_match('/^dolcrypt/', $lockline)) {
      $headstring = dolDecrypt($lockline, '', 'BLOCKEDLOGHEAD');
    } elseif (preg_match('/^dolobfuscation/', $lockline)) {
      try {
        $remoteobfuscationkey = $block_static->getObfuscationKey();
        if (empty($remoteobfuscationkey)) {
          throw new Exception('Remote obfuscation key is empty');
        }
      } catch (Exception $e) {
        $error++;
 
        print '<tr><td class="center" colspan="'.$colspan.'">';
        $url_for_ping = getDolGlobalString('MAIN_URL_FOR_PING', "https://ping.dolibarr.org/");
        print '<span class="warning">'.$langs->trans("FailedToGetRemoteObfuscationKeyReTryLater", $url_for_ping).'</span>';
        print ' ';
        print '<span class="warning">'.$langs->trans("CantValidateEndOfChain").'</span>';
        print '</td></tr>';
      }
      $headstring = dolDecrypt($lockline, $remoteobfuscationkey, 'BLOCKEDLOGHEAD');
    }
 
    $reg = array();
    if (preg_match('/^BLOCKEDLOGHEAD (\d+) ([^\s]+) ([a-zA-Z0-9\-]+)/', $headstring, $reg)) { // Failed to decypt the head
      // Compare with last line
      $lastrecordid = $lastrecord['id'];
      $lastrecorddate = $lastrecord['date'];
      $lastrecordsignature = $lastrecord['signature'];
 
      if ($reg[1] > $lastrecordid || $reg[3] != $lastrecordsignature) {
        $error++;
 
        // Check that last line is the one declared into the head flag. If not, it means some record were deleted at end of chain.
        print '<tr><td class="center" colspan="'.$colspan.'">';
        print '<span class="error">'.$langs->trans("ErrorEndOfChainRecordWasRemoved", str_replace(array('T', 'Z'), ' ', dol_print_date($lastrecorddate, 'dayhourrfc', 'gmt')), str_replace(array('T', 'Z'), ' ', $reg[2])).'</span>';
        print '</td></tr>';
      }
    } else {
      $error++;
 
      print '<tr><td class="center" colspan="'.$colspan.'">';
      print '<span class="error">'.$langs->trans("FailedToDecodeTheHeadFlagEndOfChainIsNotReliable").'</span>';
      print '</td></tr>';
    }
  }
 
  // Now loop on each line to show them
  foreach ($blocks as &$block) {
    //if (empty($search_showonlyerrors) || ! $checkresult[$block->id] || ($loweridinerror && $block->id >= $loweridinerror))
    if (empty($search_showonlyerrors) || !$checkresult[$block->id]) {
      $nbshown++;
 
      if (getDolGlobalString("BLOCKEDLOG_DEBUG")) {
        if ($nbshown < $MAXFORSHOWNLINKS) { // For performance and memory purpose, we get/show the debug info link of objects only for the 100 first output
          $object_link = $block->getObjectLink();
          $object_link_title = '';
        } else {
          $object_link = $block->element.'/'.$block->fk_object;
          $object_link_title = $langs->trans('LinkHasBeenDisabledForPerformancePurpose');
        }
      }
 
      print '<tr class="oddeven">';
 
      // Action column
      if ($conf->main_checkbox_left_column) {
        print '<td>';
        print '</td>';
      }
 
      // ID
      print '<td>'.dolPrintHTML((string) $block->id).'</td>';
 
      // Date
      print '<td class="nowraponall">'.dol_print_date($block->date_creation, 'dayhour', 'tzuserrel').'</td>';
 
      // User
      print '<td class="tdoverflowmax200" title="'.dolPrintHTMLForAttribute($block->user_fullname).'">';
      //print $block->getUser()
      print dolPrintHTML($block->user_fullname);
      print '</td>';
 
      // Module Source
      $labelofmodulesource = $block->module_source;
      print '<td class="tdoverflowmax250" title="'.dolPrintHTMLForAttribute($labelofmodulesource).'">'.dolPrintHTML($labelofmodulesource).'</td>';
 
      // Terminal POS
      print '<td>'.dolPrintHTML($block->pos_source).'</td>';
 
      // Action
      $labelofaction = $langs->transnoentitiesnoconv('log'.$block->action);
      print '<td class="" title="'.dolPrintHTMLForAttribute($labelofaction).'">';
      print '<div class="twolinesmax-normallineheight minwidth200onall small">';
      print dolPrintHTML($labelofaction);
      print '</div>';
      print '</td>';
 
      // Define $totalhtamount, $totalvatamount, $totalamount for $block action code and module
      $total_ht = $total_vat = $total_ttc = 0;
      sumAmountsForUnalterableEvent($block, $refinvoicefound, $totalhtamount, $totalvatamount, $totalamount, $total_ht, $total_vat, $total_ttc);
 
      // Ref
      print '<td class="nowraponall"><div class="smallheight" title="'.dolPrintHTMLForAttribute(price($total_ttc)).'">';
      if (!empty($block->ref_object)) {
        print dolPrintHTML($block->ref_object);
        if ($block->linktype && $block->linktoref) {
          if ($block->linktype == 'payment') {
            print '<br><span class="opacitymedium small">'.$langs->trans("PaymentOf").' '.$block->linktoref.'</span>';
          }
          if ($block->linktype == 'replacedby') {
            print '<br><span class="opacitymedium small">'.$langs->trans("ReplacedBy").' '.$block->linktoref.'</span>';
          }
          if ($block->linktype == 'credit_note_of') {
            print '<br><span class="opacitymedium small">'.$langs->trans("CreditNoteOf").' '.$block->linktoref.'</span>';
          }
        }
      } else {
        // Ref not stored
      }
      print '</div></td>';
 
      // Payment mode
      //print '<td>'.dolPrintHTML($block->type_code).'</td>';
 
      // Amount
      print '<td class="right nowraponall"><span class="amount">';
      if (!in_array($block->action, array('BLOCKEDLOG_EXPORT', 'CASHCONTROL_CLOSE', 'MODULE_SET', 'MODULE_RESET'))) {
        $showamount = in_array($block->action, array('BILL_VALIDATE', 'PAYMENT_CUSTOMER_CREATE', 'PAYMENT_CUSTOMER_DELETE'));
        if ($showamount) {
          print price($total_ttc);
        }
      }
      print '</span></td>';
 
      // Details link
      print '<td class="center"><a href="#" data-blockid="'.$block->id.'" rel="show-info">'.img_picto($langs->trans('ShowDetails'), 'note', 'class="size15x"').'</span></td>';
 
      // Fingerprint
      print '<td class="nowraponall">';
      // Note: the previous line id is not necessarily id-1, so in texttoshow we say "on previous line" without giving id to avoid a search/fetch to get previous id.
      $texttoshow = $langs->trans("Fingerprint").' - '.$langs->trans("SavedOnLine").' =<br>'.$block->signature;
      $texttoshow .= '<br><br>'.$langs->trans("Fingerprint").' - Recalculated hash_hmac(\'sha256\', '.strtolower($langs->trans("PreviousHash").' on previous line').' + data, secret key) =<br>'.$checkdetail[$block->id]['calculatedsignature'];
      $texttoshow .= '<br><span class="opacitymedium">'.$langs->trans("PreviousHash").'='.$checkdetail[$block->id]['previoushash'].'</span>';
      $texttoshow .= '<br><span class="opacitymedium">'.$langs->trans("SecretKey").'=Not available from interface</span>';
      //$texttoshow .= '<br>keyforsignature='.$checkdetail[$block->id]['keyforsignature'];
      print $form->textwithpicto(dol_trunc($block->signature, 8), $texttoshow, 1, 'help', '', 0, 2, 'fingerprint'.$block->id);
      print '</td>';
 
      // Status
      print '<td class="center">';
      if (!$checkresult[$block->id] || ($loweridinerror && $block->id >= $loweridinerror)) {  // If error
        if ($checkresult[$block->id]) {
          //print '<span class="badge badge-status4 badge-status" title="'.dolPrintHTMLForAttribute($langs->trans('OkCheckFingerprintValidityButChainIsKo')).'">'.$langs->trans("StatusValid").'</span>';
          print '<span class="badge badge-status4 badge-status" title="'.dolPrintHTMLForAttribute($langs->trans('OkCheckFingerprintValidity')).'">'.$langs->trans("StatusValid").'</span>';
        } elseif ($block->action == 'MODULE_RESET') {
          // Old action code on old version.
          print '<span class="badge badge-status8 badge-status" title="'.dolPrintHTMLForAttribute('Module has been disabled').'">OK</span>';
        } else {
          print '<span class="badge badge-status8 badge-status" title="';
          if (!empty($checkerror[$block->id])) {
            print dolPrintHTMLForAttribute($checkerror[$block->id])."\n";
          }
          $alt = $langs->trans('KoCheckFingerprintValidity');
          if ($block->note) {
            $notetoshow = $block->note;
            $notetoshow = str_replace('EndOfChainDeletionDetected', $langs->trans("EndOfChainDeletionDetected"), $notetoshow);
            $alt .= "\n".' '.$langs->trans("AddtionalInformation").': '.$notetoshow;
          }
 
          print dolPrintHTMLForAttribute($alt).'">KO</span>';
        }
      } else {
        print '<span class="badge badge-status4 badge-status" title="'.$langs->trans('OkCheckFingerprintValidity').'">'.$langs->trans("StatusValid").'</span>';
      }
 
      // Add debug information
      if (!$checkresult[$block->id] || ($loweridinerror && $block->id >= $loweridinerror)) {  // If error
        if ($checkresult[$block->id]) {
          if (getDolGlobalString("BLOCKEDLOG_DEBUG")) {
            print $form->textwithpicto('', $langs->trans('OkCheckFingerprintValidityButChainIsKo'));
          }
        }
      }
      print '</td>';
 
      // Link to debug information object
      if (getDolGlobalString("BLOCKEDLOG_DEBUG")) { // If in experimental or develop mode, we add some debug information. It may help developers to find origin of bugs.
        print '<td class="nowraponall">';
        print '<!-- version -->'; // $object_link can be a '<a href' link or a text
        print '<span class="small">'.$block->object_version. '<br>'.$block->object_format.'</span>';
        print '</td>';
 
        print '<td class="tdoverflowmax150"'.(preg_match('/<a/', $object_link) ? '' : 'title="'.dol_escape_htmltag(dol_string_nohtmltag($object_link.($object_link_title ? ' - '.$object_link_title : ''))).'"').'>';
        print '<!-- object_link -->'; // $object_link can be a '<a href' link or a text with more information
        print $object_link;
        print '</td>';
      }
 
      // Action column
      if (!$conf->main_checkbox_left_column) {
        print '<td class="liste_titre">';
        print '</td>';
      }
 
      print '</tr>';
    }
  }
 
  // Define which source we want to show
  $showtotalfor = array();
  foreach ($totalamount as $key => $totalamountofcodepersource) {
    if ($key == 'BILL_VALIDATE' || $key == 'PAYMENT_CUSTOMER') {
      foreach ($totalamountofcodepersource as $source => $tmpval) {
        $showtotalfor[$source] = 1;
        // If we found one entry for the source, we make sure we have both BILL_VALIDATE and PAYMENT_CUSTOMER for this source
        if (empty($totalamount['BILL_VALIDATE'][$source])) {
          $totalamount['BILL_VALIDATE'][$source] = 0;
        }
        if (empty($totalamount['PAYMENT_CUSTOMER'][$source])) {
          $totalamount['PAYMENT_CUSTOMER'][$source] = 0;
        }
        if (empty($totalhtamount['BILL_VALIDATE'][$source])) {
          $totalhtamount['BILL_VALIDATE'][$source] = 0;
        }
        if (empty($totalhtamount['PAYMENT_CUSTOMER'][$source])) {
          $totalhtamount['PAYMENT_CUSTOMER'][$source] = 0;
        }
        if (empty($totalvatamount['BILL_VALIDATE'][$source])) {
          $totalvatamount['BILL_VALIDATE'][$source] = 0;
        }
        if (empty($totalvatamount['PAYMENT_CUSTOMER'][$source])) {
          $totalvatamount['PAYMENT_CUSTOMER'][$source] = 0;
        }
      }
    }
  }
 
  // Show total lines
  if ($nbshown == 0) {
    print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span></td></tr>';
  } else {
    ksort($totalamount);
    krsort($showtotalfor);
 
    // Show the total for period if filters are ok
    $afilterexists = ($search_id || ($search_fk_user > 0) || $search_ref || $search_amount || $search_signature);
 
    $countsource = 0;
    foreach ($showtotalfor as $source => $tmpval) {
      $countsource++;
 
      // Line of title for total for period for $source
      print '<tr class="liste_titre totalblockedlog">';
      print '<td colspan="'.$colspan.'"';
      if ($countsource == 1) {
        print ' style="border-top: 1px solid #000;"';
      }
      print '>';
      print $langs->trans("TotalForThePeriod");
      print ' - '.($source ? $langs->trans("PointOfSale").' '.ucfirst($source) : $langs->trans("BackOffice"));
      print ' <span class="opacitylow">(';
      if ($afilterexists) {
        print img_picto($langs->trans("ForPeriodAndFilters"), 'warning', 'class="pictofixedwidth"');
      }
      print $langs->trans("ForPeriodAndFilters").')</span>';
      print '</td>';
      print '</tr>';
 
      foreach ($totalamount as $actioncode => $totalamountofcodepersource) {
        if ($actioncode == 'BILL_VALIDATE' && (!empty($search_code) && !in_array('BILL_VALIDATE', $search_code))) {
          continue;
        }
        if ($actioncode == 'PAYMENT_CUSTOMER' && (!empty($search_code) && !in_array('PAYMENT_CUSTOMER', $search_code))) {
          continue;
        }
 
        // Total
        print '<tr class="liste_total totalblockedlog">';
 
        // Action column
        if ($conf->main_checkbox_left_column) {
          print '<td>';
          print '</td>';
        }
 
        // ID
        print '<td colspan="4">';
        $s = $actioncode;
        if ($actioncode == 'BILL_VALIDATE') {
          $s = img_picto('', 'bill', 'class="pictofixedwidth"').$langs->trans("Turnover");
        } elseif ($actioncode == 'PAYMENT_CUSTOMER') {
          $s = img_picto('', 'payment', 'class="pictofixedwidth"').$langs->trans("TurnoverCollected");
        }
        print $form->textwithpicto($s, $langs->trans("TotalForAction").' '.$langs->trans('log'.$actioncode));
        print '</td>';
 
        // Action
        print '<td></td>';
 
        // Amount (HT)
        print '<td class="right nowraponall" colspan="3">';
        if ($actioncode == 'BILL_VALIDATE') {
          print '<span class="amount">'.price($totalhtamount[$actioncode][$source]).'</span>';
          print ' '.$langs->trans("HT");
 
          print ' - ';
 
          print '<span class="amount">'.price($totalvatamount[$actioncode][$source]).'</span>';
          print ' '.$langs->trans("VAT");
 
          print ' - ';
        }
 
        print '<span class="amount">'.price($totalamount[$actioncode][$source]).'</span>';
        if ($actioncode == 'BILL_VALIDATE') {
          print ' '.$langs->trans("TTC");
        }
        print '</td>';
 
        // Details link
        print '<td class="center"></td>';
 
        // Fingerprint
        print '<td class="nowraponall">';
        print '</td>';
 
        // Status
        print '<td class="center">';
        print '</td>';
 
        // Link to debug information object
        if (getDolGlobalString("BLOCKEDLOG_DEBUG")) { // If in experimental or develop mode, we add some debug information. It may help developers to find origin of bugs.
          print '<td></td>';
 
          print '<td class="tdoverflowmax150"'.(preg_match('/<a/', $object_link) ? '' : 'title="'.dol_escape_htmltag(dol_string_nohtmltag($object_link.($object_link_title ? ' - '.$object_link_title : ''))).'"').'>';
          print '</td>';
        }
 
        // Action column
        if (!$conf->main_checkbox_left_column) {
          print '<td class="liste_titre">';
          print '</td>';
        }
 
        print '</tr>';
      }
    }
 
    // Show total for lifetime
    $countsource = 0;
    foreach ($showtotalfor as $source => $tmpval) {
      $countsource++;
 
      if (empty($search_end) || $search_end == -1) {
        $search_end = dol_now();
      }
 
      // Get lifetime amount of all invoices validated and payments created/deleted.
      // We do not use $totalamountalllines because it is only for the period, but we want lifetime amount since the first record to now.
 
      $totalamountlifetime = array('BILL_VALIDATE' => array(), 'PAYMENT_CUSTOMER_CREATE' => array(), 'PAYMENT_CUSTOMER_DELETE' => array());
      $totalhtamountlifetime = array('BILL_VALIDATE' => array(), 'PAYMENT_CUSTOMER_CREATE' => array(), 'PAYMENT_CUSTOMER_DELETE' => array());
 
      $foundoldformat = 0;
      $firstrecorddate = 0;
      global $foundoldformat, $firstrecorddate;
      include DOL_DOCUMENT_ROOT.'/blockedlog/admin/lifetimeamount.inc.php';
      '@phan-var-force array<string,array<string,float>> $totalamountlifetime';
      '@phan-var-force array<string,array<string,float>> $totalhtamountlifetime';
 
      print '<tr class="liste_titre totalblockedlog" style="border-top: 1px solid #222">';
      print '<td colspan="'.$colspan.'"';
      if ($countsource == 1) {
        print ' style="border-top: 1px solid #000;"';
      }
      print '>';
 
      print $langs->trans("TotalForLifetime");
      print ' - '.($source ? $langs->trans("PointOfSale").' '.ucfirst($source) : $langs->trans("BackOffice"));
 
      print ' <span class="opacitymedium">('.dol_print_date($firstrecorddate, 'dayhour', 'tzuserrel');
      if (GETPOST('search_endyear') && $search_end && $search_end != -1) {
        print ' - '.dol_print_date($search_end, 'dayhoursec', 'tzuserrel');
      } else {
        print ' - '.$langs->trans("Now");
      }
      print ')</span>';
      print '</td>';
      print '</tr>';
 
      // Lifetime amount of invoices validated
      if (empty($search_code) || in_array('BILL_VALIDATE', $search_code)) {
        // Total
        print '<tr class="liste_total totalblockedlog">';
 
        // Action column
        if ($conf->main_checkbox_left_column) {
          print '<td></td>';
        }
 
        // ID
        print '<td colspan="4">';
 
        $s = img_picto('', 'bill', 'class="pictofixedwidth"').$langs->trans("Turnover");
        print $form->textwithpicto($s, $langs->trans("TotalForAction").' '.$langs->trans('logBILL_VALIDATE'));
 
        print ' &nbsp; ';
 
        // If there is at least one record with old format
        $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."blockedlog WHERE object_format < 'V2' and action = 'BILL_VALIDATE' LIMIT 1";
        $resql = $db->query($sql);
        $obj = $db->fetch_object($resql);
        if ($obj) {
          $foundav1 = 1;
          if ($includebeforev2) {
            print ' <span class="small"><a class="reposition" href="'.$_SERVER["PHP_SELF"].'?includebeforev2=0&'.($page ? 'page='.$page.'&' : '').$param.'">'.$form->textwithpicto($langs->trans("OnlyFromV2"), $langs->trans("OnlyFromV2Help")).'</a></span>';
          } else {
            print ' <span class="small"><a class="reposition" href="'.$_SERVER["PHP_SELF"].'?includebeforev2=1&'.($page ? 'page='.$page.'&' : '').$param.'">'.$form->textwithpicto($langs->trans("IncludesAll"), $langs->trans("IncludesAllHelp")).'</a></span>';
          }
        }
        print '</td>';
 
        // Action
        print '<td></td>';
 
        // Amount (HT)
        print '<td class="right nowraponall" colspan="3">';
        print ($foundoldformat ? '' : '<span class="amount">'.price($totalhtamountlifetime['BILL_VALIDATE'][$source]).'</span> '.$langs->trans("HT")).($foundoldformat ? '' : ' - <span class="amount">'.price((float) $totalamountlifetime['BILL_VALIDATE'][$source] - (float) $totalhtamountlifetime['BILL_VALIDATE'][$source]).'</span> '.$langs->transnoentitiesnoconv("VAT")).($foundoldformat ? '' : " - ").'<span class="amount">'.price($totalamountlifetime['BILL_VALIDATE'][$source]).'</span> '.$langs->trans("TTC");
        print '</td>';
 
        // Details link
        print '<td class="center"></td>';
 
        // Fingerprint
        print '<td class="nowraponall"></td>';
 
        // Status
        print '<td class="center"></td>';
 
        // Link to debug information object
        if (getDolGlobalString("BLOCKEDLOG_DEBUG")) { // If in experimental or develop mode, we add some debug information. It may help developers to find origin of bugs.
          print '<td>';
          print '</td>';
 
          print '<td class="tdoverflowmax150"'.(preg_match('/<a/', $object_link) ? '' : 'title="'.dol_escape_htmltag(dol_string_nohtmltag($object_link.($object_link_title ? ' - '.$object_link_title : ''))).'"').'>';
          print '</td>';
        }
 
        // Action column
        if (!$conf->main_checkbox_left_column) {
          print '<td class="liste_titre"></td>';
        }
 
        print '</tr>';
      }
 
      // Lifetime amount for payments
      if (empty($search_code)
        || in_array('PAYMENT_CUSTOMER', $search_code)       // Filter for both PAYMENT_CUSTOMER_CREATE and PAYMENT_CUSTOMER_DELETE
        || in_array('PAYMENT_CUSTOMER_CREATE', $search_code)
        || in_array('PAYMENT_CUSTOMER_DELETE', $search_code)) {
        // Total
        print '<tr class="liste_total totalblockedlog">';
 
        // Action column
        if ($conf->main_checkbox_left_column) {
          print '<td></td>';
        }
 
        // ID
        print '<td colspan="4">';
 
        $s = img_picto('', 'payment', 'class="pictofixedwidth"').$langs->trans("TurnoverCollected");
        print $form->textwithpicto($s, $langs->trans("TotalForAction").' '.$langs->trans('logPAYMENT_CUSTOMER'));
 
        print '</td>';
 
        // Action
        print '<td></td>';
 
        // Amount (HT)
        print '<td class="right nowraponall" colspan="3">';
        print '<span class="amount">'.price((float) $totalamountlifetime['PAYMENT_CUSTOMER_CREATE'][$source] + (float) $totalamountlifetime['PAYMENT_CUSTOMER_DELETE'][$source]).'</span>';
        print '</td>';
 
        // Details link
        print '<td class="center"></td>';
 
        // Fingerprint
        print '<td class="nowraponall"></td>';
 
        // Status
        print '<td class="center"></td>';
 
        // Link to debug information object
        if (getDolGlobalString("BLOCKEDLOG_DEBUG")) { // If in experimental or develop mode, we add some debug information. It may help developers to find origin of bugs.
          print '<td>';
          print '</td>';
 
          print '<td class="tdoverflowmax150"'.(preg_match('/<a/', $object_link) ? '' : 'title="'.dol_escape_htmltag(dol_string_nohtmltag($object_link.($object_link_title ? ' - '.$object_link_title : ''))).'"').'>';
          print '</td>';
        }
 
        // Action column
        if (!$conf->main_checkbox_left_column) {
          print '<td class="liste_titre"></td>';
        }
 
        print '</tr>';
      }
    }
  }
}
 
print '</table>';
 
print '</div>';
 
print '</form>';
 
// Javascript to manage the showinfo popup
print '<script type="text/javascript">
 
jQuery(document).ready(function () {
  jQuery("#dialogforpopup").dialog({
    closeOnEscape: true,
    classes: { "ui-dialog": "highlight" },
    maxHeight: window.innerHeight-60,
    height: window.innerHeight-60,
    width: '.($conf->browser->layout == 'phone' ? 400 : 700).',
    modal: true,
    autoOpen: false
  }).css("z-index: 5000");
 
  $("a[rel=show-info]").click(function() {
      console.log("We click on tooltip a[rel=show-info], we open popup and get content using an ajax call");
 
    var fk_block = $(this).attr("data-blockid");
 
    $.ajax({
      method: "GET",
      data: { token: \''.currentToken().'\' },
      url: "'.DOL_URL_ROOT.'/blockedlog/ajax/block-info.php?id="+fk_block,
      dataType: "html"
    }).done(function(data) {
      jQuery("#dialogforpopup").html(data);
    });
 
    var mydialog = jQuery("#dialogforpopup");
    mydialog.dialog({autoOpen: false, modal: true, height: (window.innerHeight - 150), width: \'80%\', title: \''.dol_escape_js($langs->transnoentitiesnoconv("UnlaterableDataOfEvent")).'\',});
    mydialog.dialog("open");
    return false;
  });
})
</script>'."\n";
 
 
/*
if (getDolGlobalString('BLOCKEDLOG_USE_REMOTE_AUTHORITY') && getDolGlobalString('BLOCKEDLOG_AUTHORITY_URL')) {
  ?>
    <script type="text/javascript">
 
      $.ajax({
        method: "GET",
        data: { token: '<?php echo currentToken() ?>' },
        url: '<?php echo DOL_URL_ROOT.'/blockedlog/ajax/check_signature.php' ?>',
        dataType: 'html'
      }).done(function(data) {
        if(data == 'hashisok') {
          $('#blockchainstatus').html('<?php echo $langs->trans('AuthorityReconizeFingerprintConformity').' '.img_picto($langs->trans('SignatureOK'), 'on') ?>');
        }
        else{
          $('#blockchainstatus').html('<?php echo $langs->trans('AuthorityDidntReconizeFingerprintConformity').' '.img_picto($langs->trans('SignatureKO'), 'off') ?>');
        }
 
      });
 
    </script>
  <?php
}
*/
 
print dol_get_fiche_end();
 
print '<br><br>';
 
// End of page
llxFooter();
$db->close();