<?php
/* crpricextract: send SMS to thirdparties by crpricextract.com
/* Copyright (C) 2012 Maxime MANGIN <maxime@tuxserv.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 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 <http://www.gnu.org/licenses/>.
 */
 
/**
 * \file    admin/setup.php
 * \ingroup crpricextract
 * \brief   crpricextract setup page.
 *
 * Based on smsdecanet module.
 */
// Dolibarr environment
$res=0;
// Try main.inc.php into web root known defined into CONTEXT_DOCUMENT_ROOT (not always defined)
if (! $res && ! empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) $res=@include($_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php");
// Try main.inc.php into web root detected using web root caluclated from SCRIPT_FILENAME
$tmp=empty($_SERVER['SCRIPT_FILENAME'])?'':$_SERVER['SCRIPT_FILENAME'];$tmp2=realpath(__FILE__); $i=strlen($tmp)-1; $j=strlen($tmp2)-1;
while($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i]==$tmp2[$j]) { $i--; $j--; }
if (! $res && $i > 0 && file_exists(substr($tmp, 0, ($i+1))."/main.inc.php")) $res=@include(substr($tmp, 0, ($i+1))."/main.inc.php");
if (! $res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i+1)))."/main.inc.php")) $res=@include(dirname(substr($tmp, 0, ($i+1)))."/main.inc.php");
// Try main.inc.php using relative path
if (! $res && file_exists("../../main.inc.php")) $res=@include("../../main.inc.php");
if (! $res && file_exists("../../../main.inc.php")) $res=@include("../../../main.inc.php");
if (! $res) die("Include of main fails");

global $langs, $user;

// Libraries
require_once DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php";
require_once("../core/modules/modAutoGestion.class.php");


// Translations
$langs->load('admin');

// Access control
if (!$user->admin) {
	accessforbidden();
}

// Parameters
$action = GETPOST('action', 'alpha');

/*
 * Actions
 */
 
if ($action == "setvalue")
{
    if ( GETPOST("default_group_supplier")) {
        dolibarr_set_const
        (
            $db, 
            "AUTOGESTION_DEFAULT_GROUP_SUPPLIER", 
            GETPOST("default_group_supplier"), 
            'integer', 
            0, 
            '', 
            $conf->entity
        );
    }

    if ( GETPOST("default_group_customer")) {
        dolibarr_set_const
        (
            $db, 
            "AUTOGESTION_DEFAULT_GROUP_CUSTOMER", 
            GETPOST("default_group_customer"), 
            'integer', 
            0, 
            '', 
            $conf->entity
        );
    }

    setEventMessages($langs->trans("ConfigUpdateSuccess"), null, 'mesgs');
}


/*
 * View
 */
$page_name = "Auto Gestión";
llxHeader('', $langs->trans($page_name));

// Subheader
$linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php">'
            .$langs->trans("BackToModuleList").'</a>';
print_fiche_titre($langs->trans($page_name), $linkback);


// Configuration header
$head   = array();
$head[] = array
(
	dol_buildpath("/custom/autogestion/admin/setup.php", 1),
	$langs->trans("AutoGestion"),
	'settings'
);

dol_fiche_head
(
    $head,
    'settings',
    $langs->trans("autogestion"),
    0,
    "autogestion@autogestion"
);

// Setup page goes here
if ($mesg) print '<br>'.$mesg.'<br />';

print '<form method="post" action="">';
print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
print '<input type="hidden" name="action" value="setvalue">';

print '<table class="noborder" width="100%">';
print '<tr class="liste_titre">';
print '<td colspan="3">Modulo de Auto Gestión</td>';
print "</tr>";

$var = true;

print '<tr '.$bc[$var].'>';
print '<td>Grupo Predeterminado para los usuarios EXTERNOS Proveedores de nivel menor</td>';
print '<td align="right">';
print $form->select_dolgroups($conf->global->AUTOGESTION_DEFAULT_GROUP_SUPPLIER, 'default_group_supplier', 1, null, 0, '', '', $object->entity);
print '</td>';
print '</tr>';

print '<tr '.$bc[$var].'>';
print '<td>Grupo Predeterminado para los usuarios EXTERNOS Cliente de nivel menor</td>';
print '<td align="right">';
print $form->select_dolgroups($conf->global->AUTOGESTION_DEFAULT_GROUP_CUSTOMER, 'default_group_customer', 1, null, 0, '', '', $object->entity);
print '</td>';
print '</tr>';

print '</table>';

print '<br />';
print '<div style="text-align: right;">';
print '<input type="submit" class="button" value="'.$langs->trans("Modify").'">';
print '</div>';
print '</form>';

// Page end
dol_fiche_end();
llxFooter();