dolibarr 20.0.0
doc_generic_asset_odt.modules.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2010-2012 Laurent Destailleur <eldy@users.sourceforge.net>
3 * Copyright (C) 2012 Juanjo Menent <jmenent@2byte.es>
4 * Copyright (C) 2014 Marcos García <marcosgdf@gmail.com>
5 * Copyright (C) 2016 Charlie Benke <charlie@patas-monkey.com>
6 * Copyright (C) 2018-2021 Philippe Grand <philippe.grand@atoo-net.com>
7 * Copyright (C) 2018-2024 Frédéric France <frederic.france@free.fr>
8 *
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 3 of the License, or
12 * (at your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this program. If not, see <https://www.gnu.org/licenses/>.
21 * or see https://www.gnu.org/
22 */
23
30require_once DOL_DOCUMENT_ROOT . '/asset/core/modules/asset/modules_asset.php';
31require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
32require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
33require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
34require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
35require_once DOL_DOCUMENT_ROOT.'/core/lib/doc.lib.php';
36
37
42{
46 public $version = 'dolibarr';
47
53 public function __construct($db)
54 {
55 global $conf, $langs, $mysoc;
56
57 // Load translation files required by the page
58 $langs->loadLangs(array("main", "companies"));
59
60 $this->db = $db;
61 $this->name = "ODT templates";
62 $this->description = $langs->trans("DocumentModelOdt");
63 $this->scandir = 'ASSET_ASSET_ADDON_PDF_ODT_PATH'; // Name of constant that is used to save list of directories to scan
64
65 // Page size for A4 format
66 $this->type = 'odt';
67 $this->page_largeur = 0;
68 $this->page_hauteur = 0;
69 $this->format = array($this->page_largeur, $this->page_hauteur);
70 $this->marge_gauche = 0;
71 $this->marge_droite = 0;
72 $this->marge_haute = 0;
73 $this->marge_basse = 0;
74
75 $this->option_logo = 1; // Display logo
76 $this->option_tva = 0; // Manage the vat option FACTURE_TVAOPTION
77 $this->option_modereg = 0; // Display payment mode
78 $this->option_condreg = 0; // Display payment terms
79 $this->option_multilang = 1; // Available in several languages
80 $this->option_escompte = 0; // Displays if there has been a discount
81 $this->option_credit_note = 0; // Support credit notes
82 $this->option_freetext = 1; // Support add of a personalised text
83 $this->option_draft_watermark = 0; // Support add of a watermark on drafts
84
85 // Get source company
86 $this->emetteur = $mysoc;
87 if (!$this->emetteur->country_code) {
88 $this->emetteur->country_code = substr($langs->defaultlang, -2); // By default if not defined
89 }
90 }
91
92
99 public function info($langs)
100 {
101 global $conf, $langs;
102
103 // Load translation files required by the page
104 $langs->loadLangs(array("errors", "companies"));
105
106 $form = new Form($this->db);
107
108 $texte = $this->description.".<br>\n";
109 $texte .= '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
110 $texte .= '<input type="hidden" name="token" value="'.newToken().'">';
111 $texte .= '<input type="hidden" name="action" value="setModuleOptions">';
112 $texte .= '<input type="hidden" name="param1" value="ASSET_ASSET_ADDON_PDF_ODT_PATH">';
113 $texte .= '<table class="nobordernopadding" width="100%">';
114
115 // List of directories area
116 $texte .= '<tr><td>';
117 $texttitle = $langs->trans("ListOfDirectories");
118 $listofdir = explode(',', preg_replace('/[\r\n]+/', ',', trim($conf->global->ASSET_ASSET_ADDON_PDF_ODT_PATH)));
119 $listoffiles = array();
120 foreach ($listofdir as $key => $tmpdir) {
121 $tmpdir = trim($tmpdir);
122 $tmpdir = preg_replace('/DOL_DATA_ROOT/', DOL_DATA_ROOT, $tmpdir);
123 if (!$tmpdir) {
124 unset($listofdir[$key]);
125 continue;
126 }
127 if (!is_dir($tmpdir)) {
128 $texttitle .= img_warning($langs->trans("ErrorDirNotFound", $tmpdir), 0);
129 } else {
130 $tmpfiles = dol_dir_list($tmpdir, 'files', 0, '\.(ods|odt)');
131 if (count($tmpfiles)) {
132 $listoffiles = array_merge($listoffiles, $tmpfiles);
133 }
134 }
135 }
136 $texthelp = $langs->trans("ListOfDirectoriesForModelGenODT");
137 $texthelp .= '<br><br><span class="opacitymedium">'.$langs->trans("ExampleOfDirectoriesForModelGen").'</span>';
138 // Add list of substitution keys
139 $texthelp .= '<br>'.$langs->trans("FollowingSubstitutionKeysCanBeUsed").'<br>';
140 $texthelp .= $langs->transnoentitiesnoconv("FullListOnOnlineDocumentation"); // This contains an url, we don't modify it
141
142 if (!getDolGlobalString('MAIN_NO_MULTIDIR_FOR_ODT')) {
143 $texte .= $form->textwithpicto($texttitle, $texthelp, 1, 'help', '', 1, 3, $this->name);
144 $texte .= '<div><div style="display: inline-block; min-width: 100px; vertical-align: middle;">';
145 $texte .= '<textarea class="flat" cols="60" name="value1">';
146 $texte .= getDolGlobalString('ASSET_ASSET_ADDON_PDF_ODT_PATH');
147 $texte .= '</textarea>';
148 $texte .= '</div><div style="display: inline-block; vertical-align: middle;">';
149 $texte .= '<input type="submit" class="button button-edit reposition smallpaddingimp" name="Button"value="'.$langs->trans("Modify").'">';
150 $texte .= '<br></div></div>';
151 } else {
152 $texte .= '<br>';
153 $texte .= '<input type="hidden" name="value1" value="ASSET_ASSET_ADDON_PDF_ODT_PATH">';
154 }
155
156 // Scan directories
157 $nbofiles = count($listoffiles);
158 if (getDolGlobalString('ASSET_ASSET_ADDON_PDF_ODT_PATH')) {
159 $texte .= $langs->trans("NumberOfModelFilesFound").': <b>';
160 //$texte.=$nbofiles?'<a id="a_'.get_class($this).'" href="#">':'';
161 $texte .= count($listoffiles);
162 //$texte.=$nbofiles?'</a>':'';
163 $texte .= '</b>';
164 }
165
166 if ($nbofiles) {
167 $texte .= '<div id="div_'.get_class($this).'" class="hidden">';
168 foreach ($listoffiles as $file) {
169 $texte .= '- '.$file['name'].' <a href="'.DOL_URL_ROOT.'/document.php?modulepart=doctemplates&file=asset_asset/'.urlencode(basename($file['name'])).'">'.img_picto('', 'listlight').'</a>';
170 $texte .= ' &nbsp; <a class="reposition" href="'.$_SERVER["PHP_SELF"].'?modulepart=doctemplates&keyforuploaddir=ASSET_ASSET_ADDON_PDF_ODT_PATH&action=deletefile&token='.newToken().'&file='.urlencode(basename($file['name'])).'">'.img_picto('', 'delete').'</a>';
171 $texte .= '<br>';
172 }
173 $texte .= '</div>';
174 }
175
176 $texte .= '</td>';
177
178 $texte .= '</tr>';
179
180 $texte .= '</table>';
181 $texte .= '</form>';
182
183 return $texte;
184 }
185
186 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
198 public function write_file($object, $outputlangs, $srctemplatepath, $hidedetails = 0, $hidedesc = 0, $hideref = 0)
199 {
200 // phpcs:enable
201 global $user, $langs, $conf, $mysoc, $hookmanager;
202
203 if (empty($srctemplatepath)) {
204 dol_syslog("doc_generic_odt::write_file parameter srctemplatepath empty", LOG_WARNING);
205 return -1;
206 }
207
208 // Add odtgeneration hook
209 if (!is_object($hookmanager)) {
210 include_once DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php';
211 $hookmanager = new HookManager($this->db);
212 }
213 $hookmanager->initHooks(array('odtgeneration'));
214 global $action;
215
216 if (!is_object($outputlangs)) {
217 $outputlangs = $langs;
218 }
219 $sav_charset_output = $outputlangs->charset_output;
220 $outputlangs->charset_output = 'UTF-8';
221
222 $outputlangs->loadLangs(array("main", "dict", "companies", "bills"));
223
224 if ($conf->asset->dir_output) {
225 // If $object is id instead of object
226 if (!is_object($object)) {
227 $id = $object;
228 $object = new Asset($this->db);
229 $result = $object->fetch($id);
230 if ($result < 0) {
231 dol_print_error($this->db, $object->error);
232 return -1;
233 }
234 }
235
236 $object->fetch_thirdparty();
237
238 $dir = $conf->asset->multidir_output[isset($object->entity) ? $object->entity : 1];
239 $objectref = dol_sanitizeFileName($object->ref);
240 if (!preg_match('/specimen/i', $objectref)) {
241 $dir .= "/".$objectref;
242 }
243 $file = $dir."/".$objectref.".odt";
244
245 if (!file_exists($dir)) {
246 if (dol_mkdir($dir) < 0) {
247 $this->error = $langs->transnoentities("ErrorCanNotCreateDir", $dir);
248 return -1;
249 }
250 }
251
252 if (file_exists($dir)) {
253 //print "srctemplatepath=".$srctemplatepath; // Src filename
254 $newfile = basename($srctemplatepath);
255 $newfiletmp = preg_replace('/\.od[ts]/i', '', $newfile);
256 $newfiletmp = preg_replace('/template_/i', '', $newfiletmp);
257 $newfiletmp = preg_replace('/modele_/i', '', $newfiletmp);
258 $newfiletmp = $objectref.'_'.$newfiletmp;
259 //$file=$dir.'/'.$newfiletmp.'.'.dol_print_date(dol_now(),'%Y%m%d%H%M%S').'.odt';
260 // Get extension (ods or odt)
261 $newfileformat = substr($newfile, strrpos($newfile, '.') + 1);
262 if (getDolGlobalString('MAIN_DOC_USE_TIMING')) {
263 $format = getDolGlobalString('MAIN_DOC_USE_TIMING');
264 if ($format == '1') {
265 $format = '%Y%m%d%H%M%S';
266 }
267 $filename = $newfiletmp.'-'.dol_print_date(dol_now(), $format).'.'.$newfileformat;
268 } else {
269 $filename = $newfiletmp.'.'.$newfileformat;
270 }
271 $file = $dir.'/'.$filename;
272 //print "newdir=".$dir;
273 //print "newfile=".$newfile;
274 //print "file=".$file;
275 //print "conf->societe->dir_temp=".$conf->societe->dir_temp;
276
277 dol_mkdir($conf->asset->dir_temp);
278 if (!is_writable($conf->asset->dir_temp)) {
279 $this->error = $langs->transnoentities("ErrorFailedToWriteInTempDirectory", $conf->asset->dir_temp);
280 dol_syslog('Error in write_file: ' . $this->error, LOG_ERR);
281 return -1;
282 }
283
284 // If CUSTOMER contact defined on order, we use it
285 $usecontact = false;
286 $arrayidcontact = $object->getIdContact('external', 'CUSTOMER');
287 if (count($arrayidcontact) > 0) {
288 $usecontact = true;
289 $result = $object->fetch_contact($arrayidcontact[0]);
290 }
291
292 // Recipient name
293 $contactobject = null;
294 if (!empty($usecontact)) {
295 // We can use the company of contact instead of thirdparty company
296 if ($object->contact->socid != $object->thirdparty->id && (!isset($conf->global->MAIN_USE_COMPANY_NAME_OF_CONTACT) || getDolGlobalString('MAIN_USE_COMPANY_NAME_OF_CONTACT'))) {
297 $object->contact->fetch_thirdparty();
298 $socobject = $object->contact->thirdparty;
299 $contactobject = $object->contact;
300 } else {
301 $socobject = $object->thirdparty;
302 // if we have a CUSTOMER contact and we don't use it as thirdparty recipient we store the contact object for later use
303 $contactobject = $object->contact;
304 }
305 } else {
306 $socobject = $object->thirdparty;
307 }
308
309 // Make substitution
310 $substitutionarray = array(
311 '__FROM_NAME__' => $this->emetteur->name,
312 '__FROM_EMAIL__' => $this->emetteur->email,
313 '__TOTAL_TTC__' => $object->total_ttc,
314 '__TOTAL_HT__' => $object->total_ht,
315 '__TOTAL_VAT__' => $object->total_tva
316 );
317 complete_substitutions_array($substitutionarray, $langs, $object);
318 // Call the ODTSubstitution hook
319 $parameters = array('file'=>$file, 'object'=>$object, 'outputlangs'=>$outputlangs, 'substitutionarray'=>&$substitutionarray);
320 $reshook = $hookmanager->executeHooks('ODTSubstitution', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
321
322 // Line of free text
323 $newfreetext = '';
324 $paramfreetext = 'ORDER_FREE_TEXT';
325 if (!empty($conf->global->$paramfreetext)) {
326 $newfreetext = make_substitutions(getDolGlobalString($paramfreetext), $substitutionarray);
327 }
328
329 // Open and load template
330 require_once ODTPHP_PATH.'odf.php';
331 try {
332 $odfHandler = new Odf(
333 $srctemplatepath,
334 array(
335 'PATH_TO_TMP' => $conf->asset->dir_temp,
336 'ZIP_PROXY' => 'PclZipProxy', // PhpZipProxy or PclZipProxy. Got "bad compression method" error when using PhpZipProxy.
337 'DELIMITER_LEFT' => '{',
338 'DELIMITER_RIGHT' => '}'
339 )
340 );
341 } catch (Exception $e) {
342 $this->error = $e->getMessage();
343 dol_syslog($e->getMessage(), LOG_INFO);
344 return -1;
345 }
346 // After construction $odfHandler->contentXml contains content and
347 // [!-- BEGIN row.lines --]*[!-- END row.lines --] has been replaced by
348 // [!-- BEGIN lines --]*[!-- END lines --]
349
350 // Make substitutions into odt of freetext
351 try {
352 $odfHandler->setVars('free_text', $newfreetext, true, 'UTF-8');
353 } catch (OdfException $e) {
354 dol_syslog($e->getMessage(), LOG_INFO);
355 }
356
357 // Define substitution array
358 $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $object);
359 $array_object_from_properties = $this->get_substitutionarray_each_var_object($object, $outputlangs);
360 $array_objet = $this->get_substitutionarray_object($object, $outputlangs);
361 $array_user = $this->get_substitutionarray_user($user, $outputlangs);
362 $array_soc = $this->get_substitutionarray_mysoc($mysoc, $outputlangs);
363 $array_thirdparty = $this->get_substitutionarray_thirdparty($socobject, $outputlangs);
364 $array_other = $this->get_substitutionarray_other($outputlangs);
365 // retrieve contact information for use in object as contact_xxx tags
366 $array_thirdparty_contact = array();
367 if ($usecontact && is_object($contactobject)) {
368 $array_thirdparty_contact = $this->get_substitutionarray_contact($contactobject, $outputlangs, 'contact');
369 }
370
371 $tmparray = array_merge($substitutionarray, $array_object_from_properties, $array_user, $array_soc, $array_thirdparty, $array_objet, $array_other, $array_thirdparty_contact);
372 complete_substitutions_array($tmparray, $outputlangs, $object);
373
374 // Call the ODTSubstitution hook
375 $parameters = array('odfHandler'=>&$odfHandler, 'file'=>$file, 'object'=>$object, 'outputlangs'=>$outputlangs, 'substitutionarray'=>&$tmparray);
376 $reshook = $hookmanager->executeHooks('ODTSubstitution', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
377
378 foreach ($tmparray as $key => $value) {
379 try {
380 if (preg_match('/logo$/', $key)) {
381 // Image
382 if (file_exists($value)) {
383 $odfHandler->setImage($key, $value);
384 } else {
385 $odfHandler->setVars($key, 'ErrorFileNotFound', true, 'UTF-8');
386 }
387 } else {
388 // Text
389 $odfHandler->setVars($key, $value, true, 'UTF-8');
390 }
391 } catch (OdfException $e) {
392 dol_syslog($e->getMessage(), LOG_INFO);
393 }
394 }
395 // Replace tags of lines
396 $foundtagforlines = 1;
397 try {
398 $listlines = $odfHandler->setSegment('lines');
399 } catch (OdfExceptionSegmentNotFound $e) {
400 // We may arrive here if tags for lines not present into template
401 $foundtagforlines = 0;
402 dol_syslog($e->getMessage(), LOG_INFO);
403 }
404 if ($foundtagforlines) {
405 $linenumber = 0;
406 foreach ($object->lines as $line) {
407 $linenumber++;
408 $tmparray = $this->get_substitutionarray_lines($line, $outputlangs, $linenumber);
409 complete_substitutions_array($tmparray, $outputlangs, $object, $line, "completesubstitutionarray_lines");
410 // Call the ODTSubstitutionLine hook
411 $parameters = array('odfHandler'=>&$odfHandler, 'file'=>$file, 'object'=>$object, 'outputlangs'=>$outputlangs, 'substitutionarray'=>&$tmparray, 'line'=>$line);
412 $reshook = $hookmanager->executeHooks('ODTSubstitutionLine', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
413 foreach ($tmparray as $key => $val) {
414 try {
415 $listlines->setVars($key, $val, true, 'UTF-8');
416 } catch (SegmentException $e) {
417 dol_syslog($e->getMessage(), LOG_INFO);
418 }
419 }
420 $listlines->merge();
421 }
422 try {
423 $odfHandler->mergeSegment($listlines);
424 } catch (OdfException $e) {
425 $this->error = $e->getMessage();
426 dol_syslog($this->error, LOG_WARNING);
427 return -1;
428 }
429 }
430
431 // Replace labels translated
432 $tmparray = $outputlangs->get_translations_for_substitutions();
433 foreach ($tmparray as $key => $value) {
434 try {
435 $odfHandler->setVars($key, $value, true, 'UTF-8');
436 } catch (OdfException $e) {
437 dol_syslog($e->getMessage(), LOG_INFO);
438 }
439 }
440
441 // Call the beforeODTSave hook
442
443 $parameters = array('odfHandler'=>&$odfHandler, 'file'=>$file, 'object'=>$object, 'outputlangs'=>$outputlangs, 'substitutionarray'=>&$tmparray);
444 $reshook = $hookmanager->executeHooks('beforeODTSave', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
445
446 // Write new file
447 if (getDolGlobalString('MAIN_ODT_AS_PDF')) {
448 try {
449 $odfHandler->exportAsAttachedPDF($file);
450 } catch (Exception $e) {
451 $this->error = $e->getMessage();
452 dol_syslog($e->getMessage(), LOG_INFO);
453 return -1;
454 }
455 } else {
456 try {
457 $odfHandler->saveToDisk($file);
458 } catch (Exception $e) {
459 $this->error = $e->getMessage();
460 dol_syslog($e->getMessage(), LOG_INFO);
461 return -1;
462 }
463 }
464
465 $parameters = array('odfHandler'=>&$odfHandler, 'file'=>$file, 'object'=>$object, 'outputlangs'=>$outputlangs, 'substitutionarray'=>&$tmparray);
466 $reshook = $hookmanager->executeHooks('afterODTCreation', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
467
468 dolChmod($file);
469
470 $odfHandler = null; // Destroy object
471
472 $this->result = array('fullpath'=>$file);
473
474 return 1; // Success
475 } else {
476 $this->error = $langs->transnoentities("ErrorCanNotCreateDir", $dir);
477 return -1;
478 }
479 }
480
481 return -1;
482 }
483}
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
Class for Asset.
get_substitutionarray_each_var_object(&$object, $outputlangs, $recursive=1)
Define array with couple substitution key => substitution value.
get_substitutionarray_mysoc($mysoc, $outputlangs)
Define array with couple substitution key => substitution value.
get_substitutionarray_contact($object, $outputlangs, $array_key='object')
Define array with couple substitution key => substitution value.
get_substitutionarray_other($outputlangs)
Define array with couple substitution key => substitution value.
get_substitutionarray_lines($line, $outputlangs, $linenumber=0)
Define array with couple substitution key => substitution value Note that vars into substitutions arr...
get_substitutionarray_thirdparty($object, $outputlangs, $array_key='company')
Define array with couple substitution key => substitution value For example {company_name}...
get_substitutionarray_user($user, $outputlangs)
Define array with couple substitution key => substitution value.
Class to manage generation of HTML components Only common components must be here.
Class to manage hooks.
Parent class for documents models.
Class to build documents using ODF templates generator.
write_file($object, $outputlangs, $srctemplatepath, $hidedetails=0, $hidedesc=0, $hideref=0)
Function to build a document on disk using the generic odt module.
info($langs)
Return description of a module.
print $script_file $mode $langs defaultlang(is_numeric($duration_value) ? " delay=". $duration_value :"").(is_numeric($duration_value2) ? " after cd cd cd description as description
Only used if Module[ID]Desc translation string is not found.
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:63
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
dolChmod($filepath, $newmask='')
Change mod of a file.
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).
newToken()
Return the value of token currently saved into session with name 'newtoken'.
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...
dol_sanitizeFileName($str, $newstr='_', $unaccent=1)
Clean a string to use it as a file name.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getCommonSubstitutionArray($outputlangs, $onlykey=0, $exclude=null, $object=null, $include=null)
Return array of possible common substitutions.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_mkdir($dir, $dataroot='', $newmask='')
Creation of a directory (this can create recursive subdir)
if(preg_match('/crypted:/i', $dolibarr_main_db_pass)||!empty($dolibarr_main_db_encrypted_pass)) $conf db type
Definition repair.php:137
$conf db name
Only used if Module[ID]Name translation string is not found.
Definition repair.php:140