dolibarr 20.0.0
member.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org>
4 * Copyright (C) 2004-2012 Laurent Destailleur <eldy@users.sourceforge.net>
5 * Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
6 * Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
7 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
8 * Copyright (C) 2011-2012 Juanjo Menent <jmenent@2byte.es>
9 * Copyright (C) 2012 J. Fernando Lagrange <fernando@demo-tic.org>
10 * Copyright (C) 2015 Jean-François Ferry <jfefe@aternatik.fr>
11 * Copyright (C) 2020-2021 Frédéric France <frederic.france@netlogic.fr>
12 * Copyright (C) 2023 Waël Almoman <info@almoman.com>
13 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
14 *
15 * This program is free software; you can redistribute it and/or modify
16 * it under the terms of the GNU General Public License as published by
17 * the Free Software Foundation; either version 3 of the License, or
18 * (at your option) any later version.
19 *
20 * This program is distributed in the hope that it will be useful,
21 * but WITHOUT ANY WARRANTY; without even the implied warranty of
22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 * GNU General Public License for more details.
24 *
25 * You should have received a copy of the GNU General Public License
26 * along with this program. If not, see <https://www.gnu.org/licenses/>.
27 */
28
35// Load Dolibarr environment
36require '../../main.inc.php';
37require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
38require_once DOL_DOCUMENT_ROOT.'/core/lib/member.lib.php';
39
40// Load translation files required by the page
41$langs->loadLangs(array("admin", "members"));
42
43if (!$user->admin) {
44 accessforbidden();
45}
46
47
48$choices = array('yesno', 'texte', 'chaine');
49
50$value = GETPOST('value', 'alpha');
51$label = GETPOST('label', 'alpha');
52$scandir = GETPOST('scandir', 'alpha');
53$type = 'member';
54
55$action = GETPOST('action', 'aZ09');
56$modulepart = GETPOST('modulepart', 'aZ09');
57
58
59/*
60 * Actions
61 */
62
63include DOL_DOCUMENT_ROOT.'/core/actions_setmoduleoptions.inc.php';
64
65if ($action == 'set_default') {
66 $ret = addDocumentModel($value, $type, $label, $scandir);
67 $res = true;
68} elseif ($action == 'del_default') {
69 $ret = delDocumentModel($value, $type);
70 if ($ret > 0) {
71 if (getDolGlobalString('MEMBER_ADDON_PDF_ODT') == "$value") {
72 dolibarr_del_const($db, 'MEMBER_ADDON_PDF_ODT', $conf->entity);
73 }
74 }
75 $res = true;
76} elseif ($action == 'setdoc') {
77 // Set default model
78 if (dolibarr_set_const($db, "MEMBER_ADDON_PDF_ODT", $value, 'chaine', 0, '', $conf->entity)) {
79 // The constant that was read ahead of the new set
80 // we therefore go through a variable to have a consistent display
81 $conf->global->MEMBER_ADDON_PDF_ODT = $value;
82 }
83
84 // We activate the model
85 $ret = delDocumentModel($value, $type);
86 if ($ret > 0) {
87 $ret = addDocumentModel($value, $type, $label, $scandir);
88 }
89 $res = true;
90} elseif (preg_match('/set_([a-z0-9_\-]+)/i', $action, $reg)) {
91 $code = $reg[1];
92 if (dolibarr_set_const($db, $code, 1, 'chaine', 0, '', $conf->entity) > 0) {
93 header("Location: ".$_SERVER["PHP_SELF"]);
94 exit;
95 } else {
96 dol_print_error($db);
97 }
98} elseif (preg_match('/del_([a-z0-9_\-]+)/i', $action, $reg)) {
99 $code = $reg[1];
100 if (dolibarr_del_const($db, $code, $conf->entity) > 0) {
101 header("Location: ".$_SERVER["PHP_SELF"]);
102 exit;
103 } else {
104 dol_print_error($db);
105 }
106} elseif ($action == 'updatemainoptions') {
107 $db->begin();
108 $res1 = $res2 = $res3 = $res4 = $res5 = $res6 = $res7 = $res8 = $res9 = 0;
109 $res1 = dolibarr_set_const($db, 'ADHERENT_LOGIN_NOT_REQUIRED', GETPOST('ADHERENT_LOGIN_NOT_REQUIRED', 'alpha') ? 0 : 1, 'chaine', 0, '', $conf->entity);
110 $res2 = dolibarr_set_const($db, 'ADHERENT_MAIL_REQUIRED', GETPOST('ADHERENT_MAIL_REQUIRED', 'alpha'), 'chaine', 0, '', $conf->entity);
111 $res3 = dolibarr_set_const($db, 'ADHERENT_DEFAULT_SENDINFOBYMAIL', GETPOST('ADHERENT_DEFAULT_SENDINFOBYMAIL', 'alpha'), 'chaine', 0, '', $conf->entity);
112 $res3 = dolibarr_set_const($db, 'ADHERENT_CREATE_EXTERNAL_USER_LOGIN', GETPOST('ADHERENT_CREATE_EXTERNAL_USER_LOGIN', 'alpha'), 'chaine', 0, '', $conf->entity);
113 $res4 = dolibarr_set_const($db, 'ADHERENT_BANK_USE', GETPOST('ADHERENT_BANK_USE', 'alpha'), 'chaine', 0, '', $conf->entity);
114 $res7 = dolibarr_set_const($db, 'MEMBER_PUBLIC_ENABLED', GETPOST('MEMBER_PUBLIC_ENABLED', 'alpha'), 'chaine', 0, '', $conf->entity);
115 $res8 = dolibarr_set_const($db, 'MEMBER_SUBSCRIPTION_START_FIRST_DAY_OF', GETPOST('MEMBER_SUBSCRIPTION_START_FIRST_DAY_OF', 'alpha'), 'chaine', 0, '', $conf->entity);
116 $res9 = dolibarr_set_const($db, 'MEMBER_SUBSCRIPTION_START_AFTER', GETPOST('MEMBER_SUBSCRIPTION_START_AFTER', 'alpha'), 'chaine', 0, '', $conf->entity);
117 // Use vat for invoice creation
118 if (isModEnabled('invoice')) {
119 $res4 = dolibarr_set_const($db, 'ADHERENT_VAT_FOR_SUBSCRIPTIONS', GETPOST('ADHERENT_VAT_FOR_SUBSCRIPTIONS', 'alpha'), 'chaine', 0, '', $conf->entity);
120 $res5 = dolibarr_set_const($db, 'ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS', GETPOST('ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS', 'alpha'), 'chaine', 0, '', $conf->entity);
121 if (isModEnabled("product") || isModEnabled("service")) {
122 $res6 = dolibarr_set_const($db, 'ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS', GETPOST('ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS', 'alpha'), 'chaine', 0, '', $conf->entity);
123 }
124 }
125 if ($res1 < 0 || $res2 < 0 || $res3 < 0 || $res4 < 0 || $res5 < 0 || $res6 < 0 || $res7 < 0) {
126 setEventMessages('ErrorFailedToSaveData', null, 'errors');
127 $db->rollback();
128 } else {
129 setEventMessages('RecordModifiedSuccessfully', null, 'mesgs');
130 $db->commit();
131 }
132} elseif ($action == 'updatememberscards') {
133 $db->begin();
134 $res1 = $res2 = $res3 = $res4 = 0;
135 $res1 = dolibarr_set_const($db, 'ADHERENT_CARD_TYPE', GETPOST('ADHERENT_CARD_TYPE'), 'chaine', 0, '', $conf->entity);
136 $res2 = dolibarr_set_const($db, 'ADHERENT_CARD_HEADER_TEXT', GETPOST('ADHERENT_CARD_HEADER_TEXT', 'alpha'), 'chaine', 0, '', $conf->entity);
137 $res3 = dolibarr_set_const($db, 'ADHERENT_CARD_TEXT', GETPOST('ADHERENT_CARD_TEXT', 'alpha'), 'chaine', 0, '', $conf->entity);
138 $res3 = dolibarr_set_const($db, 'ADHERENT_CARD_TEXT_RIGHT', GETPOST('ADHERENT_CARD_TEXT_RIGHT', 'alpha'), 'chaine', 0, '', $conf->entity);
139 $res4 = dolibarr_set_const($db, 'ADHERENT_CARD_FOOTER_TEXT', GETPOST('ADHERENT_CARD_FOOTER_TEXT', 'alpha'), 'chaine', 0, '', $conf->entity);
140
141 if ($res1 < 0 || $res2 < 0 || $res3 < 0 || $res4 < 0) {
142 setEventMessages('ErrorFailedToSaveDate', null, 'errors');
143 $db->rollback();
144 } else {
145 setEventMessages('RecordModifiedSuccessfully', null, 'mesgs');
146 $db->commit();
147 }
148} elseif ($action == 'updatememberstickets') {
149 $db->begin();
150 $res1 = $res2 = 0;
151 $res1 = dolibarr_set_const($db, 'ADHERENT_ETIQUETTE_TYPE', GETPOST('ADHERENT_ETIQUETTE_TYPE'), 'chaine', 0, '', $conf->entity);
152 $res2 = dolibarr_set_const($db, 'ADHERENT_ETIQUETTE_TEXT', GETPOST('ADHERENT_ETIQUETTE_TEXT', 'alpha'), 'chaine', 0, '', $conf->entity);
153
154 if ($res1 < 0 || $res2 < 0) {
155 setEventMessages('ErrorFailedToSaveDate', null, 'errors');
156 $db->rollback();
157 } else {
158 setEventMessages('RecordModifiedSuccessfully', null, 'mesgs');
159 $db->commit();
160 }
161} elseif ($action == 'setcodemember') {
162 $result = dolibarr_set_const($db, "MEMBER_CODEMEMBER_ADDON", $value, 'chaine', 0, '', $conf->entity);
163 if ($result <= 0) {
164 dol_print_error($db);
165 }
166} elseif ($action == 'update' || $action == 'add') {
167 // Action to update or add a constant
168 $constname = GETPOST('constname', 'alpha');
169 $constvalue = (GETPOST('constvalue_'.$constname) ? GETPOST('constvalue_'.$constname) : GETPOST('constvalue'));
170
171
172 if (($constname == 'ADHERENT_CARD_TYPE' || $constname == 'ADHERENT_ETIQUETTE_TYPE' || $constname == 'ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS') && $constvalue == -1) {
173 $constvalue = '';
174 }
175 if ($constname == 'ADHERENT_LOGIN_NOT_REQUIRED') { // Invert choice
176 if ($constvalue) {
177 $constvalue = 0;
178 } else {
179 $constvalue = 1;
180 }
181 }
182
183 $consttype = GETPOST('consttype', 'alpha');
184 $constnote = GETPOST('constnote');
185 $res = dolibarr_set_const($db, $constname, $constvalue, $choices[$consttype], 0, $constnote, $conf->entity);
186
187 if (!($res > 0)) {
188 $error++;
189 }
190
191 if (!$error) {
192 setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
193 } else {
194 setEventMessages($langs->trans("Error"), null, 'errors');
195 }
196}
197
198// Action to enable of a submodule of the adherent module
199if ($action == 'set') {
200 $result = dolibarr_set_const($db, GETPOST('name', 'alpha'), GETPOST('value'), '', 0, '', $conf->entity);
201 if ($result < 0) {
202 print $db->error();
203 }
204}
205
206// Action to disable a submodule of the adherent module
207if ($action == 'unset') {
208 $result = dolibarr_del_const($db, GETPOST('name', 'alpha'), $conf->entity);
209 if ($result < 0) {
210 print $db->error();
211 }
212}
213
214
215
216/*
217 * View
218 */
219
220$form = new Form($db);
221
222$help_url = 'EN:Module_Foundations|FR:Module_Adh&eacute;rents|ES:M&oacute;dulo_Miembros|DE:Modul_Mitglieder';
223
224llxHeader('', $langs->trans("MembersSetup"), $help_url);
225
226
227$linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
228print load_fiche_titre($langs->trans("MembersSetup"), $linkback, 'title_setup');
229
230
231$head = member_admin_prepare_head();
232
233print dol_get_fiche_head($head, 'general', $langs->trans("Members"), -1, 'user');
234
235$dirModMember = array_merge(array('/core/modules/member/'), $conf->modules_parts['member']);
236foreach ($conf->modules_parts['models'] as $mo) {
237 //Add more models
238 $dirModMember[] = $mo.'core/modules/member/';
239}
240
241// Module to manage customer/supplier code
242
243print load_fiche_titre($langs->trans("MemberCodeChecker"), '', '');
244
245print '<div class="div-table-responsive-no-min">';
246print '<table class="noborder centpercent">'."\n";
247print '<tr class="liste_titre">'."\n";
248print ' <td>'.$langs->trans("Name").'</td>';
249print ' <td>'.$langs->trans("Description").'</td>';
250print ' <td>'.$langs->trans("Example").'</td>';
251print ' <td class="center" width="80">'.$langs->trans("Status").'</td>';
252print ' <td class="center" width="60">'.$langs->trans("ShortInfo").'</td>';
253print "</tr>\n";
254
255$arrayofmodules = array();
256
257foreach ($dirModMember as $dirroot) {
258 $dir = dol_buildpath($dirroot, 0);
259
260 $handle = @opendir($dir);
261 if (is_resource($handle)) {
262 // Loop on each module find in opened directory
263 while (($file = readdir($handle)) !== false) {
264 // module filename has to start with mod_member_
265 if (substr($file, 0, 11) == 'mod_member_' && substr($file, -3) == 'php') {
266 $file = substr($file, 0, dol_strlen($file) - 4);
267 try {
268 dol_include_once($dirroot.$file.'.php');
269 } catch (Exception $e) {
270 dol_syslog($e->getMessage(), LOG_ERR);
271 continue;
272 }
273 $modCodeMember = new $file();
274 // Show modules according to features level
275 if ($modCodeMember->version == 'development' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 2) {
276 continue;
277 }
278 if ($modCodeMember->version == 'experimental' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 1) {
279 continue;
280 }
281
282 $arrayofmodules[$file] = $modCodeMember;
283 }
284 }
285 closedir($handle);
286 }
287}
288
289$arrayofmodules = dol_sort_array($arrayofmodules, 'position');
290'@phan-var-force array<string,ModeleNumRefMembers> $arrayofmodules';
291
292foreach ($arrayofmodules as $file => $modCodeMember) {
293 print '<tr class="oddeven">'."\n";
294 print '<td width="140">'.$modCodeMember->name.'</td>'."\n";
295 print '<td>'.$modCodeMember->info($langs).'</td>'."\n";
296 print '<td class="nowrap">'.$modCodeMember->getExample($langs).'</td>'."\n";
297
298 if (getDolGlobalString('MEMBER_CODEMEMBER_ADDON') == "$file") {
299 print '<td class="center">'."\n";
300 print img_picto($langs->trans("Activated"), 'switch_on');
301 print "</td>\n";
302 } else {
303 $disabled = (isModEnabled('multicompany') && (is_object($mc) && !empty($mc->sharings['referent']) && $mc->sharings['referent'] != $conf->entity) ? true : false);
304 print '<td class="center">';
305 if (!$disabled) {
306 print '<a class="reposition" href="'.$_SERVER['PHP_SELF'].'?action=setcodemember&token='.newToken().'&value='.urlencode($file).'">';
307 }
308 print img_picto($langs->trans("Disabled"), 'switch_off');
309 if (!$disabled) {
310 print '</a>';
311 }
312 print '</td>';
313 }
314
315 print '<td class="center">';
316 $s = $modCodeMember->getToolTip($langs, null, -1);
317 print $form->textwithpicto('', $s, 1);
318 print '</td>';
319
320 print '</tr>';
321}
322print '</table>';
323print '</div>';
324
325
326
327print "<br>";
328
329
330
331// Document templates for documents generated from member record
332
333$dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']);
334
335// Defined model definition table
336$def = array();
337$sql = "SELECT nom as name";
338$sql .= " FROM ".MAIN_DB_PREFIX."document_model";
339$sql .= " WHERE type = '".$db->escape($type)."'";
340$sql .= " AND entity = ".$conf->entity;
341$resql = $db->query($sql);
342if ($resql) {
343 $i = 0;
344 $num_rows = $db->num_rows($resql);
345 while ($i < $num_rows) {
346 $obj = $db->fetch_object($resql);
347 array_push($def, $obj->name);
348 $i++;
349 }
350} else {
351 dol_print_error($db);
352}
353
354
355print load_fiche_titre($langs->trans("MembersDocModules"), '', '');
356
357print '<div class="div-table-responsive-no-min">';
358print '<table class="noborder centpercent">';
359print '<tr class="liste_titre">';
360print '<td>'.$langs->trans("Name").'</td>';
361print '<td>'.$langs->trans("Description").'</td>';
362print '<td align="center" width="60">'.$langs->trans("Status")."</td>\n";
363print '<td align="center" width="60">'.$langs->trans("Default")."</td>\n";
364print '<td align="center" width="80">'.$langs->trans("ShortInfo").'</td>';
365print '<td align="center" width="80">'.$langs->trans("Preview").'</td>';
366print "</tr>\n";
367
368clearstatcache();
369
370foreach ($dirmodels as $reldir) {
371 foreach (array('', '/doc') as $valdir) {
372 $dir = dol_buildpath($reldir."core/modules/member".$valdir);
373 if (is_dir($dir)) {
374 $handle = opendir($dir);
375 if (is_resource($handle)) {
376 $filelist = array();
377 while (($file = readdir($handle)) !== false) {
378 $filelist[] = $file;
379 }
380 closedir($handle);
381 arsort($filelist);
382 foreach ($filelist as $file) {
383 if (preg_match('/\.class\.php$/i', $file) && preg_match('/^(pdf_|doc_)/', $file)) {
384 if (file_exists($dir.'/'.$file)) {
385 $name = substr($file, 4, dol_strlen($file) - 14);
386 $classname = substr($file, 0, dol_strlen($file) - 10);
387
388 require_once $dir.'/'.$file;
389 $module = new $classname($db);
390
391 $modulequalified = 1;
392 if ($module->version == 'development' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 2) {
393 $modulequalified = 0;
394 }
395 if ($module->version == 'experimental' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 1) {
396 $modulequalified = 0;
397 }
398
399 if ($modulequalified) {
400 print '<tr class="oddeven"><td width="100">';
401 print(empty($module->name) ? $name : $module->name);
402 print "</td><td>\n";
403 if (method_exists($module, 'info')) {
404 print $module->info($langs);
405 } else {
406 print $module->description;
407 }
408 print '</td>';
409
410 // Active
411 if (in_array($name, $def)) {
412 print '<td class="center">'."\n";
413 print '<a href="'.$_SERVER["PHP_SELF"].'?action=del_default&token='.newToken().'&value='.$name.'">';
414 print img_picto($langs->trans("Enabled"), 'switch_on');
415 print '</a>';
416 print '</td>';
417 } else {
418 print '<td class="center">'."\n";
419 print '<a href="'.$_SERVER["PHP_SELF"].'?action=set_default&token='.newToken().'&value='.$name.'&scandir='.(!empty($module->scandir) ? $module->scandir : '').'&label='.urlencode($module->name).'">'.img_picto($langs->trans("Disabled"), 'switch_off').'</a>';
420 print "</td>";
421 }
422
423 // Default
424 print '<td class="center">';
425 if (getDolGlobalString('MEMBER_ADDON_PDF_ODT') == $name) {
426 print img_picto($langs->trans("Default"), 'on');
427 } else {
428 print '<a href="'.$_SERVER["PHP_SELF"].'?action=setdoc&token='.newToken().'&value='.$name.'&scandir='.(!empty($module->scandir) ? $module->scandir : '').'&label='.urlencode($module->name).'" alt="'.$langs->trans("Default").'">'.img_picto($langs->trans("Disabled"), 'off').'</a>';
429 }
430 print '</td>';
431
432 // Info
433 $htmltooltip = ''.$langs->trans("Name").': '.$module->name;
434 $htmltooltip .= '<br>'.$langs->trans("Type").': '.($module->type ? $module->type : $langs->trans("Unknown"));
435 if ($module->type == 'pdf') {
436 $htmltooltip .= '<br>'.$langs->trans("Width").'/'.$langs->trans("Height").': '.$module->page_largeur.'/'.$module->page_hauteur;
437 }
438 $htmltooltip .= '<br><br><u>'.$langs->trans("FeaturesSupported").':</u>';
439 $htmltooltip .= '<br>'.$langs->trans("Logo").': '.yn(!empty($module->option_logo) ? $module->option_logo : 0, 1, 1);
440 $htmltooltip .= '<br>'.$langs->trans("MultiLanguage").': '.yn(!empty($module->option_multilang) ? $module->option_multilang : 0, 1, 1);
441
442
443 print '<td class="center">';
444 print $form->textwithpicto('', $htmltooltip, 1, 0);
445 print '</td>';
446
447 // Preview
448 print '<td class="center">';
449 if ($module->type == 'pdf') {
450 print '<a href="'.$_SERVER["PHP_SELF"].'?action=specimen&module='.$name.'">'.img_object($langs->trans("Preview"), 'contract').'</a>';
451 } else {
452 print img_object($langs->trans("PreviewNotAvailable"), 'generic');
453 }
454 print '</td>';
455
456 print "</tr>\n";
457 }
458 }
459 }
460 }
461 }
462 }
463 }
464}
465
466print '</table>';
467print '</div>';
468
469
470print '<br>';
471
472
473print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
474print '<input type="hidden" name="token" value="'.newToken().'">';
475print '<input type="hidden" name="action" value="updatemainoptions">';
476print '<input type="hidden" name="page_y" value="">';
477
478
479// Main options
480
481print load_fiche_titre($langs->trans("MemberMainOptions"), '', '');
482
483print '<div class="div-table-responsive-no-min">';
484print '<table class="noborder centpercent">';
485print '<tr class="liste_titre">';
486print '<td>'.$langs->trans("Description").'</td>';
487print '<td class="soixantepercent">'.$langs->trans("Value").'</td>';
488print "</tr>\n";
489
490// Delay to start the new membership ([+/-][0-99][Y/m/d], for instance, with "+4m", the subscription will start in 4 month.)
491print '<tr class="oddeven drag" id="startfirstdayof"><td>';
492print $form->textwithpicto($langs->trans("MemberSubscriptionStartAfter"), $langs->trans("MemberSubscriptionStartAfterDesc").'<br>'.$langs->trans("MemberSubscriptionStartAfterDesc2"));
493print '</td><td>';
494print '<input type="text" class="right width50" id="MEMBER_SUBSCRIPTION_START_AFTER" name="MEMBER_SUBSCRIPTION_START_AFTER" value="'.getDolGlobalString('MEMBER_SUBSCRIPTION_START_AFTER').'">';
495print "</td></tr>\n";
496
497// Start date of new membership
498$startpoint = array();
499$startpoint[0] = $langs->trans("NoCorrection");
500$startpoint["m"] = $langs->trans("Month");
501$startpoint["Y"] = $langs->trans("Year");
502print '<tr class="oddeven drag" id="startfirstdayof"><td>';
503print $langs->trans("MemberSubscriptionStartFirstDayOf");
504print '</td><td>';
505$startfirstdayof = !getDolGlobalString('MEMBER_SUBSCRIPTION_START_FIRST_DAY_OF') ? 0 : getDolGlobalString('MEMBER_SUBSCRIPTION_START_FIRST_DAY_OF');
506print $form->selectarray("MEMBER_SUBSCRIPTION_START_FIRST_DAY_OF", $startpoint, $startfirstdayof, 0);
507print "</td></tr>\n";
508
509// Mail required for members
510print '<tr class="oddeven"><td>'.$langs->trans("AdherentMailRequired").'</td><td>';
511print $form->selectyesno('ADHERENT_MAIL_REQUIRED', getDolGlobalInt('ADHERENT_MAIL_REQUIRED'), 1, false, 0, 1);
512print "</td></tr>\n";
513
514// Login/Pass required for members
515print '<tr class="oddeven"><td>';
516print $form->textwithpicto($langs->trans("AdherentLoginRequired"), $langs->trans("AdherentLoginRequiredDesc"));
517print '</td><td>';
518print $form->selectyesno('ADHERENT_LOGIN_NOT_REQUIRED', (getDolGlobalString('ADHERENT_LOGIN_NOT_REQUIRED') ? 0 : 1), 1, false, 0, 1);
519print "</td></tr>\n";
520
521// Create an external user login after an online payment of a membership subscription
522// TODO Move this into the validate() method of the member.
523print '<tr class="oddeven"><td>'.$langs->trans("MemberCreateAnExternalUserForSubscriptionValidated").'</td><td>';
524print $form->selectyesno('ADHERENT_CREATE_EXTERNAL_USER_LOGIN', getDolGlobalInt('ADHERENT_CREATE_EXTERNAL_USER_LOGIN'), 1, false, 0, 1);
525print "</td></tr>\n";
526
527// Send mail information is on by default
528print '<tr class="oddeven"><td>'.$langs->trans("MemberSendInformationByMailByDefault").'</td><td>';
529print $form->selectyesno('ADHERENT_DEFAULT_SENDINFOBYMAIL', getDolGlobalInt('ADHERENT_DEFAULT_SENDINFOBYMAIL'), 1, false, 0, 1);
530print "</td></tr>\n";
531
532// Publish member information on public annuary
533$linkofpubliclist = DOL_MAIN_URL_ROOT.'/public/members/public_list.php'.((isModEnabled('multicompany')) ? '?entity='.((int) $conf->entity) : '');
534print '<tr class="oddeven"><td>'.$langs->trans("Public", getDolGlobalString('MAIN_INFO_SOCIETE_NOM'), $linkofpubliclist).'</td><td>';
535print $form->selectyesno('MEMBER_PUBLIC_ENABLED', getDolGlobalInt('MEMBER_PUBLIC_ENABLED'), 1, false, 0, 1);
536print "</td></tr>\n";
537
538// Allow members to change type on renewal forms
539/* To test during next beta
540print '<tr class="oddeven"><td>'.$langs->trans("MemberAllowchangeOfType").'</td><td>';
541print $form->selectyesno('MEMBER_ALLOW_CHANGE_OF_TYPE', (getDolGlobalInt('MEMBER_ALLOW_CHANGE_OF_TYPE') ? 0 : 1), 1);
542print "</td></tr>\n";
543*/
544
545// Insert subscription into bank account
546print '<tr class="oddeven"><td>'.$langs->trans("MoreActionsOnSubscription").'</td>';
547$arraychoices = array('0' => $langs->trans("None"));
548if (isModEnabled("bank")) {
549 $arraychoices['bankdirect'] = $langs->trans("MoreActionBankDirect");
550}
551if (isModEnabled("bank") && isModEnabled("societe") && isModEnabled('invoice')) {
552 $arraychoices['invoiceonly'] = $langs->trans("MoreActionInvoiceOnly");
553}
554if (isModEnabled("bank") && isModEnabled("societe") && isModEnabled('invoice')) {
555 $arraychoices['bankviainvoice'] = $langs->trans("MoreActionBankViaInvoice");
556}
557print '<td>';
558print $form->selectarray('ADHERENT_BANK_USE', $arraychoices, getDolGlobalString('ADHERENT_BANK_USE'), 0);
559if (getDolGlobalString('ADHERENT_BANK_USE') == 'bankdirect' || getDolGlobalString('ADHERENT_BANK_USE') == 'bankviainvoice') {
560 print '<br><div style="padding-top: 5px;"><span class="opacitymedium">'.$langs->trans("ABankAccountMustBeDefinedOnPaymentModeSetup").'</span></div>';
561}
562print '</td>';
563print "</tr>\n";
564
565// Use vat for invoice creation
566if (isModEnabled('invoice')) {
567 print '<tr class="oddeven"><td>'.$langs->trans("VATToUseForSubscriptions").'</td>';
568 if (isModEnabled("bank")) {
569 print '<td>';
570 print $form->selectarray('ADHERENT_VAT_FOR_SUBSCRIPTIONS', array('0' => $langs->trans("NoVatOnSubscription"), 'defaultforfoundationcountry' => $langs->trans("Default")), getDolGlobalString('ADHERENT_VAT_FOR_SUBSCRIPTIONS', '0'), 0);
571 print '</td>';
572 } else {
573 print '<td class="right">';
574 print $langs->trans("WarningModuleNotActive", $langs->transnoentities("Module85Name"));
575 print '</td>';
576 }
577 print "</tr>\n";
578
579 if (isModEnabled("product") || isModEnabled("service")) {
580 print '<tr class="oddeven"><td>'.$langs->trans("ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS").'</td>';
581 print '<td>';
582 $selected = getDolGlobalString('ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS');
583 print img_picto('', 'product', 'class="pictofixedwidth"');
584 $form->select_produits($selected, 'ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS', '', 0, 0, 1, 2, '', 0, [], 0, 1, 0, 'minwidth100 maxwidth500 widthcentpercentminusx');
585 print '</td>';
586 }
587 print "</tr>\n";
588}
589
590print '</table>';
591print '</div>';
592
593print '<div class="center">';
594print '<input type="submit" class="button reposition" value="'.$langs->trans("Update").'" name="Button">';
595print '</div>';
596
597print '</form>';
598
599
600print '<br>';
601
602
603
604// Generation of cards for members
605
606print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
607print '<input type="hidden" name="token" value="'.newToken().'">';
608print '<input type="hidden" name="action" value="updatememberscards">';
609print '<input type="hidden" name="page_y" value="">';
610
611print load_fiche_titre($langs->trans("MembersCards"), '', '');
612
613$helptext = '*'.$langs->trans("FollowingConstantsWillBeSubstituted").'<br>';
614$helptext .= '__DOL_MAIN_URL_ROOT__, __ID__, __FIRSTNAME__, __LASTNAME__, __FULLNAME__, __LOGIN__, __PASSWORD__, ';
615$helptext .= '__COMPANY__, __ADDRESS__, __ZIP__, __TOWN__, __COUNTRY__, __EMAIL__, __BIRTH__, __PHOTO__, __TYPE__, ';
616$helptext .= '__YEAR__, __MONTH__, __DAY__';
617
618print '<div class="div-table-responsive-no-min">';
619print '<table class="noborder centpercent">';
620print '<tr class="liste_titre">';
621print '<td>'.$langs->trans("Description").'</td>';
622print '<td class="soixantepercent">'.$form->textwithpicto($langs->trans("Value"), $helptext, 1, 'help', '', 0, 2, 'idhelptext').'</td>';
623print "</tr>\n";
624
625// Format of cards page
626print '<tr class="oddeven"><td>'.$langs->trans("DescADHERENT_CARD_TYPE").'</td><td>';
627
628require_once DOL_DOCUMENT_ROOT.'/core/lib/format_cards.lib.php'; // List of possible labels (defined into $_Avery_Labels variable set into format_cards.lib.php)
629$arrayoflabels = array();
630foreach (array_keys($_Avery_Labels) as $codecards) {
631 $arrayoflabels[$codecards] = $_Avery_Labels[$codecards]['name'];
632}
633print $form->selectarray('ADHERENT_CARD_TYPE', $arrayoflabels, getDolGlobalString('ADHERENT_CARD_TYPE') ? getDolGlobalString('ADHERENT_CARD_TYPE') : 'CARD', 1, 0, 0);
634
635print "</td></tr>\n";
636
637// Text printed on top of member cards
638print '<tr class="oddeven"><td>'.$langs->trans("DescADHERENT_CARD_HEADER_TEXT").'</td><td>';
639print '<input type="text" class="flat minwidth300" name="ADHERENT_CARD_HEADER_TEXT" value="'.dol_escape_htmltag(getDolGlobalString('ADHERENT_CARD_HEADER_TEXT')).'">';
640print "</td></tr>\n";
641
642// Text printed on member cards (align on left)
643print '<tr class="oddeven"><td>'.$langs->trans("DescADHERENT_CARD_TEXT").'</td><td>';
644print '<textarea class="flat" name="ADHERENT_CARD_TEXT" cols="50" rows="5" wrap="soft">'."\n";
645print getDolGlobalString('ADHERENT_CARD_TEXT');
646print '</textarea>';
647print "</td></tr>\n";
648
649// Text printed on member cards (align on right)
650print '<tr class="oddeven"><td>'.$langs->trans("DescADHERENT_CARD_TEXT_RIGHT").'</td><td>';
651print '<textarea class="flat" name="ADHERENT_CARD_TEXT_RIGHT" cols="50" rows="5" wrap="soft">'."\n";
652print getDolGlobalString('ADHERENT_CARD_TEXT_RIGHT');
653print '</textarea>';
654print "</td></tr>\n";
655
656// Text printed on bottom of member cards
657print '<tr class="oddeven"><td>'.$langs->trans("DescADHERENT_CARD_FOOTER_TEXT").'</td><td>';
658print '<input type="text" class="flat minwidth300" name="ADHERENT_CARD_FOOTER_TEXT" value="'.dol_escape_htmltag(getDolGlobalString('ADHERENT_CARD_FOOTER_TEXT')).'">';
659print "</td></tr>\n";
660
661print '</table>';
662print '</div>';
663
664print '<div class="center">';
665print '<input type="submit" class="button reposition" value="'.$langs->trans("Update").'" name="Button">';
666print '</div>';
667
668print '</form>';
669
670print '<br>';
671
672
673// Membership address sheet
674
675print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
676print '<input type="hidden" name="token" value="'.newToken().'">';
677print '<input type="hidden" name="action" value="updatememberstickets">';
678print '<input type="hidden" name="page_y" value="">';
679
680print load_fiche_titre($langs->trans("MembersTickets"), '', '');
681
682$helptext = '*'.$langs->trans("FollowingConstantsWillBeSubstituted").'<br>';
683$helptext .= '__DOL_MAIN_URL_ROOT__, __ID__, __FIRSTNAME__, __LASTNAME__, __FULLNAME__, __LOGIN__, __PASSWORD__, ';
684$helptext .= '__COMPANY__, __ADDRESS__, __ZIP__, __TOWN__, __COUNTRY__, __EMAIL__, __BIRTH__, __PHOTO__, __TYPE__, ';
685$helptext .= '__YEAR__, __MONTH__, __DAY__';
686
687print '<div class="div-table-responsive-no-min">';
688print '<table class="noborder centpercent">';
689print '<tr class="liste_titre">';
690print '<td>'.$langs->trans("Description").'</td>';
691print '<td class="soixantepercent">'.$form->textwithpicto($langs->trans("Value"), $helptext, 1, 'help', '', 0, 2, 'idhelptext').'</td>';
692print "</tr>\n";
693
694// Format of labels page
695print '<tr class="oddeven"><td>'.$langs->trans("DescADHERENT_ETIQUETTE_TYPE").'</td><td>';
696
697require_once DOL_DOCUMENT_ROOT.'/core/lib/format_cards.lib.php'; // List of possible labels (defined into $_Avery_Labels variable set into format_cards.lib.php)
698$arrayoflabels = array();
699foreach (array_keys($_Avery_Labels) as $codecards) {
700 $arrayoflabels[$codecards] = $_Avery_Labels[$codecards]['name'];
701}
702print $form->selectarray('ADHERENT_ETIQUETTE_TYPE', $arrayoflabels, getDolGlobalString('ADHERENT_ETIQUETTE_TYPE') ? getDolGlobalString('ADHERENT_ETIQUETTE_TYPE') : 'CARD', 1, 0, 0);
703
704print "</td></tr>\n";
705
706// Text printed on member address sheets
707print '<tr class="oddeven"><td>'.$langs->trans("DescADHERENT_ETIQUETTE_TEXT").'</td><td>';
708print '<textarea class="flat" name="ADHERENT_ETIQUETTE_TEXT" cols="50" rows="5" wrap="soft">'."\n";
709print getDolGlobalString('ADHERENT_ETIQUETTE_TEXT');
710print '</textarea>';
711print "</td></tr>\n";
712
713print '</table>';
714print '</div>';
715
716print '<div class="center">';
717print '<input type="submit" class="button reposition" value="'.$langs->trans("Update").'" name="Button">';
718print '</div>';
719
720print '</form>';
721
722print '<br>';
723
724print "<br>";
725
726print dol_get_fiche_end();
727
728// End of page
729llxFooter();
730$db->close();
addDocumentModel
addDocumentModel($name, $type, $label='', $description='')
Add document model used by doc generator.
Definition admin.lib.php:1940
dolibarr_set_const
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).
Definition admin.lib.php:656
dolibarr_del_const
dolibarr_del_const($db, $name, $entity=1)
Delete a constant.
Definition admin.lib.php:580
delDocumentModel
delDocumentModel($name, $type)
Delete document model used by doc generator.
Definition admin.lib.php:1971
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:55
llxFooter
llxFooter()
Empty footer.
Definition wrapper.php:69
Form
Class to manage generation of HTML components Only common components must be here.
Definition html.form.class.php:56
load_fiche_titre
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
Definition functions.lib.php:6183
img_object
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0)
Show a picto called object_picto (generic function)
Definition functions.lib.php:5168
img_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)
Definition functions.lib.php:4804
yn
yn($yesno, $case=1, $color=0)
Return yes or no in current language.
Definition functions.lib.php:7558
dol_get_fiche_head
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.
Definition functions.lib.php:2461
dol_get_fiche_end
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Definition functions.lib.php:2663
dol_strlen
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
Definition functions.lib.php:4618
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
Definition functions.lib.php:230
dol_sort_array
dol_sort_array(&$array, $index, $order='asc', $natsort=0, $case_sensitive=0, $keepindex=0)
Advanced sort array by the value of a given key, which produces ascending (default) or descending out...
Definition functions.lib.php:9964
dol_include_once
if(!function_exists( 'dol_getprefix')) dol_include_once($relpath, $classname='')
Make an include_once using default root and alternate root if it fails.
Definition functions.lib.php:1313
newToken
newToken()
Return the value of token currently saved into session with name 'newtoken'.
Definition functions.lib.php:12999
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition functions.lib.php:753
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
Definition functions.lib.php:9716
dol_buildpath
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
Definition functions.lib.php:1342
dol_print_error
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
Definition functions.lib.php:5809
getDolGlobalString
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
Definition functions.lib.php:215
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition functions.lib.php:2119
member_admin_prepare_head
member_admin_prepare_head()
Return array head with list of tabs to view object information.
Definition member.lib.php:222
name
$conf db name
Only used if Module[ID]Name translation string is not found.
Definition repair.php:142
accessforbidden
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.
Definition security.lib.php:1204
Generated on Thu Sep 5 2024 01:00:14 for dolibarr by Doxygen 1.11.0