dolibarr 23.0.3
adherent.class.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2002-2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2002-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) 2009-2017 Regis Houssin <regis.houssin@inodbox.com>
8 * Copyright (C) 2014-2018 Alexandre Spangaro <alexandre@inovea-conseil.com>
9 * Copyright (C) 2015 Marcos García <marcosgdf@gmail.com>
10 * Copyright (C) 2015-2025 Frédéric France <frederic.france@free.fr>
11 * Copyright (C) 2015 Raphaël Doursenaud <rdoursenaud@gpcsolutions.fr>
12 * Copyright (C) 2016 Juanjo Menent <jmenent@2byte.es>
13 * Copyright (C) 2018-2019 Thibault FOUCART <support@ptibogxiv.net>
14 * Copyright (C) 2019 Nicolas ZABOURI <info@inovea-conseil.com>
15 * Copyright (C) 2020 Josep Lluís Amador <joseplluis@lliuretic.cat>
16 * Copyright (C) 2021 Waël Almoman <info@almoman.com>
17 * Copyright (C) 2021 Philippe Grand <philippe.grand@atoo-net.com>
18 * Copyright (C) 2024-2025 MDW <mdeweerd@users.noreply.github.com>
19 *
20 * This program is free software; you can redistribute it and/or modify
21 * it under the terms of the GNU General Public License as published by
22 * the Free Software Foundation; either version 3 of the License, or
23 * (at your option) any later version.
24 *
25 * This program is distributed in the hope that it will be useful,
26 * but WITHOUT ANY WARRANTY; without even the implied warranty of
27 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
28 * GNU General Public License for more details.
29 *
30 * You should have received a copy of the GNU General Public License
31 * along with this program. If not, see <https://www.gnu.org/licenses/>.
32 */
33
39require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';
40require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
41require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
42require_once DOL_DOCUMENT_ROOT.'/core/class/commonpeople.class.php';
43
44
49{
50 use CommonPeople;
51
55 public $element = 'member';
56
60 public $table_element = 'adherent';
61
65 public $picto = 'member';
66
70 public $mesgs;
71
75 public $login;
76
80 public $pass;
81
85 public $pass_indatabase;
86
90 public $pass_indatabase_crypted;
91
95 public $fullname;
96
101 public $civility_id;
102
106 public $civility_code;
107
111 public $civility;
112
118 public $societe;
119
123 public $company;
124
130 public $fk_soc;
131
135 public $socid;
136
140 public $socialnetworks;
141
145 public $phone;
146
150 public $phone_perso;
151
155 public $phone_pro;
156
160 public $phone_mobile;
161
165 public $fax;
166
170 public $poste;
171
175 public $morphy;
176
180 public $public;
181
186 public $default_lang;
187
191 public $photo;
192
198 public $datec;
199
205 public $datem;
206
210 public $datevalid;
211
215 public $gender;
216
220 public $birth;
221
225 public $typeid;
226
230 public $type;
231
235 public $need_subscription;
236
240 public $user_id;
241
245 public $user_login;
246
250 public $datefin;
251
252
253 // Fields loaded by fetch_subscriptions() from member table
254
258 public $first_subscription_date;
259
263 public $first_subscription_date_start;
264
268 public $first_subscription_date_end;
269
273 public $first_subscription_amount;
274
278 public $last_subscription_date;
279
283 public $last_subscription_date_start;
284
288 public $last_subscription_date_end;
289
293 public $last_subscription_amount;
294
298 public $subscriptions = array();
299
303 public $ip;
304
305 // Fields loaded by fetchPartnerships() from partnership table
306
310 public $partnerships = array();
311
315 public $invoice;
316
358 public $fields = array(
359 'rowid' => array('type' => 'integer', 'label' => 'TechnicalID', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 10),
360 'ref' => array('type' => 'varchar(30)', 'label' => 'Ref', 'default' => '1', 'enabled' => 1, 'visible' => 1, 'notnull' => 1, 'position' => 12, 'index' => 1),
361 'entity' => array('type' => 'integer', 'label' => 'Entity', 'default' => '1', 'enabled' => 1, 'visible' => 3, 'notnull' => 1, 'position' => 15, 'index' => 1),
362 'ref_ext' => array('type' => 'varchar(128)', 'label' => 'RefExt', 'enabled' => 1, 'visible' => 0, 'position' => 20),
363 'civility' => array('type' => 'varchar(6)', 'label' => 'Civility', 'enabled' => 1, 'visible' => -1, 'position' => 25),
364 'lastname' => array('type' => 'varchar(50)', 'label' => 'Lastname', 'enabled' => 1, 'visible' => 1, 'position' => 30, 'showoncombobox' => 1),
365 'firstname' => array('type' => 'varchar(50)', 'label' => 'Firstname', 'enabled' => 1, 'visible' => 1, 'position' => 35, 'showoncombobox' => 1),
366 'login' => array('type' => 'varchar(50)', 'label' => 'Login', 'enabled' => 1, 'visible' => 1, 'position' => 40),
367 'pass' => array('type' => 'varchar(50)', 'label' => 'Pass', 'enabled' => 1, 'visible' => 3, 'position' => 45),
368 'pass_crypted' => array('type' => 'varchar(128)', 'label' => 'Pass crypted', 'enabled' => 1, 'visible' => 3, 'position' => 50),
369 'morphy' => array('type' => 'varchar(3)', 'label' => 'MemberNature', 'enabled' => 1, 'visible' => 1, 'notnull' => 1, 'position' => 55),
370 'fk_adherent_type' => array('type' => 'integer', 'label' => 'MemberType', 'enabled' => 1, 'visible' => 1, 'notnull' => 1, 'position' => 60),
371 'societe' => array('type' => 'varchar(128)', 'label' => 'Societe', 'enabled' => 1, 'visible' => 1, 'position' => 65, 'showoncombobox' => 2),
372 'fk_soc' => array('type' => 'integer:Societe:societe/class/societe.class.php', 'label' => 'LinkedToDolibarrThirdParty', 'enabled' => 1, 'visible' => 1, 'position' => 70),
373 'address' => array('type' => 'text', 'label' => 'Address', 'enabled' => 1, 'visible' => -1, 'position' => 75),
374 'zip' => array('type' => 'varchar(10)', 'label' => 'Zip', 'enabled' => 1, 'visible' => -1, 'position' => 80),
375 'town' => array('type' => 'varchar(50)', 'label' => 'Town', 'enabled' => 1, 'visible' => -1, 'position' => 85),
376 'state_id' => array('type' => 'integer', 'label' => 'State', 'enabled' => 1, 'visible' => -1, 'position' => 90),
377 'country' => array('type' => 'integer:Ccountry:core/class/ccountry.class.php', 'label' => 'Country', 'enabled' => 1, 'visible' => 1, 'position' => 95),
378 'phone' => array('type' => 'varchar(30)', 'label' => 'Phone', 'enabled' => 1, 'visible' => -1, 'position' => 115),
379 'phone_perso' => array('type' => 'varchar(30)', 'label' => 'Phone perso', 'enabled' => 1, 'visible' => -1, 'position' => 120),
380 'phone_mobile' => array('type' => 'varchar(30)', 'label' => 'Phone mobile', 'enabled' => 1, 'visible' => -1, 'position' => 125),
381 'email' => array('type' => 'varchar(255)', 'label' => 'Email', 'enabled' => 1, 'visible' => 1, 'position' => 126),
382 'url' => array('type' => 'varchar(255)', 'label' => 'Url', 'enabled' => 1, 'visible' => -1, 'position' => 127),
383 'socialnetworks' => array('type' => 'text', 'label' => 'Socialnetworks', 'enabled' => 1, 'visible' => 3, 'position' => 128),
384 'birth' => array('type' => 'date', 'label' => 'DateOfBirth', 'enabled' => 1, 'visible' => -1, 'position' => 130),
385 'gender' => array('type' => 'varchar(10)', 'label' => 'Gender', 'enabled' => 1, 'visible' => -1, 'position' => 132),
386 'photo' => array('type' => 'varchar(255)', 'label' => 'Photo', 'enabled' => 1, 'visible' => -1, 'position' => 135),
387 'public' => array('type' => 'smallint(6)', 'label' => 'Public', 'enabled' => 1, 'visible' => 3, 'notnull' => 1, 'position' => 145),
388 'datefin' => array('type' => 'datetime', 'label' => 'DateEnd', 'enabled' => 1, 'visible' => 1, 'position' => 150),
389 'default_lang' => array('type' => 'varchar(6)', 'label' => 'Default lang', 'enabled' => 1, 'visible' => -1, 'position' => 153),
390 'note_public' => array('type' => 'text', 'label' => 'NotePublic', 'enabled' => 1, 'visible' => 0, 'position' => 155),
391 'note_private' => array('type' => 'text', 'label' => 'NotePrivate', 'enabled' => 1, 'visible' => 0, 'position' => 160),
392 'datevalid' => array('type' => 'datetime', 'label' => 'DateValidation', 'enabled' => 1, 'visible' => -1, 'position' => 165),
393 'datec' => array('type' => 'datetime', 'label' => 'DateCreation', 'enabled' => 1, 'visible' => -1, 'position' => 170),
394 'tms' => array('type' => 'timestamp', 'label' => 'DateModification', 'enabled' => 1, 'visible' => -1, 'notnull' => 1, 'position' => 175),
395 'fk_user_author' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'UserCreation', 'enabled' => 1, 'visible' => 3, 'position' => 180),
396 'fk_user_mod' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'UserModification', 'enabled' => 1, 'visible' => 3, 'position' => 185),
397 'fk_user_valid' => array('type' => 'integer:User:user/class/user.class.php', 'label' => 'UserValidation', 'enabled' => 1, 'visible' => 3, 'position' => 190),
398 'canvas' => array('type' => 'varchar(32)', 'label' => 'Canvas', 'enabled' => 1, 'visible' => 0, 'position' => 195),
399 'model_pdf' => array('type' => 'varchar(255)', 'label' => 'Model pdf', 'enabled' => 1, 'visible' => 0, 'position' => 800),
400 'import_key' => array('type' => 'varchar(14)', 'label' => 'ImportId', 'enabled' => 1, 'visible' => -2, 'position' => 805),
401 'statut' => array('type' => 'smallint(6)', 'label' => 'Statut', 'enabled' => 1, 'visible' => 1, 'notnull' => 1, 'position' => 1000, 'arrayofkeyval' => array(-1 => 'Draft', 1 => 'Validated', 0 => 'MemberStatusResiliatedShort', -2 => 'MemberStatusExcludedShort'))
402 );
403
407 const STATUS_DRAFT = -1;
419 const STATUS_EXCLUDED = -2;
420
421
427 public function __construct($db)
428 {
429 $this->db = $db;
430 $this->statut = self::STATUS_DRAFT;
431 $this->status = self::STATUS_DRAFT;
432 // l'adherent n'est pas public par default
433 $this->public = 0;
434 $this->ismultientitymanaged = 1;
435 $this->isextrafieldmanaged = 1;
436 // les champs optionnels sont vides
437 $this->array_options = array();
438
439 $this->fields['ref_ext']['visible'] = getDolGlobalInt('MAIN_LIST_SHOW_REF_EXT');
440 }
441
442
443 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
462 public function send_an_email($text, $subject, $filename_list = array(), $mimetype_list = array(), $mimefilename_list = array(), $addr_cc = "", $addr_bcc = "", $deliveryreceipt = 0, $msgishtml = -1, $errors_to = '', $moreinheader = '')
463 {
464 // phpcs:enable
465 dol_syslog('Warning using deprecated Adherent::send_an_email', LOG_WARNING);
466
467 return $this->sendEmail($text, $subject, $filename_list, $mimetype_list, $mimefilename_list, $addr_cc, $addr_bcc, $deliveryreceipt, $msgishtml, $errors_to, $moreinheader);
468 }
469
487 public function sendEmail($text, $subject, $filename_list = array(), $mimetype_list = array(), $mimefilename_list = array(), $addr_cc = "", $addr_bcc = "", $deliveryreceipt = 0, $msgishtml = -1, $errors_to = '', $moreinheader = '')
488 {
489 global $conf, $langs;
490
491 // Detect if message is HTML
492 if ($msgishtml == -1) {
493 $msgishtml = 0;
494 if (dol_textishtml($text, 0)) {
495 $msgishtml = 1;
496 }
497 }
498
499 dol_syslog('sendEmail msgishtml='.$msgishtml);
500
501 $texttosend = $this->makeSubstitution($text);
502 $subjecttosend = $this->makeSubstitution($subject);
503 if ($msgishtml) {
504 $texttosend = dol_htmlentitiesbr($texttosend);
505 }
506
507 // Send mail confirmation
508 $from = getDolGlobalString('ADHERENT_MAIL_FROM', $conf->email_from);
509
510 $trackid = 'mem'.$this->id;
511
512 // Send email (substitutionarray must be done just before this)
513 include_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
514 $mailfile = new CMailFile($subjecttosend, (string) $this->email, $from, $texttosend, $filename_list, $mimetype_list, $mimefilename_list, $addr_cc, $addr_bcc, $deliveryreceipt, $msgishtml, '', '', $trackid, $moreinheader);
515 if ($mailfile->sendfile()) {
516 return 1;
517 } else {
518 $this->error = $langs->trans("ErrorFailedToSendMail", $from, (string) $this->email).'. '.$mailfile->error;
519 return -1;
520 }
521 }
522
523
530 public function makeSubstitution($text)
531 {
532 global $langs;
533
534 $birthday = dol_print_date($this->birth, 'day');
535 $photo = isset($this->photo) ? $this->photo : '';
536 $login = isset($this->login) ? $this->login : '';
537 $type = isset($this->type) ? $this->type : '';
538 $pass = isset($this->pass) ? $this->pass : '';
539
540 $msgishtml = 0;
541 if (dol_textishtml($text, 1)) {
542 $msgishtml = 1;
543 }
544
545 $infos = '';
546 if ($this->civility_id) {
547 $infos .= $langs->transnoentities("UserTitle").": ".$this->getCivilityLabel()."\n";
548 }
549 $infos .= $langs->transnoentities("Id").": ".$this->id."\n";
550 $infos .= $langs->transnoentities("Ref").": ".$this->ref."\n";
551 $infos .= $langs->transnoentities("Lastname").": ".$this->lastname."\n";
552 $infos .= $langs->transnoentities("Firstname").": ".$this->firstname."\n";
553 $infos .= $langs->transnoentities("Company").": ".$this->company."\n";
554 $infos .= $langs->transnoentities("Address").": ".$this->address."\n";
555 $infos .= $langs->transnoentities("Zip").": ".$this->zip."\n";
556 $infos .= $langs->transnoentities("Town").": ".$this->town."\n";
557 $infos .= $langs->transnoentities("Country").": ".$this->country."\n";
558 $infos .= $langs->transnoentities("EMail").": ".$this->email."\n";
559 $infos .= $langs->transnoentities("PhonePro").": ".$this->phone."\n";
560 $infos .= $langs->transnoentities("PhonePerso").": ".$this->phone_perso."\n";
561 $infos .= $langs->transnoentities("PhoneMobile").": ".$this->phone_mobile."\n";
562 if (!getDolGlobalString('ADHERENT_LOGIN_NOT_REQUIRED')) {
563 $infos .= $langs->transnoentities("Login").": ".$login."\n";
564 $infos .= $langs->transnoentities("Password").": ".$pass."\n";
565 }
566 $infos .= $langs->transnoentities("Birthday").": ".$birthday."\n";
567 $infos .= $langs->transnoentities("Photo").": ".$photo."\n";
568 $infos .= $langs->transnoentities("Public").": ".yn($this->public);
569
570 // Substitutions
571 $substitutionarray = array(
572 '__ID__' => $this->id,
573 '__REF__' => $this->ref,
574 '__MEMBER_ID__' => $this->id,
575 '__CIVILITY__' => $this->getCivilityLabel(),
576 '__FIRSTNAME__' => $msgishtml ? dol_htmlentitiesbr($this->firstname) : ($this->firstname ? $this->firstname : ''),
577 '__LASTNAME__' => $msgishtml ? dol_htmlentitiesbr($this->lastname) : ($this->lastname ? $this->lastname : ''),
578 '__FULLNAME__' => $msgishtml ? dol_htmlentitiesbr($this->getFullName($langs)) : $this->getFullName($langs),
579 '__COMPANY__' => $msgishtml ? dol_htmlentitiesbr((string) $this->company) : ($this->company ? $this->company : ''),
580 '__ADDRESS__' => $msgishtml ? dol_htmlentitiesbr((string) $this->address) : ($this->address ? $this->address : ''),
581 '__ZIP__' => $msgishtml ? dol_htmlentitiesbr((string) $this->zip) : ($this->zip ? $this->zip : ''),
582 '__TOWN__' => $msgishtml ? dol_htmlentitiesbr((string) $this->town) : ($this->town ? $this->town : ''),
583 '__COUNTRY__' => $msgishtml ? dol_htmlentitiesbr($this->country) : ($this->country ? $this->country : ''),
584 '__EMAIL__' => $msgishtml ? dol_htmlentitiesbr((string) $this->email) : ($this->email ? $this->email : ''),
585 '__BIRTH__' => $msgishtml ? dol_htmlentitiesbr($birthday) : ($birthday ? $birthday : ''),
586 '__PHOTO__' => $msgishtml ? dol_htmlentitiesbr($photo) : $photo,
587 '__LOGIN__' => $msgishtml ? dol_htmlentitiesbr($login) : $login,
588 '__PASSWORD__' => $msgishtml ? dol_htmlentitiesbr($pass) : $pass,
589 '__PHONE__' => $msgishtml ? dol_htmlentitiesbr($this->phone) : ($this->phone ? $this->phone : ''),
590 '__PHONEPRO__' => $msgishtml ? dol_htmlentitiesbr($this->phone_perso) : ($this->phone_perso ? $this->phone_perso : ''),
591 '__PHONEMOBILE__' => $msgishtml ? dol_htmlentitiesbr($this->phone_mobile) : ($this->phone_mobile ? $this->phone_mobile : ''),
592 '__TYPE__' => $msgishtml ? dol_htmlentitiesbr($type) : $type,
593 );
594
595 complete_substitutions_array($substitutionarray, $langs, $this);
596
597 return make_substitutions($text, $substitutionarray, $langs);
598 }
599
600
608 public function getmorphylib($morphy = '', $addbadge = 0)
609 {
610 global $langs;
611 $s = '';
612
613 // Clean var
614 if (!$morphy) {
615 $morphy = $this->morphy;
616 }
617
618 if ($addbadge) {
619 $labeltoshowm = $langs->trans("Moral");
620 $labeltoshowp = $langs->trans("Physical");
621 if ($morphy == 'phy') {
622 $labeltoshow = $labeltoshowp;
623 if ($addbadge == 2) {
624 $labeltoshow = dol_strtoupper(dolGetFirstLetters($labeltoshowp));
625 if ($labeltoshow == dol_strtoupper(dolGetFirstLetters($labeltoshowm))) {
626 $labeltoshow = dol_strtoupper(dolGetFirstLetters($labeltoshowp, 2));
627 }
628 }
629 $s .= '<span class="member-individual-back paddingleftimp paddingrightimp" title="'.$langs->trans("Physical").'">'.$labeltoshow.'</span>';
630 }
631 if ($morphy == 'mor') {
632 $labeltoshow = $labeltoshowm;
633 if ($addbadge == 2) {
634 $labeltoshow = dol_strtoupper(dolGetFirstLetters($labeltoshowm));
635 if ($labeltoshow == dol_strtoupper(dolGetFirstLetters($labeltoshowp))) {
636 $labeltoshow = dol_strtoupper(dolGetFirstLetters($labeltoshowm, 2));
637 }
638 }
639 $s .= '<span class="member-company-back paddingleftimp paddingrightimp" title="'.$langs->trans("Moral").'">'.$labeltoshow.'</span>';
640 }
641 } else {
642 if ($morphy == 'phy') {
643 $s = $langs->trans("Physical");
644 } elseif ($morphy == 'mor') {
645 $s = $langs->trans("Moral");
646 }
647 }
648
649 return $s;
650 }
651
659 public function create($user, $notrigger = 0)
660 {
661 global $langs, $mysoc;
662
663 $error = 0;
664
665 $now = dol_now();
666
667 // Clean parameters
668 if (isset($this->import_key)) {
669 $this->import_key = trim($this->import_key);
670 }
671
672 // Check parameters
673 if (getDolGlobalString('ADHERENT_MAIL_REQUIRED') && !isValidEmail((string) $this->email)) {
674 $langs->load("errors");
675 $this->error = $langs->trans("ErrorBadEMail", (string) $this->email);
676 return -1;
677 }
678 if (!$this->datec) {
679 $this->datec = $now;
680 }
681 if (!getDolGlobalString('ADHERENT_LOGIN_NOT_REQUIRED')) {
682 if (empty($this->login)) {
683 $this->error = $langs->trans("ErrorWrongValueForParameterX", "Login");
684 return -1;
685 }
686 }
687
688 // setEntity will set entity with the right value if empty or change it for the right value if multicompany module is active
689 $this->entity = setEntity($this);
690
691 $this->db->begin();
692
693 // Insert member
694 $sql = "INSERT INTO ".MAIN_DB_PREFIX."adherent";
695 $sql .= " (ref, datec, login, fk_user_author, fk_user_mod, fk_user_valid, morphy, fk_adherent_type, entity, import_key, ip)";
696 $sql .= " VALUES (";
697 $sql .= " '(PROV)'";
698 $sql .= ", '".$this->db->idate($this->datec)."'";
699 $sql .= ", ".($this->login ? "'".$this->db->escape($this->login)."'" : "null");
700 $sql .= ", ".($user->id > 0 ? $user->id : "null"); // Can be null because member can be created by a guest or a script
701 $sql .= ", null, null, '".$this->db->escape($this->morphy)."'";
702 $sql .= ", ".((int) $this->typeid);
703 $sql .= ", ".((int) $this->entity);
704 $sql .= ", ".(!empty($this->import_key) ? "'".$this->db->escape($this->import_key)."'" : "null");
705 $sql .= ", ".(!empty($this->ip) ? "'".$this->db->escape($this->ip)."'" : "null");
706 $sql .= ")";
707
708 dol_syslog(get_class($this)."::create", LOG_DEBUG);
709 $result = $this->db->query($sql);
710 if ($result) {
711 $id = $this->db->last_insert_id(MAIN_DB_PREFIX."adherent");
712 if ($id > 0) {
713 $this->id = $id;
714
715 $modulenum = getDolGlobalString('MEMBER_CODEMEMBER_ADDON', 'mod_member_simple');
716
717 $modfile = dol_buildpath('core/modules/member/'.$modulenum.'.php', 0);
718 try {
719 require_once $modfile;
720 $modname = $modulenum;
721 $modCodeMember = new $modname();
722 '@phan-var-force ModeleNumRefMembers $modCodeMember';
724 $this->ref = $modCodeMember->getNextValue($mysoc, $this);
725 } catch (Exception $e) {
726 dol_syslog($e->getMessage(), LOG_ERR);
727 $error++;
728 }
729
730 // Update minor fields
731 $result = $this->update($user, 1, 1, 0, 0, 'add'); // nosync is 1 to avoid update data of user
732 if ($result < 0) {
733 $this->db->rollback();
734 return -1;
735 }
736
737 // Add link to user
738 if ($this->user_id) {
739 // Add link to user
740 $sql = "UPDATE ".MAIN_DB_PREFIX."user SET";
741 $sql .= " fk_member = ".((int) $this->id);
742 $sql .= " WHERE rowid = ".((int) $this->user_id);
743 dol_syslog(get_class($this)."::create", LOG_DEBUG);
744 $resql = $this->db->query($sql);
745 if (!$resql) {
746 $this->error = 'Failed to update user to make link with member';
747 $this->db->rollback();
748 return -4;
749 }
750 }
751
752 if (!$notrigger) {
753 // Call trigger
754 $result = $this->call_trigger('MEMBER_CREATE', $user);
755 if ($result < 0) {
756 $error++;
757 }
758 // End call triggers
759 }
760
761 if (count($this->errors)) {
762 dol_syslog(get_class($this)."::create ".implode(',', $this->errors), LOG_ERR);
763 $this->db->rollback();
764 return -3;
765 } else {
766 $this->db->commit();
767 return $this->id;
768 }
769 } else {
770 $this->error = 'Failed to get last insert id';
771 dol_syslog(get_class($this)."::create ".$this->error, LOG_ERR);
772 $this->db->rollback();
773 return -2;
774 }
775 } else {
776 $this->error = $this->db->error();
777 $this->db->rollback();
778 return -1;
779 }
780 }
781
782
794 public function update($user, $notrigger = 0, $nosyncuser = 0, $nosyncuserpass = 0, $nosyncthirdparty = 0, $action = 'update')
795 {
796 global $langs, $hookmanager;
797
798 require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
799
800 if (empty($this->country_id) && !empty($this->country_code)) {
801 $country_id = getCountry($this->country_code, '3');
802 $this->country_id = is_int($country_id) ? $country_id : 0;
803 }
804
805 $nbrowsaffected = 0;
806 $error = 0;
807
808 dol_syslog(get_class($this)."::update notrigger=".$notrigger.", nosyncuser=".$nosyncuser.", nosyncuserpass=".$nosyncuserpass." nosyncthirdparty=".$nosyncthirdparty.", email=".$this->email);
809
810 // Clean parameters
811 $this->lastname = trim($this->lastname) ? trim($this->lastname) : trim($this->lastname);
812 $this->firstname = trim($this->firstname) ? trim($this->firstname) : trim($this->firstname);
813 if (isset($this->gender)) {
814 $this->gender = trim($this->gender);
815 }
816 // $this->address = ($this->address ? $this->address : $this->address);
817 // $this->zip = ($this->zip ? $this->zip : $this->zip);
818 // $this->town = ($this->town ? $this->town : $this->town);
819 // $this->country_id = ($this->country_id > 0 ? $this->country_id : $this->country_id);
820 // $this->state_id = ($this->state_id > 0 ? $this->state_id : $this->state_id);
821 // $this->note_public = ($this->note_public ? $this->note_public : $this->note_public);
822 // $this->note_private = ($this->note_private ? $this->note_private : $this->note_private);
823 $this->url = $this->url ? clean_url($this->url, 0) : '';
824 $this->setUpperOrLowerCase();
825
826 // Check parameters
827 if (getDolGlobalString('ADHERENT_MAIL_REQUIRED') && !isValidEmail((string) $this->email)) {
828 $langs->load("errors");
829 $this->error = $langs->trans("ErrorBadEMail", (string) $this->email);
830 return -1;
831 }
832
833 $this->db->begin();
834
835 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent SET";
836 $sql .= " ref = '".$this->db->escape($this->ref)."'";
837 $sql .= ", ref_ext = ".(empty($this->ref_ext) ? "null" : "'".$this->db->escape($this->ref_ext)."'");
838 $sql .= ", civility = ".($this->civility_id ? "'".$this->db->escape($this->civility_id)."'" : "null");
839 $sql .= ", firstname = ".($this->firstname ? "'".$this->db->escape($this->firstname)."'" : "null");
840 $sql .= ", lastname = ".($this->lastname ? "'".$this->db->escape($this->lastname)."'" : "null");
841 $sql .= ", gender = ".($this->gender != -1 ? "'".$this->db->escape($this->gender)."'" : "null"); // 'man' or 'woman'
842 $sql .= ", login = ".($this->login ? "'".$this->db->escape($this->login)."'" : "null");
843 $sql .= ", societe = ".($this->company ? "'".$this->db->escape($this->company)."'" : ($this->societe ? "'".$this->db->escape($this->societe)."'" : "null"));
844 if ($this->socid) {
845 $sql .= ", fk_soc = ".($this->socid > 0 ? (int) $this->socid : "null"); // Must be modified only when creating from a third-party
846 }
847 $sql .= ", address = ".($this->address ? "'".$this->db->escape($this->address)."'" : "null");
848 $sql .= ", zip = ".($this->zip ? "'".$this->db->escape($this->zip)."'" : "null");
849 $sql .= ", town = ".($this->town ? "'".$this->db->escape($this->town)."'" : "null");
850 $sql .= ", country = ".($this->country_id > 0 ? (int) $this->country_id : "null");
851 $sql .= ", state_id = ".($this->state_id > 0 ? (int) $this->state_id : "null");
852 $sql .= ", email = '".$this->db->escape((string) $this->email)."'";
853 $sql .= ", url = ".(!empty($this->url) ? "'".$this->db->escape($this->url)."'" : "null");
854 $sql .= ", socialnetworks = ".($this->socialnetworks ? "'".$this->db->escape(json_encode($this->socialnetworks))."'" : "null");
855 $sql .= ", phone = ".($this->phone ? "'".$this->db->escape($this->phone)."'" : "null");
856 $sql .= ", phone_perso = ".($this->phone_perso ? "'".$this->db->escape($this->phone_perso)."'" : "null");
857 $sql .= ", phone_mobile = ".($this->phone_mobile ? "'".$this->db->escape($this->phone_mobile)."'" : "null");
858 $sql .= ", note_private = ".($this->note_private ? "'".$this->db->escape($this->note_private)."'" : "null");
859 $sql .= ", note_public = ".($this->note_public ? "'".$this->db->escape($this->note_public)."'" : "null");
860 $sql .= ", photo = ".($this->photo ? "'".$this->db->escape($this->photo)."'" : "null");
861 $sql .= ", public = ".(int) $this->public;
862 $sql .= ", statut = ".(int) $this->statut;
863 $sql .= ", default_lang = ".(!empty($this->default_lang) ? "'".$this->db->escape($this->default_lang)."'" : "null");
864 $sql .= ", fk_adherent_type = ".(int) $this->typeid;
865 $sql .= ", morphy = '".$this->db->escape($this->morphy)."'";
866 $sql .= ", birth = ".($this->birth ? "'".$this->db->idate($this->birth)."'" : "null");
867
868 if ($this->datefin) {
869 $sql .= ", datefin = '".$this->db->idate($this->datefin)."'"; // Must be modified only when deleting a subscription
870 }
871 if ($this->datevalid) {
872 $sql .= ", datevalid = '".$this->db->idate($this->datevalid)."'"; // Must be modified only when validating a member
873 }
874 $sql .= ", fk_user_mod = ".($user->id > 0 ? $user->id : 'null'); // Can be null because member can be create by a guest
875 $sql .= " WHERE rowid = ".((int) $this->id);
876
877 // If we change the type of membership, we set also label of new type..
878 '@phan-var-force Adherent $oldcopy';
879 if (!empty($this->oldcopy) && $this->typeid != $this->oldcopy->typeid) {
880 $sql2 = "SELECT libelle as label";
881 $sql2 .= " FROM ".MAIN_DB_PREFIX."adherent_type";
882 $sql2 .= " WHERE rowid = ".((int) $this->typeid);
883 $resql2 = $this->db->query($sql2);
884 if ($resql2) {
885 while ($obj = $this->db->fetch_object($resql2)) {
886 $this->type = $obj->label;
887 }
888 }
889 }
890
891 dol_syslog(get_class($this)."::update update member", LOG_DEBUG);
892 $resql = $this->db->query($sql);
893 if ($resql) {
894 unset($this->country_code);
895 unset($this->country);
896 unset($this->state_code);
897 unset($this->state);
898
899 $nbrowsaffected += $this->db->affected_rows($resql);
900
901 $action = 'update';
902
903 // Actions on extra fields
904 $result = $this->insertExtraFields();
905 if ($result < 0) {
906 $error++;
907 }
908
909 // Update password
910 if (!$error && $this->pass) {
911 dol_syslog(get_class($this)."::update update password");
912 if ($this->pass != $this->pass_indatabase && $this->pass != $this->pass_indatabase_crypted) {
913 $isencrypted = getDolGlobalString('DATABASE_PWD_ENCRYPTED') ? 1 : 0;
914
915 // If password to set differs from the one found into database
916 $result = $this->setPassword($user, $this->pass, $isencrypted, $notrigger, $nosyncuserpass);
917 if (!$nbrowsaffected) {
918 $nbrowsaffected++;
919 }
920 }
921 }
922
923 // Remove links to user and replace with new one
924 if (!$error) {
925 dol_syslog(get_class($this)."::update update link to user");
926 $sql = "UPDATE ".MAIN_DB_PREFIX."user SET fk_member = NULL WHERE fk_member = ".((int) $this->id);
927 dol_syslog(get_class($this)."::update", LOG_DEBUG);
928 $resql = $this->db->query($sql);
929 if (!$resql) {
930 $this->error = $this->db->error();
931 $this->db->rollback();
932 return -5;
933 }
934 // If there is a user linked to this member
935 if ($this->user_id > 0) {
936 $sql = "UPDATE ".MAIN_DB_PREFIX."user SET fk_member = ".((int) $this->id)." WHERE rowid = ".((int) $this->user_id);
937 dol_syslog(get_class($this)."::update", LOG_DEBUG);
938 $resql = $this->db->query($sql);
939 if (!$resql) {
940 $this->error = $this->db->error();
941 $this->db->rollback();
942 return -5;
943 }
944 }
945 }
946
947 if (!$error && $nbrowsaffected) { // If something has change in main data
948 // Update information on linked user if it is an update
949 if ($this->user_id > 0 && !$nosyncuser) {
950 require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
951
952 dol_syslog(get_class($this)."::update update linked user");
953
954 $luser = new User($this->db);
955 $result = $luser->fetch($this->user_id);
956
957 if ($result >= 0) {
958 // If option ADHERENT_LOGIN_NOT_REQUIRED is on, there is no login of member, so we do not overwrite user login to keep existing one.
959 if (!getDolGlobalString('ADHERENT_LOGIN_NOT_REQUIRED')) {
960 $luser->login = $this->login;
961 }
962
963 $luser->ref = $this->ref;
964 $luser->civility_id = $this->civility_id;
965 $luser->firstname = $this->firstname;
966 $luser->lastname = $this->lastname;
967 $luser->gender = $this->gender;
968 $luser->pass = isset($this->pass) ? $this->pass : '';
969 //$luser->socid=$this->fk_soc; // We do not enable this. This may transform a user into an external user.
970
971 $luser->birth = $this->birth;
972
973 $luser->address = $this->address;
974 $luser->zip = $this->zip;
975 $luser->town = $this->town;
976 $luser->country_id = $this->country_id;
977 $luser->state_id = $this->state_id;
978
979 $luser->email = $this->email;
980 $luser->socialnetworks = $this->socialnetworks;
981 $luser->office_phone = $this->phone;
982 $luser->user_mobile = $this->phone_mobile;
983
984 $luser->lang = $this->default_lang;
985
986 $luser->fk_member = $this->id;
987
988 $result = $luser->update($user, 0, 1, 1); // Use nosync to 1 to avoid cyclic updates
989 if ($result < 0) {
990 $this->error = $luser->error;
991 dol_syslog(get_class($this)."::update ".$this->error, LOG_ERR);
992 $error++;
993 }
994 } else {
995 $this->error = $luser->error;
996 $error++;
997 }
998 }
999
1000 // Update information on linked thirdparty if it is an update
1001 if (!$error && $this->socid > 0 && !$nosyncthirdparty) {
1002 require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
1003
1004 dol_syslog(get_class($this)."::update update linked thirdparty");
1005
1006 // This member is linked with a thirdparty, so we also update thirdparty information
1007 // if this is an update.
1008 $lthirdparty = new Societe($this->db);
1009 $result = $lthirdparty->fetch($this->socid);
1010
1011 if ($result > 0) {
1012 $lthirdparty->address = $this->address;
1013 $lthirdparty->zip = $this->zip;
1014 $lthirdparty->town = $this->town;
1015 $lthirdparty->email = $this->email;
1016 $lthirdparty->socialnetworks = $this->socialnetworks;
1017 $lthirdparty->phone = $this->phone;
1018 $lthirdparty->state_id = $this->state_id;
1019 $lthirdparty->country_id = $this->country_id;
1020 //$lthirdparty->phone_mobile=$this->phone_mobile;
1021 $lthirdparty->default_lang = $this->default_lang;
1022
1023 $result = $lthirdparty->update($this->socid, $user, 0, 1, 1, 'update'); // Use sync to 0 to avoid cyclic updates
1024
1025 if ($result < 0) {
1026 $this->error = $lthirdparty->error;
1027 $this->errors = $lthirdparty->errors;
1028 dol_syslog(get_class($this)."::update ".$this->error, LOG_ERR);
1029 $error++;
1030 }
1031 } elseif ($result < 0) {
1032 $this->error = $lthirdparty->error;
1033 $error++;
1034 }
1035 }
1036 }
1037
1038 if (!$error && !$notrigger) {
1039 // Call trigger
1040 $result = $this->call_trigger('MEMBER_MODIFY', $user);
1041 if ($result < 0) {
1042 $error++;
1043 }
1044 // End call triggers
1045 }
1046
1047 if (!$error) {
1048 $this->db->commit();
1049 return $nbrowsaffected;
1050 } else {
1051 $this->db->rollback();
1052 return -1;
1053 }
1054 } else {
1055 $this->db->rollback();
1056 $this->error = $this->db->lasterror();
1057 return -2;
1058 }
1059 }
1060
1061
1062 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1070 public function update_end_date($user)
1071 {
1072 // phpcs:enable
1073 $this->db->begin();
1074
1075 // Search for last subscription id and end date
1076 $sql = "SELECT rowid, datec as dateop, dateadh as datedeb, datef as datefin";
1077 $sql .= " FROM ".MAIN_DB_PREFIX."subscription";
1078 $sql .= " WHERE fk_adherent = ".((int) $this->id);
1079 $sql .= " ORDER by dateadh DESC"; // Sort by start subscription date
1080
1081 dol_syslog(get_class($this)."::update_end_date", LOG_DEBUG);
1082 $resql = $this->db->query($sql);
1083 if ($resql) {
1084 $obj = $this->db->fetch_object($resql);
1085 $dateop = $this->db->jdate($obj->dateop);
1086 $datedeb = $this->db->jdate($obj->datedeb);
1087 $datefin = $this->db->jdate($obj->datefin);
1088
1089 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent SET";
1090 $sql .= " datefin=".($datefin != '' ? "'".$this->db->idate($datefin)."'" : "null");
1091 $sql .= " WHERE rowid = ".((int) $this->id);
1092
1093 dol_syslog(get_class($this)."::update_end_date", LOG_DEBUG);
1094 $resql = $this->db->query($sql);
1095 if ($resql) {
1096 $this->last_subscription_date = $dateop;
1097 $this->last_subscription_date_start = $datedeb;
1098 $this->last_subscription_date_end = $datefin;
1099 $this->datefin = $datefin;
1100 $this->db->commit();
1101 return 1;
1102 } else {
1103 $this->db->rollback();
1104 return -1;
1105 }
1106 } else {
1107 $this->error = $this->db->lasterror();
1108 $this->db->rollback();
1109 return -1;
1110 }
1111 }
1112
1120 public function delete($user, $notrigger = 0)
1121 {
1122 $result = 0;
1123 $error = 0;
1124 $errorflag = 0;
1125
1126 // Check parameters
1127 $rowid = $this->id;
1128
1129 $this->db->begin();
1130
1131 if (!$notrigger) {
1132 // Call trigger
1133 $result = $this->call_trigger('MEMBER_DELETE', $user);
1134 if ($result < 0) {
1135 $error++;
1136 }
1137 // End call triggers
1138 }
1139
1140 // Remove category
1141 $sql = "DELETE FROM ".MAIN_DB_PREFIX."categorie_member WHERE fk_member = ".((int) $rowid);
1142 dol_syslog(get_class($this)."::delete", LOG_DEBUG);
1143 $resql = $this->db->query($sql);
1144 if (!$resql) {
1145 $error++;
1146 $this->error .= $this->db->lasterror();
1147 $errorflag = -1;
1148 }
1149
1150 // Remove subscription
1151 if (!$error) {
1152 $sql = "DELETE FROM ".MAIN_DB_PREFIX."subscription WHERE fk_adherent = ".((int) $rowid);
1153 dol_syslog(get_class($this)."::delete", LOG_DEBUG);
1154 $resql = $this->db->query($sql);
1155 if (!$resql) {
1156 $error++;
1157 $this->error .= $this->db->lasterror();
1158 $errorflag = -2;
1159 }
1160 }
1161
1162 // Remove linked user
1163 if (!$error) {
1164 $ret = $this->setUserId(0);
1165 if ($ret < 0) {
1166 $error++;
1167 $this->error .= $this->db->lasterror();
1168 $errorflag = -3;
1169 }
1170 }
1171
1172 // Removed extrafields
1173 if (!$error) {
1174 $result = $this->deleteExtraFields();
1175 if ($result < 0) {
1176 $error++;
1177 $errorflag = -4;
1178 dol_syslog(get_class($this)."::delete erreur ".$errorflag." ".$this->error, LOG_ERR);
1179 }
1180 }
1181
1182 // Remove adherent
1183 if (!$error) {
1184 $sql = "DELETE FROM ".MAIN_DB_PREFIX."adherent WHERE rowid = ".((int) $rowid);
1185 dol_syslog(get_class($this)."::delete", LOG_DEBUG);
1186 $resql = $this->db->query($sql);
1187 if (!$resql) {
1188 $error++;
1189 $this->error .= $this->db->lasterror();
1190 $errorflag = -5;
1191 }
1192 }
1193
1194 if (!$error) {
1195 $this->db->commit();
1196 return 1;
1197 } else {
1198 $this->db->rollback();
1199 return $errorflag;
1200 }
1201 }
1202
1213 public function mergeMembers($member_origin_id)
1214 {
1215 global $conf, $langs, $hookmanager, $user, $action;
1216
1217 $error = 0;
1218 $member_origin = new Adherent($this->db); // The member that we will delete
1219
1220 dol_syslog("mergeMembers merge member id=".$member_origin_id." (will be deleted) into the member id=".$this->id);
1221 if ($member_origin->fetch($member_origin_id) < 1) {
1222 $this->error = $langs->trans('ErrorRecordNotFound');
1223 $error++;
1224 }
1225
1226 if (!$error) {
1227 $this->db->begin();
1228 $listofproperties = array(
1229 'ref_ext', 'civility', 'lastname', 'firstname', 'morphy', 'societe', 'socid', 'user_id','address',
1230 'zip', 'town', 'state_id', 'country', 'phone', 'phone_perso', 'phone_mobile', 'email',
1231 'url', 'socialnetworks', 'birth', 'gender', 'photo', 'public', 'datefin', 'default_lang',
1232 'canvas', 'model_pdf', 'import_key'
1233 );
1234 foreach ($listofproperties as $property) {
1235 if (empty($this->$property)) {
1236 $this->$property = $member_origin->$property;
1237 }
1238 }
1239
1240 // Concat some data
1241 $listofproperties = array(
1242 'note_public', 'note_private'
1243 );
1244 foreach ($listofproperties as $property) {
1245 $this->$property = dol_concatdesc($this->$property, $member_origin->$property);
1246 }
1247
1248 // Merge extrafields
1249 if (is_array($member_origin->array_options)) {
1250 foreach ($member_origin->array_options as $key => $val) {
1251 if (empty($this->array_options[$key])) {
1252 $this->array_options[$key] = $val;
1253 }
1254 }
1255 }
1256
1257 // Merge categories
1258 include_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
1259 $static_cat = new Categorie($this->db);
1260 $custcats_ori = $static_cat->containing($member_origin->id, 'member', 'id');
1261 $custcats = $static_cat->containing($this->id, 'member', 'id');
1262 $custcats = array_merge($custcats, $custcats_ori);
1263 $this->setCategories($custcats);
1264
1265 $result = $this->update($user, 1, 1, 1, 1, 'merge');
1266 if ($result < 0) {
1267 $error++;
1268 }
1269
1270 // Merge subscriptions
1271 if (!$error && $member_origin->fetch_subscriptions() < 1) {
1272 $error++;
1273 }
1274
1275 if (!$error) {
1276 foreach ($member_origin->subscriptions as $key => $subscription) {
1277 $subscription->fk_adherent = $this->id;
1278 $result = $subscription->update($user);
1279 if ($result < 0) {
1280 $error++;
1281 break;
1282 }
1283 }
1284 }
1285
1286 // External modules should update their ones too
1287 if (!$error) {
1288 $parameters = array('member_origin' => $member_origin->id, 'member_dest' => $this->id);
1289 $reshook = $hookmanager->executeHooks('replaceMember', $parameters, $this, $action);
1290
1291 if ($reshook < 0) {
1292 $this->setErrorsFromObject($hookmanager);
1293 $error++;
1294 }
1295 }
1296
1297 if (!$error) {
1298 $this->context = array('merge' => 1, 'mergefromid' => $member_origin->id);
1299
1300 // Call trigger
1301 $result = $this->call_trigger('MEMBER_MODIFY', $user);
1302 if ($result < 0) {
1303 $error++;
1304 }
1305 // End call triggers
1306 }
1307
1308 if (!$error) {
1309 // We finally remove the old member
1310 if ($member_origin->delete($user) < 1) {
1311 $this->setErrorsFromObject($member_origin);
1312 $error++;
1313 }
1314 }
1315
1316 if (!$error) {
1317 // Move files from the dir of the third party to delete into the dir of the third party to keep
1318 if (!empty($conf->adherent->multidir_output[$this->entity])) {
1319 $srcdir = $conf->adherent->multidir_output[$this->entity]."/".$member_origin->id;
1320 $destdir = $conf->adherent->multidir_output[$this->entity]."/".$this->id;
1321
1322 if (dol_is_dir($srcdir)) {
1323 $dirlist = dol_dir_list($srcdir, 'files', 1);
1324 foreach ($dirlist as $filetomove) {
1325 $destfile = $destdir.'/'.$filetomove['relativename'];
1326 $result = dol_move($filetomove['fullname'], $destfile, '0', 0, 0, 1);
1327 if (!$result) {
1328 $error++;
1329 }
1330 }
1331 }
1332 }
1333 }
1334
1335 if (!$error) {
1336 $this->db->commit();
1337 return 0;
1338 } else {
1339 $langs->load("errors");
1340 $this->error = $langs->trans('ErrorMembersMerge');
1341 $this->db->rollback();
1342 return -1;
1343 }
1344 }
1345 return -1;
1346 }
1347
1358 public function setPassword($user, $password = '', $isencrypted = 0, $notrigger = 0, $nosyncuser = 0)
1359 {
1360 global $conf, $langs;
1361
1362 $error = 0;
1363
1364 dol_syslog(get_class($this)."::setPassword user=".$user->id." password=".preg_replace('/./i', '*', $password)." isencrypted=".$isencrypted);
1365
1366 // If new password not provided, we generate one
1367 if (!$password) {
1368 require_once DOL_DOCUMENT_ROOT.'/core/lib/security2.lib.php';
1369 $password = getRandomPassword(false);
1370 }
1371
1372 // Crypt password
1373 $password_crypted = dol_hash($password);
1374
1375 $password_indatabase = '';
1376 if (!$isencrypted) {
1377 $password_indatabase = $password;
1378 }
1379
1380 $this->db->begin();
1381
1382 // Mise a jour
1383 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent";
1384 $sql .= " SET pass_crypted = '".$this->db->escape($password_crypted)."'";
1385 if ($isencrypted) {
1386 $sql .= ", pass = null";
1387 } else {
1388 $sql .= ", pass = '".$this->db->escape($password_indatabase)."'";
1389 }
1390 $sql .= " WHERE rowid = ".((int) $this->id);
1391
1392 //dol_syslog("Adherent::Password sql=hidden");
1393 dol_syslog(get_class($this)."::setPassword", LOG_DEBUG);
1394 $result = $this->db->query($sql);
1395 if ($result) {
1396 $nbaffectedrows = $this->db->affected_rows($result);
1397
1398 if ($nbaffectedrows) {
1399 $this->pass = $password;
1400 $this->pass_indatabase = $password_indatabase;
1401 $this->pass_indatabase_crypted = $password_crypted;
1402
1403 if ($this->user_id && !$nosyncuser) {
1404 require_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
1405
1406 // This member is linked with a user, so we also update users information
1407 // if this is an update.
1408 $luser = new User($this->db);
1409 $result = $luser->fetch($this->user_id);
1410
1411 if ($result >= 0) {
1412 $result = $luser->setPassword($user, $this->pass, 0, 0, 1);
1413 if (is_int($result) && $result < 0) {
1414 $this->error = $luser->error;
1415 dol_syslog(get_class($this)."::setPassword ".$this->error, LOG_ERR);
1416 $error++;
1417 }
1418 } else {
1419 $this->error = $luser->error;
1420 $error++;
1421 }
1422 }
1423
1424 if (!$error && !$notrigger) {
1425 // Call trigger
1426 $result = $this->call_trigger('MEMBER_NEW_PASSWORD', $user);
1427 if ($result < 0) {
1428 $error++;
1429 $this->db->rollback();
1430 return -1;
1431 }
1432 // End call triggers
1433 }
1434
1435 $this->db->commit();
1436 return $this->pass;
1437 } else {
1438 $this->db->rollback();
1439 return 0;
1440 }
1441 } else {
1442 $this->db->rollback();
1443 dol_print_error($this->db);
1444 return -1;
1445 }
1446 }
1447
1448
1455 public function setUserId($userid)
1456 {
1457 global $conf, $langs;
1458
1459 $this->db->begin();
1460
1461 // If user is linked to this member, remove old link to this member
1462 $sql = "UPDATE ".MAIN_DB_PREFIX."user SET fk_member = NULL WHERE fk_member = ".((int) $this->id);
1463 dol_syslog(get_class($this)."::setUserId", LOG_DEBUG);
1464 $resql = $this->db->query($sql);
1465 if (!$resql) {
1466 $this->error = $this->db->error();
1467 $this->db->rollback();
1468 return -1;
1469 }
1470
1471 // Set link to user
1472 if ($userid > 0) {
1473 $sql = "UPDATE ".MAIN_DB_PREFIX."user SET fk_member = ".((int) $this->id);
1474 $sql .= " WHERE rowid = ".((int) $userid);
1475 dol_syslog(get_class($this)."::setUserId", LOG_DEBUG);
1476 $resql = $this->db->query($sql);
1477 if (!$resql) {
1478 $this->error = $this->db->error();
1479 $this->db->rollback();
1480 return -2;
1481 }
1482 }
1483
1484 $this->db->commit();
1485
1486 return 1;
1487 }
1488
1489
1496 public function setThirdPartyId($thirdpartyid)
1497 {
1498 global $conf, $langs;
1499
1500 $this->db->begin();
1501
1502 // Remove link to third party onto any other members
1503 if ($thirdpartyid > 0) {
1504 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent SET fk_soc = null";
1505 $sql .= " WHERE fk_soc = ".((int) $thirdpartyid);
1506 $sql .= " AND entity = ".$conf->entity;
1507 dol_syslog(get_class($this)."::setThirdPartyId", LOG_DEBUG);
1508 $resql = $this->db->query($sql);
1509 }
1510
1511 // Add link to third party for current member
1512 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent SET fk_soc = ".($thirdpartyid > 0 ? (int) $thirdpartyid : 'null');
1513 $sql .= " WHERE rowid = ".((int) $this->id);
1514
1515 dol_syslog(get_class($this)."::setThirdPartyId", LOG_DEBUG);
1516 $resql = $this->db->query($sql);
1517 if ($resql) {
1518 $this->db->commit();
1519 return 1;
1520 } else {
1521 $this->error = $this->db->error();
1522 $this->db->rollback();
1523 return -1;
1524 }
1525 }
1526
1527
1528 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1535 public function fetch_login($login)
1536 {
1537 // phpcs:enable
1538 global $conf;
1539
1540 $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."adherent";
1541 $sql .= " WHERE login='".$this->db->escape($login)."'";
1542 $sql .= " AND entity = ".$conf->entity;
1543
1544 $resql = $this->db->query($sql);
1545 if ($resql) {
1546 if ($this->db->num_rows($resql)) {
1547 $obj = $this->db->fetch_object($resql);
1548 $this->fetch($obj->rowid);
1549 }
1550 } else {
1551 dol_print_error($this->db);
1552 }
1553 }
1554
1555 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1563 public function fetch_name($firstname, $lastname)
1564 {
1565 // phpcs:enable
1566 global $conf;
1567
1568 $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."adherent";
1569 $sql .= " WHERE firstname='".$this->db->escape($firstname)."'";
1570 $sql .= " AND lastname='".$this->db->escape($lastname)."'";
1571 $sql .= " AND entity = ".$conf->entity;
1572
1573 $resql = $this->db->query($sql);
1574 if ($resql) {
1575 if ($this->db->num_rows($resql)) {
1576 $obj = $this->db->fetch_object($resql);
1577 $this->fetch($obj->rowid);
1578 }
1579 } else {
1580 dol_print_error($this->db);
1581 }
1582 }
1583
1595 public function fetch($rowid, $ref = '', $socid = 0, $ref_ext = '', $fetch_optionals = true, $fetch_subscriptions = true)
1596 {
1597 global $langs;
1598
1599 $sql = "SELECT d.rowid, d.ref, d.ref_ext, d.civility as civility_code, d.gender, d.firstname, d.lastname,";
1600 $sql .= " d.societe as company, d.fk_soc as socid, d.statut, d.public, d.address, d.zip, d.town, d.note_private,";
1601 $sql .= " d.note_public,";
1602 $sql .= " d.email, d.url, d.socialnetworks, d.phone, d.phone_perso, d.phone_mobile, d.login, d.pass, d.pass_crypted,";
1603 $sql .= " d.photo, d.fk_adherent_type, d.morphy, d.entity,";
1604 $sql .= " d.datec as datec,";
1605 $sql .= " GREATEST(d.tms, aef.tms) as datem,";
1606 $sql .= " d.datefin as datefin, d.default_lang,";
1607 $sql .= " d.birth as birthday,";
1608 $sql .= " d.datevalid as datev,";
1609 $sql .= " d.country,";
1610 $sql .= " d.state_id,";
1611 $sql .= " d.model_pdf,";
1612 $sql .= " c.rowid as country_id, c.code as country_code, c.label as country,";
1613 $sql .= " dep.nom as state, dep.code_departement as state_code,";
1614 $sql .= " t.libelle as type, t.subscription as subscription,";
1615 $sql .= " u.rowid as user_id, u.login as user_login";
1616 $sql .= " FROM ".MAIN_DB_PREFIX."adherent_type as t, ".MAIN_DB_PREFIX."adherent as d";
1617 $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'adherent_extrafields as aef ON aef.fk_object = d.rowid';
1618 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_country as c ON d.country = c.rowid";
1619 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_departements as dep ON d.state_id = dep.rowid";
1620 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."user as u ON d.rowid = u.fk_member";
1621 $sql .= " WHERE d.fk_adherent_type = t.rowid";
1622 if ($rowid) {
1623 $sql .= " AND d.rowid=".((int) $rowid);
1624 } elseif ($ref || $socid) {
1625 $sql .= " AND d.entity IN (".getEntity('adherent').")";
1626 if ($ref) {
1627 $sql .= " AND d.ref='".$this->db->escape($ref)."'";
1628 } elseif ($socid > 0) {
1629 $sql .= " AND d.fk_soc=".((int) $socid);
1630 }
1631 } elseif ($ref_ext) {
1632 $sql .= " AND d.ref_ext='".$this->db->escape($ref_ext)."'";
1633 }
1634
1635 dol_syslog(get_class($this)."::fetch", LOG_DEBUG);
1636 $resql = $this->db->query($sql);
1637 if ($resql) {
1638 if ($this->db->num_rows($resql)) {
1639 $obj = $this->db->fetch_object($resql);
1640
1641 $this->entity = $obj->entity;
1642 $this->id = $obj->rowid;
1643 $this->ref = $obj->ref;
1644 $this->ref_ext = $obj->ref_ext;
1645
1646 $this->civility_id = $obj->civility_code; // Bad. Kept for backward compatibility
1647 $this->civility_code = $obj->civility_code;
1648 $this->civility = $obj->civility_code ? ($langs->trans("Civility".$obj->civility_code) != "Civility".$obj->civility_code ? $langs->trans("Civility".$obj->civility_code) : $obj->civility_code) : '';
1649
1650 $this->firstname = $obj->firstname;
1651 $this->lastname = $obj->lastname;
1652 $this->gender = $obj->gender;
1653 $this->login = $obj->login;
1654 $this->societe = $obj->company;
1655 $this->company = $obj->company;
1656 $this->socid = $obj->socid;
1657 $this->fk_soc = $obj->socid; // For backward compatibility
1658 $this->address = $obj->address;
1659 $this->zip = $obj->zip;
1660 $this->town = $obj->town;
1661
1662 $this->pass = $obj->pass;
1663 $this->pass_indatabase = $obj->pass;
1664 $this->pass_indatabase_crypted = $obj->pass_crypted;
1665
1666 $this->state_id = $obj->state_id;
1667 $this->state_code = $obj->state_id ? $obj->state_code : '';
1668 $this->state = $obj->state_id ? $obj->state : '';
1669
1670 $this->country_id = $obj->country_id;
1671 $this->country_code = $obj->country_code;
1672 if ($langs->trans("Country".$obj->country_code) != "Country".$obj->country_code) {
1673 $this->country = $langs->transnoentitiesnoconv("Country".$obj->country_code);
1674 } else {
1675 $this->country = $obj->country;
1676 }
1677
1678 $this->phone = $obj->phone;
1679 $this->phone_perso = $obj->phone_perso;
1680 $this->phone_mobile = $obj->phone_mobile;
1681 $this->email = $obj->email;
1682 $this->url = $obj->url;
1683
1684 $this->socialnetworks = ($obj->socialnetworks ? (array) json_decode($obj->socialnetworks, true) : array());
1685
1686 $this->photo = $obj->photo;
1687 $this->statut = $obj->statut;
1688 $this->status = $obj->statut;
1689 $this->public = $obj->public;
1690
1691 $this->datec = $this->db->jdate($obj->datec);
1692 $this->date_creation = $this->db->jdate($obj->datec);
1693 $this->datem = $this->db->jdate($obj->datem);
1694 $this->date_modification = $this->db->jdate($obj->datem);
1695 $this->datefin = $this->db->jdate($obj->datefin);
1696 $this->datevalid = $this->db->jdate($obj->datev);
1697 $this->date_validation = $this->db->jdate($obj->datev);
1698 $this->birth = $this->db->jdate($obj->birthday);
1699
1700 $this->default_lang = $obj->default_lang;
1701
1702 $this->note_private = $obj->note_private;
1703 $this->note_public = $obj->note_public;
1704 $this->morphy = $obj->morphy;
1705
1706 $this->typeid = $obj->fk_adherent_type;
1707 $this->type = $obj->type;
1708 $this->need_subscription = $obj->subscription;
1709
1710 $this->user_id = $obj->user_id;
1711 $this->user_login = $obj->user_login;
1712
1713 $this->model_pdf = $obj->model_pdf;
1714
1715 // Retrieve all extrafield
1716 // fetch optionals attributes and labels
1717 if ($fetch_optionals) {
1718 $this->fetch_optionals();
1719 }
1720
1721 // Load other properties
1722 if ($fetch_subscriptions) {
1723 $result = $this->fetch_subscriptions();
1724 }
1725
1726 return $this->id;
1727 } else {
1728 return 0;
1729 }
1730 } else {
1731 $this->error = $this->db->lasterror();
1732 return -1;
1733 }
1734 }
1735
1736
1737 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1746 public function fetch_subscriptions()
1747 {
1748 // phpcs:enable
1749 require_once DOL_DOCUMENT_ROOT.'/adherents/class/subscription.class.php';
1750
1751 $sql = "SELECT c.rowid, c.fk_adherent, c.fk_type, c.subscription, c.note as note_public, c.fk_bank,";
1752 $sql .= " c.tms as datem,";
1753 $sql .= " c.datec as datec,";
1754 $sql .= " c.dateadh as dateh,";
1755 $sql .= " c.datef as datef";
1756 $sql .= " FROM ".MAIN_DB_PREFIX."subscription as c";
1757 $sql .= " WHERE c.fk_adherent = ".((int) $this->id);
1758 $sql .= " ORDER BY c.dateadh";
1759 dol_syslog(get_class($this)."::fetch_subscriptions", LOG_DEBUG);
1760
1761 $resql = $this->db->query($sql);
1762 if ($resql) {
1763 $this->subscriptions = array();
1764
1765 $i = 0;
1766 while ($obj = $this->db->fetch_object($resql)) {
1767 if ($i == 0) {
1768 $this->first_subscription_date = $this->db->jdate($obj->datec);
1769 $this->first_subscription_date_start = $this->db->jdate($obj->dateh);
1770 $this->first_subscription_date_end = $this->db->jdate($obj->datef);
1771 $this->first_subscription_amount = $obj->subscription;
1772 }
1773 $this->last_subscription_date = $this->db->jdate($obj->datec);
1774 $this->last_subscription_date_start = $this->db->jdate($obj->dateh);
1775 $this->last_subscription_date_end = $this->db->jdate($obj->datef);
1776 $this->last_subscription_amount = (float) $obj->subscription;
1777
1778 $subscription = new Subscription($this->db);
1779 $subscription->id = $obj->rowid;
1780 $subscription->fk_adherent = $obj->fk_adherent;
1781 $subscription->fk_type = $obj->fk_type;
1782 $subscription->amount = (float) $obj->subscription;
1783 $subscription->note = $obj->note_public;
1784 $subscription->note_public = $obj->note_public;
1785 $subscription->fk_bank = $obj->fk_bank;
1786 $subscription->datem = $this->db->jdate($obj->datem);
1787 $subscription->datec = $this->db->jdate($obj->datec);
1788 $subscription->dateh = $this->db->jdate($obj->dateh);
1789 $subscription->datef = $this->db->jdate($obj->datef);
1790
1791 $this->subscriptions[] = $subscription;
1792
1793 $i++;
1794 }
1795 return 1;
1796 } else {
1797 $this->error = $this->db->error().' sql='.$sql;
1798 return -1;
1799 }
1800 }
1801
1802
1809 public function fetchPartnerships($mode)
1810 {
1811 require_once DOL_DOCUMENT_ROOT.'/partnership/class/partnership.class.php';
1812
1813
1814 $this->partnerships[] = array();
1815
1816 return 1;
1817 }
1818
1819
1836 public function subscription($date, $amount, $accountid = 0, $operation = '', $label = '', $num_chq = '', $emetteur_nom = '', $emetteur_banque = '', $datesubend = 0, $fk_type = null, $ref_ext = '')
1837 {
1838 global $user;
1839
1840 require_once DOL_DOCUMENT_ROOT.'/adherents/class/subscription.class.php';
1841
1842 $error = 0;
1843
1844 // Clean parameters
1845 if (!$amount) {
1846 $amount = 0;
1847 }
1848
1849 $this->db->begin();
1850
1851 if ($datesubend) {
1852 $datefin = $datesubend;
1853 } else {
1854 // If no end date, end date = date + 1 year - 1 day
1855 $datefin = dol_time_plus_duree($date, 1, 'y');
1856 $datefin = dol_time_plus_duree($datefin, -1, 'd');
1857 }
1858
1859 // Create subscription
1860 $subscription = new Subscription($this->db);
1861 $subscription->fk_adherent = $this->id;
1862 $subscription->dateh = $date; // Date of new subscription
1863 $subscription->datef = $datefin; // End data of new subscription
1864 $subscription->amount = $amount;
1865 $subscription->note_public = $label;
1866 $subscription->note_private = '';
1867 $subscription->fk_type = $fk_type;
1868 $subscription->ref_ext = $ref_ext;
1869
1870 if (empty($subscription->user_creation_id)) {
1871 $subscription->user_creation_id = $user->id;
1872 }
1873
1874 $rowid = $subscription->create($user);
1875 if ($rowid > 0) {
1876 // Update denormalized subscription end date (read database subscription to find values)
1877 // This will also update this->datefin
1878 $result = $this->update_end_date($user);
1879 if ($result > 0) {
1880 // Change properties of object (used by triggers)
1881 $this->last_subscription_date = dol_now();
1882 $this->last_subscription_date_start = $date;
1883 $this->last_subscription_date_end = $datefin;
1884 $this->last_subscription_amount = $amount;
1885 } else {
1886 $error++;
1887 }
1888
1889 if (!$error) {
1890 $this->db->commit();
1891 return $rowid;
1892 } else {
1893 $this->db->rollback();
1894 return -2;
1895 }
1896 } else {
1897 $this->setErrorsFromObject($subscription);
1898 $this->db->rollback();
1899 return -1;
1900 }
1901 }
1902
1903
1923 public function subscriptionComplementaryActions($subscriptionid, $option, $accountid, $datesubscription, $paymentdate, $operation, $label, $amount, $num_chq, $emetteur_nom = '', $emetteur_banque = '', $autocreatethirdparty = 0, $ext_payment_id = '', $ext_payment_site = '')
1924 {
1925 global $conf, $langs, $user, $mysoc;
1926
1927 $error = 0;
1928
1929 $this->invoice = null; // This will contains invoice if an invoice is created
1930
1931 dol_syslog("subscriptionComplementaryActions subscriptionid=".$subscriptionid." option=".$option." accountid=".$accountid." datesubscription=".$datesubscription." paymentdate=".
1932 $paymentdate." label=".$label." amount=".$amount." num_chq=".$num_chq." autocreatethirdparty=".$autocreatethirdparty);
1933
1934 // Insert into bank account directlty (if option chosen for) + link to llx_subscription if option is 'bankdirect'
1935 if ($option == 'bankdirect' && $accountid) {
1936 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
1937
1938 $acct = new Account($this->db);
1939 $result = $acct->fetch($accountid);
1940
1941 $dateop = $paymentdate;
1942
1943 $insertid = $acct->addline($dateop, $operation, $label, $amount, $num_chq, 0, $user, $emetteur_nom, $emetteur_banque);
1944 if ($insertid > 0) {
1945 $inserturlid = $acct->add_url_line($insertid, $this->id, DOL_URL_ROOT.'/adherents/card.php?rowid=', $this->getFullName($langs), 'member');
1946 if ($inserturlid > 0) {
1947 // Update table subscription
1948 $sql = "UPDATE ".MAIN_DB_PREFIX."subscription SET fk_bank=".((int) $insertid);
1949 $sql .= " WHERE rowid=".((int) $subscriptionid);
1950
1951 dol_syslog("subscription::subscription", LOG_DEBUG);
1952 $resql = $this->db->query($sql);
1953 if (!$resql) {
1954 $error++;
1955 $this->error = $this->db->lasterror();
1956 $this->errors[] = $this->error;
1957 }
1958 } else {
1959 $error++;
1960 $this->setErrorsFromObject($acct);
1961 }
1962 } else {
1963 $error++;
1964 $this->setErrorsFromObject($acct);
1965 }
1966 }
1967
1968 // If option chosen, we create invoice
1969 if (($option == 'bankviainvoice' && $accountid) || $option == 'invoiceonly') {
1970 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
1971 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/paymentterm.class.php';
1972
1973 $invoice = new Facture($this->db);
1974 $customer = new Societe($this->db);
1975
1976 if (!$error) {
1977 if (!($this->socid > 0)) { // If not yet linked to a company
1978 if ($autocreatethirdparty) {
1979 // Create a linked thirdparty to member
1980 $companyalias = '';
1981 $fullname = $this->getFullName($langs);
1982
1983 if ($this->morphy == 'mor') {
1984 $companyname = $this->company;
1985 if (!empty($fullname)) {
1986 $companyalias = $fullname;
1987 }
1988 } else {
1989 $companyname = $fullname;
1990 if (!empty($this->company)) {
1991 $companyalias = $this->company;
1992 }
1993 }
1994
1995 $result = $customer->create_from_member($this, (string) $companyname, $companyalias);
1996 if ($result < 0) {
1997 $this->error = $customer->error;
1998 $this->errors = $customer->errors;
1999 $error++;
2000 } else {
2001 $this->fk_soc = $result;
2002 $this->socid = $result;
2003 }
2004 } else {
2005 $langs->load("errors");
2006 $this->error = $langs->trans("ErrorMemberNotLinkedToAThirpartyLinkOrCreateFirst");
2007 $this->errors[] = $this->error;
2008 $error++;
2009 }
2010 }
2011 }
2012 if (!$error) {
2013 $result = $customer->fetch($this->socid);
2014 if ($result <= 0) {
2015 $this->error = $customer->error;
2016 $this->errors = $customer->errors;
2017 $error++;
2018 }
2019 }
2020
2021 if (!$error) {
2022 // Create draft invoice
2023 $invoice->type = Facture::TYPE_STANDARD;
2024 $invoice->cond_reglement_id = $customer->cond_reglement_id;
2025 if (empty($invoice->cond_reglement_id)) {
2026 $paymenttermstatic = new PaymentTerm($this->db);
2027 $invoice->cond_reglement_id = $paymenttermstatic->getDefaultId();
2028 if (empty($invoice->cond_reglement_id)) {
2029 $error++;
2030 $this->error = 'ErrorNoPaymentTermRECEPFound';
2031 $this->errors[] = $this->error;
2032 }
2033 }
2034 $invoice->socid = $this->socid;
2035 // set customer's payment bank account on the invoice
2036 if (!empty($customer->fk_account)) {
2037 $invoice->fk_account = $customer->fk_account;
2038 } elseif (getDolGlobalString('FACTURE_RIB_NUMBER')) {
2039 // set default bank account from invoice module settings
2040 $invoice->fk_account = (int) getDolGlobalString('FACTURE_RIB_NUMBER');
2041 }
2042 //set customer's payment method on the invoice
2043 if (!empty($customer->mode_reglement_id)) {
2044 $invoice->mode_reglement_id = $customer->mode_reglement_id;
2045 }
2046 //$invoice->date = $datesubscription;
2047 $invoice->date = dol_now();
2048
2049 // Possibility to add external linked objects with hooks
2050 $invoice->linked_objects['subscription'] = $subscriptionid;
2051 if (GETPOSTISARRAY('other_linked_objects')) {
2052 $invoice->linked_objects = array_merge($invoice->linked_objects, GETPOST('other_linked_objects', 'array:int'));
2053 }
2054
2055 $result = $invoice->create($user);
2056 if ($result <= 0) {
2057 $this->setErrorsFromObject($invoice);
2058 $error++;
2059 } else {
2060 $this->invoice = $invoice;
2061 }
2062 }
2063
2064 if (!$error) {
2065 // Add line to draft invoice
2066 $idprodsubscription = 0;
2067 if (getDolGlobalString('ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS') && (isModEnabled("product") || isModEnabled("service"))) {
2068 $idprodsubscription = getDolGlobalString('ADHERENT_PRODUCT_ID_FOR_SUBSCRIPTIONS');
2069 }
2070
2071 $vattouse = 0;
2072 if (getDolGlobalString('ADHERENT_VAT_FOR_SUBSCRIPTIONS') == 'defaultforfoundationcountry') {
2073 $vattouse = get_default_tva($mysoc, $mysoc, $idprodsubscription);
2074 }
2075 //print xx".$vattouse." - ".$mysoc." - ".$customer;exit;
2076 // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
2077 $result = $invoice->addline($label, 0, 1, $vattouse, 0, 0, $idprodsubscription, 0, $datesubscription, '', 0, 0, 0, 'TTC', $amount, 1);
2078 if ($result <= 0) {
2079 $this->setErrorsFromObject($invoice);
2080 $error++;
2081 }
2082 }
2083
2084 if (!$error) {
2085 // Validate invoice
2086 $result = $invoice->validate($user);
2087 if ($result <= 0) {
2088 $this->setErrorsFromObject($invoice);
2089 $error++;
2090 }
2091 }
2092
2093 if (!$error) {
2094 // TODO Link invoice with subscription ?
2095 }
2096
2097 // Add payment onto invoice
2098 if (!$error && $option == 'bankviainvoice' && $accountid) {
2099 require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
2100 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
2101 require_once DOL_DOCUMENT_ROOT.'/core/lib/functions.lib.php';
2102
2103 $amounts = array();
2104 $amounts[$invoice->id] = (float) price2num($amount);
2105
2106 $paiement = new Paiement($this->db);
2107 $paiement->datepaye = $paymentdate;
2108 $paiement->amounts = $amounts;
2109 $paiement->paiementcode = $operation;
2110 $paiement->paiementid = dol_getIdFromCode($this->db, $operation, 'c_paiement', 'code', 'id', 1);
2111 $paiement->num_payment = $num_chq;
2112 $paiement->note_public = $label;
2113 $paiement->ext_payment_id = $ext_payment_id;
2114 $paiement->ext_payment_site = $ext_payment_site;
2115
2116 // Create payment line for invoice
2117 $paiement_id = $paiement->create($user);
2118 if (!($paiement_id > 0)) {
2119 $this->setErrorsFromObject($paiement);
2120 $error++;
2121 }
2122
2123 if (!$error) {
2124 // Add transaction into bank account
2125 $bank_line_id = $paiement->addPaymentToBank($user, 'payment', '(SubscriptionPayment)', $accountid, $emetteur_nom, $emetteur_banque);
2126 if (!($bank_line_id > 0)) {
2127 $this->setErrorsFromObject($paiement);
2128 $error++;
2129 }
2130 }
2131
2132 if (!$error && !empty($bank_line_id)) {
2133 // Update fk_bank into subscription table
2134 $sql = 'UPDATE '.MAIN_DB_PREFIX.'subscription SET fk_bank='.((int) $bank_line_id);
2135 $sql .= ' WHERE rowid='.((int) $subscriptionid);
2136
2137 $result = $this->db->query($sql);
2138 if (!$result) {
2139 $error++;
2140 }
2141 }
2142
2143 if (!$error) {
2144 // Set invoice as paid
2145 $invoice->setPaid($user);
2146 }
2147 }
2148
2149 if (!$error) {
2150 // Define output language
2151 $outputlangs = $langs;
2152 $newlang = '';
2153 $lang_id = GETPOST('lang_id');
2154 if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && !empty($lang_id)) {
2155 $newlang = $lang_id;
2156 }
2157 if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang)) {
2158 $newlang = $customer->default_lang;
2159 }
2160 if (!empty($newlang)) {
2161 $outputlangs = new Translate("", $conf);
2162 $outputlangs->setDefaultLang($newlang);
2163 }
2164 // Generate PDF (whatever is option MAIN_DISABLE_PDF_AUTOUPDATE) so we can include it into email
2165 //if (!getDolGlobalString('MAIN_DISABLE_PDF_AUTOUPDATE'))
2166
2167 $invoice->fetch($invoice->id); // Reload invoice object data
2168 $invoice->generateDocument($invoice->model_pdf, $outputlangs);
2169 }
2170 }
2171
2172 if ($error) {
2173 return -1;
2174 } else {
2175 return 1;
2176 }
2177 }
2178
2179
2186 public function validate($user)
2187 {
2188 global $langs, $conf;
2189
2190 $error = 0;
2191 $now = dol_now();
2192
2193 // Check parameters
2194 if ($this->statut == self::STATUS_VALIDATED) {
2195 dol_syslog(get_class($this)."::validate statut of member does not allow this", LOG_WARNING);
2196 return 0;
2197 }
2198
2199 $this->db->begin();
2200
2201 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent SET";
2202 $sql .= " statut = ".self::STATUS_VALIDATED;
2203 $sql .= ", datevalid = '".$this->db->idate($now)."'";
2204 $sql .= ", fk_user_valid = ".((int) $user->id);
2205 $sql .= " WHERE rowid = ".((int) $this->id);
2206
2207 dol_syslog(get_class($this)."::validate", LOG_DEBUG);
2208 $result = $this->db->query($sql);
2209 if ($result) {
2210 $this->statut = self::STATUS_VALIDATED;
2211
2212 // Call trigger
2213 $result = $this->call_trigger('MEMBER_VALIDATE', $user);
2214 if ($result < 0) {
2215 $error++;
2216 $this->db->rollback();
2217 return -1;
2218 }
2219 // End call triggers
2220
2221 $this->datevalid = $now;
2222
2223 $this->db->commit();
2224 return 1;
2225 } else {
2226 $this->error = $this->db->error();
2227 $this->db->rollback();
2228 return -1;
2229 }
2230 }
2231
2232
2239 public function resiliate($user)
2240 {
2241 global $langs, $conf;
2242
2243 $error = 0;
2244
2245 // Check parameters
2246 if ($this->statut == self::STATUS_RESILIATED) {
2247 dol_syslog(get_class($this)."::resiliate statut of member does not allow this", LOG_WARNING);
2248 return 0;
2249 }
2250
2251 $this->db->begin();
2252
2253 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent SET";
2254 $sql .= " statut = ".((int) self::STATUS_RESILIATED);
2255 $sql .= ", fk_user_valid = ".((int) $user->id);
2256 $sql .= " WHERE rowid = ".((int) $this->id);
2257
2258 $result = $this->db->query($sql);
2259 if ($result) {
2260 $this->statut = self::STATUS_RESILIATED;
2261
2262 // Call trigger
2263 $result = $this->call_trigger('MEMBER_RESILIATE', $user);
2264 if ($result < 0) {
2265 $error++;
2266 $this->db->rollback();
2267 return -1;
2268 }
2269 // End call triggers
2270
2271 $this->db->commit();
2272 return 1;
2273 } else {
2274 $this->error = $this->db->error();
2275 $this->db->rollback();
2276 return -1;
2277 }
2278 }
2279
2289 public function exclude($user)
2290 {
2291 $error = 0;
2292
2293 // Check parameters
2294 if ($this->statut == self::STATUS_EXCLUDED) {
2295 dol_syslog(get_class($this)."::resiliate statut of member does not allow this", LOG_WARNING);
2296 return 0;
2297 }
2298
2299 $this->db->begin();
2300
2301 $sql = "UPDATE ".MAIN_DB_PREFIX."adherent SET";
2302 $sql .= " statut = ".((int) self::STATUS_EXCLUDED);
2303 $sql .= ", fk_user_valid = ".((int) $user->id);
2304 $sql .= " WHERE rowid = ".((int) $this->id);
2305
2306 $result = $this->db->query($sql);
2307 if ($result) {
2308 $this->statut = self::STATUS_EXCLUDED;
2309
2310 // Call trigger
2311 $result = $this->call_trigger('MEMBER_EXCLUDE', $user);
2312 if ($result < 0) {
2313 $error++;
2314 $this->db->rollback();
2315 return -1;
2316 }
2317 // End call triggers
2318
2319 $this->db->commit();
2320 return 1;
2321 } else {
2322 $this->error = $this->db->error();
2323 $this->db->rollback();
2324 return -1;
2325 }
2326 }
2327
2328 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2334 public function add_to_abo()
2335 {
2336 // phpcs:enable
2337 global $langs;
2338
2339 include_once DOL_DOCUMENT_ROOT.'/mailmanspip/class/mailmanspip.class.php';
2340 $mailmanspip = new MailmanSpip($this->db);
2341
2342 $err = 0;
2343
2344 // mailman
2345 if (getDolGlobalString('ADHERENT_USE_MAILMAN') && isModEnabled('mailmanspip')) {
2346 $result = $mailmanspip->add_to_mailman($this);
2347
2348 if ($result < 0) {
2349 if (!empty($mailmanspip->error)) {
2350 $this->errors[] = $mailmanspip->error;
2351 }
2352 $err += 1;
2353 }
2354 foreach ($mailmanspip->mladded_ko as $tmplist => $tmpemail) {
2355 $langs->load("errors");
2356 $this->errors[] = $langs->trans("ErrorFailedToAddToMailmanList", $tmpemail, $tmplist);
2357 }
2358 foreach ($mailmanspip->mladded_ok as $tmplist => $tmpemail) {
2359 $langs->load("mailmanspip");
2360 $this->mesgs[] = $langs->trans("SuccessToAddToMailmanList", $tmpemail, $tmplist);
2361 }
2362 }
2363
2364 // spip
2365 if (getDolGlobalString('ADHERENT_USE_SPIP') && isModEnabled('mailmanspip')) {
2366 $result = $mailmanspip->add_to_spip($this);
2367 if ($result < 0) {
2368 $this->errors[] = $mailmanspip->error;
2369 $err += 1;
2370 }
2371 }
2372 if ($err) {
2373 return -$err;
2374 } else {
2375 return 1;
2376 }
2377 }
2378
2379
2380 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2386 public function del_to_abo()
2387 {
2388 // phpcs:enable
2389 global $conf, $langs;
2390
2391 include_once DOL_DOCUMENT_ROOT.'/mailmanspip/class/mailmanspip.class.php';
2392 $mailmanspip = new MailmanSpip($this->db);
2393
2394 $err = 0;
2395
2396 // mailman
2397 if (getDolGlobalString('ADHERENT_USE_MAILMAN')) {
2398 $result = $mailmanspip->del_to_mailman($this);
2399 if ($result < 0) {
2400 if (!empty($mailmanspip->error)) {
2401 $this->errors[] = $mailmanspip->error;
2402 }
2403 $err += 1;
2404 }
2405
2406 foreach ($mailmanspip->mlremoved_ko as $tmplist => $tmpemail) {
2407 $langs->load("errors");
2408 $this->errors[] = $langs->trans("ErrorFailedToRemoveToMailmanList", $tmpemail, $tmplist);
2409 }
2410 foreach ($mailmanspip->mlremoved_ok as $tmplist => $tmpemail) {
2411 $langs->load("mailmanspip");
2412 $this->mesgs[] = $langs->trans("SuccessToRemoveToMailmanList", $tmpemail, $tmplist);
2413 }
2414 }
2415
2416 if (getDolGlobalString('ADHERENT_USE_SPIP') && isModEnabled('mailmanspip')) {
2417 $result = $mailmanspip->del_to_spip($this);
2418 if ($result < 0) {
2419 $this->errors[] = $mailmanspip->error;
2420 $err += 1;
2421 }
2422 }
2423 if ($err) {
2424 // error
2425 return -$err;
2426 } else {
2427 return 1;
2428 }
2429 }
2430
2431
2437 public function getCivilityLabel()
2438 {
2439 global $langs;
2440 $langs->load("dict");
2441
2442 $code = (empty($this->civility_id) ? '' : $this->civility_id);
2443 if (empty($code)) {
2444 return '';
2445 }
2446 return $langs->getLabelFromKey($this->db, "Civility".$code, "c_civility", "code", "label", $code);
2447 }
2448
2455 public function getTooltipContentArray($params)
2456 {
2457 global $langs;
2458
2459 $langs->loadLangs(['members', 'companies']);
2460 $nofetch = !empty($params['nofetch']);
2461
2462 $datas = array();
2463
2464 if (getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
2465 $langs->load("users");
2466 return ['optimize' => $langs->trans("ShowUser")];
2467 }
2468 if (!empty($this->photo)) {
2469 $photo = '<div class="photointooltip floatright">';
2470 $photo .= Form::showphoto('memberphoto', $this, 80, 0, 0, 'photoref photowithmargin photologintooltip', 'small', 0, 1);
2471 $photo .= '</div>';
2472 $datas['photo'] = $photo;
2473 }
2474
2475 $datas['divopen'] = '<div class="centpercent">';
2476 $datas['picto'] = img_picto('', $this->picto).' <u class="paddingrightonly">'.$langs->trans("Member").'</u> '.$this->getLibStatut(4);
2477 if (!empty($this->morphy)) {
2478 $datas['picto'] .= '&nbsp;' . $this->getmorphylib('', 1);
2479 }
2480 if (!empty($this->ref)) {
2481 $datas['ref'] = '<br><b>'.$langs->trans('Ref').':</b> '.$this->ref;
2482 }
2483 if (!empty($this->login)) {
2484 $datas['login'] = '<br><b>'.$langs->trans('Login').':</b> '.$this->login;
2485 }
2486 if (!empty($this->firstname) || !empty($this->lastname)) {
2487 $datas['name'] = '<br><b>'.$langs->trans('Name').':</b> '.$this->getFullName($langs);
2488 }
2489 if (!empty($this->company)) {
2490 $datas['company'] = '<br><b>'.$langs->trans('Company').':</b> '.$this->company;
2491 }
2492 if (!empty($this->email)) {
2493 $datas['email'] = '<br><b>'.$langs->trans("EMail").':</b> '.$this->email;
2494 }
2495 $datas['address'] = '<br><b>'.$langs->trans("Address").':</b> '.dol_format_address($this, 1, ' ', $langs);
2496 // show categories for this record only in ajax to not overload lists
2497 if (isModEnabled('category') && !$nofetch) {
2498 require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
2499 $form = new Form($this->db);
2500 $datas['categories'] = '<br>' . $form->showCategories($this->id, Categorie::TYPE_MEMBER, 1);
2501 }
2502 $datas['divclose'] = '</div>';
2503
2504 return $datas;
2505 }
2506
2520 public function getNomUrl($withpictoimg = 0, $maxlen = 0, $option = 'card', $mode = '', $morecss = '', $save_lastsearch_value = -1, $notooltip = 0, $addlinktonotes = 0)
2521 {
2522 global $conf, $langs, $hookmanager;
2523
2524 if (getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER') && $withpictoimg) {
2525 $withpictoimg = 0;
2526 }
2527
2528 $result = '';
2529 $linkstart = '';
2530 $linkend = '';
2531 $classfortooltip = 'classfortooltip';
2532 $dataparams = '';
2533 $params = [
2534 'id' => $this->id,
2535 'objecttype' => $this->element,
2536 'option' => $option,
2537 'nofetch' => 1,
2538 ];
2539 if (getDolGlobalInt('MAIN_ENABLE_AJAX_TOOLTIP')) {
2540 $classfortooltip = 'classforajaxtooltip';
2541 $dataparams = ' data-params="'.dol_escape_htmltag(json_encode($params)).'"';
2542 $label = '';
2543 } else {
2544 $label = implode($this->getTooltipContentArray($params));
2545 }
2546
2547 $baseurl = DOL_URL_ROOT . '/adherents/card.php';
2548 if ($option == 'subscription') {
2549 $baseurl = DOL_URL_ROOT . '/adherents/subscription.php';
2550 }
2551 $query = ['rowid' => $this->id];
2552
2553 if ($option != 'nolink') {
2554 // Add param to save lastsearch_values or not
2555 $add_save_lastsearch_values = ($save_lastsearch_value == 1 ? 1 : 0);
2556 if ($save_lastsearch_value == -1 && isset($_SERVER["PHP_SELF"]) && preg_match('/list\.php/', $_SERVER["PHP_SELF"])) {
2557 $add_save_lastsearch_values = 1;
2558 }
2559 if ($add_save_lastsearch_values) {
2560 $query = array_merge($query, ['save_lastsearch_values' => 1]);
2561 }
2562 }
2563 $url = dolBuildUrl($baseurl, $query);
2564
2565 $linkstart .= '<a href="'.$url.'"';
2566 $linkclose = "";
2567 if (empty($notooltip)) {
2568 if (getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
2569 $langs->load("users");
2570 $label = $langs->trans("ShowUser");
2571 $linkclose .= ' alt="'.dolPrintHTMLForAttribute($label).'"';
2572 }
2573 $linkclose .= ($label ? ' title="'.dolPrintHTMLForAttribute($label).'"' : ' title="tocomplete"');
2574 $linkclose .= $dataparams.' class="'.$classfortooltip.($morecss ? ' '.$morecss : '').'"';
2575 }
2576
2577 $linkstart .= $linkclose.'>';
2578 $linkend = '</a>';
2579
2580 $result .= $linkstart;
2581
2582 if ($withpictoimg) {
2583 if (abs($withpictoimg) == 1 || abs($withpictoimg) == 4) {
2584 $morecss .= ' paddingrightonly';
2585 }
2586 // Only picto
2587 if ($withpictoimg > 0) {
2588 $picto = '<span class="nopadding'.($morecss ? ' userimg'.$morecss : '').'">'.img_object('', 'user', ' '.($notooltip ? '' : $dataparams), 0, 0, $notooltip ? 0 : 1).'</span>';
2589 } else {
2590 // Picto must be a photo
2591 $picto = '<span class="nopadding'.($morecss ? ' userimg'.$morecss : '').'">';
2592 $picto .= Form::showphoto('memberphoto', $this, 0, 0, 0, 'userphoto'.(($withpictoimg == -3 || $withpictoimg == -4) ? 'small' : ''), 'mini', 0, 1);
2593 $picto .= '</span>';
2594 }
2595 $result .= $picto;
2596 }
2597 if (($withpictoimg > -2 && $withpictoimg != 2) || $withpictoimg == -4) {
2598 if (!getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
2599 $result .= '<span class="nopadding valignmiddle'.((!isset($this->status) || $this->status) ? '' : ' strikefordisabled').
2600 ($morecss ? ' usertext'.$morecss : '').'">';
2601 }
2602 if ($mode == 'login') {
2603 $result .= dol_trunc(isset($this->login) ? $this->login : '', $maxlen);
2604 } elseif ($mode == 'ref') {
2605 $result .= $this->ref;
2606 } else {
2607 $result .= $this->getFullName($langs, 0, ($mode == 'firstname' ? 2 : ($mode == 'lastname' ? 4 : -1)), $maxlen);
2608 }
2609 if (!getDolGlobalString('MAIN_OPTIMIZEFORTEXTBROWSER')) {
2610 $result .= '</span>';
2611 }
2612 }
2613
2614 $result .= $linkend;
2615
2616 if ($addlinktonotes) {
2617 if ($this->note_private) {
2618 $notetoshow = $langs->trans("ViewPrivateNote").':<br>'.dol_string_nohtmltag($this->note_private, 1);
2619 $result .= ' <span class="note inline-block">';
2620 $result .= '<a href="'.DOL_URL_ROOT.'/adherents/note.php?id='.$this->id.'" class="classfortooltip" title="'.dol_escape_htmltag($notetoshow).'">';
2621 $result .= img_picto('', 'note');
2622 $result .= '</a>';
2623 $result .= '</span>';
2624 }
2625 }
2626 global $action;
2627 $hookmanager->initHooks(array($this->element . 'dao'));
2628 $parameters = array('id' => $this->id, 'getnomurl' => &$result);
2629 $reshook = $hookmanager->executeHooks('getNomUrl', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
2630 if ($reshook > 0) {
2631 $result = $hookmanager->resPrint;
2632 } else {
2633 $result .= $hookmanager->resPrint;
2634 }
2635 return $result;
2636 }
2637
2644 public function getLibStatut($mode = 0)
2645 {
2646 return $this->LibStatut($this->status, $this->need_subscription, $this->datefin, $mode);
2647 }
2648
2649 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2659 public function LibStatut($status, $need_subscription, $date_end_subscription, $mode = 0)
2660 {
2661 // phpcs:enable
2662 global $langs;
2663 $langs->load("members");
2664
2665 $statusType = '';
2666 $labelStatus = '';
2667 $labelStatusShort = '';
2668
2669 if ($status == self::STATUS_DRAFT) {
2670 $statusType = 'status0';
2671 $labelStatus = $langs->trans("MemberStatusDraft");
2672 $labelStatusShort = $langs->trans("MemberStatusDraftShort");
2673 } elseif ($status >= self::STATUS_VALIDATED) {
2674 if ($need_subscription === 0) {
2675 $statusType = 'status4';
2676 $labelStatus = $langs->trans("Validated").' - '.$langs->trans("MemberStatusNoSubscription");
2677 $labelStatusShort = $langs->trans("MemberStatusNoSubscriptionShort");
2678 } elseif (!$date_end_subscription) {
2679 $statusType = 'status1';
2680 $labelStatus = $langs->trans("Validated").' - '.$langs->trans("WaitingSubscription");
2681 $labelStatusShort = $langs->trans("WaitingSubscriptionShort");
2682 } elseif ($date_end_subscription < dol_now()) { // expired
2683 $statusType = 'status2';
2684 $labelStatus = $langs->trans("Validated").' - '.$langs->trans("MemberStatusActiveLate");
2685 $labelStatusShort = $langs->trans("MemberStatusActiveLateShort");
2686 } else {
2687 $statusType = 'status4';
2688 $labelStatus = $langs->trans("Validated").' - '.$langs->trans("MemberStatusPaid");
2689 $labelStatusShort = $langs->trans("MemberStatusPaidShort");
2690 }
2691 } elseif ($status == self::STATUS_RESILIATED) {
2692 $statusType = 'status6';
2693 $labelStatus = $langs->transnoentitiesnoconv("MemberStatusResiliated");
2694 $labelStatusShort = $langs->transnoentitiesnoconv("MemberStatusResiliatedShort");
2695 } elseif ($status == self::STATUS_EXCLUDED) {
2696 $statusType = 'status10';
2697 $labelStatus = $langs->transnoentitiesnoconv("MemberStatusExcluded");
2698 $labelStatusShort = $langs->transnoentitiesnoconv("MemberStatusExcludedShort");
2699 }
2700
2701 return dolGetStatus($labelStatus, $labelStatusShort, '', $statusType, $mode);
2702 }
2703
2704
2710 public function loadStateBoard()
2711 {
2712 global $conf;
2713
2714 $this->nb = array();
2715
2716 $sql = "SELECT count(a.rowid) as nb";
2717 $sql .= " FROM ".MAIN_DB_PREFIX."adherent as a";
2718 $sql .= " WHERE a.statut > 0";
2719 $sql .= " AND a.entity IN (".getEntity('adherent').")";
2720
2721 $resql = $this->db->query($sql);
2722 if ($resql) {
2723 while ($obj = $this->db->fetch_object($resql)) {
2724 $this->nb["members"] = $obj->nb;
2725 }
2726 $this->db->free($resql);
2727 return 1;
2728 } else {
2729 dol_print_error($this->db);
2730 $this->error = $this->db->error();
2731 return -1;
2732 }
2733 }
2734
2735 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2743 public function load_board($user, $mode)
2744 {
2745 // phpcs:enable
2746 global $conf, $langs;
2747
2748 if ($user->socid) {
2749 return -1; // protection pour eviter appel par utilisateur externe
2750 }
2751
2752 $now = dol_now();
2753
2754 $sql = "SELECT a.rowid, a.datefin, a.statut as status";
2755 $sql .= " FROM ".MAIN_DB_PREFIX."adherent as a";
2756 $sql .= ", ".MAIN_DB_PREFIX."adherent_type as t";
2757 $sql .= " WHERE a.fk_adherent_type = t.rowid";
2758 if ($mode == 'expired') {
2759 $sql .= " AND a.statut = ".self::STATUS_VALIDATED;
2760 $sql .= " AND a.entity IN (".getEntity('adherent').")";
2761 $sql .= " AND ((a.datefin IS NULL or a.datefin < '".$this->db->idate($now)."') AND t.subscription = '1')";
2762 } elseif ($mode == 'shift') {
2763 $sql .= " AND a.statut = ".self::STATUS_DRAFT;
2764 $sql .= " AND a.entity IN (".getEntity('adherent').")";
2765 }
2766
2767 $resql = $this->db->query($sql);
2768 if ($resql) {
2769 $langs->load("members");
2770
2771 $warning_delay = 0;
2772 $url = '';
2773 $label = '';
2774 $labelShort = '';
2775
2776 if ($mode == 'expired') {
2777 $warning_delay = getWarningDelay('member', 'subscription') / 60 / 60 / 24;
2778 $label = $langs->trans("MembersWithSubscriptionToReceive");
2779 $labelShort = $langs->trans("MembersWithSubscriptionToReceiveShort");
2780 $url = dolBuildUrl(DOL_URL_ROOT.'/adherents/list.php', ['mainmenu' => 'members', 'statut' => self::STATUS_VALIDATED, 'filter' => 'outofdate']);
2781 } elseif ($mode == 'shift') {
2782 $warning_delay = getWarningDelay('member', 'subscription') / 60 / 60 / 24;
2783 $url = dolBuildUrl(DOL_URL_ROOT.'/adherents/list.php', ['mainmenu' => 'members', 'statut' => self::STATUS_DRAFT]);
2784 $label = $langs->trans("MembersListToValid");
2785 $labelShort = $langs->trans("ToValidate");
2786 }
2787
2788 $response = new WorkboardResponse();
2789 $response->warning_delay = $warning_delay;
2790 $response->label = $label;
2791 $response->labelShort = $labelShort;
2792 $response->url = $url;
2793 $response->img = img_object('', "user");
2794
2795 $adherentstatic = new Adherent($this->db);
2796
2797 while ($obj = $this->db->fetch_object($resql)) {
2798 $response->nbtodo++;
2799
2800 $adherentstatic->datefin = $this->db->jdate($obj->datefin);
2801 $adherentstatic->statut = $obj->status;
2802 $adherentstatic->status = $obj->status;
2803
2804 if ($adherentstatic->hasDelay()) {
2805 $response->nbtodolate++;
2806 }
2807 }
2808
2809 return $response;
2810 } else {
2811 dol_print_error($this->db);
2812 $this->error = $this->db->error();
2813 return -1;
2814 }
2815 }
2816
2817
2829 public function generateDocument($modele, $outputlangs, $hidedetails = 0, $hidedesc = 0, $hideref = 0, $moreparams = null)
2830 {
2831 global $conf, $langs;
2832
2833 $langs->load("orders");
2834
2835 if (!dol_strlen($modele)) {
2836 $modele = 'standard';
2837
2838 if ($this->model_pdf) {
2839 $modele = $this->model_pdf;
2840 } elseif (getDolGlobalString('ADHERENT_ADDON_PDF')) {
2841 $modele = getDolGlobalString('ADHERENT_ADDON_PDF');
2842 }
2843 }
2844
2845 $modelpath = "core/modules/member/doc/";
2846
2847 return $this->commonGenerateDocument($modelpath, $modele, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams);
2848 }
2849
2850
2858 public function initAsSpecimen()
2859 {
2860 global $user, $langs;
2861 $now = dol_now();
2862
2863 // Initialise parameters
2864 $this->id = 0;
2865 $this->ref = 'ABC001';
2866 $this->entity = 1;
2867 $this->specimen = 1;
2868 $this->civility_id = 'MR';
2869 $this->lastname = 'DOLIBARR';
2870 $this->firstname = 'SPECIMEN';
2871 $this->gender = 'man';
2872 $this->login = 'dolibspec';
2873 $this->pass = 'dolibspec';
2874 $this->company = 'Societe ABC';
2875 $this->address = '61 jump street';
2876 $this->zip = '75000';
2877 $this->town = 'Paris';
2878 $this->country_id = 1;
2879 $this->country_code = 'FR';
2880 $this->country = 'France';
2881 $this->morphy = 'mor';
2882 $this->email = 'specimen@specimen.com';
2883 $this->socialnetworks = array(
2884 'skype' => 'skypepseudo',
2885 'twitter' => 'twitterpseudo',
2886 'facebook' => 'facebookpseudo',
2887 'linkedin' => 'linkedinpseudo',
2888 );
2889 $this->phone = '0999999999';
2890 $this->phone_perso = '0999999998';
2891 $this->phone_mobile = '0999999997';
2892 $this->note_public = 'This is a public note';
2893 $this->note_private = 'This is a private note';
2894 $this->birth = $now;
2895 $this->photo = '';
2896 $this->public = 1;
2897 $this->statut = self::STATUS_DRAFT;
2898 $this->status = self::STATUS_DRAFT;
2899
2900 $this->datefin = $now;
2901 $this->datevalid = $now;
2902 $this->default_lang = '';
2903
2904 $this->typeid = 1; // Id type adherent
2905 $this->type = 'Type adherent'; // Libelle type adherent
2906 $this->need_subscription = 0;
2907
2908 $this->first_subscription_date = $now;
2909 $this->first_subscription_date_start = $this->first_subscription_date;
2910 $this->first_subscription_date_end = dol_time_plus_duree($this->first_subscription_date_start, 1, 'y');
2911 $this->first_subscription_amount = 10;
2912
2913 $this->last_subscription_date = $this->first_subscription_date;
2914 $this->last_subscription_date_start = $this->first_subscription_date;
2915 $this->last_subscription_date_end = dol_time_plus_duree($this->last_subscription_date_start, 1, 'y');
2916 $this->last_subscription_amount = 10;
2917 return 1;
2918 }
2919
2920
2921 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2922 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.PublicUnderscore
2932 public function _load_ldap_dn($info, $mode = 0)
2933 {
2934 // phpcs:enable
2935 global $conf;
2936 $dn = '';
2937 if ($mode == 0) {
2938 $dn = getDolGlobalString('LDAP_KEY_MEMBERS') . "=".$info[getDolGlobalString('LDAP_KEY_MEMBERS')]."," . getDolGlobalString('LDAP_MEMBER_DN');
2939 }
2940 if ($mode == 1) {
2941 $dn = getDolGlobalString('LDAP_MEMBER_DN');
2942 }
2943 if ($mode == 2) {
2944 $dn = getDolGlobalString('LDAP_KEY_MEMBERS') . "=".$info[getDolGlobalString('LDAP_KEY_MEMBERS')];
2945 }
2946 return $dn;
2947 }
2948
2949
2950 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
2951 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.PublicUnderscore
2957 public function _load_ldap_info()
2958 {
2959 // phpcs:enable
2960 global $conf, $langs;
2961
2962 $info = array();
2963 $socialnetworks = getArrayOfSocialNetworks();
2964 $keymodified = false;
2965
2966 // Object classes
2967 $info["objectclass"] = explode(',', getDolGlobalString('LDAP_MEMBER_OBJECT_CLASS'));
2968
2969 $this->fullname = $this->getFullName($langs);
2970
2971 // For avoid ldap error when firstname and lastname are empty
2972 if ($this->morphy == 'mor' && (empty($this->fullname) || $this->fullname == $this->company)) {
2973 $this->fullname = $this->company;
2974 $this->lastname = $this->company;
2975 }
2976
2977 // Possible LDAP KEY (constname => varname)
2978 $ldapkey = array(
2979 'LDAP_MEMBER_FIELD_FULLNAME' => 'fullname',
2980 'LDAP_MEMBER_FIELD_NAME' => 'lastname',
2981 'LDAP_MEMBER_FIELD_LOGIN' => 'login',
2982 'LDAP_MEMBER_FIELD_LOGIN_SAMBA' => 'login',
2983 'LDAP_MEMBER_FIELD_MAIL' => 'email'
2984 );
2985
2986 // Member
2987 foreach ($ldapkey as $constname => $varname) {
2988 if (!empty($this->$varname) && getDolGlobalString($constname)) {
2989 $info[getDolGlobalString($constname)] = $this->$varname;
2990
2991 // Check if it is the LDAP key and if its value has been changed
2992 if (getDolGlobalString('LDAP_KEY_MEMBERS') && getDolGlobalString('LDAP_KEY_MEMBERS') == getDolGlobalString($constname)) {
2993 if (!empty($this->oldcopy) && $this->$varname != $this->oldcopy->$varname) {
2994 $keymodified = true; // For check if LDAP key has been modified
2995 }
2996 }
2997 }
2998 }
2999 if ($this->firstname && getDolGlobalString('LDAP_MEMBER_FIELD_FIRSTNAME')) {
3000 $info[getDolGlobalString('LDAP_MEMBER_FIELD_FIRSTNAME')] = $this->firstname;
3001 }
3002 if ($this->poste && getDolGlobalString('LDAP_MEMBER_FIELD_TITLE')) {
3003 $info[getDolGlobalString('LDAP_MEMBER_FIELD_TITLE')] = $this->poste;
3004 }
3005 if ($this->company && getDolGlobalString('LDAP_MEMBER_FIELD_COMPANY')) {
3006 $info[getDolGlobalString('LDAP_MEMBER_FIELD_COMPANY')] = $this->company;
3007 }
3008 if ($this->address && getDolGlobalString('LDAP_MEMBER_FIELD_ADDRESS')) {
3009 $info[getDolGlobalString('LDAP_MEMBER_FIELD_ADDRESS')] = $this->address;
3010 }
3011 if ($this->zip && getDolGlobalString('LDAP_MEMBER_FIELD_ZIP')) {
3012 $info[getDolGlobalString('LDAP_MEMBER_FIELD_ZIP')] = $this->zip;
3013 }
3014 if ($this->town && getDolGlobalString('LDAP_MEMBER_FIELD_TOWN')) {
3015 $info[getDolGlobalString('LDAP_MEMBER_FIELD_TOWN')] = $this->town;
3016 }
3017 if ($this->country_code && getDolGlobalString('LDAP_MEMBER_FIELD_COUNTRY')) {
3018 $info[getDolGlobalString('LDAP_MEMBER_FIELD_COUNTRY')] = $this->country_code;
3019 }
3020 foreach ($socialnetworks as $key => $value) {
3021 if ($this->socialnetworks[$value['label']] && getDolGlobalString('LDAP_MEMBER_FIELD_'.strtoupper($value['label']))) {
3022 $info[getDolGlobalString('LDAP_MEMBER_FIELD_'.strtoupper($value['label']))] = $this->socialnetworks[$value['label']];
3023 }
3024 }
3025 if ($this->phone && getDolGlobalString('LDAP_MEMBER_FIELD_PHONE')) {
3026 $info[getDolGlobalString('LDAP_MEMBER_FIELD_PHONE')] = $this->phone;
3027 }
3028 if ($this->phone_perso && getDolGlobalString('LDAP_MEMBER_FIELD_PHONE_PERSO')) {
3029 $info[getDolGlobalString('LDAP_MEMBER_FIELD_PHONE_PERSO')] = $this->phone_perso;
3030 }
3031 if ($this->phone_mobile && getDolGlobalString('LDAP_MEMBER_FIELD_MOBILE')) {
3032 $info[getDolGlobalString('LDAP_MEMBER_FIELD_MOBILE')] = $this->phone_mobile;
3033 }
3034 if ($this->fax && getDolGlobalString('LDAP_MEMBER_FIELD_FAX')) {
3035 $info[getDolGlobalString('LDAP_MEMBER_FIELD_FAX')] = $this->fax;
3036 }
3037 if ($this->note_private && getDolGlobalString('LDAP_MEMBER_FIELD_DESCRIPTION')) {
3038 $info[getDolGlobalString('LDAP_MEMBER_FIELD_DESCRIPTION')] = dol_string_nohtmltag($this->note_private, 2);
3039 }
3040 if ($this->note_public && getDolGlobalString('LDAP_MEMBER_FIELD_NOTE_PUBLIC')) {
3041 $info[getDolGlobalString('LDAP_MEMBER_FIELD_NOTE_PUBLIC')] = dol_string_nohtmltag($this->note_public, 2);
3042 }
3043 if ($this->birth && getDolGlobalString('LDAP_MEMBER_FIELD_BIRTHDATE')) {
3044 $info[getDolGlobalString('LDAP_MEMBER_FIELD_BIRTHDATE')] = dol_print_date($this->birth, 'dayhourldap');
3045 }
3046 if (isset($this->statut) && getDolGlobalString('LDAP_FIELD_MEMBER_STATUS')) {
3047 $info[getDolGlobalString('LDAP_FIELD_MEMBER_STATUS')] = $this->statut;
3048 }
3049 if ($this->datefin && getDolGlobalString('LDAP_FIELD_MEMBER_END_LASTSUBSCRIPTION')) {
3050 $info[getDolGlobalString('LDAP_FIELD_MEMBER_END_LASTSUBSCRIPTION')] = dol_print_date($this->datefin, 'dayhourldap');
3051 }
3052
3053 // When password is modified
3054 if (!empty($this->pass)) {
3055 if (getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD')) {
3056 $info[getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD')] = $this->pass; // this->pass = Unencrypted password
3057 }
3058 if (getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD_CRYPTED')) {
3059 $info[getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD_CRYPTED')] = dol_hash($this->pass, 'openldap'); // Create OpenLDAP password (see LDAP_PASSWORD_HASH_TYPE)
3060 }
3061 } elseif (getDolGlobalString('LDAP_SERVER_PROTOCOLVERSION') !== '3') {
3062 // Set LDAP password if possible
3063 // If ldap key is modified and LDAPv3 we use ldap_rename function for avoid lose encrypt password
3064 if (getDolGlobalString('DATABASE_PWD_ENCRYPTED')) { // This should be on on default installation
3065 // Just for the case we use old md5 encryption (deprecated, no more used, kept for compatibility)
3066 if (!getDolGlobalString('MAIN_SECURITY_HASH_ALGO') || getDolGlobalString('MAIN_SECURITY_HASH_ALGO') == 'md5') {
3067 if ($this->pass_indatabase_crypted && getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD_CRYPTED')) {
3068 // Create OpenLDAP MD5 password from Dolibarr MD5 password
3069 // Note: This suppose that "pass_indatabase_crypted" is a md5 (this should not happen anymore)"
3070 $info[getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD_CRYPTED')] = dolGetLdapPasswordHash($this->pass_indatabase_crypted, 'md5frommd5');
3071 }
3072 }
3073 } elseif (!empty($this->pass_indatabase)) {
3074 // Use $this->pass_indatabase value if exists
3075 if (getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD')) {
3076 $info[getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD')] = $this->pass_indatabase; // $this->pass_indatabase = Unencrypted password
3077 }
3078 if (getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD_CRYPTED')) {
3079 $info[getDolGlobalString('LDAP_MEMBER_FIELD_PASSWORD_CRYPTED')] = dol_hash($this->pass_indatabase, 'openldap'); // Create OpenLDAP password (see LDAP_PASSWORD_HASH_TYPE)
3080 }
3081 }
3082 }
3083
3084 // Subscriptions
3085 if ($this->first_subscription_date && getDolGlobalString('LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_DATE')) {
3086 $info[getDolGlobalString('LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_DATE')] = dol_print_date($this->first_subscription_date, 'dayhourldap');
3087 }
3088 if (isset($this->first_subscription_amount) && getDolGlobalString('LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_AMOUNT')) {
3089 $info[getDolGlobalString('LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_AMOUNT')] = $this->first_subscription_amount;
3090 }
3091 if ($this->last_subscription_date && getDolGlobalString('LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_DATE')) {
3092 $info[getDolGlobalString('LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_DATE')] = dol_print_date($this->last_subscription_date, 'dayhourldap');
3093 }
3094 if (isset($this->last_subscription_amount) && getDolGlobalString('LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_AMOUNT')) {
3095 $info[getDolGlobalString('LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_AMOUNT')] = $this->last_subscription_amount;
3096 }
3097
3098 return $info;
3099 }
3100
3101
3108 public function info($id)
3109 {
3110 $sql = 'SELECT a.rowid, a.datec as datec,';
3111 $sql .= ' a.datevalid as datev,';
3112 $sql .= ' GREATEST(a.tms, aef.tms) as datem,';
3113 $sql .= ' a.fk_user_author, a.fk_user_valid, a.fk_user_mod';
3114 $sql .= ' FROM '.MAIN_DB_PREFIX.'adherent as a';
3115 $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'adherent_extrafields as aef ON aef.fk_object = a.rowid';
3116 $sql .= ' WHERE a.rowid = '.((int) $id);
3117
3118 dol_syslog(get_class($this)."::info", LOG_DEBUG);
3119 $result = $this->db->query($sql);
3120 if ($result) {
3121 if ($this->db->num_rows($result)) {
3122 $obj = $this->db->fetch_object($result);
3123
3124 $this->id = $obj->rowid;
3125
3126 $this->user_creation_id = $obj->fk_user_author;
3127 $this->user_validation_id = $obj->fk_user_valid;
3128 $this->user_modification_id = $obj->fk_user_mod;
3129 $this->date_creation = $this->db->jdate($obj->datec);
3130 $this->date_validation = $this->db->jdate($obj->datev);
3131 $this->date_modification = $this->db->jdate($obj->datem);
3132 }
3133
3134 $this->db->free($result);
3135 } else {
3136 dol_print_error($this->db);
3137 }
3138 }
3139
3145 public function getNbOfEMailings()
3146 {
3147 $sql = "SELECT count(mc.email) as nb";
3148 $sql .= " FROM ".MAIN_DB_PREFIX."mailing_cibles as mc";
3149 $sql .= " WHERE mc.email = '".$this->db->escape($this->email)."'";
3150 $sql .= " AND mc.statut NOT IN (-1,0)"; // -1 erreur, 0 non envoye, 1 envoye avec success
3151
3152 $resql = $this->db->query($sql);
3153 if ($resql) {
3154 $obj = $this->db->fetch_object($resql);
3155 $nb = (int) $obj->nb;
3156
3157 $this->db->free($resql);
3158 return $nb;
3159 } else {
3160 $this->error = $this->db->error();
3161 return -1;
3162 }
3163 }
3164
3175 public function setCategories($categories)
3176 {
3177 require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
3178 return parent::setCategoriesCommon($categories, Categorie::TYPE_MEMBER);
3179 }
3180
3189 public static function replaceThirdparty($db, $origin_id, $dest_id)
3190 {
3191 $tables = array('adherent');
3192
3193 return CommonObject::commonReplaceThirdparty($db, $origin_id, $dest_id, $tables);
3194 }
3195
3201 public function hasDelay()
3202 {
3203 global $conf;
3204
3205 //Only valid members
3206 if ($this->status != self::STATUS_VALIDATED) {
3207 return false;
3208 }
3209 if (!$this->datefin) {
3210 return false;
3211 }
3212
3213 $now = dol_now();
3214
3215 return $this->datefin < ($now - getWarningDelay('member', 'subscription'));
3216 }
3217
3218
3227 public function sendReminderForExpiredSubscription($daysbeforeendlist = '10', $fk_adherent_type = 0)
3228 {
3229 global $conf, $langs, $mysoc, $user;
3230
3231 $error = 0;
3232 $this->output = '';
3233 $this->error = '';
3234
3235 $blockingerrormsg = '';
3236
3237 if (!isModEnabled('member')) { // Should not happen. If module disabled, cron job should not be visible.
3238 $langs->load("agenda");
3239 $this->output = $langs->trans('ModuleNotEnabled', $langs->transnoentitiesnoconv("Adherent"));
3240 return 0;
3241 }
3242 if (!getDolGlobalString('MEMBER_REMINDER_EMAIL')) {
3243 $langs->load("agenda");
3244 $this->output = $langs->trans('EventRemindersByEmailNotEnabled', $langs->transnoentitiesnoconv("Adherent"));
3245 return 0;
3246 }
3247
3248 $now = dol_now();
3249 $nbok = 0;
3250 $nbko = 0;
3251
3252 $listofmembersok = array();
3253 $listofmembersko = array();
3254
3255 $arraydaysbeforeend = explode(';', $daysbeforeendlist);
3256 foreach ($arraydaysbeforeend as $daysbeforeend) { // Loop on each delay
3257 dol_syslog(__METHOD__.' - Process delta = '.$daysbeforeend, LOG_DEBUG);
3258
3259 if (!is_numeric($daysbeforeend)) {
3260 $blockingerrormsg = "Value for delta is not a numeric value";
3261 $nbko++;
3262 break;
3263 }
3264
3265 $tmp = dol_getdate($now);
3266 $datetosearchfor = dol_time_plus_duree(dol_mktime(0, 0, 0, $tmp['mon'], $tmp['mday'], $tmp['year'], 'tzserver'), (int) $daysbeforeend, 'd');
3267 $datetosearchforend = dol_time_plus_duree(dol_mktime(23, 59, 59, $tmp['mon'], $tmp['mday'], $tmp['year'], 'tzserver'), (int) $daysbeforeend, 'd');
3268
3269 $sql = 'SELECT rowid FROM '.MAIN_DB_PREFIX.'adherent';
3270 $sql .= " WHERE entity = ".((int) $conf->entity); // Do not use getEntity('adherent').")" here, we want the batch to be on its entity only;
3271 $sql .= " AND statut = 1";
3272 $sql .= " AND datefin >= '".$this->db->idate($datetosearchfor)."'";
3273 $sql .= " AND datefin <= '".$this->db->idate($datetosearchforend)."'";
3274 if ((int) $fk_adherent_type > 0) {
3275 $sql .= " AND fk_adherent_type = ".((int) $fk_adherent_type);
3276 }
3277 //$sql .= " LIMIT 10000";
3278
3279 $resql = $this->db->query($sql);
3280 if ($resql) {
3281 $num_rows = $this->db->num_rows($resql);
3282
3283 include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
3284 $adherent = new Adherent($this->db);
3285 $formmail = new FormMail($this->db);
3286
3287 $i = 0;
3288 while ($i < $num_rows) {
3289 $obj = $this->db->fetch_object($resql);
3290
3291 $adherent->fetch($obj->rowid, '', 0, '', true, true);
3292
3293 if (empty($adherent->email)) {
3294 $nbko++;
3295 $listofmembersko[$adherent->id] = $adherent->id;
3296 } else {
3297 $thirdpartyres = $adherent->fetch_thirdparty();
3298 if ($thirdpartyres === -1) {
3299 $languagecodeformember = $mysoc->default_lang;
3300 } else {
3301 // Language code to use ($languagecodeformember) is default language of thirdparty, if no thirdparty, the language found from country of member then country of thirdparty, and if still not found we use the language of company.
3302 $languagefromcountrycode = getLanguageCodeFromCountryCode($adherent->country_code ? $adherent->country_code : $adherent->thirdparty->country_code);
3303 $languagecodeformember = (empty($adherent->thirdparty->default_lang) ? ($languagefromcountrycode ? $languagefromcountrycode : $mysoc->default_lang) : $adherent->thirdparty->default_lang);
3304 }
3305
3306 // Send reminder email
3307 $outputlangs = new Translate('', $conf);
3308 $outputlangs->setDefaultLang($languagecodeformember);
3309 $outputlangs->loadLangs(array("main", "members"));
3310 dol_syslog("sendReminderForExpiredSubscription Language for member id ".$adherent->id." set to ".$outputlangs->defaultlang." mysoc->default_lang=".$mysoc->default_lang);
3311
3312 $arraydefaultmessage = null;
3313 $labeltouse = getDolGlobalString('ADHERENT_EMAIL_TEMPLATE_REMIND_EXPIRATION');
3314
3315 if (!empty($labeltouse)) {
3316 $arraydefaultmessage = $formmail->getEMailTemplate($this->db, 'member', $user, $outputlangs, 0, 1, $labeltouse);
3317 }
3318
3319 if (!empty($labeltouse) && is_object($arraydefaultmessage) && $arraydefaultmessage->id > 0) {
3320 $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $adherent);
3321 //if (is_array($adherent->thirdparty)) $substitutionarraycomp = ...
3322 complete_substitutions_array($substitutionarray, $outputlangs, $adherent);
3323
3324 $subject = make_substitutions($arraydefaultmessage->topic, $substitutionarray, $outputlangs);
3325 $msg = make_substitutions($arraydefaultmessage->content, $substitutionarray, $outputlangs);
3326 $from = getDolGlobalString('ADHERENT_MAIL_FROM', $conf->email_from);
3327 $to = $adherent->email;
3328 $cc = getDolGlobalString('ADHERENT_CC_MAIL_FROM');
3329
3330 $trackid = 'mem'.$adherent->id;
3331 $moreinheader = 'X-Dolibarr-Info: sendReminderForExpiredSubscription'."\r\n";
3332
3333 include_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
3334 $cmail = new CMailFile($subject, $to, $from, $msg, array(), array(), array(), $cc, '', 0, 1, '', '', $trackid, $moreinheader);
3335 $result = $cmail->sendfile();
3336 if (!$result) {
3337 $error++;
3338 $this->error .= $cmail->error.' ';
3339 if (!is_null($cmail->errors)) {
3340 $this->errors += $cmail->errors;
3341 }
3342 $nbko++;
3343 $listofmembersko[$adherent->id] = $adherent->id;
3344 } else {
3345 $nbok++;
3346 $listofmembersok[$adherent->id] = $adherent->id;
3347
3348 $message = $msg;
3349 $sendto = $to;
3350 $sendtocc = '';
3351 $sendtobcc = '';
3352 $actioncode = 'EMAIL';
3353 $extraparams = array();
3354
3355 $actionmsg = '';
3356 $actionmsg2 = $langs->transnoentities('MailSentByTo', CMailFile::getValidAddress($from, 4, 0, 1), CMailFile::getValidAddress($sendto, 4, 0, 1));
3357 if ($message) {
3358 $actionmsg = $langs->transnoentities('MailFrom').': '.dol_escape_htmltag($from);
3359 $actionmsg = dol_concatdesc($actionmsg, $langs->transnoentities('MailTo').': '.dol_escape_htmltag($sendto));
3360 // if ($sendtocc) {
3361 // $actionmsg = dol_concatdesc($actionmsg, $langs->transnoentities('Bcc').": ".dol_escape_htmltag($sendtocc));
3362 // }
3363 $actionmsg = dol_concatdesc($actionmsg, $langs->transnoentities('MailTopic').": ".$subject);
3364 $actionmsg = dol_concatdesc($actionmsg, $langs->transnoentities('TextUsedInTheMessageBody').":");
3365 $actionmsg = dol_concatdesc($actionmsg, $message);
3366 }
3367
3368 require_once DOL_DOCUMENT_ROOT.'/comm/action/class/actioncomm.class.php';
3369
3370 // Insert record of emails sent
3371 $actioncomm = new ActionComm($this->db);
3372
3373 $actioncomm->type_code = 'AC_OTH_AUTO'; // Type of event ('AC_OTH', 'AC_OTH_AUTO', 'AC_XXX'...)
3374 $actioncomm->code = 'AC_'.$actioncode;
3375 $actioncomm->label = $actionmsg2;
3376 $actioncomm->note_private = $actionmsg;
3377 $actioncomm->fk_project = 0;
3378 $actioncomm->datep = $now;
3379 $actioncomm->datef = $now;
3380 $actioncomm->percentage = -1; // Not applicable
3381 $actioncomm->socid = $adherent->thirdparty->id;
3382 $actioncomm->contact_id = 0;
3383 $actioncomm->authorid = $user->id; // User saving action
3384 $actioncomm->userownerid = $user->id; // Owner of action
3385 // Fields when action is an email (content should be added into note)
3386 $actioncomm->email_msgid = $cmail->msgid;
3387 $actioncomm->email_from = $from;
3388 $actioncomm->email_sender = '';
3389 $actioncomm->email_to = $to;
3390 $actioncomm->email_tocc = $sendtocc;
3391 $actioncomm->email_tobcc = $sendtobcc;
3392 $actioncomm->email_subject = $subject;
3393 $actioncomm->errors_to = '';
3394
3395 $actioncomm->fk_element = $adherent->id;
3396 $actioncomm->elementid = $adherent->id;
3397 $actioncomm->elementtype = $adherent->element;
3398
3399 $actioncomm->extraparams = $extraparams;
3400
3401 $actioncomm->create($user);
3402 }
3403 } else {
3404 //$blockingerrormsg = "Can't find email template with label=".$labeltouse.", to use for the reminding email";
3405
3406 $error++;
3407 $this->error .= "Can't find email template with label=".$labeltouse.", to use for the reminding email ";
3408
3409 $nbko++;
3410 $listofmembersko[$adherent->id] = $adherent->id;
3411
3412 break;
3413 }
3414 }
3415
3416 $i++;
3417 }
3418 } else {
3419 $this->error = $this->db->lasterror();
3420 return 1;
3421 }
3422 }
3423
3424 if ($blockingerrormsg) {
3425 $this->error = $blockingerrormsg;
3426 return 1;
3427 } else {
3428 $this->output = 'Found '.($nbok + $nbko).' members to send reminder to.';
3429 $this->output .= ' Send email successfully to '.$nbok.' members';
3430 $listofids = '';
3431 $i = 0;
3432 foreach ($listofmembersok as $idmember) {
3433 if ($i > 100) {
3434 $listofids .= ', ...';
3435 break;
3436 }
3437 if (empty($listofids)) {
3438 $listofids .= ' [';
3439 } else {
3440 $listofids .= ', ';
3441 }
3442 $listofids .= $idmember;
3443 $i++;
3444 }
3445 if ($listofids) {
3446 $listofids .= ']';
3447 }
3448 $this->output .= ($listofids ? ' ids='.$listofids : '');
3449
3450 if ($nbko) {
3451 $this->output .= ' - Canceled for '.$nbko.' member (no email or email sending error)';
3452 $listofids = '';
3453 $i = 0;
3454 foreach ($listofmembersko as $idmember) {
3455 if ($i > 100) {
3456 $listofids .= ', ...';
3457 break;
3458 }
3459 if (empty($listofids)) {
3460 $listofids .= ' [';
3461 } else {
3462 $listofids .= ', ';
3463 }
3464 $listofids .= $idmember;
3465 $i++;
3466 }
3467 if ($listofids) {
3468 $listofids .= ']';
3469 }
3470 $this->output .= ($listofids ? ' ids='.$listofids : '');
3471 }
3472 }
3473
3474 return $nbko;
3475 }
3476
3484 public function getKanbanView($option = '', $arraydata = null)
3485 {
3486 $selected = (empty($arraydata['selected']) ? 0 : $arraydata['selected']);
3487
3488 $return = '<div class="box-flex-item box-flex-grow-zero">';
3489 $return .= '<div class="info-box info-box-sm">';
3490 $return .= '<span class="info-box-icon bg-infobox-action">';
3491 if (!empty($this->photo)) {
3492 $return .= Form::showphoto('memberphoto', $this, 0, 60, 0, 'photokanban photowithmargin photologintooltip', 'small', 0, 1);
3493 } else {
3494 $return .= img_picto('', 'user');
3495 }
3496 $return .= '</span>';
3497 $return .= '<div class="info-box-content">';
3498 $return .= '<span class="info-box-ref inline-block tdoverflowmax150 valignmiddle">' . $this->getNomUrl() . '</span>';
3499 if ($selected >= 0) {
3500 $return .= '<input id="cb'.$this->id.'" class="flat checkforselect fright" type="checkbox" name="toselect[]" value="'.$this->id.'"'.($selected ? ' checked="checked"' : '').'>';
3501 }
3502 $return .= '<br><span class="info-box-label paddingright">'.$this->getmorphylib('', 2).'</span>';
3503 $return .= '<span class="info-box-label opacitymedium">'.$this->type.'</span>';
3504
3505 $return .= '<br><div class="info-box-status paddingtop">';
3506 $return .= $this->LibStatut($this->status, $this->need_subscription, $this->datefin, 5);
3507 $return .= '</div>';
3508 $return .= '</div>';
3509 $return .= '</div>';
3510 $return .= '</div>';
3511 return $return;
3512 }
3513}
$object ref
Definition info.php:90
Class to manage bank accounts.
Class to manage agenda events (actions)
Class to manage members of a foundation.
mergeMembers($member_origin_id)
Merge a member with current one, deleting the given company $member_origin_id.
setThirdPartyId($thirdpartyid)
Set link to a third party.
hasDelay()
Return if a member is late (subscription late) or not.
exclude($user)
Functiun to exclude (set adherent.status to -2) a member TODO A private note should be added to know ...
add_to_abo()
Function to add member into external tools mailing-list, spip, etc.
loadStateBoard()
Load indicators this->nb in state board.
_load_ldap_dn($info, $mode=0)
Retourne chaine DN complete dans l'annuaire LDAP pour l'objet.
update($user, $notrigger=0, $nosyncuser=0, $nosyncuserpass=0, $nosyncthirdparty=0, $action='update')
Update a member in database (standard information and password)
setCategories($categories)
Sets object to supplied categories.
getTooltipContentArray($params)
getTooltipContentArray
getNbOfEMailings()
Return number of mass Emailing received by this member with its email.
update_end_date($user)
Update denormalized last subscription date.
static replaceThirdparty($db, $origin_id, $dest_id)
Function used to replace a thirdparty id with another one.
makeSubstitution($text)
Make substitution of tags into text with value of current object.
const STATUS_EXCLUDED
Excluded.
LibStatut($status, $need_subscription, $date_end_subscription, $mode=0)
Renvoi le libelle d'un statut donne.
fetch_name($firstname, $lastname)
Method to load member from its name.
initAsSpecimen()
Initialise an instance with random values.
del_to_abo()
Function to delete a member from external tools like mailing-list, spip, etc.
resiliate($user)
Fonction qui resilie un adherent.
getCivilityLabel()
Return civility label of a member.
getmorphylib($morphy='', $addbadge=0)
Return translated label by the nature of a adherent (physical or moral)
sendEmail($text, $subject, $filename_list=array(), $mimetype_list=array(), $mimefilename_list=array(), $addr_cc="", $addr_bcc="", $deliveryreceipt=0, $msgishtml=-1, $errors_to='', $moreinheader='')
Function sending an email to the current member with the text supplied in parameter.
fetchPartnerships($mode)
Function to get partnerships array.
load_board($user, $mode)
Load indicators for dashboard (this->nbtodo and this->nbtodolate)
setPassword($user, $password='', $isencrypted=0, $notrigger=0, $nosyncuser=0)
Change password of a user.
$fields
'type' field format: 'integer', 'integer:ObjectClass:PathToClass[:AddCreateButtonOrNot[:Filter[:Sortf...
getKanbanView($option='', $arraydata=null)
Return clickable link of object (with eventually picto)
const STATUS_DRAFT
Draft status.
const STATUS_RESILIATED
Resiliated (membership end and was not renew)
sendReminderForExpiredSubscription($daysbeforeendlist='10', $fk_adherent_type=0)
Send reminders by emails before subscription end CAN BE A CRON TASK.
fetch_login($login)
Method to load member from its login.
_load_ldap_info()
Initialise tableau info (tableau des attributes LDAP)
getLibStatut($mode=0)
Retourne le libelle du statut d'un adherent (brouillon, valide, resilie, exclu)
info($id)
Load type info information in the member object.
subscription($date, $amount, $accountid=0, $operation='', $label='', $num_chq='', $emetteur_nom='', $emetteur_banque='', $datesubend=0, $fk_type=null, $ref_ext='')
Insert subscription into database and eventually add links to banks, mailman, etc....
__construct($db)
Constructor.
send_an_email($text, $subject, $filename_list=array(), $mimetype_list=array(), $mimefilename_list=array(), $addr_cc="", $addr_bcc="", $deliveryreceipt=0, $msgishtml=-1, $errors_to='', $moreinheader='')
Function sending an email to the current member with the text supplied in parameter.
getNomUrl($withpictoimg=0, $maxlen=0, $option='card', $mode='', $morecss='', $save_lastsearch_value=-1, $notooltip=0, $addlinktonotes=0)
Return clickable name (with picto eventually)
generateDocument($modele, $outputlangs, $hidedetails=0, $hidedesc=0, $hideref=0, $moreparams=null)
Create a document onto disk according to template module.
subscriptionComplementaryActions($subscriptionid, $option, $accountid, $datesubscription, $paymentdate, $operation, $label, $amount, $num_chq, $emetteur_nom='', $emetteur_banque='', $autocreatethirdparty=0, $ext_payment_id='', $ext_payment_site='')
Do complementary actions after subscription recording.
setUserId($userid)
Set link to a user.
const STATUS_VALIDATED
Validated status.
fetch_subscriptions()
Function to get member subscriptions data: subscriptions, first_subscription_date,...
fetch($rowid, $ref='', $socid=0, $ref_ext='', $fetch_optionals=true, $fetch_subscriptions=true)
Load member from database.
validate($user)
Function that validate a member.
Class to send emails (with attachments or not) Usage: $mailfile = new CMailFile($subject,...
static getValidAddress($address, $format, $encode=0, $maxnumberofemail=0)
Return a formatted address string for SMTP protocol.
Class to manage categories.
Parent class of all other business classes (invoices, contracts, proposals, orders,...
fetch_optionals($rowid=null, $optionsArray=null)
Function to get extra fields of an object into $this->array_options This method is in most cases call...
commonGenerateDocument($modelspath, $modele, $outputlangs, $hidedetails, $hidedesc, $hideref, $moreparams=null)
Common function for all objects extending CommonObject for generating documents.
setErrorsFromObject($object)
setErrorsFromObject
deleteExtraFields()
Delete all extra fields values for the current object.
static commonReplaceThirdparty(DoliDB $dbs, $origin_id, $dest_id, array $tables, $ignoreerrors=0)
Function used to replace a thirdparty id with another one.
insertExtraFields($trigger='', $userused=null)
Add/Update all extra fields values for the current object.
Class to manage invoices.
const TYPE_STANDARD
Standard invoice.
Class to manage generation of HTML components Only common components must be here.
static showphoto($modulepart, $object, $width=100, $height=0, $caneditfield=0, $cssclass='photowithmargin', $imagesize='', $addlinktofullsize=1, $cache=0, $forcecapture='', $noexternsourceoverwrite=0, $usesharelinkifavailable=0)
Return HTML code to output a photo.
Class permettant la generation du formulaire html d'envoi de mail unitaire Usage: $formail = new Form...
Class to manage mailman and spip.
Class to manage payments of customer invoices.
Class to manage payment terms records in dictionary.
Class to manage third parties objects (customers, suppliers, prospects...)
Class to manage subscriptions of foundation members.
Class to manage translations.
Class to manage Dolibarr users.
print $langs trans("Ref").' m titre as m m statut as status
Or an array listing all the potential status of the object: array: int of the status => translated la...
Definition index.php:171
getFullName($langs, $option=0, $nameorder=-1, $maxlen=0)
Return full name (civility+' '+name+' '+lastname)
setUpperOrLowerCase()
Set to upper or ucwords/lower if needed.
getCountry($searchkey, $withcode='', $dbtouse=null, $outputlangs=null, $entconv=1, $searchlabel='')
Return country label, code or id from an id, code or label.
global $mysoc
dol_time_plus_duree($time, $duration_value, $duration_unit, $ruleforendofmonth=0)
Add a delay to a date.
Definition date.lib.php:125
print $script_file $mode $langs defaultlang(is_numeric($duration_value) ? " delay=". $duration_value :"").(is_numeric($duration_value2) ? " after cd cd cd description as p label as s rowid as s nom as s email
Sender: Who sends the email ("Sender" has sent emails on behalf of "From").
dol_move($srcfile, $destfile, $newmask='0', $overwriteifexists=1, $testvirus=0, $indexdatabase=1, $moreinfo=array(), $entity=null)
Move a file into another name.
dol_dir_list($utf8_path, $types="all", $recursive=0, $filter="", $excludefilter=null, $sortcriteria="name", $sortorder=SORT_ASC, $mode=0, $nohook=0, $relativename="", $donotfollowsymlinks=0, $nbsecondsold=0)
Scan a directory and return a list of files/directories.
Definition files.lib.php:64
dol_is_dir($folder)
Test if filename is a directory.
clean_url($url, $http=1)
Clean an url string.
dol_now($mode='gmt')
Return date for now.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed information (by default a local PHP server timestamp) Rep...
dol_getIdFromCode($db, $key, $tablename, $fieldkey='code', $fieldid='id', $entityfilter=0, $filters='', $useCache=true)
Return an id or code from a code or id.
getLanguageCodeFromCountryCode($countrycode)
Return default language from country code.
setEntity($currentobject)
Set entity id to use when to create an object.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2, $allowothertags=array())
Show picto whatever it's its name (generic function)
dol_format_address($object, $withcountry=0, $sep="\n", $outputlangs=null, $mode=0, $extralangcode='')
Return a formatted address (part address/zip/town/state) according to country rules.
dolBuildUrl($url, $params=[], $addtoken=false)
Return path of url.
dol_string_nohtmltag($stringtoclean, $removelinefeed=1, $pagecodeto='UTF-8', $strip_tags=0, $removedoublespaces=1)
Clean a string from all HTML tags and entities.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $allowothertags=array())
Show a picto called object_picto (generic function)
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
GETPOSTISARRAY($paramname, $method=0)
Return true if the parameter $paramname is submit from a POST OR GET as an array.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
dol_concatdesc($text1, $text2, $forxml=false, $invert=false)
Concat 2 descriptions with a new line between them (second operand after first one with appropriate n...
dolGetFirstLetters($s, $nbofchar=1)
Return first letters of a strings.
dol_strtoupper($string, $encoding="UTF-8")
Convert a string to upper.
yn($yesno, $format=1, $color=0)
Return yes or no in current language.
complete_substitutions_array(&$substitutionarray, $outputlangs, $object=null, $parameters=null, $callfunc="completesubstitutionarray")
Complete the $substitutionarray with more entries coming from external module that had set the "subst...
dolGetStatus($statusLabel='', $statusLabelShort='', $html='', $statusType='status0', $displayMode=0, $url='', $params=array())
Output the badge of a status.
make_substitutions($text, $substitutionarray, $outputlangs=null, $converttextinhtmlifnecessary=0)
Make substitution into a text string, replacing keys with vals from $substitutionarray (oldval=>newva...
getArrayOfSocialNetworks()
Get array of social network dictionary.
dol_textishtml($msg, $option=0)
Return if a text is a html content.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false, $decorate=0)
Output date in a string format according to outputlangs (or langs if not defined).
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
dol_htmlentitiesbr($stringtoencode, $nl2brmode=0, $pagecodefrom='UTF-8', $removelasteolbr=1)
This function is called to encode a string into a HTML string but differs from htmlentities because a...
isValidEmail($address, $acceptsupervisorkey=0, $acceptuserkey=0)
Return true if email syntax is ok.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
getWarningDelay($module, $parmlevel1, $parmlevel2='')
Return a warning delay You can use it like this: if (getWarningDelay('module', 'paramlevel1')) It rep...
get_default_tva(Societe $thirdparty_seller, Societe $thirdparty_buyer, $idprod=0, $idprodfournprice=0)
Function that return vat rate of a product line (according to seller, buyer and product vat rate) VAT...
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
div refaddress div address
if(preg_match('/(crypted|dolcrypt):/i', $dolibarr_main_db_pass)||!empty($dolibarr_main_db_encrypted_pass)) $conf db type
'integer', 'integer:ObjectClass:PathToClass[:AddCreateButtonOrNot[:Filter[:Sortfield]]]',...
Definition repair.php:125
getRandomPassword($generic=false, $replaceambiguouschars=null, $length=32)
Return a generated password using default module.
dol_hash($chain, $type='0', $nosalt=0, $mode=0)
Returns a hash (non reversible encryption) of a string.
dolGetLdapPasswordHash($password, $type='md5')
Returns a specific ldap hash of a password.