dolibarr  9.0.0
modules_labels.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2003-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3  * Copyright (C) 2004-2009 Laurent Destailleur <eldy@users.sourceforge.net>
4  * Copyright (C) 2004 Eric Seigne <eric.seigne@ryxeo.com>
5  * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.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 <http://www.gnu.org/licenses/>.
19  * or see http://www.gnu.org/
20  */
21 
28 require_once DOL_DOCUMENT_ROOT.'/core/lib/pdf.lib.php';
29 require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
30 
31 
36 {
40  public $error='';
41 
42 
43  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.NotCamelCaps
51  function liste_modeles($db,$maxfilenamelength=0)
52  {
53  // phpcs:enable
54  global $conf;
55 
56  $type='members_labels';
57  $liste=array();
58 
59  include_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
60  $liste=getListOfModels($db,$type,$maxfilenamelength);
61 
62  return $liste;
63  }
64 }
65 
66 
67 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.NotCamelCaps
80 function doc_label_pdf_create($db, $arrayofrecords, $modele, $outputlangs, $outputdir='', $template='standardlabel', $filename='tmp_address_sheet.pdf')
81 {
82  // phpcs:enable
83  global $conf,$langs;
84  $langs->load("members");
85 
86  $error=0;
87 
88  // Increase limit for PDF build
89  $err=error_reporting();
90  error_reporting(0);
91  @set_time_limit(120);
92  error_reporting($err);
93 
94  $code='';
95  $srctemplatepath='';
96 
97  // Positionne le modele sur le nom du modele a utiliser
98  if (! dol_strlen($modele))
99  {
100  if (! empty($conf->global->ADHERENT_ETIQUETTE_TYPE))
101  {
102  $code = $conf->global->ADHERENT_ETIQUETTE_TYPE;
103  }
104  else
105  {
106  $code = $modele;
107  }
108  }
109  else $code=$modele;
110 
111  // If selected modele is a filename template (then $modele="modelname:filename")
112  $tmp=explode(':',$template,2);
113  if (! empty($tmp[1]))
114  {
115  $template=$tmp[0];
116  $srctemplatepath=$tmp[1];
117  }
118  else $srctemplatepath=$code;
119 
120  dol_syslog("modele=".$modele." outputdir=".$outputdir." template=".$template." code=".$code." srctemplatepath=".$srctemplatepath." filename=".$filename, LOG_DEBUG);
121 
122  // Search template files
123  $file=''; $classname=''; $filefound=0;
124  $dirmodels=array('/');
125  if (is_array($conf->modules_parts['models'])) $dirmodels=array_merge($dirmodels,$conf->modules_parts['models']);
126  foreach($dirmodels as $reldir)
127  {
128  foreach(array('doc','pdf') as $prefix)
129  {
130  $file = $prefix."_".$template.".class.php";
131 
132  // On verifie l'emplacement du modele
133  $file=dol_buildpath($reldir."core/modules/printsheet/doc/".$file,0);
134  if (file_exists($file))
135  {
136  $filefound=1;
137  $classname=$prefix.'_'.$template;
138  break;
139  }
140  }
141  if ($filefound) break;
142  }
143 
144  // Charge le modele
145  if ($filefound)
146  {
147  require_once $file;
148 
149  $obj = new $classname($db);
150 
151  // We save charset_output to restore it because write_file can change it if needed for
152  // output format that does not support UTF8.
153  $sav_charset_output=$outputlangs->charset_output;
154  if ($obj->write_file($arrayofrecords, $outputlangs, $srctemplatepath, $outputdir, $filename) > 0)
155  {
156  $outputlangs->charset_output=$sav_charset_output;
157  return 1;
158  }
159  else
160  {
161  $outputlangs->charset_output=$sav_charset_output;
162  dol_print_error($db,"doc_label_pdf_create Error: ".$obj->error);
163  return -1;
164  }
165  }
166  else
167  {
168  dol_print_error('',$langs->trans("Error")." ".$langs->trans("ErrorFileDoesNotExists",$file));
169  return -1;
170  }
171 }
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.
dol_print_error($db='', $error='', $errors=null)
Affiche message erreur system avec toutes les informations pour faciliter le diagnostic et la remonte...
Parent class of document generator for address sheet.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='')
Write log message into outputs.
liste_modeles($db, $maxfilenamelength=0)
Return list of active generation modules.
getListOfModels($db, $type, $maxfilenamelength=0)
Return list of activated modules usable for document generation.
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.