lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New: La procdure de migration peut raliser des migrations complexes en php (pas seulement en sql).

Browse Source 
La page upgrade fait la migration du sql
La page upgrade2 fait les migrations php
This commit is contained in:
Laurent Destailleur 2005-10-28 20:26:33 +00:00
parent 175515e700
commit d3aa26f61b
6 changed files with 874 additions and 724 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

330
htdocs/admin/update/checkrepair.php
View File

@ -1,330 +0,0 @@
<?php
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2005 Laurent Destailleur <eldy@users.sourceforge.net>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*/
/**
\file htdocs/admin/update/checkrepair.php
\ingroup core
\brief Page correction/mise a jour de la base
\version $Revision$
*/
require("./pre.inc.php");
if (!$user->admin)
accessforbidden();
llxHeader();
print_titre("Vérifications et réparation des données de la base");
/*
* Mise a jour des paiements (lien n-n paiements factures)
*/
print '<br>';
print "<b>Mise a jour des paiments (lien n-n paiements-factures)</b><br>\n";
$sql = "SELECT p.rowid, p.fk_facture, p.amount";
$sql .= " FROM ".MAIN_DB_PREFIX."paiement as p";
$sql .= " WHERE p.fk_facture > 0";
$resql = $db->query($sql);
if ($resql)
{
$i = 0;
$row = array();
$num = $db->num_rows($resql);
while ($i < $num)
{
$obj = $db->fetch_object($resql);
$row[$i][0] = $obj->rowid ;
$row[$i][1] = $obj->fk_facture;
$row[$i][2] = $obj->amount;
$i++;
}
}
else {
dolibarr_print_error($db);
}
if ($num)
{
print "$num paiement(s) à mettre à jour<br>\n";
if ($db->begin())
{
$res = 0;
for ($i = 0 ; $i < sizeof($row) ; $i++)
{
$sql = "INSERT INTO ".MAIN_DB_PREFIX."paiement_facture (fk_facture, fk_paiement, amount)";
$sql .= " VALUES (".$row[$i][1].",".$row[$i][0].",".$row[$i][2].")";
$res += $db->query($sql);
$sql = "UPDATE ".MAIN_DB_PREFIX."paiement SET fk_facture = 0 WHERE rowid = ".$row[$i][0];
$res += $db->query($sql);
print "Mise a jour paiement(s) ".$row[$i]."<br>\n";
}
}
if ($res == (2 * sizeof($row)))
{
$db->commit();
print "Mise à jour réussie<br>";
}
else
{
$db->rollback();
print "La mise à jour à échouée<br>";
}
}
else
{
print "Pas ou plus de paiements orhpelins à corriger.<br>\n";
}
/*
* Mise a jour des date de contrats non renseignées
*/
print '<br>';
print "<b>Mise a jour des dates de contrats non renseignées</b><br>\n";
$sql="update llx_contrat set date_contrat=tms where date_contrat is null";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) print "Ok pour date de contrat<br>\n";
else print "Pas ou plus de date de contrats à renseigner.<br>\n";
$sql="update llx_contrat set datec=tms where datec is null";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) print "Ok pour date création<br>\n";
else print "Pas ou plus de date de création à renseigner.<br>\n";
/*
* Mise a jour des contrats (gestion du contrat + detail de contrat)
*/
$nberr=0;
print '<br>';
print "<b>Mise a jour des contrats sans details (gestion du contrat + detail de contrat)</b><br>\n";
$sql = "SELECT c.rowid as cref, c.date_contrat, c.statut, c.mise_en_service, c.fin_validite, c.date_cloture, c.fk_product, c.fk_facture, c.fk_user_author,";
$sql.= " p.ref, p.label, p.description, p.price, p.tva_tx, p.duration, cd.rowid";
$sql.= " FROM ".MAIN_DB_PREFIX."contrat as c";
$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product as p";
$sql.= " ON c.fk_product = p.rowid";
$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."contratdet as cd";
$sql.= " ON c.rowid=cd.fk_contrat";
$sql.= " WHERE cd.rowid IS NULL AND p.rowid IS NOT NULL";
$resql = $db->query($sql);
if ($resql)
{
$i = 0;
$row = array();
$num = $db->num_rows($resql);
if ($num)
{
print "$num contrat(s) à mettre à jour<br>\n";
$db->begin();
while ($i < $num)
{
$obj = $db->fetch_object($resql);
$sql = "INSERT INTO ".MAIN_DB_PREFIX."contratdet (";
$sql.= "fk_contrat, fk_product, statut, label, description,";
$sql.= "date_ouverture_prevue, date_ouverture, date_fin_validite, tva_tx, qty,";
$sql.= "subprice, price_ht, fk_user_author, fk_user_ouverture)";
$sql.= " VALUES (";
$sql.= $obj->cref.",".($obj->fk_product?$obj->fk_product:0).",";
$sql.= ($obj->mise_en_service?"4":"0").",";
$sql.= "'".addslashes($obj->label)."', null,";
$sql.= ($obj->mise_en_service?"'".$obj->mise_en_service."'":($obj->date_contrat?"'".$obj->date_contrat."'":"null")).",";
$sql.= ($obj->mise_en_service?"'".$obj->mise_en_service."'":"null").",";
$sql.= ($obj->fin_validite?"'".$obj->fin_validite."'":"null").",";
$sql.= "'".$obj->tva_tx."', 1,";
$sql.= "'".$obj->price."', '".$obj->price."',".$obj->fk_user_author.",";
$sql.= ($obj->mise_en_service?$obj->fk_user_author:"null");
$sql.= ")";
if ($db->query($sql))
{
print "Création ligne contrat pour contrat ref ".$obj->cref."<br>\n";
}
else
{
dolibarr_print_error($db);
$nberr++;
}
$i++;
}
if (! $nberr)
{
// $db->rollback();
$db->commit();
print "Mise à jour réussie<br>";
}
else
{
$db->rollback();
print "La mise à jour à échouée<br>";
}
}
else {
print "Pas ou plus de contrats (liés à un produit) sans lignes de details à corriger.<br>\n";
}
}
else
{
print "Le champ fk_facture n'existe plus. Pas d'opération à faire.<br>\n";
// dolibarr_print_error($db);
}
/*
* Mise a jour date contrat avec date min effective mise en service si inférieur
*/
$nberr=0;
print '<br>';
print "<b>Mise a jour dates contrat incorrectes (pour contrats avec detail en service)</b><br>\n";
$sql = "SELECT c.rowid as cref, c.datec, c.date_contrat, MIN(cd.date_ouverture) as datemin";
$sql.= " FROM ".MAIN_DB_PREFIX."contrat as c,";
$sql.= " ".MAIN_DB_PREFIX."contratdet as cd";
$sql.= " WHERE c.rowid=cd.fk_contrat AND cd.date_ouverture IS NOT NULL";
$sql.= " GROUP BY c.rowid, c.date_contrat";
$resql = $db->query($sql);
if ($resql)
{
$i = 0;
$row = array();
$num = $db->num_rows($resql);
if ($num)
{
$nbcontratsmodifie=0;
$db->begin();
while ($i < $num)
{
$obj = $db->fetch_object($resql);
if ($obj->date_contrat > $obj->datemin)
{
print "Correction contrat ".$obj->cref." (Date contrat=".$obj->date_contrat.", Date mise service min=".$obj->datemin.")<br>\n";
$sql ="UPDATE ".MAIN_DB_PREFIX."contrat";
$sql.=" SET date_contrat='".$obj->datemin."'";
$sql.=" WHERE rowid=".$obj->cref;
$resql2=$db->query($sql);
if (! $resql2) dolibarr_print_error($db);
$nbcontratsmodifie++;
}
$i++;
}
$db->commit();
if ($nbcontratsmodifie) print "$nbcontratsmodifie contrats modifiés<br>\n";
else print "Pas ou plus de contrats à corriger.<br>\n";
}
}
else
{
dolibarr_print_error($db);
}
/*
* Mise a jour des dates de création de contrat
*/
print '<br>';
print "<b>Mise a jour des dates de création de contrat qui ont une valeur incohérente</b><br>\n";
$sql="update llx_contrat set datec=date_contrat where datec is null or datec > date_contrat";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) print "Ok<br>\n";
else print "Pas ou plus de date de contrats à corriger.<br>\n";
/*
* Reouverture des contrats qui ont au moins une ligne non fermée
*/
print '<br>';
print "<b>Reouverture des contrats qui ont au moins un service actif non fermée</b><br>\n";
$sql = "SELECT c.rowid as cref FROM llx_contrat as c, llx_contratdet as cd";
$sql.= " WHERE cd.statut = 4 AND c.statut=2 AND c.rowid=cd.fk_contrat";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) {
$i = 0;
$row = array();
$num = $db->num_rows($resql);
if ($num)
{
$nbcontratsmodifie=0;
$db->begin();
while ($i < $num)
{
$obj = $db->fetch_object($resql);
print "Réouverture contrat ".$obj->cref."<br>\n";
$sql ="UPDATE ".MAIN_DB_PREFIX."contrat";
$sql.=" SET statut=1";
$sql.=" WHERE rowid=".$obj->cref;
$resql2=$db->query($sql);
if (! $resql2) dolibarr_print_error($db);
$nbcontratsmodifie++;
$i++;
}
$db->commit();
if ($nbcontratsmodifie) print "$nbcontratsmodifie contrats modifiés<br>\n";
else print "Pas ou plus de contrats à corriger.<br>\n";
}
}
else print "Pas ou plus de contrats à réouvrir.<br>\n";
print "<br>";
$db->close();
llxFooter('$Date$ - $Revision$');
?>

