* * 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. */ /** * \file preisbot/admin/setup.php * \ingroup preisbot * \brief PreisBot setup page. */ // Load Dolibarr environment $res = 0; if (!$res && !empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) { $res = @include $_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php"; } $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"; } 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"); } require_once DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php"; require_once '../lib/preisbot.lib.php'; $langs->loadLangs(array("admin", "preisbot@preisbot")); // Access control if (!$user->admin) { accessforbidden(); } $action = GETPOST('action', 'aZ09'); /* * Actions */ if ($action == 'update') { $error = 0; // Preisquelle $priceSource = GETPOST('PREISBOT_PRICE_SOURCE', 'alpha'); if (!in_array($priceSource, array('cheapest', 'newest'))) { $priceSource = 'cheapest'; } dolibarr_set_const($db, 'PREISBOT_PRICE_SOURCE', $priceSource, 'chaine', 0, '', $conf->entity); // Preisrichtung $priceDirection = GETPOST('PREISBOT_PRICE_DIRECTION', 'alpha'); if (!in_array($priceDirection, array('up_only', 'both'))) { $priceDirection = 'up_only'; } dolibarr_set_const($db, 'PREISBOT_PRICE_DIRECTION', $priceDirection, 'chaine', 0, '', $conf->entity); // Mindestaufschlag $minMargin = GETPOSTINT('PREISBOT_MIN_MARGIN'); if ($minMargin < 20) { $minMargin = 20; } dolibarr_set_const($db, 'PREISBOT_MIN_MARGIN', $minMargin, 'chaine', 0, '', $conf->entity); // E-Mail Empfänger $mailTo = GETPOST('PREISBOT_MAIL_TO', 'email'); dolibarr_set_const($db, 'PREISBOT_MAIL_TO', $mailTo, 'chaine', 0, '', $conf->entity); if (!$error) { setEventMessages($langs->trans("SetupSaved"), null, 'mesgs'); } else { setEventMessages($langs->trans("Error"), null, 'errors'); } } /* * View */ $form = new Form($db); $title = "PreisBotSetup"; $help_url = ''; llxHeader('', $langs->trans($title), $help_url, '', 0, 0, '', '', '', 'mod-preisbot page-admin'); $linkback = ''.$langs->trans("BackToModuleList").''; print load_fiche_titre($langs->trans($title), $linkback, 'title_setup'); $head = preisbotAdminPrepareHead(); print dol_get_fiche_head($head, 'settings', $langs->trans($title), -1, "preisbot@preisbot"); print ''.$langs->trans("PreisBotSetupDesc").'

'; // Formular print '
'; print ''; print ''; print ''; // Überschrift: Preisberechnung print ''; print ''; print ''; // Preisquelle print ''; print ''; print ''; print ''; // Preisrichtung print ''; print ''; print ''; print ''; // Mindestaufschlag print ''; print ''; print ''; print ''; // Überschrift: Benachrichtigungen print ''; print ''; print ''; // E-Mail Empfänger print ''; print ''; print ''; print ''; // GlobalNotify Info if (isModEnabled('globalnotify')) { print ''; print ''; print ''; print ''; } else { print ''; print ''; print ''; print ''; } print '
'.$langs->trans("PreisBotPriceCalculation").'
'.$langs->trans("PreisBotPriceSource").''; $priceSourceOptions = array( 'cheapest' => $langs->trans("PreisBotPriceSourceCheapest"), 'newest' => $langs->trans("PreisBotPriceSourceNewest") ); print $form->selectarray('PREISBOT_PRICE_SOURCE', $priceSourceOptions, getDolGlobalString('PREISBOT_PRICE_SOURCE', 'cheapest'), 0, 0, 0, '', 0, 0, 0, '', 'minwidth200'); print '
'.$langs->trans("PreisBotPriceSourceHelp").''; print '
'.$langs->trans("PreisBotPriceDirection").''; $priceDirectionOptions = array( 'up_only' => $langs->trans("PreisBotPriceDirectionUpOnly"), 'both' => $langs->trans("PreisBotPriceDirectionBoth") ); print $form->selectarray('PREISBOT_PRICE_DIRECTION', $priceDirectionOptions, getDolGlobalString('PREISBOT_PRICE_DIRECTION', 'up_only'), 0, 0, 0, '', 0, 0, 0, '', 'minwidth200'); print '
'.$langs->trans("PreisBotPriceDirectionHelp").''; print '
'.$langs->trans("PreisBotMinMargin").''; print ' %'; print '
'.$langs->trans("PreisBotMinMarginHelp").''; print '
'.$langs->trans("PreisBotNotifications").'
'.$langs->trans("PreisBotMailTo").''; print ''; print '
'.$langs->trans("PreisBotMailToHelp").''; print '
'.$langs->trans("PreisBotGlobalNotify").''; print ''.$langs->trans("Enabled").' '; print $langs->trans("PreisBotGlobalNotifyEnabled"); print '
'.$langs->trans("PreisBotGlobalNotify").''; print ''.$langs->trans("Disabled").' '; print $langs->trans("PreisBotGlobalNotifyDisabled"); print '
'; print '
'; print '
'; print ''; print '
'; print '
'; // Info-Box print '

'; print '
'; print ''.$langs->trans("PreisBotHowItWorks").'

'; print $langs->trans("PreisBotHowItWorksDesc"); print '

'; print ''.$langs->trans("PreisBotExtrafield").': '; print $langs->trans("PreisBotExtrafieldDesc"); print '
'; print dol_get_fiche_end(); llxFooter(); $db->close();