27 require
'../../main.inc.php';
28 require_once DOL_DOCUMENT_ROOT.
"/core/lib/admin.lib.php";
29 require_once DOL_DOCUMENT_ROOT.
'/datapolicy/lib/datapolicy.lib.php';
32 $langs->loadLangs(array(
'admin',
'companies',
'members',
'datapolicy'));
35 $action =
GETPOST(
'action',
'aZ09');
36 $backtopage =
GETPOST(
'backtopage',
'alpha');
38 $arrayofparameters = array();
39 $arrayofparameters[
'ThirdParty'] = array(
40 'DATAPOLICY_TIERS_CLIENT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'company',
'class="pictofixedwidth"')),
41 'DATAPOLICY_TIERS_PROSPECT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'company',
'class="pictofixedwidth"')),
42 'DATAPOLICY_TIERS_PROSPECT_CLIENT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'company',
'class="pictofixedwidth"')),
43 'DATAPOLICY_TIERS_NIPROSPECT_NICLIENT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'company',
'class="pictofixedwidth"')),
44 'DATAPOLICY_TIERS_FOURNISSEUR' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'supplier',
'class="pictofixedwidth"')),
47 $arrayofparameters[
'Contact'] = array(
48 'DATAPOLICY_CONTACT_CLIENT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'contact',
'class="pictofixedwidth"')),
49 'DATAPOLICY_CONTACT_PROSPECT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'contact',
'class="pictofixedwidth"')),
50 'DATAPOLICY_CONTACT_PROSPECT_CLIENT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'contact',
'class="pictofixedwidth"')),
51 'DATAPOLICY_CONTACT_NIPROSPECT_NICLIENT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'contact',
'class="pictofixedwidth"')),
52 'DATAPOLICY_CONTACT_FOURNISSEUR' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'contact',
'class="pictofixedwidth"')),
56 $arrayofparameters[
'Member'] = array(
57 'DATAPOLICY_ADHERENT' => array(
'css' =>
'minwidth200',
'picto' =>
img_picto(
'',
'member',
'class="pictofixedwidth"')),
62 '' => $langs->trans(
'Never'),
63 '6' => $langs->trans(
'NB_MONTHS', 6),
64 '12' => $langs->trans(
'ONE_YEAR'),
65 '24' => $langs->trans(
'NB_YEARS', 2),
66 '36' => $langs->trans(
'NB_YEARS', 3),
67 '48' => $langs->trans(
'NB_YEARS', 4),
68 '60' => $langs->trans(
'NB_YEARS', 5),
69 '120' => $langs->trans(
'NB_YEARS', 10),
70 '180' => $langs->trans(
'NB_YEARS', 15),
71 '240' => $langs->trans(
'NB_YEARS', 20),
83 '@phan-var-force array<string,array<string,array{type?:string,css?:string,picto?:string}>> $arrayofparameters';
88 foreach ($arrayofparameters as $title => $tab) {
89 foreach ($tab as $key => $val) {
92 if (preg_match(
'/category:/', (
string) $val[
'type'])) {
99 $val_const =
GETPOST($key,
'alpha');
117 $page_name =
"datapolicySetup";
118 llxHeader(
'', $langs->trans($page_name));
121 $linkback =
'<a href="'.($backtopage ? $backtopage : DOL_URL_ROOT.
'/admin/modules.php?restore_lastsearch_values=1').
'">'.$langs->trans(
"BackToModuleList").
'</a>';
130 echo
'<span class="opacitymedium">'.$langs->trans(
"datapolicySetupPage").
'</span><br><br>';
133 if ($action ==
'edit') {
134 print
'<form method="POST" action="'.$_SERVER[
"PHP_SELF"].
'">';
135 print
'<input type="hidden" name="token" value="'.newToken().
'">';
136 print
'<input type="hidden" name="action" value="update">';
138 print
'<table class="noborder centpercent">';
139 print
'<tr class="liste_titre"><td class="titlefield">'.$langs->trans(
"Parameter").
'</td><td>'.$langs->trans(
"Value").
'</td></tr>';
141 foreach ($arrayofparameters as $title => $tab) {
142 print
'<tr class="trforbreak"><td class="titlefield trforbreak" colspan="2">'.$langs->trans($title).
'</td></tr>';
143 foreach ($tab as $key => $val) {
144 print
'<tr class="oddeven"><td>';
146 print $form->textwithpicto($langs->trans($key), $langs->trans(
'DATAPOLICY_Tooltip_SETUP'));
148 print
'<select name="'.$key.
'" class="flat '.(empty($val[
'css']) ?
'minwidth200' : $val[
'css']).
'">';
149 foreach ($valTab as $key1 => $val1) {
150 print
'<option value="'.$key1.
'" '.(
getDolGlobalString($key) == $key1 ?
'selected="selected"' :
'').
'>';
161 print
'<br><div class="center">';
162 print
'<input class="button button-save" type="submit" value="'.$langs->trans(
"Save").
'">';
168 print
'<table class="noborder centpercent">';
169 print
'<tr class="liste_titre"><td class="titlefield">'.$langs->trans(
"Parameter").
'</td><td>'.$langs->trans(
"Value").
'</td></tr>';
171 foreach ($arrayofparameters as $title => $tab) {
172 print
'<tr class="trforbreak"><td class="titlefield trforbreak" colspan="2">'.$langs->trans($title).
'</td></tr>';
173 foreach ($tab as $key => $val) {
174 print
'<tr class="oddeven"><td>';
176 print $form->textwithpicto($langs->trans($key), $langs->trans(
'DATAPOLICY_Tooltip_SETUP'));
177 print
'</td><td>'.(getDolGlobalString($key) ==
'' ? $langs->trans(
'None') : $valTab[
getDolGlobalString($key)]).
'</td></tr>';
183 print
'<div class="tabsAction">';
184 print
'<a class="butAction" href="'.$_SERVER[
"PHP_SELF"].
'?action=edit&token='.
newToken().
'">'.$langs->trans(
"Modify").
'</a>';
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
datapolicyAdminPrepareHead()
Prepare admin pages header.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.