65
htdocs/admin/update/pre.inc.php
View File

@ -1,65 +0,0 @@
<?php
/* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2005 Laurent Destailleur <eldy@users.sourceforge.net>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*/
/**
\file htdocs/admin/update/pre.inc.php
\brief Fichier gestionnaire du menu de gauche de l'espace mise a jour données
\version $Revision$
*/
require("../../main.inc.php");
$langs->load("admin");
function llxHeader($head = "", $title="", $help_url='')
{
global $user, $langs;
top_menu($head);
$menu = new Menu();
$langs->load("admin");
$langs->load("users");
$menu->add(DOL_URL_ROOT."/admin/index.php", $langs->trans("GlobalSetup"));
$menu->add(DOL_URL_ROOT."/admin/ihm.php", $langs->trans("GUISetup"));
$menu->add(DOL_URL_ROOT."/admin/modules.php", $langs->trans("Modules"));
$menu->add(DOL_URL_ROOT."/admin/boxes.php", $langs->trans("Boxes"));
$menu->add(DOL_URL_ROOT."/admin/triggers.php", $langs->trans("Triggers"));
$menu->add(DOL_URL_ROOT."/admin/perms.php", $langs->trans("DefaultRights"));
$menu->add(DOL_URL_ROOT."/admin/dict.php", $langs->trans("DictionnarySetup"));
$menu->add(DOL_URL_ROOT."/admin/const.php", $langs->trans("OtherSetup"));
$menu->add(DOL_URL_ROOT."/admin/system/", $langs->trans("System"));
left_menu($menu->liste, $help_url);
}
?>

