dolibarr  13.0.2
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 <https://www.gnu.org/licenses/>.
19  * or see https://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.ScopeNotCamelCaps
51  public 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  } else {
104  $code = $modele;
105  }
106  } else $code = $modele;
107 
108  // If selected modele is a filename template (then $modele="modelname:filename")
109  $tmp = explode(':', $template, 2);
110  if (!empty($tmp[1]))
111  {
112  $template = $tmp[0];
113  $srctemplatepath = $tmp[1];
114  } else $srctemplatepath = $code;
115 
116  dol_syslog("modele=".$modele." outputdir=".$outputdir." template=".$template." code=".$code." srctemplatepath=".$srctemplatepath." filename=".$filename, LOG_DEBUG);
117 
118  // Search template files
119  $file = ''; $classname = ''; $filefound = 0;
120  $dirmodels = array('/');
121  if (is_array($conf->modules_parts['models'])) $dirmodels = array_merge($dirmodels, $conf->modules_parts['models']);
122  foreach ($dirmodels as $reldir)
123  {
124  foreach (array('doc', 'pdf') as $prefix)
125  {
126  $file = $prefix."_".$template.".class.php";
127 
128  // On verifie l'emplacement du modele
129  $file = dol_buildpath($reldir."core/modules/printsheet/doc/".$file, 0);
130  if (file_exists($file))
131  {
132  $filefound = 1;
133  $classname = $prefix.'_'.$template;
134  break;
135  }
136  }
137  if ($filefound) break;
138  }
139 
140  // Charge le modele
141  if ($filefound)
142  {
143  require_once $file;
144 
145  $obj = new $classname($db);
146 
147  // We save charset_output to restore it because write_file can change it if needed for
148  // output format that does not support UTF8.
149  $sav_charset_output = $outputlangs->charset_output;
150  if ($obj->write_file($arrayofrecords, $outputlangs, $srctemplatepath, $outputdir, $filename) > 0)
151  {
152  $outputlangs->charset_output = $sav_charset_output;
153 
154  $fullpath = $obj->result['fullpath'];
155 
156  // Output to http stream
157  clearstatcache();
158 
159  $attachment = true;
160  if (!empty($conf->global->MAIN_DISABLE_FORCE_SAVEAS)) $attachment = false;
161  $type = dol_mimetype($filename);
162 
163  //if ($encoding) header('Content-Encoding: '.$encoding);
164  if ($type) header('Content-Type: '.$type);
165  if ($attachment) header('Content-Disposition: attachment; filename="'.$filename.'"');
166  else header('Content-Disposition: inline; filename="'.$filename.'"');
167 
168  // Ajout directives pour resoudre bug IE
169  header('Cache-Control: Public, must-revalidate');
170  header('Pragma: public');
171 
172  readfile($fullpath);
173 
174  return 1;
175  } else {
176  $outputlangs->charset_output = $sav_charset_output;
177  dol_print_error($db, "doc_label_pdf_create Error: ".$obj->error);
178  return -1;
179  }
180  } else {
181  dol_print_error('', $langs->trans("Error")." ".$langs->trans("ErrorFileDoesNotExists", $file));
182  return -1;
183  }
184 }
Parent class of document generator for address sheet.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
dol_mimetype($file, $default= 'application/octet-stream', $mode=0)
Return mime type of a file.
dol_strlen($string, $stringencoding= 'UTF-8')
Make a strlen call.
liste_modeles($db, $maxfilenamelength=0)
Return list of active generation modules.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename= '', $restricttologhandler= '', $logcontext=null)
Write log message into outputs.
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)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getListOfModels($db, $type, $maxfilenamelength=0)
Return list of activated modules usable for document generation.