/htdocs/admin/boxes.php
PHP | 481 lines | 344 code | 81 blank | 56 comment | 61 complexity | 79f625f2119b42f9d7b47f5f85b44244 MD5 | raw file
Possible License(s): LGPL-2.0
- <?php
- /* Copyright (C) 2003-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2004-2011 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2005-2011 Regis Houssin <regis@dolibarr.fr>
- *
- * 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 2 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 <http://www.gnu.org/licenses/>.
- */
- /**
- * \file htdocs/admin/boxes.php
- * \brief Page to setup boxes
- */
- require("../main.inc.php");
- include_once(DOL_DOCUMENT_ROOT."/core/boxes/modules_boxes.php");
- include_once(DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php");
- $langs->load("admin");
- if (!$user->admin) accessforbidden();
- $rowid = GETPOST('rowid','int');
- $action = GETPOST('action');
- // Definition des positions possibles pour les boites
- $pos_array = array(0); // Positions possibles pour une boite (0,1,2,...)
- $pos_name = array(0=>$langs->trans("Home")); // Nom des positions 0=Homepage, 1=...
- $boxes = array();
- /*
- * Actions
- */
- if ($action == 'addconst')
- {
- dolibarr_set_const($db, "MAIN_BOXES_MAXLINES",$_POST["MAIN_BOXES_MAXLINES"],'',0,'',$conf->entity);
- }
- if ($action == 'add')
- {
- $sql = "SELECT rowid";
- $sql.= " FROM ".MAIN_DB_PREFIX."boxes";
- $sql.= " WHERE fk_user = 0";
- $sql.= " AND box_id = ".$_POST["boxid"];
- $sql.= " AND position = ".$_POST["pos"];
- $resql = $db->query($sql);
- dol_syslog("boxes.php::search if box active sql=".$sql);
- if ($resql)
- {
- $num = $db->num_rows($resql);
- if ($num == 0)
- {
- $db->begin();
- // Si la boite n'est pas deja active, insert with box_order=''
- $sql = "INSERT INTO ".MAIN_DB_PREFIX."boxes (";
- $sql.= "box_id";
- $sql.= ", position";
- $sql.= ", box_order";
- $sql.= ", fk_user";
- $sql.= ") values (";
- $sql.= $_POST["boxid"];
- $sql.= ", ".$_POST["pos"];
- $sql.= ", ''";
- $sql.= ", 0";
- $sql.= ")";
- dol_syslog("boxes.php activate box sql=".$sql);
- $resql = $db->query($sql);
- // Remove all personalized setup when a box is activated or disabled
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param";
- $sql.= " WHERE param LIKE 'MAIN_BOXES_%'";
- dol_syslog("boxes.php delete user_param sql=".$sql);
- $resql = $db->query($sql);
- $db->commit();
- }
- Header("Location: boxes.php");
- exit;
- }
- else
- {
- dol_print_error($db);
- }
- }
- if ($action == 'delete')
- {
- $db->begin();
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."boxes";
- $sql.= " WHERE rowid=".$rowid;
- $resql = $db->query($sql);
- // Remove all personalized setup when a box is activated or disabled
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param";
- $sql.= " WHERE param LIKE 'MAIN_BOXES_%'";
- $resql = $db->query($sql);
- $db->commit();
- }
- if ($action == 'switch')
- {
- // On permute les valeur du champ box_order des 2 lignes de la table boxes
- $db->begin();
- $objfrom=new ModeleBoxes($db);
- $objfrom->fetch($_GET["switchfrom"]);
- $objto=new ModeleBoxes($db);
- $objto->fetch($_GET["switchto"]);
- if (is_object($objfrom) && is_object($objto))
- {
- $sql="UPDATE ".MAIN_DB_PREFIX."boxes set box_order='".$objto->box_order."' WHERE rowid=".$objfrom->rowid;
- //print "xx".$sql;
- $resultupdatefrom = $db->query($sql);
- if (! $resultupdatefrom) { dol_print_error($db); }
- $sql="UPDATE ".MAIN_DB_PREFIX."boxes set box_order='".$objfrom->box_order."' WHERE rowid=".$objto->rowid;
- //print "xx".$sql;
- $resultupdateto = $db->query($sql);
- if (! $resultupdateto) { dol_print_error($db); }
- }
- if ($resultupdatefrom && $resultupdateto)
- {
- $db->commit();
- }
- else
- {
- $db->rollback();
- }
- }
- /*
- * View
- */
- llxHeader('',$langs->trans("Boxes"));
- print_fiche_titre($langs->trans("Boxes"),'','setup');
- print $langs->trans("BoxesDesc")." ".$langs->trans("OnlyActiveElementsAreShown")."<br>\n";
- /*
- * Recherche des boites actives par defaut pour chaque position possible
- * On stocke les boites actives par defaut dans $boxes[position][id_boite]=1
- */
- $actives = array();
- $sql = "SELECT b.rowid, b.box_id, b.position, b.box_order,";
- $sql.= " bd.rowid as boxid";
- $sql.= " FROM ".MAIN_DB_PREFIX."boxes as b, ".MAIN_DB_PREFIX."boxes_def as bd";
- $sql.= " WHERE b.box_id = bd.rowid";
- $sql.= " AND bd.entity = ".$conf->entity;
- $sql.= " AND b.fk_user=0";
- $sql.= " ORDER by b.position, b.box_order";
- $resql = $db->query($sql);
- if ($resql)
- {
- $num = $db->num_rows($resql);
- $i = 0;
- $decalage=0;
- while ($i < $num)
- {
- $var = ! $var;
- $obj = $db->fetch_object($resql);
- $boxes[$obj->position][$obj->box_id]=1;
- $i++;
- array_push($actives,$obj->box_id);
- if ($obj->box_order == '' || $obj->box_order == '0' || $decalage) $decalage++;
- // On renumerote l'ordre des boites si l'une d'elle est a ''
- // This occurs just after an insert.
- if ($decalage)
- {
- $sql="UPDATE ".MAIN_DB_PREFIX."boxes set box_order=".$decalage." WHERE rowid=".$obj->rowid;
- $db->query($sql);
- }
- }
- if ($decalage)
- {
- // Si on a renumerote, on corrige champ box_order
- // This occurs just after an insert.
- $sql = "SELECT box_order";
- $sql.= " FROM ".MAIN_DB_PREFIX."boxes";
- $sql.= " WHERE length(box_order) <= 2";
- $result = $db->query($sql);
- if ($result)
- {
- while ($record = $db->fetch_array($result))
- {
- if (dol_strlen($record['box_order']) == 1)
- {
- if (preg_match("/[13579]{1}/",substr($record['box_order'],-1)))
- {
- $box_order = "A0".$record['box_order'];
- $sql="update llx_boxes set box_order = '".$box_order."' where box_order = ".$record['box_order'];
- $resql = $db->query($sql);
- }
- else if (preg_match("/[02468]{1}/",substr($record['box_order'],-1)))
- {
- $box_order = "B0".$record['box_order'];
- $sql="update llx_boxes set box_order = '".$box_order."' where box_order = ".$record['box_order'];
- $resql = $db->query($sql);
- }
- }
- else if (dol_strlen($record['box_order']) == 2)
- {
- if (preg_match("/[13579]{1}/",substr($record['box_order'],-1)))
- {
- $box_order = "A".$record['box_order'];
- $sql="update llx_boxes set box_order = '".$box_order."' where box_order = ".$record['box_order'];
- $resql = $db->query($sql);
- }
- else if (preg_match("/[02468]{1}/",substr($record['box_order'],-1)))
- {
- $box_order = "B".$record['box_order'];
- $sql="update llx_boxes set box_order = '".$box_order."' where box_order = ".$record['box_order'];
- $resql = $db->query($sql);
- }
- }
- }
- }
- }
- $db->free($resql);
- }
- /*
- * Boites disponibles
- */
- print "<br>\n";
- print_titre($langs->trans("BoxesAvailable"));
- print '<table class="noborder" width="100%">';
- print '<tr class="liste_titre">';
- print '<td width="300">'.$langs->trans("Box").'</td>';
- print '<td>'.$langs->trans("Note").'/'.$langs->trans("Parameters").'</td>';
- print '<td>'.$langs->trans("SourceFile").'</td>';
- print '<td width="160">'.$langs->trans("ActivateOn").'</td>';
- print "</tr>\n";
- $sql = "SELECT rowid, file, note, tms";
- $sql.= " FROM ".MAIN_DB_PREFIX."boxes_def";
- $sql.= " WHERE entity = ".$conf->entity;
- $resql = $db->query($sql);
- $var=True;
- if ($resql)
- {
- $form=new Form($db);
- $num = $db->num_rows($resql);
- $i = 0;
- // Boucle sur toutes les boites
- while ($i < $num)
- {
- $obj = $db->fetch_object($resql);
- if (preg_match('/^([^@]+)@([^@]+)$/i',$obj->file,$regs))
- {
- $boxname = $regs[1];
- $module = $regs[2];
- $sourcefile = "/".$module."/core/boxes/".$boxname.".php";
- }
- else
- {
- $boxname=preg_replace('/.php$/i','',$obj->file);
- $sourcefile = "/core/boxes/".$boxname.".php";
- }
- dol_include_once($sourcefile);
- $box=new $boxname($db,$obj->note);
- $enabled=true;
- if ($box->depends && count($box->depends) > 0)
- {
- foreach($box->depends as $module)
- {
- if (empty($conf->$module->enabled)) $enabled=false;
- }
- }
- if ($enabled)
- {
- //if (in_array($obj->rowid, $actives) && $box->box_multiple <> 1)
- if (in_array($obj->rowid, $actives))
- {
- // La boite est deja activee
- }
- else
- {
- $var=!$var;
- if (preg_match('/^([^@]+)@([^@]+)$/i',$box->boximg))
- {
- $logo = $box->boximg;
- }
- else
- {
- $logo=preg_replace("/^object_/i","",$box->boximg);
- }
- print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<tr '.$bc[$var].'>';
- print '<td>'.img_object("",$logo).' '.$box->boxlabel.'</td>';
- print '<td>' . ($obj->note?$obj->note:' ') . '</td>';
- print '<td>' . $sourcefile . '</td>';
- // Pour chaque position possible, on affiche un lien
- // d'activation si boite non deja active pour cette position
- print '<td>';
- print $form->selectarray("pos",$pos_name);
- print '<input type="hidden" name="action" value="add">';
- print '<input type="hidden" name="boxid" value="'.$obj->rowid.'">';
- print ' <input type="submit" class="button" name="button" value="'.$langs->trans("Activate").'">';
- print '</td>';
- print '</tr></form>';
- }
- }
- $i++;
- }
- $db->free($resql);
- }
- print '</table>';
- /*
- * Boites activees
- *
- */
- print "<br>\n\n";
- print_titre($langs->trans("BoxesActivated"));
- print '<table class="noborder" width="100%">';
- print '<tr class="liste_titre">';
- print '<td width="300">'.$langs->trans("Box").'</td>';
- print '<td>'.$langs->trans("Note").'/'.$langs->trans("Parameters").'</td>';
- print '<td align="center" width="160">'.$langs->trans("ActiveOn").'</td>';
- print '<td align="center" width="60" colspan="2">'.$langs->trans("PositionByDefault").'</td>';
- print '<td align="center" width="80">'.$langs->trans("Disable").'</td>';
- print '</tr>'."\n";
- $sql = "SELECT b.rowid, b.box_id, b.position,";
- $sql.= " bd.file, bd.note, bd.tms";
- $sql.= " FROM ".MAIN_DB_PREFIX."boxes as b, ".MAIN_DB_PREFIX."boxes_def as bd";
- $sql.= " WHERE b.box_id = bd.rowid";
- $sql.= " AND bd.entity = ".$conf->entity;
- $sql.= " AND b.fk_user=0";
- $sql.= " ORDER by b.position, b.box_order"; // Note box_order return A01,A03...,B02,B04...
- $resql = $db->query($sql);
- if ($resql)
- {
- $num = $db->num_rows($resql);
- $i = 0;
- $var=true;
- $box_order=1;
- $foundrupture=1;
- // On lit avec un coup d'avance
- $obj = $db->fetch_object($resql);
- while ($obj && $i < $num)
- {
- $var = ! $var;
- $objnext = $db->fetch_object($resql);
- if (preg_match('/^([^@]+)@([^@]+)$/i',$obj->file,$regs))
- {
- $boxname = $regs[1];
- $module = $regs[2];
- $sourcefile = "/".$module."/core/boxes/".$boxname.".php";
- }
- else
- {
- $boxname=preg_replace('/.php$/i','',$obj->file);
- $sourcefile = "/core/boxes/".$boxname.".php";
- }
- dol_include_once($sourcefile);
- $box=new $boxname($db,$obj->note);
- if (preg_match('/^([^@]+)@([^@]+)$/i',$box->boximg))
- {
- $logo = $box->boximg;
- }
- else
- {
- $logo=preg_replace("/^object_/i","",$box->boximg);
- }
- print '<tr '.$bc[$var].'>';
- print '<td>'.img_object("",$logo).' '.$box->boxlabel.'</td>';
- print '<td>' . ($obj->note?$obj->note:' ') . '</td>';
- print '<td align="center">' . $pos_name[$obj->position] . '</td>';
- $hasnext=true;
- $hasprevious=true;
- if ($foundrupture) { $hasprevious=false; $foundrupture=0; }
- if (! $objnext || $obj->position != $objnext->position) { $hasnext=false; $foundrupture=1; }
- print '<td align="center">'.$box_order.'</td>';
- print '<td align="center">';
- print ($hasnext?'<a href="boxes.php?action=switch&switchfrom='.$obj->rowid.'&switchto='.$objnext->rowid.'">'.img_down().'</a> ':'');
- print ($hasprevious?'<a href="boxes.php?action=switch&switchfrom='.$obj->rowid.'&switchto='.$objprevious->rowid.'">'.img_up().'</a>':'');
- print '</td>';
- print '<td align="center">';
- print '<a href="boxes.php?rowid='.$obj->rowid.'&action=delete">'.img_delete().'</a>';
- print '</td>';
- print '</tr>'."\n";
- $i++;
- $box_order++;
- if (! $foundrupture) $objprevious = $obj;
- else $box_order=1;
- $obj=$objnext;
- }
- $db->free($resql);
- }
- print '</table><br>';
- // Other parameters
- print_titre($langs->trans("Other"));
- print '<table class="noborder" width="100%">';
- $var=false;
- print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<input type="hidden" name="action" value="addconst">';
- print '<tr '.$bc[$var].'><td>';
- print $langs->trans("MaxNbOfLinesForBoxes")."</td>\n";
- print '<td>';
- print '<input type="text" class="flat" size="6" name="MAIN_BOXES_MAXLINES" value="'.$conf->global->MAIN_BOXES_MAXLINES.'">';
- print '</td><td align="right">';
- print '<input type="submit" class="button" value="'.$langs->trans("Save").'" name="Button">';
- print '</td>'."\n";
- print '</tr>';
- print '</form>';
- print '</table>';
- $db->close();
- llxFooter();
- ?>