2
htdocs/install/default.css
View File

@ -145,7 +145,7 @@ background-color: #E5E5E5;
}
tr.bg2 {
background-color: #B5E5E5;
background-color: #B5C5C5;
}
td.label {

221
htdocs/install/inc.php
View File

@ -1,110 +1,111 @@
<?php
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
* Copyright (C) 2004 Sebastien DiCintio <sdicintio@ressource-toi.org>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*
*/
/** \file htdocs/install/inc.php
\brief Fichier include du programme d'installation
\version $Revision$
*/
$docurl = '<a href="doc/dolibarr-install.html">documentation</a>';
$conffile = "../conf/conf.php";
// Récupère langues du navigateur et defini langcode
$langpref=$_SERVER['HTTP_ACCEPT_LANGUAGE'];
$langpref=eregi_replace(";[^,]*","",$langpref);
$langpref=eregi_replace("-","_",$langpref);
$langlist=split("[;,]",$langpref);
$langpart=split("_",$langlist[0]);
if ($langpart[1]) $langcode=$langpart[0]."_".strtoupper($langpart[1]);
else $langcode=$langpart[0]."_".strtoupper($langpart[0]);
// Defini objet langs
require_once("../translate.class.php");
$langs = new Translate("../langs", $langcode);
function pHeader($soutitre,$next,$action='set')
{
global $langs;
$langs->load("main");
$langs->load("admin");
print '<html>';
print '<head>';
print '<meta http-equiv="content-type" content="text/html; charset='.$langs->trans("charset").'">';
print '<link rel="stylesheet" type="text/css" href="./default.css">';
print '<title>'.$langs->trans("DolibarrSetup").'</title>';
print '</head>';
print '<body>';
print '<span class="titre"><a class="titre" href="index.php">'.$langs->trans("DolibarrSetup").'</a></span>';
print '<form action="'.$next.'.php" method="POST">';
print '<input type="hidden" name="action" value="'.$action.'">';
print '<div class="main">';
if ($soutitre) {
print '<div class="soustitre">'.$soutitre.'</div>';
}
print '<div class="main-inside">';
}
function pFooter($nonext=0,$addlang=1)
{
global $langs;
$langs->load("main");
$langs->load("admin");
print '</div></div>';
if (! $nonext)
{
print '<div class="barrebottom"><input type="submit" value="'.$langs->trans("NextStep").' ->"></div>';
}
if ($addlang) {
print '<input type="hidden" name="selectlang" value="'.$langs->defaultlang.'">';
}
print '</form>';
print '</body>';
print '</html>';
}
function dolibarr_syslog($message)
{
// Les fonctions syslog ne sont pas toujours installés ou autorisées chez les hébergeurs
if (function_exists("define_syslog_variables"))
{
// \todo Désactiver sous Windows (gros problème mémoire et faute de protections)
// if (1 == 2) {
define_syslog_variables();
openlog("dolibarr", LOG_PID | LOG_PERROR, LOG_USER); # LOG_USER au lieu de LOG_LOCAL0 car non accepté par tous les php
syslog(LOG_WARNING, $message);
closelog();
// }
}
}
?>
<?php
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
* Copyright (C) 2004 Sebastien DiCintio <sdicintio@ressource-toi.org>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*
*/
/** \file htdocs/install/inc.php
\brief Fichier include du programme d'installation
\version $Revision$
*/
$docurl = '<a href="doc/dolibarr-install.html">documentation</a>';
$conffile = "../conf/conf.php";
// Récupère langues du navigateur et defini langcode
$langpref=$_SERVER['HTTP_ACCEPT_LANGUAGE'];
$langpref=eregi_replace(";[^,]*","",$langpref);
$langpref=eregi_replace("-","_",$langpref);
$langlist=split("[;,]",$langpref);
$langpart=split("_",$langlist[0]);
if ($langpart[1]) $langcode=$langpart[0]."_".strtoupper($langpart[1]);
else $langcode=$langpart[0]."_".strtoupper($langpart[0]);
// Defini objet langs
require_once("../translate.class.php");
$langs = new Translate("../langs", $langcode);
$tab[0]=' class="bg1"';
$tab[1]=' class="bg2"';
function pHeader($soutitre,$next,$action='set')
{
global $langs;
$langs->load("main");
$langs->load("admin");
print '<html>';
print '<head>';
print '<meta http-equiv="content-type" content="text/html; charset='.$langs->trans("charset").'">';
print '<link rel="stylesheet" type="text/css" href="./default.css">';
print '<title>'.$langs->trans("DolibarrSetup").'</title>';
print '</head>';
print '<body>';
print '<span class="titre"><a class="titre" href="index.php">'.$langs->trans("DolibarrSetup").'</a></span>';
print '<form action="'.$next.'.php" method="POST">';
print '<input type="hidden" name="action" value="'.$action.'">';
print '<div class="main">';
if ($soutitre) {
print '<div class="soustitre">'.$soutitre.'</div>';
}
print '<div class="main-inside">';
}
function pFooter($nonext=0,$addlang=1)
{
global $langs;
$langs->load("main");
$langs->load("admin");
print '</div></div>';
if (! $nonext)
{
print '<div class="barrebottom"><input type="submit" value="'.$langs->trans("NextStep").' ->"></div>';
}
if ($addlang) {
print '<input type="hidden" name="selectlang" value="'.$langs->defaultlang.'">';
}
print '</form>';
print '</body>';
print '</html>';
}
function dolibarr_syslog($message)
{
// Les fonctions syslog ne sont pas toujours installés ou autorisées chez les hébergeurs
if (function_exists("define_syslog_variables"))
{
// \todo Désactiver sous Windows (gros problème mémoire et faute de protections)
// if (1 == 2) {
define_syslog_variables();
openlog("dolibarr", LOG_PID | LOG_PERROR, LOG_USER); # LOG_USER au lieu de LOG_LOCAL0 car non accepté par tous les php
syslog(LOG_WARNING, $message);
closelog();
// }
}
}
?>

436
htdocs/install/upgrade.php
View File

@ -1,218 +1,218 @@
<?php
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2004-2005 Laurent Destailleur <eldy@users.sourceforge.net>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*/
/**
\file htdocs/install/upgrade.php
\brief Execute le script de migration
\version $Revision$
*/
include_once("./inc.php");
$grant_query='';
$etape = 2;
$ok = 0;
// Cette page peut etre longue. On augmente le délai par défaut de 30 à 60.
// Ne fonctionne que si on est pas en safe_mode.
$err=error_reporting();
error_reporting(0);
set_time_limit(60);
error_reporting($err);
$setuplang=isset($_POST["selectlang"])?$_POST["selectlang"]:(isset($_GET["selectlang"])?$_GET["selectlang"]:$langcode);
$langs->defaultlang=$setuplang;
$langs->load("admin");
$langs->load("install");
pHeader($langs->trans("MigrateScript"),"etape5","upgrade");
if (file_exists($conffile))
{
include_once($conffile);
if (! isset($dolibarr_main_db_prefix) || ! $dolibarr_main_db_prefix) $dolibarr_main_db_prefix='llx_';
define('MAIN_DB_PREFIX',$dolibarr_main_db_prefix);
}
if($dolibarr_main_db_type == "mysql")
{
require_once($dolibarr_main_document_root . "/lib/mysql.lib.php");
$choix=1;
}
else
{
require_once($dolibarr_main_document_root . "/lib/pgsql.lib.php");
require_once($dolibarr_main_document_root . "/lib/grant.postgres.php");
$choix=2;
}
require_once($dolibarr_main_document_root . "/conf/conf.class.php");
if (isset($_GET["action"]) && $_GET["action"] == "upgrade")
{
print '<h2>'.$langs->trans("Database").'</h2>';
print '<table cellspacing="0" cellpadding="1" border="0" width="100%">';
$error=0;
$conf = new Conf();// on pourrait s'en passer
$conf->db->type = $dolibarr_main_db_type;
$conf->db->host = $dolibarr_main_db_host;
$conf->db->name = $dolibarr_main_db_name;
$conf->db->user = $dolibarr_main_db_user;
$conf->db->pass = $dolibarr_main_db_pass;
$db = new DoliDb($conf->db->type,$conf->db->host,$conf->db->user,$conf->db->pass,$conf->db->name);
if ($db->connected == 1)
{
print "<tr><td nowrap>";
print $langs->trans("ServerConnection")." : $dolibarr_main_db_host</td><td align=\"right\">".$langs->trans("OK")."</td></tr>";
$ok = 1 ;
}
else
{
print "<tr><td>Erreur lors de la création de : $dolibarr_main_db_name</td><td align=\"right\">".$langs->trans("Error")."</td></tr>";
}
if ($ok)
{
if($db->database_selected == 1)
{
dolibarr_syslog("Connexion réussie à la base : $dolibarr_main_db_name");
}
else
{
$ok = 0 ;
}
}
/***************************************************************************************
*
* Chargement fichiers dans migration
*
***************************************************************************************/
if ($ok)
{
if ($choix==1) $dir = "../../mysql/migration/";
else $dir = "../../pgsql/migration/";
$migfile='1.1.0-2.0.0.sql';
$i = 0;
$ok = 0;
$handle=opendir($dir);
while (($file = readdir($handle))!==false)
{
if (eregi($migfile,$file))
{
print '<tr><td nowrap>';
print $langs->trans("MigrateScript").' :</td><td align="right">'.$file.'</td></tr>';
$name = substr($file, 0, strlen($file) - 4);
$buffer = '';
$fp = fopen($dir.$file,"r");
if ($fp)
{
while (!feof ($fp))
{
$buf = fgets($fp, 4096);
$buf = ereg_replace('--(.*)','',$buf); // Delete SQL comments
//print $buf.'<br>';
$buffer .= $buf;
if (eregi(';',$buffer))
{
// Found new request
$arraysql[$i]=$buffer;
$i++;
$buffer='';
}
}
if ($buffer) $arraysql[$i]=$buffer;
fclose($fp);
}
// Loop on each request
foreach($arraysql as $i=>$sql)
{
// print '<tr><td>'.$langs->trans("Request").' '.$i.'</td>';
if ($db->query($sql))
{
// print '<td align="right">OK</td>';
}
else
{
$errno=$db->errno();
$okerror=array( 'DB_ERROR_TABLE_ALREADY_EXISTS',
'DB_ERROR_COLUMN_ALREADY_EXISTS',
'DB_ERROR_KEY_NAME_ALREADY_EXISTS',
'DB_ERROR_RECORD_ALREADY_EXISTS',
'DB_ERROR_NOSUCHTABLE',
'DB_ERROR_NOSUCHFIELD',
'DB_ERROR_CANNOT_CREATE' // Qd contrainte deja existante
);
if (in_array($errno,$okerror))
{
// print '<td align="right">'.$langs->trans("OK").'</td>';
}
else
{
print '<tr><td>'.$langs->trans("Request").' '.$i.'</td>';
print '<td>'.$langs->trans("Error")." ".$db->errno()." ".$db->error()."</td>";
print '</tr>';
$error++;
}
}
// print '</tr>';
}
}
}
closedir($handle);
if ($error == 0)
{
print '<tr><td>';
print $langs->trans("ProcessMigrateScript").'</td><td align="right">'.$langs->trans("OK").'</td></tr>';
$ok = 1;
}
}
print '</table>';
$db->close();
}
else
{
print '<div class="error">'.$langs->trans("ErrorWrongParameters").'</div>';
}
pFooter(!$ok);
?>
<?php
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* Copyright (C) 2004-2005 Laurent Destailleur <eldy@users.sourceforge.net>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*/
/**
\file htdocs/install/upgrade.php
\brief Execute le script de migration
\version $Revision$
*/
include_once("./inc.php");
$grant_query='';
$etape = 2;
$ok = 0;
// Cette page peut etre longue. On augmente le délai par défaut de 30 à 60.
// Ne fonctionne que si on est pas en safe_mode.
$err=error_reporting();
error_reporting(0);
set_time_limit(60);
error_reporting($err);
$setuplang=isset($_POST["selectlang"])?$_POST["selectlang"]:(isset($_GET["selectlang"])?$_GET["selectlang"]:$langcode);
$langs->defaultlang=$setuplang;
$langs->load("admin");
$langs->load("install");
pHeader($langs->trans("DatabaseMigration"),"upgrade2","upgrade");
if (file_exists($conffile))
{
include_once($conffile);
if (! isset($dolibarr_main_db_prefix) || ! $dolibarr_main_db_prefix) $dolibarr_main_db_prefix='llx_';
define('MAIN_DB_PREFIX',$dolibarr_main_db_prefix);
}
if($dolibarr_main_db_type == "mysql")
{
require_once($dolibarr_main_document_root . "/lib/mysql.lib.php");
$choix=1;
}
else
{
require_once($dolibarr_main_document_root . "/lib/pgsql.lib.php");
require_once($dolibarr_main_document_root . "/lib/grant.postgres.php");
$choix=2;
}
require_once($dolibarr_main_document_root . "/conf/conf.class.php");
if (isset($_GET["action"]) && $_GET["action"] == "upgrade")
{
print '<h2>'.$langs->trans("DatabaseMigration").'</h2>';
print '<table cellspacing="0" cellpadding="1" border="0" width="100%">';
$error=0;
$conf = new Conf();// on pourrait s'en passer
$conf->db->type = $dolibarr_main_db_type;
$conf->db->host = $dolibarr_main_db_host;
$conf->db->name = $dolibarr_main_db_name;
$conf->db->user = $dolibarr_main_db_user;
$conf->db->pass = $dolibarr_main_db_pass;
$db = new DoliDb($conf->db->type,$conf->db->host,$conf->db->user,$conf->db->pass,$conf->db->name);
if ($db->connected == 1)
{
print "<tr><td nowrap>";
print $langs->trans("ServerConnection")." : $dolibarr_main_db_host</td><td align=\"right\">".$langs->trans("OK")."</td></tr>";
$ok = 1 ;
}
else
{
print "<tr><td>Erreur lors de la création de : $dolibarr_main_db_name</td><td align=\"right\">".$langs->trans("Error")."</td></tr>";
}
if ($ok)
{
if($db->database_selected == 1)
{
dolibarr_syslog("Connexion réussie à la base : $dolibarr_main_db_name");
}
else
{
$ok = 0 ;
}
}
/***************************************************************************************
*
* Chargement fichiers dans migration
*
***************************************************************************************/
if ($ok)
{
if ($choix==1) $dir = "../../mysql/migration/";
else $dir = "../../pgsql/migration/";
$migfile='1.1.0-2.0.0.sql';
$i = 0;
$ok = 0;
$handle=opendir($dir);
while (($file = readdir($handle))!==false)
{
if (eregi($migfile,$file))
{
print '<tr><td nowrap>';
print $langs->trans("ChooseMigrateScript").'</td><td align="right">'.$file.'</td></tr>';
$name = substr($file, 0, strlen($file) - 4);
$buffer = '';
$fp = fopen($dir.$file,"r");
if ($fp)
{
while (!feof ($fp))
{
$buf = fgets($fp, 4096);
$buf = ereg_replace('--(.*)','',$buf); // Delete SQL comments
//print $buf.'<br>';
$buffer .= $buf;
if (eregi(';',$buffer))
{
// Found new request
$arraysql[$i]=$buffer;
$i++;
$buffer='';
}
}
if ($buffer) $arraysql[$i]=$buffer;
fclose($fp);
}
// Loop on each request
foreach($arraysql as $i=>$sql)
{
// print '<tr><td>'.$langs->trans("Request").' '.$i.'</td>';
if ($db->query($sql))
{
// print '<td align="right">OK</td>';
}
else
{
$errno=$db->errno();
$okerror=array( 'DB_ERROR_TABLE_ALREADY_EXISTS',
'DB_ERROR_COLUMN_ALREADY_EXISTS',
'DB_ERROR_KEY_NAME_ALREADY_EXISTS',
'DB_ERROR_RECORD_ALREADY_EXISTS',
'DB_ERROR_NOSUCHTABLE',
'DB_ERROR_NOSUCHFIELD',
'DB_ERROR_CANNOT_CREATE' // Qd contrainte deja existante
);
if (in_array($errno,$okerror))
{
// print '<td align="right">'.$langs->trans("OK").'</td>';
}
else
{
print '<tr><td>'.$langs->trans("Request").' '.$i.'</td>';
print '<td>'.$langs->trans("Error")." ".$db->errno()." ".$db->error()."</td>";
print '</tr>';
$error++;
}
}
// print '</tr>';
}
}
}
closedir($handle);
if ($error == 0)
{
print '<tr><td>';
print $langs->trans("ProcessMigrateScript").'</td><td align="right">'.$langs->trans("OK").'</td></tr>';
$ok = 1;
}
}
print '</table>';
$db->close();
}
else
{
print '<div class="error">'.$langs->trans("ErrorWrongParameters").'</div>';
}
pFooter(! $ok);
?>

544
htdocs/install/upgrade2.php Normal file
View File

@ -0,0 +1,544 @@
<?php
/* Copyright (C) 2005 Marc Barilley / Océbo <marc@ocebo.com>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Id$
* $Source$
*/
/**
\file htdocs/install/paiementfourn_newstructure.php
\brief Migre les données de l'ancienne table des paiements fournisseur vers la nouvelle structure
\version $Revision$
*/
include_once('./inc.php');
$grant_query='';
$etape = 2;
$error = 0;
// Cette page peut etre longue. On augmente le délai par défaut de 30 à 60.
// Ne fonctionne que si on est pas en safe_mode.
$err=error_reporting();
error_reporting(0);
set_time_limit(60);
error_reporting($err);
$setuplang=isset($_POST['selectlang'])?$_POST['selectlang']:(isset($_GET['selectlang'])?$_GET['selectlang']:$langcode);
$langs->defaultlang=$setuplang;
$langs->load('admin');
$langs->load('install');
$langs->load("bills");
$langs->load("suppliers");
pHeader($langs->trans('DataMigration'),'etape5','upgrade');
if (file_exists($conffile))
{
include_once($conffile);
if (! isset($dolibarr_main_db_prefix) || ! $dolibarr_main_db_prefix) $dolibarr_main_db_prefix='llx_';
define('MAIN_DB_PREFIX',$dolibarr_main_db_prefix);
}
if($dolibarr_main_db_type == 'mysql')
{
require_once($dolibarr_main_document_root . '/lib/mysql.lib.php');
$choix=1;
}
else
{
require_once($dolibarr_main_document_root . '/lib/pgsql.lib.php');
require_once($dolibarr_main_document_root . '/lib/grant.postgres.php');
$choix=2;
}
require_once($dolibarr_main_document_root . '/conf/conf.class.php');
if (isset($_POST['action']) && $_POST['action'] == 'upgrade')
{
print '<h2>'.$langs->trans('DataMigration').'</h2>';
print '<table cellspacing="0" cellpadding="1" border="0" width="100%">';
$conf = new Conf();// on pourrait s'en passer
$conf->db->type = $dolibarr_main_db_type;
$conf->db->host = $dolibarr_main_db_host;
$conf->db->name = $dolibarr_main_db_name;
$conf->db->user = $dolibarr_main_db_user;
$conf->db->pass = $dolibarr_main_db_pass;
$db = new DoliDb($conf->db->type,$conf->db->host,$conf->db->user,$conf->db->pass,$conf->db->name);
if ($db->connected != 1)
{
print '<tr><td colspan="4">Erreur lors de la création de : '.$dolibarr_main_db_name.'</td><td align="right">'.$langs->trans('Error').'</td></tr>';
$error++;
}
if (! $error)
{
if($db->database_selected == 1)
{
dolibarr_syslog('Connexion réussie à la base : '.$dolibarr_main_db_name);
}
else
{
$error++;
}
}
/***************************************************************************************
*
* Migration des données
*
***************************************************************************************/
if (! $error)
{
$db->begin();
print '<tr><td colspan="4" nowrap="nowrap">&nbsp;</td></tr>';
// Chaque action de migration doit renvoyer une ligne sur 4 colonnes avec
// dans la 1ere colonne, la description de l'action a faire
// dans la 4eme colonne, le texte 'OK' si fait ou 'AlreadyDone' si rien n'est fait ou 'Error'
migrate_paiements($db,$langs,$conf);
migrate_contracts_det($db,$langs,$conf);
migrate_contracts_date1($db,$langs,$conf);
migrate_contracts_date2($db,$langs,$conf);
migrate_contracts_date3($db,$langs,$conf);
migrate_contracts_open($db,$langs,$conf);
migrate_paiementfourn_facturefourn($db,$langs,$conf);
// On commit dans tous les cas.
// La procédure etant conçus pour pouvoir passer plusieurs fois quelquesoit la situation.
$db->commit();
$db->close();
}
print '</table>';
}
else
{
print '<div class="error">'.$langs->trans('ErrorWrongParameters').'</div>';
$error++;
}
pFooter($error);
/**
* Mise a jour des paiements (lien n-n paiements factures)
*/
function migrate_paiements($db,$langs,$conf)
{
print '<br>';
print "<b>Mise a jour des paiments (lien n-n paiements-factures)</b><br>\n";
$sql = "SELECT p.rowid, p.fk_facture, p.amount";
$sql .= " FROM ".MAIN_DB_PREFIX."paiement as p";
$sql .= " WHERE p.fk_facture > 0";
$resql = $db->query($sql);
if ($resql)
{
$i = 0;
$row = array();
$num = $db->num_rows($resql);
while ($i < $num)
{
$obj = $db->fetch_object($resql);
$row[$i][0] = $obj->rowid ;
$row[$i][1] = $obj->fk_facture;
$row[$i][2] = $obj->amount;
$i++;
}
}
else {
dolibarr_print_error($db);
}
if ($num)
{
print "$num paiement(s) à mettre à jour<br>\n";
if ($db->begin())
{
$res = 0;
for ($i = 0 ; $i < sizeof($row) ; $i++)
{
$sql = "INSERT INTO ".MAIN_DB_PREFIX."paiement_facture (fk_facture, fk_paiement, amount)";
$sql .= " VALUES (".$row[$i][1].",".$row[$i][0].",".$row[$i][2].")";
$res += $db->query($sql);
$sql = "UPDATE ".MAIN_DB_PREFIX."paiement SET fk_facture = 0 WHERE rowid = ".$row[$i][0];
$res += $db->query($sql);
print "Mise a jour paiement(s) ".$row[$i]."<br>\n";
}
}
if ($res == (2 * sizeof($row)))
{
$db->commit();
print "Mise à jour réussie<br>";
}
else
{
$db->rollback();
print "La mise à jour à échouée<br>";
}
}
else
{
print "Pas ou plus de paiements orphelins à corriger.<br>\n";
}
}
/*
* Mise a jour des contrats (gestion du contrat + detail de contrat)
*/
function migrate_contracts_det($db,$langs,$conf)
{
$nberr=0;
print '<br>';
print "<b>Mise a jour des contrats sans details (gestion du contrat + detail de contrat)</b><br>\n";
$sql = "SELECT c.rowid as cref, c.date_contrat, c.statut, c.mise_en_service, c.fin_validite, c.date_cloture, c.fk_product, c.fk_facture, c.fk_user_author,";
$sql.= " p.ref, p.label, p.description, p.price, p.tva_tx, p.duration, cd.rowid";
$sql.= " FROM ".MAIN_DB_PREFIX."contrat as c";
$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."product as p";
$sql.= " ON c.fk_product = p.rowid";
$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."contratdet as cd";
$sql.= " ON c.rowid=cd.fk_contrat";
$sql.= " WHERE cd.rowid IS NULL AND p.rowid IS NOT NULL";
$resql = $db->query($sql);
if ($resql)
{
$i = 0;
$row = array();
$num = $db->num_rows($resql);
if ($num)
{
print "$num contrat(s) à mettre à jour<br>\n";
$db->begin();
while ($i < $num)
{
$obj = $db->fetch_object($resql);
$sql = "INSERT INTO ".MAIN_DB_PREFIX."contratdet (";
$sql.= "fk_contrat, fk_product, statut, label, description,";
$sql.= "date_ouverture_prevue, date_ouverture, date_fin_validite, tva_tx, qty,";
$sql.= "subprice, price_ht, fk_user_author, fk_user_ouverture)";
$sql.= " VALUES (";
$sql.= $obj->cref.",".($obj->fk_product?$obj->fk_product:0).",";
$sql.= ($obj->mise_en_service?"4":"0").",";
$sql.= "'".addslashes($obj->label)."', null,";
$sql.= ($obj->mise_en_service?"'".$obj->mise_en_service."'":($obj->date_contrat?"'".$obj->date_contrat."'":"null")).",";
$sql.= ($obj->mise_en_service?"'".$obj->mise_en_service."'":"null").",";
$sql.= ($obj->fin_validite?"'".$obj->fin_validite."'":"null").",";
$sql.= "'".$obj->tva_tx."', 1,";
$sql.= "'".$obj->price."', '".$obj->price."',".$obj->fk_user_author.",";
$sql.= ($obj->mise_en_service?$obj->fk_user_author:"null");
$sql.= ")";
if ($db->query($sql))
{
print "Création ligne contrat pour contrat ref ".$obj->cref."<br>\n";
}
else
{
dolibarr_print_error($db);
$nberr++;
}
$i++;
}
if (! $nberr)
{
// $db->rollback();
$db->commit();
print "Mise à jour réussie<br>";
}
else
{
$db->rollback();
print "La mise à jour à échouée<br>";
}
}
else {
print "Pas ou plus de contrats (liés à un produit) sans lignes de details à corriger.<br>\n";
}
}
else
{
print "Le champ fk_facture n'existe plus. Pas d'opération à faire.<br>\n";
// dolibarr_print_error($db);
}
}
/*
* Mise a jour des date de contrats non renseignées
*/
function migrate_contracts_date1($db,$langs,$conf)
{
print '<br>';
print "<b>Mise a jour des dates de contrats non renseignées</b><br>\n";
$sql="update llx_contrat set date_contrat=tms where date_contrat is null";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) print "Ok pour date de contrat<br>\n";
else print "Pas ou plus de date de contrats à renseigner.<br>\n";
$sql="update llx_contrat set datec=tms where datec is null";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) print "Ok pour date création<br>\n";
else print "Pas ou plus de date de création à renseigner.<br>\n";
}
/*
* Mise a jour date contrat avec date min effective mise en service si inférieur
*/
function migrate_contracts_date2($db,$langs,$conf)
{
$nberr=0;
print '<br>';
print "<b>Mise a jour dates contrat incorrectes (pour contrats avec detail en service)</b><br>\n";
$sql = "SELECT c.rowid as cref, c.datec, c.date_contrat, MIN(cd.date_ouverture) as datemin";
$sql.= " FROM ".MAIN_DB_PREFIX."contrat as c,";
$sql.= " ".MAIN_DB_PREFIX."contratdet as cd";
$sql.= " WHERE c.rowid=cd.fk_contrat AND cd.date_ouverture IS NOT NULL";
$sql.= " GROUP BY c.rowid, c.date_contrat";
$resql = $db->query($sql);
if ($resql)
{
$i = 0;
$row = array();
$num = $db->num_rows($resql);
if ($num)
{
$nbcontratsmodifie=0;
$db->begin();
while ($i < $num)
{
$obj = $db->fetch_object($resql);
if ($obj->date_contrat > $obj->datemin)
{
print "Correction contrat ".$obj->cref." (Date contrat=".$obj->date_contrat.", Date mise service min=".$obj->datemin.")<br>\n";
$sql ="UPDATE ".MAIN_DB_PREFIX."contrat";
$sql.=" SET date_contrat='".$obj->datemin."'";
$sql.=" WHERE rowid=".$obj->cref;
$resql2=$db->query($sql);
if (! $resql2) dolibarr_print_error($db);
$nbcontratsmodifie++;
}
$i++;
}
$db->commit();
if ($nbcontratsmodifie) print "$nbcontratsmodifie contrats modifiés<br>\n";
else print "Pas ou plus de contrats à corriger.<br>\n";
}
}
else
{
dolibarr_print_error($db);
}
}
/*
* Mise a jour des dates de création de contrat
*/
function migrate_contracts_date3($db,$langs,$conf)
{
print '<br>';
print "<b>Mise a jour des dates de création de contrat qui ont une valeur incohérente</b><br>\n";
$sql="update llx_contrat set datec=date_contrat where datec is null or datec > date_contrat";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) print "Ok<br>\n";
else print "Pas ou plus de date de contrats à corriger.<br>\n";
}
/*
* Reouverture des contrats qui ont au moins une ligne non fermée
*/
function migrate_contracts_open($db,$langs,$conf)
{
print '<br>';
print "<b>Reouverture des contrats qui ont au moins un service actif non fermé</b><br>\n";
$sql = "SELECT c.rowid as cref FROM llx_contrat as c, llx_contratdet as cd";
$sql.= " WHERE cd.statut = 4 AND c.statut=2 AND c.rowid=cd.fk_contrat";
$resql = $db->query($sql);
if (! $resql) dolibarr_print_error($db);
if ($db->affected_rows() > 0) {
$i = 0;
$row = array();
$num = $db->num_rows($resql);
if ($num)
{
$nbcontratsmodifie=0;
$db->begin();
while ($i < $num)
{
$obj = $db->fetch_object($resql);
print "Réouverture contrat ".$obj->cref."<br>\n";
$sql ="UPDATE ".MAIN_DB_PREFIX."contrat";
$sql.=" SET statut=1";
$sql.=" WHERE rowid=".$obj->cref;
$resql2=$db->query($sql);
if (! $resql2) dolibarr_print_error($db);
$nbcontratsmodifie++;
$i++;
}
$db->commit();
if ($nbcontratsmodifie) print "$nbcontratsmodifie contrats modifiés<br>\n";
else print "Pas ou plus de contrats à corriger.<br>\n";
}
}
else print "Pas ou plus de contrats à réouvrir.<br>\n";
}
/**
* Factures fournisseurs
*/
function migrate_paiementfourn_facturefourn($db,$langs,$conf)
{
$error = 0;
$nb=0;
$select_sql = 'SELECT rowid, fk_facture_fourn, amount ';
$select_sql .= ' FROM '.MAIN_DB_PREFIX.'paiementfourn ';
$select_sql .= ' WHERE fk_facture_fourn IS NOT NULL ;';
$select_resql = $db->query($select_sql);
if ($select_resql)
{
$select_num = $db->num_rows($select_resql);
$i=0;
$var = 0;
// Pour chaque paiement fournisseur, on insère une ligne dans paiementfourn_facturefourn
while ($i < $select_num && ! $error)
{
$var = !$var;
$select_obj = $db->fetch_object($select_resql);
// Vérifier si la ligne est déjà dans la nouvelle table. On ne veut pas insérer de doublons.
$check_sql = 'SELECT fk_paiementfourn, fk_facturefourn';
$check_sql .= ' FROM '.MAIN_DB_PREFIX.'paiementfourn_facturefourn';
$check_sql .= ' WHERE fk_paiementfourn = '.$select_obj->rowid.' AND fk_facturefourn = '.$select_obj->fk_facture_fourn.';';
$check_resql = $db->query($check_sql);
if ($check_resql)
{
$check_num = $db->num_rows($check_resql);
if ($check_num === 0)
{
if ($nb == 0)
{
print '<tr><td colspan="4" nowrap="nowrap"><b>'.$langs->trans('SuppliersInvoices').'</b></td></tr>';
print '<tr><td>fk_paiementfourn</td><td>fk_facturefourn</td><td>'.$langs->trans('Amount').'</td><td>&nbsp;</td></tr>';
}
print '<tr '.$tab[$var].'>';
print '<td>'.$select_obj->rowid.'</td><td>'.$select_obj->fk_facture_fourn.'</td><td>'.$select_obj->amount.'</td>';
$insert_sql = 'INSERT INTO '.MAIN_DB_PREFIX.'paiementfourn_facturefourn SET ';
$insert_sql .= ' fk_paiementfourn = \''.$select_obj->rowid.'\',';
$insert_sql .= ' fk_facturefourn = \''.$select_obj->fk_facture_fourn.'\',';
$insert_sql .= ' amount = \''.$select_obj->amount.'\';';
$insert_resql = $db->query($insert_sql);
if ($insert_resql)
{
$nb++;
print '<td><span style="color:green">'.$langs->trans("OK").'</span></td>';
}
else
{
print '<td><span style="color:red">Error on insert</span></td>';
$error++;
}
print '</tr>';
}
}
else
{
$error++;
}
$i++;
}
}
else
{
$error++;
}
if (! $nb && ! $error)
{
print '<tr><td colspan="3" nowrap="nowrap"><b>'.$langs->trans('SuppliersInvoices').'</b></td><td align="right">'.$langs->trans("Done").'</td></tr>';
}
if ($error)
{
print '<tr><td colspan="3" nowrap="nowrap"><b>'.$langs->trans('SuppliersInvoices').'</b></td><td align="right">'.$langs->trans("Error").'</td></tr>';
}
}
?>