dolibarr 21.0.0-alpha
carte.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org>
4 * Copyright (C) 2006-2013 Laurent Destailleur <eldy@users.sourceforge.net>
5 * Copyright (C) 2024 Alexandre Spangaro <alexandre@inovea-conseil.com>
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 3 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program. If not, see <https://www.gnu.org/licenses/>.
19 */
20
26require '../../main.inc.php';
27require_once DOL_DOCUMENT_ROOT.'/core/lib/format_cards.lib.php';
28require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
29require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
30require_once DOL_DOCUMENT_ROOT.'/core/modules/member/modules_cards.php';
31require_once DOL_DOCUMENT_ROOT.'/core/modules/printsheet/modules_labels.php';
32
33$langs->loadLangs(array("members", "errors"));
34
35// Choice of printing year or current year.
36$now = dol_now();
37$year = dol_print_date($now, '%Y');
38$month = dol_print_date($now, '%m');
39$day = dol_print_date($now, '%d');
40$foruserid = GETPOST('foruserid', 'alphanohtml');
41$foruserlogin = GETPOST('foruserlogin', 'alphanohtml');
42$mode = GETPOST('mode', 'aZ09');
43$modelcard = GETPOST("modelcard", 'aZ09'); // Doc template to use for business cards
44$model = GETPOST("model", 'aZ09'); // Doc template to use for business cards
45$modellabel = GETPOST("modellabel", 'aZ09'); // Doc template to use for address sheet
46$mesg = '';
47
48$adherentstatic = new Adherent($db);
49$object = new Adherent($db);
50
51$extrafields = new ExtraFields($db);
52// Fetch optionals attributes and labels
53$extrafields->fetch_name_optionals_label($object->table_element);
54
55// Security check
56$result = restrictedArea($user, 'adherent');
57
58
59/*
60 * Actions
61 */
62
63if ($mode == 'cardlogin' && empty($foruserlogin)) {
64 $mesg = $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Login"));
65}
66
67if ((!empty($foruserid) || !empty($foruserlogin) || !empty($mode)) && !$mesg) {
68 $arrayofmembers = array();
69
70 // request taking into account member with up to date subscriptions
71 $sql = "SELECT d.rowid, d.ref, d.firstname, d.lastname, d.login, d.societe as company, d.datefin,";
72 $sql .= " d.address, d.zip, d.town, d.country, d.birth, d.email, d.photo,";
73 $sql .= " t.libelle as type,";
74 $sql .= " c.code as country_code, c.label as country";
75 // Add fields from extrafields
76 if (!empty($extrafields->attributes[$object->table_element]['label'])) {
77 foreach ($extrafields->attributes[$object->table_element]['label'] as $key => $val) {
78 $sql .= ($extrafields->attributes[$object->table_element]['type'][$key] != 'separate' ? ", ef.".$key." as options_".$key : '');
79 }
80 }
81 $sql .= " FROM ".MAIN_DB_PREFIX."adherent_type as t, ".MAIN_DB_PREFIX."adherent as d";
82 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_country as c ON d.country = c.rowid";
83 if (isset($extrafields->attributes[$object->table_element]['label']) && is_array($extrafields->attributes[$object->table_element]['label']) && count($extrafields->attributes[$object->table_element]['label'])) {
84 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."adherent_extrafields as ef on (d.rowid = ef.fk_object)";
85 }
86 $sql .= " WHERE d.fk_adherent_type = t.rowid AND d.statut = 1";
87 $sql .= " AND d.entity IN (".getEntity('adherent').")";
88 if (is_numeric($foruserid)) {
89 $sql .= " AND d.rowid = ".(int) $foruserid;
90 }
91 if ($foruserlogin) {
92 $sql .= " AND d.login = '".$db->escape($foruserlogin)."'";
93 }
94 $sql .= " ORDER BY d.rowid ASC";
95
96 dol_syslog("Search members", LOG_DEBUG);
97 $result = $db->query($sql);
98 if ($result) {
99 $num = $db->num_rows($result);
100 $i = 0;
101 while ($i < $num) {
102 $objp = $db->fetch_object($result);
103
104 if ($objp->country == '-') {
105 $objp->country = '';
106 }
107
108 $adherentstatic->id = $objp->rowid;
109 $adherentstatic->ref = $objp->ref;
110 $adherentstatic->lastname = $objp->lastname;
111 $adherentstatic->firstname = $objp->firstname;
112
113 // Format extrafield so they can be parsed in function complete_substitutions_array
114 if (isset($extrafields->attributes[$object->table_element]['label']) && is_array($extrafields->attributes[$object->table_element]['label']) && count($extrafields->attributes[$object->table_element]['label'])) {
115 $adherentstatic->array_options = array();
116 foreach ($extrafields->attributes[$object->table_element]['label'] as $key => $val) {
117 $tmpkey = 'options_'.$key;
118 if (!empty($objp->$tmpkey)) {
119 $adherentstatic->array_options[$tmpkey] = $objp->$tmpkey;
120 }
121 //if (!empty($objp->$key))
122 // $objp->array_options[$tmpkey] = $objp->$key;
123 //$objp->array_options[$tmpkey] = $extrafields->showOutputField($key, $objp->$tmpkey, '', $object->table_element); //$objp->$tmpkey;
124 }
125 }
126
127 // List of values to scan for a replacement
128 $substitutionarray = array(
129 '__ID__' => $objp->rowid,
130 '__REF__' => $objp->ref,
131 '__LOGIN__' => empty($objp->login) ? '' : $objp->login,
132 '__FIRSTNAME__' => empty($objp->firstname) ? '' : $objp->firstname,
133 '__LASTNAME__' => empty($objp->lastname) ? '' : $objp->lastname,
134 '__FULLNAME__' => $adherentstatic->getFullName($langs),
135 '__COMPANY__' => empty($objp->company) ? '' : $objp->company,
136 '__ADDRESS__' => empty($objp->address) ? '' : $objp->address,
137 '__ZIP__' => empty($objp->zip) ? '' : $objp->zip,
138 '__TOWN__' => empty($objp->town) ? '' : $objp->town,
139 '__COUNTRY__' => empty($objp->country) ? '' : $objp->country,
140 '__COUNTRY_CODE__' => empty($objp->country_code) ? '' : $objp->country_code,
141 '__EMAIL__' => empty($objp->email) ? '' : $objp->email,
142 '__BIRTH__' => dol_print_date($objp->birth, 'day'),
143 '__TYPE__' => empty($objp->type) ? '' : $objp->type,
144 '__YEAR__' => $year,
145 '__MONTH__' => $month,
146 '__DAY__' => $day,
147 '__DOL_MAIN_URL_ROOT__' => DOL_MAIN_URL_ROOT,
148 '__SERVER__' => "https://".$_SERVER["SERVER_NAME"]."/"
149 );
150 complete_substitutions_array($substitutionarray, $langs, $adherentstatic);
151
152 // For business cards
153 if (empty($mode) || $mode == 'card' || $mode == 'cardlogin') {
154 $textleft = make_substitutions(getDolGlobalString('ADHERENT_CARD_TEXT'), $substitutionarray);
155 $textheader = make_substitutions(getDolGlobalString('ADHERENT_CARD_HEADER_TEXT'), $substitutionarray);
156 $textfooter = make_substitutions(getDolGlobalString('ADHERENT_CARD_FOOTER_TEXT'), $substitutionarray);
157 $textright = make_substitutions(getDolGlobalString('ADHERENT_CARD_TEXT_RIGHT'), $substitutionarray);
158
159 if (is_numeric($foruserid) || $foruserlogin) {
160 $nb = $_Avery_Labels[$model]['NX'] * $_Avery_Labels[$model]['NY']; // $_Avery_Labels is defined into an include
161 if ($nb <= 0) {
162 $nb = 1; // Protection to avoid empty page
163 }
164
165 for ($j = 0; $j < $nb; $j++) {
166 $arrayofmembers[] = array(
167 'textleft'=>$textleft,
168 'textheader'=>$textheader,
169 'textfooter'=>$textfooter,
170 'textright'=>$textright,
171 'id'=>$objp->rowid,
172 'ref'=>$objp->ref,
173 'photo'=>$objp->photo
174 );
175 }
176 } else {
177 $arrayofmembers[] = array(
178 'textleft'=>$textleft,
179 'textheader'=>$textheader,
180 'textfooter'=>$textfooter,
181 'textright'=>$textright,
182 'id'=>$objp->rowid,
183 'ref'=>$objp->ref,
184 'photo'=>$objp->photo
185 );
186 }
187 }
188
189 // For labels
190 if ($mode == 'label') {
191 if (!getDolGlobalString('ADHERENT_ETIQUETTE_TEXT')) {
192 $conf->global->ADHERENT_ETIQUETTE_TEXT = "__FULLNAME__\n__ADDRESS__\n__ZIP__ __TOWN__\n__COUNTRY__";
193 }
194 $textleft = make_substitutions(getDolGlobalString('ADHERENT_ETIQUETTE_TEXT'), $substitutionarray);
195 $textheader = '';
196 $textfooter = '';
197 $textright = '';
198
199 $arrayofmembers[] = array(
200 'textleft'=>$textleft,
201 'textheader'=>$textheader,
202 'textfooter'=>$textfooter,
203 'textright'=>$textright,
204 'id'=>$objp->rowid,
205 'ref'=>$objp->ref,
206 'photo'=>$objp->photo,
207 );
208 }
209
210 $i++;
211 }
212
213 // Build and output PDF
214 $outputlangs = $langs;
215
216 if (empty($mode) || $mode == 'card') {
217 if (!count($arrayofmembers)) {
218 $mesg = $langs->trans("ErrorRecordNotFound");
219 }
220 if (empty($modelcard) || $modelcard == '-1') {
221 $mesg = $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("DescADHERENT_CARD_TYPE"));
222 }
223 if (!$mesg) {
224 $result = members_card_pdf_create($db, $arrayofmembers, $modelcard, $outputlangs, '', 'standard', 'tmp_cards');
225 }
226 } elseif ($mode == 'cardlogin') {
227 if (!count($arrayofmembers)) {
228 $mesg = $langs->trans("ErrorRecordNotFound");
229 }
230 if (empty($model) || $model == '-1') {
231 $mesg = $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("DescADHERENT_CARD_TYPE"));
232 }
233 if (!$mesg) {
234 $result = members_card_pdf_create($db, $arrayofmembers, $model, $outputlangs, '', 'standard', 'tmp_cards_login');
235 }
236 } elseif ($mode == 'label') {
237 if (!count($arrayofmembers)) {
238 $mesg = $langs->trans("ErrorRecordNotFound");
239 }
240 if (empty($modellabel) || $modellabel == '-1') {
241 $mesg = $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("DescADHERENT_ETIQUETTE_TYPE"));
242 }
243 if (!$mesg) {
244 $result = doc_label_pdf_create($db, $arrayofmembers, $modellabel, $outputlangs);
245 }
246 }
247
248 if ($result <= 0) {
249 dol_print_error(null, $result);
250 }
251 } else {
252 dol_print_error($db);
253 }
254
255 if (!$mesg) {
256 $db->close();
257 exit;
258 }
259}
260
261
262/*
263 * View
264 */
265
266$form = new Form($db);
267
268$title = $langs->trans('MembersCards');
269$help_url = 'EN:Module_Services_En|FR:Module_Services|ES:M&oacute;dulo_Servicios|DE:Modul_Mitglieder';
270
271llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-member page-cards');
272
273print load_fiche_titre($langs->trans("LinkToGeneratedPages"), '', $adherentstatic->picto);
274
275print '<span class="opacitymedium">'.$langs->trans("LinkToGeneratedPagesDesc").'</span><br>';
276print '<br>';
277
279
280print '<br>';
281
282print img_picto('', 'card').' '.$langs->trans("DocForAllMembersCards", getDolGlobalString('ADHERENT_CARD_TYPE', $langs->transnoentitiesnoconv("None"))).' ';
283print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
284print '<input type="hidden" name="token" value="'.newToken().'">';
285print '<input type="hidden" name="foruserid" value="all">';
286print '<input type="hidden" name="mode" value="card">';
287print '<input type="hidden" name="action" value="builddoc">';
288print $langs->trans("DescADHERENT_CARD_TYPE").' ';
289// List of possible labels (defined into $_Avery_Labels variable set into format_cards.lib.php)
290$arrayoflabels = array();
291foreach (array_keys($_Avery_Labels) as $codecards) {
292 $arrayoflabels[$codecards] = $_Avery_Labels[$codecards]['name'];
293}
294asort($arrayoflabels);
295print $form->selectarray('modelcard', $arrayoflabels, (GETPOST('modelcard') ? GETPOST('modelcard') : getDolGlobalString('ADHERENT_CARD_TYPE')), 1, 0, 0, '', 0, 0, 0, '', '', 1);
296print '<br><input type="submit" class="button small" value="'.$langs->trans("BuildDoc").'">';
297print '</form>';
298
299print '<br><br>';
300
301print img_picto('', 'card').' '.$langs->trans("DocForOneMemberCards", getDolGlobalString('ADHERENT_CARD_TYPE', $langs->transnoentitiesnoconv("None"))).' ';
302print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
303print '<input type="hidden" name="token" value="'.newToken().'">';
304print '<input type="hidden" name="mode" value="cardlogin">';
305print '<input type="hidden" name="action" value="builddoc">';
306print $langs->trans("DescADHERENT_CARD_TYPE").' ';
307// List of possible labels (defined into $_Avery_Labels variable set into format_cards.lib.php)
308$arrayoflabels = array();
309foreach (array_keys($_Avery_Labels) as $codecards) {
310 $arrayoflabels[$codecards] = $_Avery_Labels[$codecards]['name'];
311}
312asort($arrayoflabels);
313print $form->selectarray('model', $arrayoflabels, (GETPOST('model') ? GETPOST('model') : getDolGlobalString('ADHERENT_CARD_TYPE')), 1, 0, 0, '', 0, 0, 0, '', '', 1);
314print '<br>'.$langs->trans("Login").': <input class="with100" type="text" name="foruserlogin" value="'.GETPOST('foruserlogin').'">';
315print '<br><input type="submit" class="button small" value="'.$langs->trans("BuildDoc").'">';
316print '</form>';
317
318print '<br><br>';
319
320print img_picto('', 'card').' '.$langs->trans("DocForLabels", getDolGlobalString('ADHERENT_ETIQUETTE_TYPE')).' ';
321print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
322print '<input type="hidden" name="token" value="'.newToken().'">';
323print '<input type="hidden" name="mode" value="label">';
324print '<input type="hidden" name="action" value="builddoc">';
325print $langs->trans("DescADHERENT_ETIQUETTE_TYPE").' ';
326// List of possible labels (defined into $_Avery_Labels variable set into format_cards.lib.php)
327$arrayoflabels = array();
328foreach (array_keys($_Avery_Labels) as $codecards) {
329 $arrayoflabels[$codecards] = $_Avery_Labels[$codecards]['name'];
330}
331asort($arrayoflabels);
332print $form->selectarray('modellabel', $arrayoflabels, (GETPOST('modellabel') ? GETPOST('modellabel') : getDolGlobalString('ADHERENT_ETIQUETTE_TYPE')), 1, 0, 0, '', 0, 0, 0, '', '', 1);
333print '<br><input type="submit" class="button small" value="'.$langs->trans("BuildDoc").'">';
334print '</form>';
335
336// End of page
337llxFooter();
338$db->close();
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Definition wrapper.php:70
Class to manage members of a foundation.
Class to manage standard extra fields.
Class to manage generation of HTML components Only common components must be here.
getFullName($langs, $option=0, $nameorder=-1, $maxlen=0)
Return full name (civility+' '+name+' '+lastname)
llxFooter()
Footer empty.
Definition document.php:107
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").
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
dol_now($mode='auto')
Return date for now.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
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...
make_substitutions($text, $substitutionarray, $outputlangs=null, $converttextinhtmlifnecessary=0)
Make substitution into a text string, replacing keys with vals from $substitutionarray (oldval=>newva...
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
dol_htmloutput_errors($mesgstring='', $mesgarray=array(), $keepembedded=0)
Print formatted error messages to output (Used to show messages on html output).
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
div refaddress div address
members_card_pdf_create($db, $arrayofmembers, $modele, $outputlangs, $outputdir='', $template='standard', $filename='tmp_cards')
Cree un fichier de cartes de visites en fonction du modele de ADHERENT_CARDS_ADDON_PDF.
doc_label_pdf_create($db, $arrayofrecords, $modele, $outputlangs, $outputdir='', $template='standardlabel', $filename='tmp_address_sheet.pdf')
Create a document onto disk according to template module.
if(preg_match('/crypted:/i', $dolibarr_main_db_pass)||!empty($dolibarr_main_db_encrypted_pass)) $conf db type
Definition repair.php:137
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.