26 require
'../main.inc.php';
27 include_once DOL_DOCUMENT_ROOT.
'/core/boxes/modules_boxes.php';
28 require_once DOL_DOCUMENT_ROOT.
'/core/class/infobox.class.php';
29 include_once DOL_DOCUMENT_ROOT.
'/core/lib/admin.lib.php';
32 $langs->loadLangs(array(
'admin',
'boxes',
'accountancy'));
38 $rowid =
GETPOST(
'rowid',
'int');
39 $action =
GETPOST(
'action',
'aZ09');
51 if ($action ==
'addconst') {
53 dolibarr_set_const($db,
"MAIN_ACTIVATE_FILECACHE",
GETPOST(
"MAIN_ACTIVATE_FILECACHE",
'alpha'),
'chaine', 0,
'', $conf->entity);
56 if ($action ==
'add') {
58 $boxids =
GETPOST(
'boxid',
'array');
61 if (is_array($boxids)) {
62 foreach ($boxids as $boxid) {
63 if (is_numeric($boxid[
'pos']) && $boxid[
'pos'] >= 0) {
67 $distinctfkuser = array();
69 $sql =
"SELECT fk_user";
70 $sql .=
" FROM ".MAIN_DB_PREFIX.
"user_param";
71 $sql .=
" WHERE param = 'MAIN_BOXES_".$db->escape($pos).
"' AND value = '1'";
72 $sql .=
" AND entity = ".$conf->entity;
73 dol_syslog(
"boxes.php search fk_user to activate box for", LOG_DEBUG);
76 $num = $db->num_rows(
$resql);
79 $obj = $db->fetch_object(
$resql);
80 $distinctfkuser[$obj->fk_user] = $obj->fk_user;
89 $distinctfkuser[
'0'] =
'0';
91 foreach ($distinctfkuser as $fk_user) {
92 if (!$error && $fk_user !=
'') {
93 $arrayofexistingboxid = array();
94 $nbboxonleft = $nbboxonright = 0;
95 $sql =
"SELECT box_id, box_order FROM ".MAIN_DB_PREFIX.
"boxes";
96 $sql .=
" WHERE position = ".((int) $pos).
" AND fk_user = ".((int) $fk_user).
" AND entity = ".((int) $conf->entity);
97 dol_syslog(
"boxes.php activate box", LOG_DEBUG);
100 while ($obj = $db->fetch_object(
$resql)) {
101 $boxorder = $obj->box_order;
102 if (preg_match(
'/A/', $boxorder)) {
105 if (preg_match(
'/B/', $boxorder)) {
108 $arrayofexistingboxid[$obj->box_id] = 1;
114 if (empty($arrayofexistingboxid[$boxid[
'value']])) {
115 $sql =
"INSERT INTO ".MAIN_DB_PREFIX.
"boxes (";
116 $sql .=
"box_id, position, box_order, fk_user, entity";
117 $sql .=
") VALUES (";
118 $sql .= ((int) $boxid[
'value']).
", ".((int) $pos).
", '".(($nbboxonleft > $nbboxonright) ?
'B01' :
'A01').
"', ".((int) $fk_user).
", ".$conf->entity;
121 dol_syslog(
"boxes.php activate box", LOG_DEBUG);
122 $resql = $db->query($sql);
128 dol_syslog(
"boxes.php activate box - already exists in database", LOG_DEBUG);
143 if ($action ==
'delete') {
144 $sql =
"SELECT box_id FROM ".MAIN_DB_PREFIX.
"boxes";
145 $sql .=
" WHERE rowid=".((int) $rowid);
147 $resql = $db->query($sql);
148 $obj = $db->fetch_object(
$resql);
149 if (!empty($obj->box_id)) {
152 $sql =
"DELETE FROM ".MAIN_DB_PREFIX.
"boxes";
153 $sql .=
" WHERE entity = ".$conf->entity;
154 $sql .=
" AND box_id=".((int) $obj->box_id);
156 $resql = $db->query($sql);
162 if ($action ==
'switch') {
167 $objfrom->fetch(
GETPOST(
"switchfrom",
'int'));
170 $objto->fetch(
GETPOST(
'switchto',
'int'));
172 $resultupdatefrom = 0;
174 if (is_object($objfrom) && is_object($objto)) {
175 $newfirst = $objto->box_order;
176 $newsecond = $objfrom->box_order;
177 if ($newfirst == $newsecond) {
178 $newsecondchar = preg_replace(
'/[0-9]+/',
'', $newsecond);
179 $newsecondnum = preg_replace(
'/[a-zA-Z]+/',
'', $newsecond);
180 $newsecond = sprintf(
"%s%02d", $newsecondchar ? $newsecondchar :
'A', $newsecondnum + 1);
183 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"boxes SET box_order='".$db->escape($newfirst).
"' WHERE rowid=".((int) $objfrom->rowid);
185 $resultupdatefrom = $db->query($sql);
186 if (!$resultupdatefrom) {
190 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"boxes SET box_order='".$db->escape($newsecond).
"' WHERE rowid=".((int) $objto->rowid);
192 $resultupdateto = $db->query($sql);
193 if (!$resultupdateto) {
198 if ($resultupdatefrom && $resultupdateto) {
216 print
'<span class="opacitymedium">'.$langs->trans(
"BoxesDesc").
" ".$langs->trans(
"OnlyActiveElementsAreShown").
"</span><br>\n";
225 $sql =
"SELECT b.rowid, b.box_id, b.position, b.box_order,";
226 $sql .=
" bd.rowid as boxid";
227 $sql .=
" FROM ".MAIN_DB_PREFIX.
"boxes as b, ".MAIN_DB_PREFIX.
"boxes_def as bd";
228 $sql .=
" WHERE b.box_id = bd.rowid";
229 $sql .=
" AND b.entity IN (0,".$conf->entity.
")";
230 $sql .=
" AND b.fk_user=0";
231 $sql .=
" ORDER by b.position, b.box_order";
234 dol_syslog(
"Search available boxes", LOG_DEBUG);
235 $resql = $db->query($sql);
237 $num = $db->num_rows(
$resql);
243 $obj = $db->fetch_object(
$resql);
244 $boxes[$obj->position][$obj->box_id] = 1;
247 array_push($actives, $obj->box_id);
249 if ($obj->box_order ==
'' || $obj->box_order ==
'0' || $decalage) {
255 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"boxes SET box_order='".$db->escape($decalage).
"' WHERE rowid=".((int) $obj->rowid);
263 $sql =
"SELECT box_order";
264 $sql .=
" FROM ".MAIN_DB_PREFIX.
"boxes";
265 $sql .=
" WHERE entity = ".$conf->entity;
266 $sql .=
" AND LENGTH(box_order) <= 2";
268 dol_syslog(
"Execute requests to renumber box order", LOG_DEBUG);
269 $result = $db->query($sql);
271 while ($record = $db->fetch_array($result)) {
273 if (preg_match(
"/[13579]{1}/", substr($record[
'box_order'], -1))) {
274 $box_order =
"A0".$record[
'box_order'];
275 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"boxes SET box_order = '".$db->escape($box_order).
"' WHERE entity = ".$conf->entity.
" AND box_order = '".$db->escape($record[
'box_order']).
"'";
276 $resql = $db->query($sql);
277 } elseif (preg_match(
"/[02468]{1}/", substr($record[
'box_order'], -1))) {
278 $box_order =
"B0".$record[
'box_order'];
279 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"boxes SET box_order = '".$db->escape($box_order).
"' WHERE entity = ".$conf->entity.
" AND box_order = '".$db->escape($record[
'box_order']).
"'";
280 $resql = $db->query($sql);
282 } elseif (
dol_strlen($record[
'box_order']) == 2) {
283 if (preg_match(
"/[13579]{1}/", substr($record[
'box_order'], -1))) {
284 $box_order =
"A".$record[
'box_order'];
285 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"boxes SET box_order = '".$db->escape($box_order).
"' WHERE entity = ".$conf->entity.
" AND box_order = '".$db->escape($record[
'box_order']).
"'";
286 $resql = $db->query($sql);
287 } elseif (preg_match(
"/[02468]{1}/", substr($record[
'box_order'], -1))) {
288 $box_order =
"B".$record[
'box_order'];
289 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"boxes SET box_order = '".$db->escape($box_order).
"' WHERE entity = ".$conf->entity.
" AND box_order = '".$db->escape($record[
'box_order']).
"'";
290 $resql = $db->query($sql);
304 print
'<form action="'.$_SERVER[
"PHP_SELF"].
'" method="POST">'.
"\n";
305 print
'<input type="hidden" name="token" value="'.newToken().
'">'.
"\n";
306 print
'<input type="hidden" name="action" value="add">'.
"\n";
311 print
'<div class="div-table-responsive-no-min">';
312 print
'<table class="tagtable liste centpercent">'.
"\n";
314 print
'<tr class="liste_titre">';
315 print
'<td>'.$langs->trans(
"Box").
'</td>';
316 print
'<td>'.$langs->trans(
"Note").
'/'.$langs->trans(
"Parameters").
'</td>';
318 print
'<td class="center" width="160">'.$langs->trans(
"ActivatableOn").
'</td>';
319 print
'<td class="center" width="60" colspan="2">'.$langs->trans(
"PositionByDefault").
'</td>';
320 print
'<td class="center" width="80">'.$langs->trans(
"Disable").
'</td>';
323 print
"\n\n".
'<!-- Boxes Available -->'.
"\n";
324 foreach ($boxtoadd as $box) {
325 if (preg_match(
'/^([^@]+)@([^@]+)$/i', $box->boximg)) {
326 $logo = $box->boximg;
328 $logo = preg_replace(
"/^object_/i",
"", $box->boximg);
331 print
"\n".
'<!-- Box '.$box->boxcode.
' -->'.
"\n";
332 print
'<tr class="oddeven" style="height:3em !important;">'.
"\n";
333 print
'<td class="tdoverflowmax300" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv($box->boxlabel)).
'">'.
img_object(
"", $logo,
'class="pictofixedwidth" height="14px"').
' '.$langs->transnoentitiesnoconv($box->boxlabel);
334 if (!empty($box->class) && preg_match(
'/graph_/', $box->class)) {
335 print
img_picto(
'',
'graph',
'class="paddingleft"');
337 if (!empty($box->version)) {
338 if ($box->version ==
'experimental') {
339 print
' <span class="opacitymedium">('.$langs->trans(
"Experimental").
')</span>';
340 } elseif ($box->version ==
'development') {
341 print
' <span class="opacitymedium">('.$langs->trans(
"Development").
')</span>';
345 print
'<td class="tdoverflowmax300" title="'.dol_escape_htmltag($box->note).
'">';
346 if ($box->note ==
'(WarningUsingThisBoxSlowDown)') {
347 $langs->load(
"errors");
348 print $langs->trans(
"WarningUsingThisBoxSlowDown");
350 print ($box->note ? $box->note :
' ');
354 print
$form->textwithpicto(
'', $langs->trans(
"SourceFile").
' : '.$box->sourcefile);
358 print
'<td class="center">';
359 print
$form->selectarray(
"boxid[".$box->box_id.
"][pos]", $arrayofhomepages, -1, 1, 0, 0,
'', 1).
"\n";
360 print
'<input type="hidden" name="boxid['.$box->box_id.
'][value]" value="'.$box->box_id.
'">'.
"\n";
370 print
'<input type="submit" class="button small smallpaddingimp" value="'.$langs->trans(
"Activate").
'">';
375 print
"\n".
'<!-- End Boxes Available -->'.
"\n";
380 foreach ($boxactivated as $key => $box) {
381 if (preg_match(
'/^([^@]+)@([^@]+)$/i', $box->boximg)) {
382 $logo = $box->boximg;
384 $logo = preg_replace(
"/^object_/i",
"", $box->boximg);
387 print
"\n".
'<!-- Box '.$box->boxcode.
' -->'.
"\n";
388 print
'<tr class="oddeven" style="height:3em !important;">';
389 print
'<td>'.img_object(
"", $logo,
'class="pictofixedwidth" height="14px"').
' '.$langs->transnoentitiesnoconv($box->boxlabel);
390 if (!empty($box->class) && preg_match(
'/graph_/', $box->class)) {
391 print
img_picto(
'',
'graph',
'class="paddingleft"');
393 if (!empty($box->version)) {
394 if ($box->version ==
'experimental') {
395 print
' <span class="opacitymedium">('.$langs->trans(
"Experimental").
')</span>';
396 } elseif ($box->version ==
'development') {
397 print
' <span class="opacitymedium">('.$langs->trans(
"Development").
')</span>';
401 $langs->load(
"errors");
402 print
'<td class="tdoverflowmax300" title="'.dol_escape_htmltag($box->note ==
'(WarningUsingThisBoxSlowDown)' ? $langs->trans(
"WarningUsingThisBoxSlowDown") : $box->note).
'">';
403 if ($box->note ==
'(WarningUsingThisBoxSlowDown)') {
404 print
img_warning(
'', 0).
' '.$langs->trans(
"WarningUsingThisBoxSlowDown");
406 print ($box->note ? $box->note :
' ');
410 print
$form->textwithpicto(
'', $langs->trans(
"SourceFile").
' : '.$box->sourcefile);
412 print
'<td class="center">'.(empty($arrayofhomepages[$box->position]) ?
'' : $langs->trans($arrayofhomepages[$box->position])).
'</td>';
413 $hasnext = ($key < (count($boxactivated) - 1));
414 $hasprevious = ($key != 0);
415 print
'<td class="center">'.($key + 1).
'</td>';
416 print
'<td class="center nowraponall">';
417 print ($hasnext ?
'<a class="reposition" href="boxes.php?action=switch&token='.
newToken().
'&switchfrom='.$box->rowid.
'&switchto='.$boxactivated[$key + 1]->rowid.
'">'.
img_down().
'</a> ' :
'');
418 print ($hasprevious ?
'<a class="reposition" href="boxes.php?action=switch&token='.
newToken().
'&switchfrom='.$box->rowid.
'&switchto='.$boxactivated[$key - 1]->rowid.
'">'.
img_up().
'</a>' :
'');
420 print
'<td class="center">';
421 print
'<a class="reposition" href="boxes.php?rowid='.$box->rowid.
'&action=delete&token='.
newToken().
'">'.
img_delete().
'</a>';
436 print
"\n\n".
'<!-- Other Const -->'.
"\n";
438 print
'<form action="'.$_SERVER[
"PHP_SELF"].
'" method="POST">';
439 print
'<input type="hidden" name="token" value="'.newToken().
'">';
440 print
'<input type="hidden" name="action" value="addconst">';
441 print
'<div class="div-table-responsive-no-min">';
442 print
'<table class="noborder centpercent">';
444 print
'<tr class="liste_titre">';
445 print
'<td class="liste_titre">'.$langs->trans(
"Parameter").
'</td>';
446 print
'<td class="liste_titre">'.$langs->trans(
"Value").
'</td>';
449 print
'<tr class="oddeven">';
451 print $langs->trans(
"MaxNbOfLinesForBoxes");
454 print
'<input type="text" class="flat" size="6" name="MAIN_BOXES_MAXLINES" value="'.(!empty($conf->global->MAIN_BOXES_MAXLINES) ? $conf->global->MAIN_BOXES_MAXLINES :
'').
'">';
459 if ($conf->global->MAIN_FEATURES_LEVEL == 2 || !empty($conf->global->MAIN_ACTIVATE_FILECACHE)) {
460 print
'<tr class="oddeven"><td width="35%">'.$langs->trans(
"EnableFileCache").
'</td><td>';
461 print
$form->selectyesno(
'MAIN_ACTIVATE_FILECACHE', (!empty($conf->global->MAIN_ACTIVATE_FILECACHE) ? $conf->global->MAIN_ACTIVATE_FILECACHE : 0), 1);
469 print
$form->buttonsSaveCancel(
"Save",
'');
472 print
"\n".
'<!-- End Other Const -->'.
"\n";