dolibarr/htdocs/install/upgrade2.php

<?php
/* Copyright (C) 2005       Marc Barilley / Ocebo   <marc@ocebo.com>
 * Copyright (C) 2005-2018  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2011  Regis Houssin           <regis.houssin@capnetworks.com>
 * Copyright (C) 2010       Juanjo Menent           <jmenent@2byte.es>
 * Copyright (C) 2015-2016  Raphaël Doursenaud      <rdoursenaud@gpcsolutions.fr>
 *
 * 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 3 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, see <http://www.gnu.org/licenses/>.
 *
 * Upgrade2 scripts can be ran from command line with syntax:
 *
 * cd htdocs/install
 * php upgrade.php 3.4.0 3.5.0 [dirmodule|ignoredbversion]
 * php upgrade2.php 3.4.0 3.5.0 [MAIN_MODULE_NAME1_TO_ENABLE,MAIN_MODULE_NAME2_TO_ENABLE]
 *
 * And for final step:
 * php step5.php 3.4.0 3.5.0
 *
 * Return code is 0 if OK, >0 if error
 *
 * Note: To just enable a module from command line, use this syntax:
 * php upgrade2.php 0.0.0 0.0.0 [MAIN_MODULE_NAME1_TO_ENABLE,MAIN_MODULE_NAME2_TO_ENABLE]
 */

/**
 *	\file       htdocs/install/upgrade2.php
 *	\brief      Upgrade some data
 */

include_once 'inc.php';
if (! file_exists($conffile))
{
    print 'Error: Dolibarr config file was not found. This may means that Dolibarr is not installed yet. Please call the page "/install/index.php" instead of "/install/upgrade.php").';
}
require_once $conffile;
require_once $dolibarr_main_document_root . '/compta/facture/class/facture.class.php';
require_once $dolibarr_main_document_root . '/comm/propal/class/propal.class.php';
require_once $dolibarr_main_document_root . '/contrat/class/contrat.class.php';
require_once $dolibarr_main_document_root . '/commande/class/commande.class.php';
require_once $dolibarr_main_document_root . '/fourn/class/fournisseur.commande.class.php';
require_once $dolibarr_main_document_root . '/core/lib/price.lib.php';
require_once $dolibarr_main_document_root . '/core/class/menubase.class.php';
require_once $dolibarr_main_document_root . '/core/lib/files.lib.php';

global $langs;

$grant_query='';
$step = 2;
$error = 0;


// Cette page peut etre longue. On augmente le delai autorise.
// Ne fonctionne que si on est pas en safe_mode.
$err=error_reporting();
error_reporting(0);
@set_time_limit(300);
error_reporting($err);

$setuplang=GETPOST("selectlang",'aZ09',3)?GETPOST("selectlang",'aZ09',3):'auto';
$langs->setDefaultLang($setuplang);
$versionfrom=GETPOST("versionfrom",'alpha',3)?GETPOST("versionfrom",'alpha',3):(empty($argv[1])?'':$argv[1]);
$versionto=GETPOST("versionto",'alpha',3)?GETPOST("versionto",'alpha',3):(empty($argv[2])?'':$argv[2]);
$enablemodules=GETPOST("enablemodules",'alpha',3)?GETPOST("enablemodules",'alpha',3):(empty($argv[3])?'':$argv[3]);

$langs->load('admin');
$langs->load('install');
$langs->load("bills");
$langs->load("suppliers");

if ($dolibarr_main_db_type == 'mysqli') $choix=1;
if ($dolibarr_main_db_type == 'pgsql')  $choix=2;
if ($dolibarr_main_db_type == 'mssql')  $choix=3;


dolibarr_install_syslog("--- upgrade2: entering upgrade2.php page ".$versionfrom." ".$versionto." ".$enablemodules);
if (! is_object($conf)) dolibarr_install_syslog("upgrade2: conf file not initialized", LOG_ERR);



/*
 * View
 */

if ((! $versionfrom || preg_match('/version/', $versionfrom)) && (! $versionto || preg_match('/version/', $versionto)))
{
	print 'Error: Parameter versionfrom or versionto missing or having a bad format.'."\n";
	print 'Upgrade must be ran from command line with parameters or called from page install/index.php (like a first install)'."\n";
	// Test if batch mode
	$sapi_type = php_sapi_name();
	$script_file = basename(__FILE__);
	$path=dirname(__FILE__).'/';
	if (substr($sapi_type, 0, 3) == 'cli')
	{
		print 'Syntax from command line: '.$script_file." x.y.z a.b.c [MAIN_MODULE_NAME1_TO_ENABLE,MAIN_MODULE_NAME2_TO_ENABLE...]\n";
	}
	exit;
}

pHeader('','step5',GETPOST('action','aZ09')?GETPOST('action','aZ09'):'upgrade','versionfrom='.$versionfrom.'&versionto='.$versionto);


if (! GETPOST('action','aZ09') || preg_match('/upgrade/i',GETPOST('action','aZ09')))
{
    print '<h3><img class="valigntextbottom" src="../theme/common/octicons/build/svg/database.svg" width="20" alt="Database"> '.$langs->trans('DataMigration').'</h3>';

    print '<table cellspacing="0" cellpadding="1" border="0" width="100%">';

    // If password is encoded, we decode it
    if (preg_match('/crypted:/i',$dolibarr_main_db_pass) || ! empty($dolibarr_main_db_encrypted_pass))
    {
        require_once $dolibarr_main_document_root.'/core/lib/security.lib.php';
        if (preg_match('/crypted:/i',$dolibarr_main_db_pass))
        {
            $dolibarr_main_db_pass = preg_replace('/crypted:/i', '', $dolibarr_main_db_pass);
            $dolibarr_main_db_pass = dol_decode($dolibarr_main_db_pass);
            $dolibarr_main_db_encrypted_pass = $dolibarr_main_db_pass;	// We need to set this as it is used to know the password was initially crypted
        }
        else $dolibarr_main_db_pass = dol_decode($dolibarr_main_db_encrypted_pass);
    }

    // $conf is already instancied inside inc.php
    $conf->db->type = $dolibarr_main_db_type;
    $conf->db->host = $dolibarr_main_db_host;
    $conf->db->port = $dolibarr_main_db_port;
    $conf->db->name = $dolibarr_main_db_name;
    $conf->db->user = $dolibarr_main_db_user;
    $conf->db->pass = $dolibarr_main_db_pass;

    $db=getDoliDBInstance($conf->db->type,$conf->db->host,$conf->db->user,$conf->db->pass,$conf->db->name,$conf->db->port);

    // Create the global $hookmanager object
    include_once DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php';
    $hookmanager=new HookManager($db);
    $hookmanager->initHooks(array('upgrade'));

    if (!$db->connected)
    {
        print '<tr><td colspan="4">'.$langs->trans("ErrorFailedToConnectToDatabase",$conf->db->name).'</td><td align="right">'.$langs->trans('Error').'</td></tr>';
        dolibarr_install_syslog('upgrade2: failed to connect to database :' . $conf->db->name . ' on ' . $conf->db->host . ' for user ' . $conf->db->user, LOG_ERR);
        $error++;
    }

    if (! $error)
    {
        if($db->database_selected)
        {
            dolibarr_install_syslog('upgrade2: database connection successful :' . $dolibarr_main_db_name);
        }
        else
        {
            $error++;
        }
    }

    if (empty($dolibarr_main_db_encryption)) $dolibarr_main_db_encryption=0;
    $conf->db->dolibarr_main_db_encryption = $dolibarr_main_db_encryption;
    if (empty($dolibarr_main_db_cryptkey)) $dolibarr_main_db_cryptkey='';
    $conf->db->dolibarr_main_db_cryptkey = $dolibarr_main_db_cryptkey;

    // Chargement config
    if (! $error)
    {
    	$conf->setValues($db);
    	// Reset forced setup after the setValues
    	if (defined('SYSLOG_FILE')) $conf->global->SYSLOG_FILE=constant('SYSLOG_FILE');
    	$conf->global->MAIN_ENABLE_LOG_TO_HTML = 1;
    }


    /***************************************************************************************
     *
     * Migration des donnees
     *
     ***************************************************************************************/
    $db->begin();

    if (! $error)
    {
        // Current version is $conf->global->MAIN_VERSION_LAST_UPGRADE
        // Version to install is DOL_VERSION
        $dolibarrlastupgradeversionarray=preg_split('/[\.-]/',isset($conf->global->MAIN_VERSION_LAST_UPGRADE)?$conf->global->MAIN_VERSION_LAST_UPGRADE:$conf->global->MAIN_VERSION_LAST_INSTALL);

        // 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'

        $versiontoarray=explode('.',$versionto);
        $versionranarray=explode('.',DOL_VERSION);


        // Force to execute this at begin to avoid the new core code into Dolibarr to be broken.
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'user ADD COLUMN birth date';
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'user ADD COLUMN dateemployment date';
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'user ADD COLUMN default_range integer';
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'user ADD COLUMN default_c_exp_tax_cat integer';
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'extrafields ADD COLUMN langs varchar(24)';
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'extrafields ADD COLUMN fieldcomputed text';
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'extrafields ADD COLUMN fielddefault varchar(255)';
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX."extrafields ADD COLUMN enabled varchar(255) DEFAULT '1'";
        $db->query($sql, 1);
        $sql = 'ALTER TABLE '.MAIN_DB_PREFIX.'user_rights ADD COLUMN entity integer DEFAULT 1 NOT NULL';
        $db->query($sql, 1);


        $afterversionarray=explode('.','2.0.0');
        $beforeversionarray=explode('.','2.7.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            // Script pour V2 -> V2.1
            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_modeles($db,$langs,$conf);

            migrate_price_propal($db,$langs,$conf);

            migrate_price_commande($db,$langs,$conf);

            migrate_price_commande_fournisseur($db,$langs,$conf);

            migrate_price_contrat($db,$langs,$conf);

            migrate_paiementfourn_facturefourn($db,$langs,$conf);


            // Script pour V2.1 -> V2.2
            migrate_paiements_orphelins_1($db,$langs,$conf);

            migrate_paiements_orphelins_2($db,$langs,$conf);

            migrate_links_transfert($db,$langs,$conf);


            // Script pour V2.2 -> V2.4
            migrate_commande_expedition($db,$langs,$conf);

            migrate_commande_livraison($db,$langs,$conf);

            migrate_detail_livraison($db,$langs,$conf);


            // Script pour V2.5 -> V2.6
            migrate_stocks($db,$langs,$conf);


            // Script pour V2.6 -> V2.7
            migrate_menus($db,$langs,$conf);

            migrate_commande_deliveryaddress($db,$langs,$conf);

            migrate_restore_missing_links($db,$langs,$conf);

            migrate_rename_directories($db,$langs,$conf,'/compta','/banque');

            migrate_rename_directories($db,$langs,$conf,'/societe','/mycompany');
        }

        // Script for 2.8
        $afterversionarray=explode('.','2.7.9');
        $beforeversionarray=explode('.','2.8.9');
        //print $versionto.' '.versioncompare($versiontoarray,$afterversionarray).' '.versioncompare($versiontoarray,$beforeversionarray);
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            migrate_price_facture($db,$langs,$conf);     // Code of this function works for 2.8+ because need a field tva_tx

            migrate_relationship_tables($db,$langs,$conf,'co_exp','fk_commande','commande','fk_expedition','shipping');

            migrate_relationship_tables($db,$langs,$conf,'pr_exp','fk_propal','propal','fk_expedition','shipping');

            migrate_relationship_tables($db,$langs,$conf,'pr_liv','fk_propal','propal','fk_livraison','delivery');

            migrate_relationship_tables($db,$langs,$conf,'co_liv','fk_commande','commande','fk_livraison','delivery');

            migrate_relationship_tables($db,$langs,$conf,'co_pr','fk_propale','propal','fk_commande','commande');

            migrate_relationship_tables($db,$langs,$conf,'fa_pr','fk_propal','propal','fk_facture','facture');

            migrate_relationship_tables($db,$langs,$conf,'co_fa','fk_commande','commande','fk_facture','facture');

            migrate_project_user_resp($db,$langs,$conf);

            migrate_project_task_actors($db,$langs,$conf);
        }

        // Script for 2.9
        $afterversionarray=explode('.','2.8.9');
        $beforeversionarray=explode('.','2.9.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            migrate_project_task_time($db,$langs,$conf);

            migrate_customerorder_shipping($db,$langs,$conf);

            migrate_shipping_delivery($db,$langs,$conf);

            migrate_shipping_delivery2($db,$langs,$conf);
        }

        // Script for 3.0
        $afterversionarray=explode('.','2.9.9');
        $beforeversionarray=explode('.','3.0.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            // No particular code
        }

        // Script for 3.1
        $afterversionarray=explode('.','3.0.9');
        $beforeversionarray=explode('.','3.1.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            migrate_rename_directories($db,$langs,$conf,'/rss','/externalrss');

            migrate_actioncomm_element($db,$langs,$conf);
        }

        // Script for 3.2
        $afterversionarray=explode('.','3.1.9');
        $beforeversionarray=explode('.','3.2.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            migrate_price_contrat($db,$langs,$conf);

        	migrate_mode_reglement($db,$langs,$conf);

        	migrate_clean_association($db,$langs,$conf);
        }

        // Script for 3.3
        $afterversionarray=explode('.','3.2.9');
        $beforeversionarray=explode('.','3.3.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
        	migrate_categorie_association($db,$langs,$conf);
        }

		// Script for 3.4
		// No specific scripts

        // Tasks to do always and only into last targeted version
        $afterversionarray=explode('.','3.6.9');	// target is after this
        $beforeversionarray=explode('.','3.7.9');	// target is before this
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
       	    migrate_event_assignement($db,$langs,$conf);
        }

        // Scripts for 3.9
        $afterversionarray=explode('.','3.7.9');
        $beforeversionarray=explode('.','3.8.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
        	// No particular code
        }

        // Scripts for 4.0
        $afterversionarray=explode('.','3.9.9');
        $beforeversionarray=explode('.','4.0.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            migrate_rename_directories($db,$langs,$conf,'/fckeditor','/medias');
        }

        // Scripts for 5.0
        $afterversionarray=explode('.','4.0.9');
        $beforeversionarray=explode('.','5.0.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            // Migrate to add entity value into llx_societe_remise
            migrate_remise_entity($db,$langs,$conf);

            // Migrate to add entity value into llx_societe_remise_except
            migrate_remise_except_entity($db,$langs,$conf);
        }

        // Scripts for 6.0
        $afterversionarray=explode('.','5.0.9');
        $beforeversionarray=explode('.','6.0.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
        	if (! empty($conf->multicompany->enabled))
        	{
        		global $multicompany_transverse_mode;

        		// Only if the transverse mode is not used
        		if (empty($multicompany_transverse_mode))
        		{
        			// Migrate to add entity value into llx_user_rights
        			migrate_user_rights_entity($db, $langs, $conf);

        			// Migrate to add entity value into llx_usergroup_rights
        			migrate_usergroup_rights_entity($db, $langs, $conf);
        		}
        	}
        }

        // Scripts for 7.0
        $afterversionarray=explode('.','6.0.9');
        $beforeversionarray=explode('.','7.0.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
            // Migrate contact association
        	migrate_event_assignement_contact($db,$langs,$conf);

        	migrate_reset_blocked_log($db,$langs,$conf);
        }

        // Scripts for 8.0
        $afterversionarray=explode('.','7.0.9');
        $beforeversionarray=explode('.','8.0.9');
        if (versioncompare($versiontoarray,$afterversionarray) >= 0 && versioncompare($versiontoarray,$beforeversionarray) <= 0)
        {
        	migrate_rename_directories($db,$langs,$conf,'/contracts','/contract');
        }

    }

	// Code executed only if migration is LAST ONE. Must always be done.
	if (versioncompare($versiontoarray,$versionranarray) >= 0 || versioncompare($versiontoarray,$versionranarray) <= -3)
	{
		// Reload modules (this must be always done and only into last targeted version, because code to reload module may need table structure of last version)
		$listofmodule=array(
			'MAIN_MODULE_ACCOUNTING'=>'newboxdefonly',
			'MAIN_MODULE_AGENDA'=>'newboxdefonly',
			'MAIN_MODULE_BARCODE'=>'newboxdefonly',
			'MAIN_MODULE_CRON'=>'newboxdefonly',
			'MAIN_MODULE_COMMANDE'=>'newboxdefonly',
			'MAIN_MODULE_DEPLACEMENT'=>'newboxdefonly',
			'MAIN_MODULE_DON'=>'newboxdefonly',
			'MAIN_MODULE_ECM'=>'newboxdefonly',
			'MAIN_MODULE_FACTURE'=>'newboxdefonly',
			'MAIN_MODULE_FOURNISSEUR'=>'newboxdefonly',
			'MAIN_MODULE_HOLIDAY'=>'newboxdefonly',
			'MAIN_MODULE_OPENSURVEY'=>'newboxdefonly',
			'MAIN_MODULE_PAYBOX'=>'newboxdefonly',
			'MAIN_MODULE_PRINTING'=>'newboxdefonly',
			'MAIN_MODULE_PRODUIT'=>'newboxdefonly',
			'MAIN_MODULE_SALARIES'=>'newboxdefonly',
			'MAIN_MODULE_SYSLOG'=>'newboxdefonly',
			'MAIN_MODULE_SOCIETE'=>'newboxdefonly',
			'MAIN_MODULE_SERVICE'=>'newboxdefonly',
			'MAIN_MODULE_USER'=>'newboxdefonly',		//This one must be always done and only into last targeted version)
			'MAIN_MODULE_VARIANTS'=>'newboxdefonly',
			'MAIN_MODULE_WEBSITE'=>'newboxdefonly',
		);
		migrate_reload_modules($db,$langs,$conf,$listofmodule);

		// Reload menus (this must be always and only into last targeted version)
		migrate_reload_menu($db,$langs,$conf,$versionto);
	}

    // Can force activation of some module during migration with parameter 'enablemodules=MAIN_MODULE_XXX,MAIN_MODULE_YYY,...'
    // In most cases (online install or upgrade) $enablemodules is empty. Can be forced when ran from command line.
    if (! $error && $enablemodules)
    {
        // Reload modules (this must be always done and only into last targeted version)
        $listofmodules=array();
        $enablemodules=preg_replace('/enablemodules=/','',$enablemodules);
        $tmplistofmodules=explode(',', $enablemodules);
        foreach($tmplistofmodules as $value)
        {
            $listofmodules[$value]='forceactivate';
        }
        migrate_reload_modules($db,$langs,$conf,$listofmodules,1);
    }


    // Can call a dedicated external upgrade process
    if (! $error)
    {
        $parameters=array('versionfrom'=>$versionfrom, 'versionto='.$versionto);
        $object=new stdClass();
        $action="upgrade";
        $reshook=$hookmanager->executeHooks('doUpgrade2',$parameters, $object, $action);    // Note that $action and $object may have been modified by some hooks
        if ($hookmanager->resNbOfHooks > 0)
        {
            if ($reshook < 0)
            {
                print '<tr><td colspan="4">';
                print '<b>'.$langs->trans('UpgradeExternalModule').'</b>: ';
                print $hookmanager->error;
                print "<!-- (".$reshook.") -->";
                print '</td></tr>';
            }
            else
            {
                print '<tr><td colspan="4">';
                print '<b>'.$langs->trans('UpgradeExternalModule').'</b>: OK';
                print "<!-- (".$reshook.") -->";
                print '</td></tr>';
            }
        }
        else
        {
            //if (! empty($conf->modules))
            if (! empty($conf->modules_parts['hooks']))     // If there is at least one module with one hook, we show message to say nothing was done
            {
                print '<tr><td colspan="4">';
                print '<b>'.$langs->trans('UpgradeExternalModule').'</b>: '.$langs->trans("None");
                print '</td></tr>';
            }
        }
    }

    print '</table>';

    // We always commit.
    // Process is designed so we can run it several times whatever is situation.
    $db->commit();
    $db->close();


    // Copy directory medias
    $srcroot=DOL_DOCUMENT_ROOT.'/install/medias';
    $destroot=DOL_DATA_ROOT.'/medias';
    dolCopyDir($srcroot, $destroot, 0, 0);


    // Actions for all versions (no database change but delete some files and directories)
    migrate_delete_old_files($db, $langs, $conf);
    migrate_delete_old_dir($db, $langs, $conf);
    // Actions for all versions (no database change but create some directories)
    dol_mkdir(DOL_DATA_ROOT.'/bank');
    // Actions for all versions (no database change but rename some directories)
    migrate_rename_directories($db, $langs, $conf, '/banque/bordereau', '/bank/checkdeposits');

    print '<div><br>'.$langs->trans("MigrationFinished").'</div>';
}
else
{
    print '<div class="error">'.$langs->trans('ErrorWrongParameters').'</div>';
    $error++;
}

$ret=0;
if ($error && isset($argv[1])) $ret=1;
dolibarr_install_syslog("Exit ".$ret);

dolibarr_install_syslog("--- upgrade2: end");
pFooter($error?2:0,$setuplang);

if ($db->connected) $db->close();

// Return code if ran from command line
if ($ret) exit($ret);



/**
 * Reporte liens vers une facture de paiements sur table de jointure (lien n-n paiements factures)
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_paiements($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationPaymentsUpdate')."</b><br>\n";

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."paiement","fk_facture");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        $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);

        dolibarr_install_syslog("upgrade2::migrate_paiements");
        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
        {
            dol_print_error($db);
        }

        if ($num)
        {
            print $langs->trans('MigrationPaymentsNumberToUpdate', $num)."<br>\n";
            if ($db->begin())
            {
                $res = 0;
                $num=count($row);
                for ($i = 0; $i < $num; $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 $langs->trans('MigrationProcessPaymentUpdate', $row[$i][0])."<br>\n";
                }
            }

            if ($res == (2 * count($row)))
            {
                $db->commit();
                print $langs->trans('MigrationSuccessfullUpdate')."<br>";
            }
            else
            {
                $db->rollback();
                print $langs->trans('MigrationUpdateFailed').'<br>';
            }
        }
        else
        {
            print $langs->trans('MigrationPaymentsNothingToUpdate')."<br>\n";
        }
    }
    else
    {
        print $langs->trans('MigrationPaymentsNothingToUpdate')."<br>\n";
    }

    print '</td></tr>';
}

/**
 * Corrige paiement orphelins (liens paumes suite a bugs)
 * Pour verifier s'il reste des orphelins:
 * select * from llx_paiement as p left join llx_paiement_facture as pf on pf.fk_paiement=p.rowid WHERE pf.rowid IS NULL AND (p.fk_facture = 0 OR p.fk_facture IS NULL)
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_paiements_orphelins_1($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationPaymentsUpdate')."</b><br>\n";

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."paiement","fk_facture");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        // Tous les enregistrements qui sortent de cette requete devrait avoir un pere dans llx_paiement_facture
        $sql = "SELECT distinct p.rowid, p.datec, p.amount as pamount, bu.fk_bank, b.amount as bamount,";
        $sql.= " bu2.url_id as socid";
        $sql.= " FROM (".MAIN_DB_PREFIX."paiement as p, ".MAIN_DB_PREFIX."bank_url as bu, ".MAIN_DB_PREFIX."bank as b)";
        $sql.= " LEFT JOIN llx_paiement_facture as pf ON pf.fk_paiement = p.rowid";
        $sql.= " LEFT JOIN llx_bank_url as bu2 ON (bu.fk_bank=bu2.fk_bank AND bu2.type = 'company')";
        $sql.= " WHERE pf.rowid IS NULL AND (p.rowid=bu.url_id AND bu.type='payment') AND bu.fk_bank = b.rowid";
        $sql.= " AND b.rappro = 1";
        $sql.= " AND (p.fk_facture = 0 OR p.fk_facture IS NULL)";

        $resql = $db->query($sql);

        dolibarr_install_syslog("upgrade2::migrate_paiements_orphelins_1");
        $row = array();
        if ($resql)
        {
            $i = $j = 0;
            $num = $db->num_rows($resql);

            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);
                if ($obj->pamount == $obj->bamount && $obj->socid)	// Pour etre sur d'avoir bon cas
                {
                    $row[$j]['paymentid'] = $obj->rowid ;		// paymentid
                    $row[$j]['pamount'] = $obj->pamount;
                    $row[$j]['fk_bank'] = $obj->fk_bank;
                    $row[$j]['bamount'] = $obj->bamount;
                    $row[$j]['socid'] = $obj->socid;
                    $row[$j]['datec'] = $obj->datec;
                    $j++;
                }
                $i++;
            }
        }
        else
        {
            dol_print_error($db);
        }

        if (count($row))
        {
            print $langs->trans('OrphelinsPaymentsDetectedByMethod', 1).': '.count($row)."<br>\n";
            $db->begin();

            $res = 0;
            $num=count($row);
            for ($i = 0; $i < $num; $i++)
            {
                if ($conf->global->MAIN_FEATURES_LEVEL == 2) print '* '.$row[$i]['datec'].' paymentid='.$row[$i]['paymentid'].' pamount='.$row[$i]['pamount'].' fk_bank='.$row[$i]['fk_bank'].' bamount='.$row[$i]['bamount'].' socid='.$row[$i]['socid'].'<br>';

                // On cherche facture sans lien paiement et du meme montant et pour meme societe.
                $sql=" SELECT distinct f.rowid from ".MAIN_DB_PREFIX."facture as f";
                $sql.=" LEFT JOIN ".MAIN_DB_PREFIX."paiement_facture as pf ON f.rowid = pf.fk_facture";
                $sql.=" WHERE f.fk_statut in (2,3) AND fk_soc = ".$row[$i]['socid']." AND total_ttc = ".$row[$i]['pamount'];
                $sql.=" AND pf.fk_facture IS NULL";
                $sql.=" ORDER BY f.fk_statut";
                //print $sql.'<br>';
                $resql=$db->query($sql);
                if ($resql)
                {
                    $num = $db->num_rows($resql);
                    //print 'Nb of invoice found for this amount and company :'.$num.'<br>';
                    if ($num >= 1)
                    {
                        $obj=$db->fetch_object($resql);
                        $facid=$obj->rowid;

                        $sql = "INSERT INTO ".MAIN_DB_PREFIX."paiement_facture (fk_facture, fk_paiement, amount)";
                        $sql.= " VALUES (".$facid.",".$row[$i]['paymentid'].",".$row[$i]['pamount'].")";

                        $res += $db->query($sql);

                        print $langs->trans('MigrationProcessPaymentUpdate', 'facid='.$facid.'-paymentid='.$row[$i]['paymentid'].'-amount='.$row[$i]['pamount'])."<br>\n";
                    }
                }
                else
                {
                    print 'ERROR';
                }
            }

            if ($res > 0)
            {
                print $langs->trans('MigrationSuccessfullUpdate')."<br>";
            }
            else
            {
                print $langs->trans('MigrationPaymentsNothingUpdatable')."<br>\n";
            }

            $db->commit();
        }
        else
        {
            print $langs->trans('MigrationPaymentsNothingUpdatable')."<br>\n";
        }
    }
    else
    {
        print $langs->trans('MigrationPaymentsNothingUpdatable')."<br>\n";
    }

    print '</td></tr>';
}

/**
 * Corrige paiement orphelins (liens paumes suite a bugs)
 * Pour verifier s'il reste des orphelins:
 * select * from llx_paiement as p left join llx_paiement_facture as pf on pf.fk_paiement=p.rowid WHERE pf.rowid IS NULL AND (p.fk_facture = 0 OR p.fk_facture IS NULL)
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_paiements_orphelins_2($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationPaymentsUpdate')."</b><br>\n";

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."paiement","fk_facture");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        // Tous les enregistrements qui sortent de cette requete devrait avoir un pere dans llx_paiement_facture
        $sql = "SELECT distinct p.rowid, p.datec, p.amount as pamount, bu.fk_bank, b.amount as bamount,";
        $sql.= " bu2.url_id as socid";
        $sql.= " FROM (".MAIN_DB_PREFIX."paiement as p, ".MAIN_DB_PREFIX."bank_url as bu, ".MAIN_DB_PREFIX."bank as b)";
        $sql.= " LEFT JOIN llx_paiement_facture as pf ON pf.fk_paiement = p.rowid";
        $sql.= " LEFT JOIN llx_bank_url as bu2 ON (bu.fk_bank = bu2.fk_bank AND bu2.type = 'company')";
        $sql.= " WHERE pf.rowid IS NULL AND (p.fk_bank = bu.fk_bank AND bu.type = 'payment') AND bu.fk_bank = b.rowid";
        $sql.= " AND (p.fk_facture = 0 OR p.fk_facture IS NULL)";

        $resql = $db->query($sql);

        dolibarr_install_syslog("upgrade2::migrate_paiements_orphelins_2");
        $row = array();
        if ($resql)
        {
            $i = $j = 0;
            $num = $db->num_rows($resql);

            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);
                if ($obj->pamount == $obj->bamount && $obj->socid)	// Pour etre sur d'avoir bon cas
                {
                    $row[$j]['paymentid'] = $obj->rowid ;		// paymentid
                    $row[$j]['pamount'] = $obj->pamount;
                    $row[$j]['fk_bank'] = $obj->fk_bank;
                    $row[$j]['bamount'] = $obj->bamount;
                    $row[$j]['socid'] = $obj->socid;
                    $row[$j]['datec'] = $obj->datec;
                    $j++;
                }
                $i++;
            }
        }
        else
        {
            dol_print_error($db);
        }

        $nberr=0;

        $num=count($row);
        if ($num)
        {
            print $langs->trans('OrphelinsPaymentsDetectedByMethod', 2).': '.count($row)."<br>\n";
            $db->begin();

            $res = 0;
            for ($i = 0; $i < $num; $i++)
            {
                if ($conf->global->MAIN_FEATURES_LEVEL == 2) print '* '.$row[$i]['datec'].' paymentid='.$row[$i]['paymentid'].' '.$row[$i]['pamount'].' fk_bank='.$row[$i]['fk_bank'].' '.$row[$i]['bamount'].' socid='.$row[$i]['socid'].'<br>';

                // On cherche facture sans lien paiement et du meme montant et pour meme societe.
                $sql=" SELECT distinct f.rowid from ".MAIN_DB_PREFIX."facture as f";
                $sql.=" LEFT JOIN ".MAIN_DB_PREFIX."paiement_facture as pf ON f.rowid = pf.fk_facture";
                $sql.=" WHERE f.fk_statut in (2,3) AND fk_soc = ".$row[$i]['socid']." AND total_ttc = ".$row[$i]['pamount'];
                $sql.=" AND pf.fk_facture IS NULL";
                $sql.=" ORDER BY f.fk_statut";
                //print $sql.'<br>';
                $resql=$db->query($sql);
                if ($resql)
                {
                    $num = $db->num_rows($resql);
                    //print 'Nb of invoice found for this amount and company :'.$num.'<br>';
                    if ($num >= 1)
                    {
                        $obj=$db->fetch_object($resql);
                        $facid=$obj->rowid;

                        $sql = "INSERT INTO ".MAIN_DB_PREFIX."paiement_facture (fk_facture, fk_paiement, amount)";
                        $sql.= " VALUES (".$facid.",".$row[$i]['paymentid'].",".$row[$i]['pamount'].")";
                        $res += $db->query($sql);

                        print $langs->trans('MigrationProcessPaymentUpdate', 'facid='.$facid.'-paymentid='.$row[$i]['paymentid'].'-amount='.$row[$i]['pamount'])."<br>\n";
                    }
                }
                else
                {
                    print 'ERROR';
                    $nberr++;
                }
            }

            if ($res > 0)
            {
                print $langs->trans('MigrationSuccessfullUpdate')."<br>";
            }
            else
            {
                print $langs->trans('MigrationPaymentsNothingUpdatable')."<br>\n";
            }

            $db->commit();
        }
        else
        {
            print $langs->trans('MigrationPaymentsNothingUpdatable')."<br>\n";
        }

        // Delete obsolete fields fk_facture
        $db->begin();

        $sql = "ALTER TABLE ".MAIN_DB_PREFIX."paiement DROP COLUMN fk_facture";
        $db->query($sql);

        if (!$nberr)
        {
            $db->commit();
        }
        else
        {
            print 'ERROR';
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('MigrationPaymentsNothingUpdatable')."<br>\n";
    }

    print '</td></tr>';
}


/**
 * Mise a jour des contrats (gestion du contrat + detail de contrat)
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_contracts_det($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    $nberr=0;

    print '<br>';
    print '<b>'.$langs->trans('MigrationContractsUpdate')."</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);

    dolibarr_install_syslog("upgrade2::migrate_contracts_det");
    if ($resql)
    {
        $i = 0;
        $row = array();
        $num = $db->num_rows($resql);

        if ($num)
        {
            print $langs->trans('MigrationContractsNumberToUpdate', $num)."<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.= "'".$db->escape($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 $langs->trans('MigrationContractsLineCreation', $obj->cref)."<br>\n";
                }
                else
                {
                    dol_print_error($db);
                    $nberr++;
                }

                $i++;
            }

            if (! $nberr)
            {
                //      $db->rollback();
                $db->commit();
                print $langs->trans('MigrationSuccessfullUpdate')."<br>";
            }
            else
            {
                $db->rollback();
                print $langs->trans('MigrationUpdateFailed').'<br>';
            }
        }
        else
        {
            print $langs->trans('MigrationContractsNothingToUpdate')."<br>\n";
        }
    }
    else
    {
        print $langs->trans('MigrationContractsFieldDontExist')."<br>\n";
        //    dol_print_error($db);
    }

    print '</td></tr>';
}

/**
 * Function to migrate links into llx_bank_url
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_links_transfert($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    $nberr=0;

    print '<br>';
    print '<b>'.$langs->trans('MigrationBankTransfertsUpdate')."</b><br>\n";

    $sql = "SELECT ba.rowid as barowid, bb.rowid as bbrowid";
    $sql.= " FROM ".MAIN_DB_PREFIX."bank as bb, ".MAIN_DB_PREFIX."bank as ba";
    $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu ON bu.fk_bank = ba.rowid";
    $sql.= " WHERE ba.amount = -bb.amount AND ba.fk_account <> bb.fk_account";
    $sql.= " AND ba.datev = bb.datev AND ba.datec = bb.datec";
    $sql.= " AND bu.fk_bank IS NULL";
    $resql = $db->query($sql);

    dolibarr_install_syslog("upgrade2::migrate_links_transfert");
    if ($resql)
    {
        $i = 0;
        $row = array();
        $num = $db->num_rows($resql);

        if ($num)
        {
            print $langs->trans('MigrationBankTransfertsToUpdate', $num)."<br>\n";
            $db->begin();

            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $sql = "INSERT INTO ".MAIN_DB_PREFIX."bank_url (";
                $sql.= "fk_bank, url_id, url, label, type";
                $sql.= ")";
                $sql.= " VALUES (";
                $sql.= $obj->barowid.",".$obj->bbrowid.", '/compta/bank/ligne.php?rowid=', '(banktransfert)', 'banktransfert'";
                $sql.= ")";

                print $sql.'<br>';
                dolibarr_install_syslog("migrate_links_transfert");

                if (! $db->query($sql))
                {
                    dol_print_error($db);
                    $nberr++;
                }

                $i++;
            }

            if (! $nberr)
            {
                //      $db->rollback();
                $db->commit();
                print $langs->trans('MigrationSuccessfullUpdate')."<br>";
            }
            else
            {
                $db->rollback();
                print $langs->trans('MigrationUpdateFailed').'<br>';
            }
        }
        else {
            print $langs->trans('MigrationBankTransfertsNothingToUpdate')."<br>\n";
        }
    }
    else
    {
        dol_print_error($db);
    }

    print '</td></tr>';
}

/**
 * Mise a jour des date de contrats non renseignees
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_contracts_date1($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationContractsEmptyDatesUpdate')."</b><br>\n";

    $sql="update llx_contrat set date_contrat=tms where date_contrat is null";
    dolibarr_install_syslog("upgrade2::migrate_contracts_date1");
    $resql = $db->query($sql);
    if (! $resql) dol_print_error($db);
    if ($db->affected_rows($resql) > 0)
    print $langs->trans('MigrationContractsEmptyDatesUpdateSuccess')."<br>\n";
    else
    print $langs->trans('MigrationContractsEmptyDatesNothingToUpdate')."<br>\n";

    $sql="update llx_contrat set datec=tms where datec is null";
    dolibarr_install_syslog("upgrade2::migrate_contracts_date1");
    $resql = $db->query($sql);
    if (! $resql) dol_print_error($db);
    if ($db->affected_rows($resql) > 0)
    print $langs->trans('MigrationContractsEmptyCreationDatesUpdateSuccess')."<br>\n";
    else
    print $langs->trans('MigrationContractsEmptyCreationDatesNothingToUpdate')."<br>\n";

    print '</td></tr>';
}

/*
 * Mise a jour date contrat avec date min effective mise en service si inferieur
 */
function migrate_contracts_date2($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    $nberr=0;

    print '<br>';
    print '<b>'.$langs->trans('MigrationContractsInvalidDatesUpdate')."</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);

    dolibarr_install_syslog("upgrade2::migrate_contracts_date2");
    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 $langs->trans('MigrationContractsInvalidDateFix', $obj->cref, $obj->date_contrat, $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) dol_print_error($db);

                    $nbcontratsmodifie++;
                }
                $i++;
            }

            $db->commit();

            if ($nbcontratsmodifie)
            print $langs->trans('MigrationContractsInvalidDatesNumber', $nbcontratsmodifie)."<br>\n";
            else
            print  $langs->trans('MigrationContractsInvalidDatesNothingToUpdate')."<br>\n";
        }
    }
    else
    {
        dol_print_error($db);
    }

    print '</td></tr>';
}

/**
 * Mise a jour des dates de creation de contrat
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_contracts_date3($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationContractsIncoherentCreationDateUpdate')."</b><br>\n";

    $sql="update llx_contrat set datec=date_contrat where datec is null or datec > date_contrat";
    dolibarr_install_syslog("upgrade2::migrate_contracts_date3");
    $resql = $db->query($sql);
    if (! $resql) dol_print_error($db);
    if ($db->affected_rows($resql) > 0)
    print $langs->trans('MigrationContractsIncoherentCreationDateUpdateSuccess')."<br>\n";
    else
    print $langs->trans('MigrationContractsIncoherentCreationDateNothingToUpdate')."<br>\n";

    print '</td></tr>';
}

/**
 * Reouverture des contrats qui ont au moins une ligne non fermee
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_contracts_open($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationReopeningContracts')."</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";
    dolibarr_install_syslog("upgrade2::migrate_contracts_open");
    $resql = $db->query($sql);
    if (! $resql) dol_print_error($db);
    if ($db->affected_rows($resql) > 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 $langs->trans('MigrationReopenThisContract', $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) dol_print_error($db);

                $nbcontratsmodifie++;

                $i++;
            }

            $db->commit();

            if ($nbcontratsmodifie)
            print $langs->trans('MigrationReopenedContractsNumber', $nbcontratsmodifie)."<br>\n";
            else
            print $langs->trans('MigrationReopeningContractsNothingToUpdate')."<br>\n";
        }
    }
    else print $langs->trans('MigrationReopeningContractsNothingToUpdate')."<br>\n";

    print '</td></tr>';
}

/**
 * Factures fournisseurs
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_paiementfourn_facturefourn($db,$langs,$conf)
{
    global $bc;

    print '<tr><td colspan="4">';
    print '<br>';
    print '<b>'.$langs->trans('SuppliersInvoices')."</b><br>\n";
    print '</td></tr>';

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."paiementfourn","fk_facture_fourn");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        $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';

        dolibarr_install_syslog("upgrade2::migrate_paiementfourn_facturefourn");
        $select_resql = $db->query($select_sql);
        if ($select_resql)
        {
            $select_num = $db->num_rows($select_resql);
            $i=0;
            $var = true;

            // Pour chaque paiement fournisseur, on insere une ligne dans paiementfourn_facturefourn
            while (($i < $select_num) && (! $error))
            {
                $var = !$var;
                $select_obj = $db->fetch_object($select_resql);

                // Verifier si la ligne est deja dans la nouvelle table. On ne veut pas inserer 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)
                    {
                        $db->begin();

                        if ($nb == 0)
                        {
                            print '<tr><td colspan="4" class="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 class="oddeven">';
                        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 (!$error)
        {
            if (!$nb)
            {
                print '<tr><td>'.$langs->trans("AlreadyDone").'</td></tr>';
            }
            $db->commit();

            $sql = "ALTER TABLE ".MAIN_DB_PREFIX."paiementfourn DROP COLUMN fk_facture_fourn";
            $db->query($sql);
        }
        else
        {
            print '<tr><td>'.$langs->trans("Error").'</td></tr>';
            $db->rollback();
        }
    }
    else
    {
        print '<tr><td>'.$langs->trans("AlreadyDone").'</td></tr>';
    }
}

/**
 * Mise a jour des totaux lignes de facture
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_price_facture($db,$langs,$conf)
{
    $err=0;

    $tmpmysoc=new Societe($db);
    $tmpmysoc->setMysoc($conf);

    $db->begin();

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationInvoice')."</b><br>\n";

    // Liste des lignes facture non a jour
    $sql = "SELECT fd.rowid, fd.qty, fd.subprice, fd.remise_percent, fd.tva_tx as vatrate, fd.total_ttc, fd.info_bits,";
    $sql.= " f.rowid as facid, f.remise_percent as remise_percent_global, f.total_ttc as total_ttc_f";
    $sql.= " FROM ".MAIN_DB_PREFIX."facturedet as fd, ".MAIN_DB_PREFIX."facture as f";
    $sql.= " WHERE fd.fk_facture = f.rowid";
    $sql.= " AND (((fd.total_ttc = 0 AND fd.remise_percent != 100) or fd.total_ttc IS NULL) or f.total_ttc IS NULL)";
    //print $sql;

    dolibarr_install_syslog("upgrade2::migrate_price_facture");
    $resql=$db->query($sql);
    if ($resql)
    {
        $num = $db->num_rows($resql);
        $i = 0;
        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $rowid = $obj->rowid;
                $qty = $obj->qty;
                $pu = $obj->subprice;
                $vatrate = $obj->vatrate;
                $remise_percent = $obj->remise_percent;
                $remise_percent_global = $obj->remise_percent_global;
                $total_ttc_f = $obj->total_ttc_f;
                $info_bits = $obj->info_bits;

                // On met a jour les 3 nouveaux champs
                $facligne= new FactureLigne($db);
                $facligne->fetch($rowid);

                $result=calcul_price_total($qty,$pu,$remise_percent,$vatrate, 0, 0,$remise_percent_global,'HT',$info_bits,$facligne->product_type,$tmpmysoc);
                $total_ht  = $result[0];
                $total_tva = $result[1];
                $total_ttc = $result[2];

                $facligne->total_ht  = $total_ht;
                $facligne->total_tva = $total_tva;
                $facligne->total_ttc = $total_ttc;

                dolibarr_install_syslog("upgrade2: line " . $rowid . ": facid=" . $obj->facid . " pu=" . $pu ." qty=" . $qty . " vatrate=" . $vatrate . " remise_percent=" . $remise_percent . " remise_global=" . $remise_percent_global . " -> " . $total_ht . ", " . $total_tva . ", " . $total_ttc);
                print ". ";
                $facligne->update_total();


                /* On touche a facture mere uniquement si total_ttc = 0 */
                if (! $total_ttc_f)
                {
                    $facture = new Facture($db);
                    $facture->id=$obj->facid;

                    if ( $facture->fetch($facture->id) >= 0)
                    {
                        if ( $facture->update_price() > 0 )
                        {
                            //print $facture->id;
                        }
                        else
                        {
                            print "Error id=".$facture->id;
                            $err++;
                        }
                    }
                    else
                    {
                        print "Error #3";
                        $err++;
                    }
                }
                print " ";

                $i++;
            }
        }
        else
        {
            print $langs->trans("AlreadyDone");
        }
        $db->free($resql);

        $db->commit();
    }
    else
    {
        print "Error #1 ".$db->error();
        $err++;

        $db->rollback();
    }

    print '<br>';

    print '</td></tr>';
}

/**
 * Mise a jour des totaux lignes de propal
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_price_propal($db,$langs,$conf)
{
   	$tmpmysoc=new Societe($db);
	$tmpmysoc->setMysoc($conf);

    $db->begin();

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationProposal')."</b><br>\n";

    // Liste des lignes propal non a jour
    $sql = "SELECT pd.rowid, pd.qty, pd.subprice, pd.remise_percent, pd.tva_tx as vatrate, pd.info_bits,";
    $sql.= " p.rowid as propalid, p.remise_percent as remise_percent_global";
    $sql.= " FROM ".MAIN_DB_PREFIX."propaldet as pd, ".MAIN_DB_PREFIX."propal as p";
    $sql.= " WHERE pd.fk_propal = p.rowid";
    $sql.= " AND ((pd.total_ttc = 0 AND pd.remise_percent != 100) or pd.total_ttc IS NULL)";

    dolibarr_install_syslog("upgrade2::migrate_price_propal");
    $resql=$db->query($sql);
    if ($resql)
    {
        $num = $db->num_rows($resql);
        $i = 0;
        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $rowid = $obj->rowid;
                $qty = $obj->qty;
                $pu = $obj->subprice;
                $vatrate = $obj->vatrate;
                $remise_percent = $obj->remise_percent;
                $remise_percent_global = $obj->remise_percent_global;
                $info_bits = $obj->info_bits;

                // On met a jour les 3 nouveaux champs
                $propalligne= new PropaleLigne($db);
                $propalligne->fetch($rowid);

                $result=calcul_price_total($qty,$pu,$remise_percent,$vatrate,0,0,$remise_percent_global,'HT',$info_bits,$propalligne->product_type,$tmpmysoc);
                $total_ht  = $result[0];
                $total_tva = $result[1];
                $total_ttc = $result[2];

                $propalligne->total_ht  = $total_ht;
                $propalligne->total_tva = $total_tva;
                $propalligne->total_ttc = $total_ttc;

                dolibarr_install_syslog("upgrade2: Line " . $rowid . ": propalid=" . $obj->rowid . " pu=" . $pu . " qty=" . $qty . " vatrate=" . $vatrate . " remise_percent=" . $remise_percent . " remise_global=" . $remise_percent_global . " -> " . $total_ht . ", " . $total_tva. ", " . $total_ttc);
                print ". ";
                $propalligne->update_total();


                /* On touche pas a propal mere
                 $propal = new Propal($db);
                 $propal->id=$obj->rowid;
                 if ( $propal->fetch($propal->id) >= 0 )
                 {
                 if ( $propal->update_price() > 0 )
                 {
                 print ". ";
                 }
                 else
                 {
                 print "Error id=".$propal->id;
                 }
                 }
                 else
                 {
                 print "Error #3";
                 }
                 */
                $i++;
            }
        }
        else
        {
            print $langs->trans("AlreadyDone");
        }

        $db->free($resql);

        $db->commit();
    }
    else
    {
        print "Error #1 ".$db->error();

        $db->rollback();
    }

    print '<br>';

    print '</td></tr>';
}

/**
 * Update total of contract lines
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_price_contrat($db,$langs,$conf)
{
    $db->begin();

   	$tmpmysoc=new Societe($db);
	$tmpmysoc->setMysoc($conf);
    if (empty($tmpmysoc->country_id)) $tmpmysoc->country_id=0;	// Ti not have this set to '' or will make sql syntax error.

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationContract')."</b><br>\n";

    // Liste des lignes contrat non a jour
    $sql = "SELECT cd.rowid, cd.qty, cd.subprice, cd.remise_percent, cd.tva_tx as vatrate, cd.info_bits,";
    $sql.= " c.rowid as contratid";
    $sql.= " FROM ".MAIN_DB_PREFIX."contratdet as cd, ".MAIN_DB_PREFIX."contrat as c";
    $sql.= " WHERE cd.fk_contrat = c.rowid";
    $sql.= " AND ((cd.total_ttc = 0 AND cd.remise_percent != 100 AND cd.subprice > 0) or cd.total_ttc IS NULL)";

    dolibarr_install_syslog("upgrade2::migrate_price_contrat");
    $resql=$db->query($sql);
    if ($resql)
    {
        $num = $db->num_rows($resql);
        $i = 0;
        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $rowid = $obj->rowid;
                $qty = $obj->qty;
                $pu = $obj->subprice;
                $vatrate = $obj->vatrate;
                $remise_percent = $obj->remise_percent;
                $info_bits = $obj->info_bits;

                // On met a jour les 3 nouveaux champs
                $contratligne= new ContratLigne($db);
                //$contratligne->fetch($rowid); Non requis car le update_total ne met a jour que chp redefinis
                $contratligne->fetch($rowid);

                $result=calcul_price_total($qty,$pu,$remise_percent,$vatrate,0,0,0,'HT',$info_bits,$contratligne->product_type,$tmpmysoc);
                $total_ht  = $result[0];
                $total_tva = $result[1];
                $total_ttc = $result[2];

                $contratligne->total_ht  = $total_ht;
                $contratligne->total_tva = $total_tva;
                $contratligne->total_ttc = $total_ttc;

                dolibarr_install_syslog("upgrade2: Line " . $rowid . ": contratdetid=" . $obj->rowid . " pu=" . $pu . " qty=" . $qty . " vatrate=" . $vatrate . " remise_percent=" . $remise_percent. "  -> " . $total_ht . ", " . $total_tva. " , " . $total_ttc);
                print ". ";
                $contratligne->update_total();

                $i++;
            }
        }
        else
        {
            print $langs->trans("AlreadyDone");
        }

        $db->free($resql);

        $db->commit();
    }
    else
    {
        print "Error #1 ".$db->error();

        $db->rollback();
    }

    print '<br>';

    print '</td></tr>';
}

/**
 * Mise a jour des totaux lignes de commande
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_price_commande($db,$langs,$conf)
{
    $db->begin();

    $tmpmysoc=new Societe($db);
    $tmpmysoc->setMysoc($conf);

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationOrder')."</b><br>\n";

    // Liste des lignes commande non a jour
    $sql = "SELECT cd.rowid, cd.qty, cd.subprice, cd.remise_percent, cd.tva_tx as vatrate, cd.info_bits,";
    $sql.= " c.rowid as commandeid, c.remise_percent as remise_percent_global";
    $sql.= " FROM ".MAIN_DB_PREFIX."commandedet as cd, ".MAIN_DB_PREFIX."commande as c";
    $sql.= " WHERE cd.fk_commande = c.rowid";
    $sql.= " AND ((cd.total_ttc = 0 AND cd.remise_percent != 100) or cd.total_ttc IS NULL)";

    dolibarr_install_syslog("upgrade2::migrate_price_commande");
    $resql=$db->query($sql);
    if ($resql)
    {
        $num = $db->num_rows($resql);
        $i = 0;
        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $rowid = $obj->rowid;
                $qty = $obj->qty;
                $pu = $obj->subprice;
                $vatrate = $obj->vatrate;
                $remise_percent = $obj->remise_percent;
                $remise_percent_global = $obj->remise_percent_global;
                $info_bits = $obj->info_bits;

                // On met a jour les 3 nouveaux champs
                $commandeligne= new OrderLine($db);
                $commandeligne->fetch($rowid);

                $result=calcul_price_total($qty,$pu,$remise_percent,$vatrate,0,0,$remise_percent_global,'HT',$info_bits,$commandeligne->product_type,$tmpmysoc);
                $total_ht  = $result[0];
                $total_tva = $result[1];
                $total_ttc = $result[2];

                $commandeligne->total_ht  = $total_ht;
                $commandeligne->total_tva = $total_tva;
                $commandeligne->total_ttc = $total_ttc;

                dolibarr_install_syslog("upgrade2: Line " . $rowid . " : commandeid=" . $obj->rowid . " pu=" . $pu . " qty=" . $qty . " vatrate=" . $vatrate . " remise_percent=" . $remise_percent . " remise_global=" . $remise_percent_global. "  -> " . $total_ht . ", " . $total_tva . ", " . $total_ttc);
                print ". ";
                $commandeligne->update_total();

                /* On touche pas a facture mere
                 $commande = new Commande($db);
                 $commande->id = $obj->rowid;
                 if ( $commande->fetch($commande->id) >= 0 )
                 {
                 if ( $commande->update_price() > 0 )
                 {
                 print ". ";
                 }
                 else
                 {
                 print "Error id=".$commande->id;
                 }
                 }
                 else
                 {
                 print "Error #3";
                 }
                 */
                $i++;
            }
        }
        else
        {
            print $langs->trans("AlreadyDone");
        }

        $db->free($resql);

        /*
         $sql = "DELETE FROM ".MAIN_DB_PREFIX."commandedet";
         $sql.= " WHERE price = 0 and total_ttc = 0 and total_tva = 0 and total_ht = 0 AND remise_percent = 0";
         $resql=$db->query($sql);
         if (! $resql)
         {
         dol_print_error($db);
         }
         */

        $db->commit();
    }
    else
    {
        print "Error #1 ".$db->error();

        $db->rollback();
    }

    print '<br>';

    print '</td></tr>';
}

/**
 * Mise a jour des totaux lignes de commande fournisseur
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_price_commande_fournisseur($db,$langs,$conf)
{
    $db->begin();

    $tmpmysoc=new Societe($db);
    $tmpmysoc->setMysoc($conf);

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationSupplierOrder')."</b><br>\n";

    // Liste des lignes commande non a jour
    $sql = "SELECT cd.rowid, cd.qty, cd.subprice, cd.remise_percent, cd.tva_tx as vatrate, cd.info_bits,";
    $sql.= " c.rowid as commandeid, c.remise_percent as remise_percent_global";
    $sql.= " FROM ".MAIN_DB_PREFIX."commande_fournisseurdet as cd, ".MAIN_DB_PREFIX."commande_fournisseur as c";
    $sql.= " WHERE cd.fk_commande = c.rowid";
    $sql.= " AND ((cd.total_ttc = 0 AND cd.remise_percent != 100) or cd.total_ttc IS NULL)";

    dolibarr_install_syslog("upgrade2::migrate_price_commande_fournisseur");
    $resql=$db->query($sql);
    if ($resql)
    {
        $num = $db->num_rows($resql);
        $i = 0;
        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $rowid = $obj->rowid;
                $qty = $obj->qty;
                $pu = $obj->subprice;
                $vatrate = $obj->vatrate;
                $remise_percent = $obj->remise_percent;
                $remise_percent_global = $obj->remise_percent_global;
                $info_bits = $obj->info_bits;

                // On met a jour les 3 nouveaux champs
                $commandeligne= new CommandeFournisseurLigne($db);
                $commandeligne->fetch($rowid);

                $result=calcul_price_total($qty,$pu,$remise_percent,$vatrate,0,0,$remise_percent_global,'HT',$info_bits,$commandeligne->product_type,$tmpsoc);
                $total_ht  = $result[0];
                $total_tva = $result[1];
                $total_ttc = $result[2];

                $commandeligne->total_ht  = $total_ht;
                $commandeligne->total_tva = $total_tva;
                $commandeligne->total_ttc = $total_ttc;

                dolibarr_install_syslog("upgrade2: Line " . $rowid . ": commandeid=" . $obj->rowid . " pu=" . $pu . "  qty=" . $qty . " vatrate=" . $vatrate . " remise_percent=" . $remise_percent . " remise_global=" . $remise_percent_global . " -> " . $total_ht . ", " . $total_tva . ", " . $total_ttc);
                print ". ";
                $commandeligne->update_total();

                /* On touche pas a facture mere
                 $commande = new Commande($db);
                 $commande->id = $obj->rowid;
                 if ( $commande->fetch($commande->id) >= 0 )
                 {
                 if ( $commande->update_price() > 0 )
                 {
                 print ". ";
                 }
                 else
                 {
                 print "Error id=".$commande->id;
                 }
                 }
                 else
                 {
                 print "Error #3";
                 }
                 */
                $i++;
            }
        }
        else
        {
            print $langs->trans("AlreadyDone");
        }

        $db->free($resql);

        /*
         $sql = "DELETE FROM ".MAIN_DB_PREFIX."commande_fournisseurdet";
         $sql.= " WHERE subprice = 0 and total_ttc = 0 and total_tva = 0 and total_ht = 0";
         $resql=$db->query($sql);
         if (! $resql)
         {
         dol_print_error($db);
         }
         */

        $db->commit();
    }
    else
    {
        print "Error #1 ".$db->error();

        $db->rollback();
    }

    print '<br>';

    print '</td></tr>';
}

/**
 * Mise a jour des modeles selectionnes
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_modeles($db,$langs,$conf)
{
    //print '<br>';
    //print '<b>'.$langs->trans('UpdateModelsTable')."</b><br>\n";

    dolibarr_install_syslog("upgrade2::migrate_modeles");

    if (! empty($conf->facture->enabled))
    {
        include_once DOL_DOCUMENT_ROOT.'/core/modules/facture/modules_facture.php';
        $modellist=ModelePDFFactures::liste_modeles($db);
        if (count($modellist)==0)
        {
            // Aucun model par defaut.
            $sql=" insert into llx_document_model(nom,type) values('crabe','invoice')";
            $resql = $db->query($sql);
            if (! $resql) dol_print_error($db);
        }
    }

    if (! empty($conf->commande->enabled))
    {
        include_once DOL_DOCUMENT_ROOT.'/core/modules/commande/modules_commande.php';
        $modellist=ModelePDFCommandes::liste_modeles($db);
        if (count($modellist)==0)
        {
            // Aucun model par defaut.
            $sql=" insert into llx_document_model(nom,type) values('einstein','order')";
            $resql = $db->query($sql);
            if (! $resql) dol_print_error($db);
        }
    }

    if (! empty($conf->expedition->enabled))
    {
        include_once DOL_DOCUMENT_ROOT.'/core/modules/expedition/modules_expedition.php';
        $modellist=ModelePDFExpedition::liste_modeles($db);
        if (count($modellist)==0)
        {
            // Aucun model par defaut.
            $sql=" insert into llx_document_model(nom,type) values('rouget','shipping')";
            $resql = $db->query($sql);
            if (! $resql) dol_print_error($db);
        }
    }

    //print $langs->trans("AlreadyDone");
}


/**
 * Correspondance des expeditions et des commandes clients dans la table llx_co_exp
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_commande_expedition($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_commande_expedition");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationShipmentOrderMatching')."</b><br>\n";

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."expedition","fk_commande");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        $error = 0;

        $db->begin();

        $sql = "SELECT e.rowid, e.fk_commande FROM ".MAIN_DB_PREFIX."expedition as e";
        $resql = $db->query($sql);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sql = "INSERT INTO ".MAIN_DB_PREFIX."co_exp (fk_expedition,fk_commande)";
                    $sql.= " VALUES (".$obj->rowid.",".$obj->fk_commande.")";
                    $resql2=$db->query($sql);

                    if (!$resql2)
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $i++;
                }
            }

            if ($error == 0)
            {
                $db->commit();
                $sql = "ALTER TABLE ".MAIN_DB_PREFIX."expedition DROP COLUMN fk_commande";
                print $langs->trans('FieldRenamed')."<br>\n";
                $db->query($sql);
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }
    print '</td></tr>';
}

/**
 * Correspondance des livraisons et des commandes clients dans la table llx_co_liv
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_commande_livraison($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_commande_livraison");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationDeliveryOrderMatching')."</b><br>\n";

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."livraison","fk_commande");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        $error = 0;

        $db->begin();

        $sql = "SELECT l.rowid, l.fk_commande";
        $sql.= ", c.ref_client, c.date_livraison";
        $sql.= " FROM ".MAIN_DB_PREFIX."livraison as l, ".MAIN_DB_PREFIX."commande as c";
        $sql.= " WHERE c.rowid = l.fk_commande";
        $resql = $db->query($sql);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sql = "INSERT INTO ".MAIN_DB_PREFIX."co_liv (fk_livraison,fk_commande)";
                    $sql.= " VALUES (".$obj->rowid.",".$obj->fk_commande.")";
                    $resql2=$db->query($sql);

                    if ($resql2)
                    {
                        $sqlu = "UPDATE ".MAIN_DB_PREFIX."livraison SET";
                        $sqlu.= " ref_client='".$obj->ref_client."'";
                        $sqlu.= ", date_livraison='".$obj->date_livraison."'";
                        $sqlu.= " WHERE rowid = ".$obj->rowid;
                        $resql3=$db->query($sqlu);
                        if (!$resql3)
                        {
                            $error++;
                            dol_print_error($db);
                        }
                    }
                    else
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $i++;
                }
            }

            if ($error == 0)
            {
                $db->commit();
                $sql = "ALTER TABLE ".MAIN_DB_PREFIX."livraison DROP COLUMN fk_commande";
                print $langs->trans('FieldRenamed')."<br>\n";
                $db->query($sql);
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }
    print '</td></tr>';
}

/**
 * Migration des details commandes dans les details livraisons
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_detail_livraison($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_detail_livraison");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationDeliveryDetail')."</b><br>\n";

    // This is done if field fk_commande_ligne exists.
    // If not this means migration was already done.
    $result = $db->DDLDescTable(MAIN_DB_PREFIX."livraisondet","fk_commande_ligne");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        $error = 0;

        $db->begin();

        $sql = "SELECT cd.rowid, cd.fk_product, cd.description, cd.subprice, cd.total_ht";
        $sql.= ", ld.fk_livraison";
        $sql.= " FROM ".MAIN_DB_PREFIX."commandedet as cd, ".MAIN_DB_PREFIX."livraisondet as ld";
        $sql.= " WHERE ld.fk_commande_ligne = cd.rowid";
        $resql = $db->query($sql);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sql = "UPDATE ".MAIN_DB_PREFIX."livraisondet SET";
                    $sql.= " fk_product=".$obj->fk_product;
                    $sql.= ",description='".$db->escape($obj->description)."'";
                    $sql.= ",subprice='".$obj->subprice."'";
                    $sql.= ",total_ht='".$obj->total_ht."'";
                    $sql.= " WHERE fk_commande_ligne = ".$obj->rowid;
                    $resql2=$db->query($sql);

                    if ($resql2)
                    {
                        $sql = "SELECT total_ht";
                        $sql.= " FROM ".MAIN_DB_PREFIX."livraison";
                        $sql.= " WHERE rowid = ".$obj->fk_livraison;
                        $resql3=$db->query($sql);

                        if ($resql3)
                        {
                            $obju = $db->fetch_object($resql3);
                            $total_ht = $obju->total_ht + $obj->total_ht;

                            $sqlu = "UPDATE ".MAIN_DB_PREFIX."livraison SET";
                            $sqlu.= " total_ht='".$total_ht."'";
                            $sqlu.= " WHERE rowid=".$obj->fk_livraison;
                            $resql4=$db->query($sqlu);
                            if (!$resql4)
                            {
                                $error++;
                                dol_print_error($db);
                            }
                        }
                        else
                        {
                            $error++;
                            dol_print_error($db);
                        }
                    }
                    else
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $i++;
                }

            }

            if ($error == 0)
            {
                $db->commit();
                $sql = "ALTER TABLE ".MAIN_DB_PREFIX."livraisondet CHANGE fk_commande_ligne fk_origin_line integer";
                print $langs->trans('FieldRenamed')."<br>\n";
                $db->query($sql);
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        $result = $db->DDLDescTable(MAIN_DB_PREFIX."livraisondet","fk_origin_line");
        $obj = $db->fetch_object($result);
        if (!$obj)
        {
            $sql = "ALTER TABLE ".MAIN_DB_PREFIX."livraisondet ADD COLUMN fk_origin_line integer after fk_livraison";
            $db->query($sql);
        }
        print $langs->trans('AlreadyDone')."<br>\n";
    }
    print '</td></tr>';
}

/**
 * Migration du champ stock dans produits
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_stocks($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_stocks");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationStockDetail')."</b><br>\n";

    $error = 0;

    $db->begin();

    $sql = "SELECT SUM(reel) as total, fk_product";
    $sql.= " FROM ".MAIN_DB_PREFIX."product_stock as ps";
    $sql.= " GROUP BY fk_product";
    $resql = $db->query($sql);
    if ($resql)
    {
        $i = 0;
        $num = $db->num_rows($resql);

        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $sql = "UPDATE ".MAIN_DB_PREFIX."product SET";
                $sql.= " stock = '".$obj->total."'";
                $sql.= " WHERE rowid=".$obj->fk_product;

                $resql2=$db->query($sql);
                if ($resql2)
                {

                }
                else
                {
                    $error++;
                    dol_print_error($db);
                }
                print ". ";
                $i++;
            }

        }

        if ($error == 0)
        {
            $db->commit();
        }
        else
        {
            $db->rollback();
        }
    }
    else
    {
        dol_print_error($db);
        $db->rollback();
    }

    print '</td></tr>';
}

/**
 * Migration of menus (use only 1 table instead of 3)
 * 2.6 -> 2.7
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_menus($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_menus");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationMenusDetail')."</b><br>\n";

    $error = 0;

    if ($db->DDLInfoTable(MAIN_DB_PREFIX."menu_constraint"))
    {
        $db->begin();

        $sql = "SELECT m.rowid, mc.action";
        $sql.= " FROM ".MAIN_DB_PREFIX."menu_constraint as mc, ".MAIN_DB_PREFIX."menu_const as md, ".MAIN_DB_PREFIX."menu as m";
        $sql.= " WHERE md.fk_menu = m.rowid AND md.fk_constraint = mc.rowid";
        $sql.= " AND m.enabled = '1'";
        $resql = $db->query($sql);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);
            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sql = "UPDATE ".MAIN_DB_PREFIX."menu SET";
                    $sql.= " enabled = '".$obj->action."'";
                    $sql.= " WHERE rowid=".$obj->rowid;
                    $sql.= " AND enabled = '1'";

                    $resql2=$db->query($sql);
                    if ($resql2)
                    {

                    }
                    else
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $i++;
                }
            }

            if ($error == 0)
            {
                $db->commit();
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }

    print '</td></tr>';
}

/**
 * Migration du champ fk_adresse_livraison dans expedition
 * 2.6 -> 2.7
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_commande_deliveryaddress($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_commande_deliveryaddress");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationDeliveryAddress')."</b><br>\n";

    $error = 0;

    if ($db->DDLInfoTable(MAIN_DB_PREFIX."co_exp"))
    {
        $db->begin();

        $sql = "SELECT c.fk_adresse_livraison, ce.fk_expedition";
        $sql.= " FROM ".MAIN_DB_PREFIX."commande as c";
        $sql.= ", ".MAIN_DB_PREFIX."co_exp as ce";
        $sql.= " WHERE c.rowid = ce.fk_commande";
        $sql.= " AND c.fk_adresse_livraison IS NOT NULL AND c.fk_adresse_livraison != 0";

        $resql = $db->query($sql);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sql = "UPDATE ".MAIN_DB_PREFIX."expedition SET";
                    $sql.= " fk_adresse_livraison = '".$obj->fk_adresse_livraison."'";
                    $sql.= " WHERE rowid=".$obj->fk_expedition;

                    $resql2=$db->query($sql);
                    if (!$resql2)
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $i++;
                }
            }
            else
            {
                print $langs->trans('AlreadyDone')."<br>\n";
            }

            if ($error == 0)
            {
                $db->commit();
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }

    print '</td></tr>';
}

/**
 * Migration du champ fk_remise_except dans llx_facturedet doit correspondre a
 * lien dans llx_societe_remise_except vers llx_facturedet
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	integer|null
 */
function migrate_restore_missing_links($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_restore_missing_links");

    if (($db->type == 'mysql' || $db->type == 'mysqli'))
    {
        if (versioncompare($db->getVersionArray(),array(4,0)) < 0)
        {
            dolibarr_install_syslog("upgrade2::migrate_restore_missing_links Version of database too old to make this migrate action");
            return 0;
        }
    }
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationFixData')."</b> (1)<br>\n";

    $error = 0;


    // Restore missing link for this cross foreign key (link 1 <=> 1). Direction 1.
    $table1='facturedet'; $field1='fk_remise_except';
    $table2='societe_remise_except'; $field2='fk_facture_line';

    $db->begin();

    $sql = "SELECT t1.rowid, t1.".$field1." as field";
    $sql.= " FROM ".MAIN_DB_PREFIX.$table1." as t1";
    $sql.= " WHERE t1.".$field1." IS NOT NULL AND t1.".$field1." NOT IN";
    $sql.= " (SELECT t2.rowid FROM ".MAIN_DB_PREFIX.$table2." as t2";
    $sql.= " WHERE t1.rowid = t2.".$field2.")";

    dolibarr_install_syslog("upgrade2::migrate_restore_missing_links DIRECTION 1");
    $resql = $db->query($sql);
    if ($resql)
    {
        $i = 0;
        $num = $db->num_rows($resql);

        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                print 'Line '.$obj->rowid.' in '.$table1.' is linked to record '.$obj->field.' in '.$table2.' that has no link to '.$table1.'. We fix this.<br>';
                $sql = "UPDATE ".MAIN_DB_PREFIX.$table2." SET";
                $sql.= " ".$field2." = '".$obj->rowid."'";
                $sql.= " WHERE rowid=".$obj->field;

                $resql2=$db->query($sql);
                if (! $resql2)
                {
                    $error++;
                    dol_print_error($db);
                }
                //print ". ";
                $i++;
            }

        }
        else print $langs->trans('AlreadyDone')."<br>\n";

        if ($error == 0)
        {
            $db->commit();
        }
        else
        {
            $db->rollback();
        }
    }
    else
    {
        dol_print_error($db);
        $db->rollback();
    }

    print '</td></tr>';


    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationFixData')."</b> (2)<br>\n";

    // Restore missing link for this cross foreign key (link 1 <=> 1). Direction 2.
    $table2='facturedet'; $field2='fk_remise_except';
    $table1='societe_remise_except'; $field1='fk_facture_line';

    $db->begin();

    $sql = "SELECT t1.rowid, t1.".$field1." as field";
    $sql.= " FROM ".MAIN_DB_PREFIX.$table1." as t1";
    $sql.= " WHERE t1.".$field1." IS NOT NULL AND t1.".$field1." NOT IN";
    $sql.= " (SELECT t2.rowid FROM ".MAIN_DB_PREFIX.$table2." as t2";
    $sql.= " WHERE t1.rowid = t2.".$field2.")";

    dolibarr_install_syslog("upgrade2::migrate_restore_missing_links DIRECTION 2");
    $resql = $db->query($sql);
    if ($resql)
    {
        $i = 0;
        $num = $db->num_rows($resql);

        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                print 'Line '.$obj->rowid.' in '.$table1.' is linked to record '.$obj->field.' in '.$table2.' that has no link to '.$table1.'. We fix this.<br>';
                $sql = "UPDATE ".MAIN_DB_PREFIX.$table2." SET";
                $sql.= " ".$field2." = '".$obj->rowid."'";
                $sql.= " WHERE rowid=".$obj->field;

                $resql2=$db->query($sql);
                if (! $resql2)
                {
                    $error++;
                    dol_print_error($db);
                }
                //print ". ";
                $i++;
            }

        }
        else
        {
            print $langs->trans('AlreadyDone')."<br>\n";
        }

        if ($error == 0)
        {
            $db->commit();
        }
        else
        {
            $db->rollback();
        }
    }
    else
    {
        dol_print_error($db);
        $db->rollback();
    }

    print '</td></tr>';
}

/**
 * Migration du champ fk_user_resp de llx_projet vers llx_element_contact
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_project_user_resp($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_project_user_resp");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationProjectUserResp')."</b><br>\n";

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."projet","fk_user_resp");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        $error = 0;

        $db->begin();

        $sql = "SELECT rowid, fk_user_resp FROM ".MAIN_DB_PREFIX."projet";
        $resql = $db->query($sql);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sql2 = "INSERT INTO ".MAIN_DB_PREFIX."element_contact (";
                    $sql2.= "datecreate";
                    $sql2.= ", statut";
                    $sql2.= ", element_id";
                    $sql2.= ", fk_c_type_contact";
                    $sql2.= ", fk_socpeople";
                    $sql2.= ") VALUES (";
                    $sql2.= "'".$db->idate(dol_now())."'";
                    $sql2.= ", '4'";
                    $sql2.= ", ".$obj->rowid;
                    $sql2.= ", '160'";
                    $sql2.= ", ".$obj->fk_user_resp;
                    $sql2.= ")";

                    if ($obj->fk_user_resp > 0)
                    {
                        $resql2=$db->query($sql2);
                        if (!$resql2)
                        {
                            $error++;
                            dol_print_error($db);
                        }
                    }
                    print ". ";

                    $i++;
                }
            }

            if ($error == 0)
            {
                $sqlDrop = "ALTER TABLE ".MAIN_DB_PREFIX."projet DROP COLUMN fk_user_resp";
                if ($db->query($sqlDrop))
                {
                    $db->commit();
                }
                else
                {
                    $db->rollback();
                }
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }
    print '</td></tr>';
}

/**
 * Migration de la table llx_projet_task_actors vers llx_element_contact
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_project_task_actors($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_project_task_actors");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationProjectTaskActors')."</b><br>\n";

    if ($db->DDLInfoTable(MAIN_DB_PREFIX."projet_task_actors"))
    {
        $error = 0;

        $db->begin();

        $sql = "SELECT fk_projet_task, fk_user FROM ".MAIN_DB_PREFIX."projet_task_actors";
        $resql = $db->query($sql);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sql2 = "INSERT INTO ".MAIN_DB_PREFIX."element_contact (";
                    $sql2.= "datecreate";
                    $sql2.= ", statut";
                    $sql2.= ", element_id";
                    $sql2.= ", fk_c_type_contact";
                    $sql2.= ", fk_socpeople";
                    $sql2.= ") VALUES (";
                    $sql2.= "'".$db->idate(dol_now())."'";
                    $sql2.= ", '4'";
                    $sql2.= ", ".$obj->fk_projet_task;
                    $sql2.= ", '180'";
                    $sql2.= ", ".$obj->fk_user;
                    $sql2.= ")";

                    $resql2=$db->query($sql2);

                    if (!$resql2)
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $i++;
                }
            }

            if ($error == 0)
            {
                $sqlDrop = "DROP TABLE ".MAIN_DB_PREFIX."projet_task_actors";
                if ($db->query($sqlDrop))
                {
                    $db->commit();
                }
                else
                {
                    $db->rollback();
                }
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }
    print '</td></tr>';
}

/**
 * Migration des tables de relation
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @param	string		$table			Table name
 * @param	int			$fk_source		Id of element source
 * @param	type		$sourcetype		Type of element source
 * @param	int			$fk_target		Id of element target
 * @param	type		$targettype		Type of element target
 * @return	void
 */
function migrate_relationship_tables($db,$langs,$conf,$table,$fk_source,$sourcetype,$fk_target,$targettype)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationRelationshipTables',MAIN_DB_PREFIX.$table)."</b><br>\n";

    $error = 0;

    if ($db->DDLInfoTable(MAIN_DB_PREFIX.$table))
    {
        dolibarr_install_syslog("upgrade2::migrate_relationship_tables table = " . MAIN_DB_PREFIX . $table);

        $db->begin();

        $sqlSelect = "SELECT ".$fk_source.", ".$fk_target;
        $sqlSelect.= " FROM ".MAIN_DB_PREFIX.$table;

        $resql = $db->query($sqlSelect);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sqlInsert = "INSERT INTO ".MAIN_DB_PREFIX."element_element (";
                    $sqlInsert.= "fk_source";
                    $sqlInsert.= ", sourcetype";
                    $sqlInsert.= ", fk_target";
                    $sqlInsert.= ", targettype";
                    $sqlInsert.= ") VALUES (";
                    $sqlInsert.= $obj->$fk_source;
                    $sqlInsert.= ", '".$sourcetype."'";
                    $sqlInsert.= ", ".$obj->$fk_target;
                    $sqlInsert.= ", '".$targettype."'";
                    $sqlInsert.= ")";

                    $result=$db->query($sqlInsert);
                    if (! $result)
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $i++;
                }
            }
            else
            {
                print $langs->trans('AlreadyDone')."<br>\n";
            }

            if ($error == 0)
            {
                $sqlDrop = "DROP TABLE ".MAIN_DB_PREFIX.$table;
                if ($db->query($sqlDrop))
                {
                    $db->commit();
                }
                else
                {
                    $db->rollback();
                }
            }
            else
            {
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }

    print '</td></tr>';
}

/**
 * Migrate duration in seconds
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_project_task_time($db,$langs,$conf)
{
    dolibarr_install_syslog("upgrade2::migrate_project_task_time");

    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationProjectTaskTime')."</b><br>\n";

    $error = 0;

    $db->begin();

    $sql = "SELECT rowid, fk_task, task_duration";
    $sql.= " FROM ".MAIN_DB_PREFIX."projet_task_time";
    $resql = $db->query($sql);
    if ($resql)
    {
        $i = 0;
        $num = $db->num_rows($resql);

        if ($num)
        {
            $totaltime = array();
            $oldtime = 0;

            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                if ($obj->task_duration > 0)
                {
                    // convert to second
                    // only for int time and float time ex: 1,75 for 1h45
                    list($hour,$min) = explode('.',$obj->task_duration);
                    $hour = $hour*60*60;
                    $min = ($min/100)*60*60;
                    $newtime = $hour+$min;

                    $sql2 = "UPDATE ".MAIN_DB_PREFIX."projet_task_time SET";
                    $sql2.= " task_duration = ".$newtime;
                    $sql2.= " WHERE rowid = ".$obj->rowid;

                    $resql2=$db->query($sql2);
                    if (!$resql2)
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    print ". ";
                    $oldtime++;
                    if (! empty($totaltime[$obj->fk_task])) $totaltime[$obj->fk_task] += $newtime;
                    else $totaltime[$obj->fk_task] = $newtime;
                }
                else
                {
                    if (! empty($totaltime[$obj->fk_task])) $totaltime[$obj->fk_task] += $obj->task_duration;
                    else $totaltime[$obj->fk_task] = $obj->task_duration;
                }

                $i++;
            }

            if ($error == 0)
            {
                if ($oldtime > 0)
                {
                    foreach($totaltime as $taskid => $total_duration)
                    {
                        $sql = "UPDATE ".MAIN_DB_PREFIX."projet_task SET";
                        $sql.= " duration_effective = ".$total_duration;
                        $sql.= " WHERE rowid = ".$taskid;

                        $resql=$db->query($sql);
                        if (!$resql)
                        {
                            $error++;
                            dol_print_error($db);
                        }
                    }
                }
                else
                {
                    print $langs->trans('AlreadyDone')."<br>\n";
                }
            }
            else
            {
                dol_print_error($db);
            }
        }
        else
        {
            print $langs->trans('AlreadyDone')."<br>\n";
        }
    }
    else
    {
        dol_print_error($db);
    }

    if ($error == 0)
    {
        $db->commit();
    }
    else
    {
        $db->rollback();
    }

    print '</td></tr>';
}

/**
 * Migrate order ref_customer and date_delivery fields to llx_expedition
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_customerorder_shipping($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationCustomerOrderShipping')."</b><br>\n";

    $error = 0;

    $result1 = $db->DDLDescTable(MAIN_DB_PREFIX."expedition","ref_customer");
    $result2 = $db->DDLDescTable(MAIN_DB_PREFIX."expedition","date_delivery");
    $obj1 = $db->fetch_object($result1);
    $obj2 = $db->fetch_object($result2);
    if (!$obj1 && !$obj2)
    {
        dolibarr_install_syslog("upgrade2::migrate_customerorder_shipping");

        $db->begin();

        $sqlAdd1 = "ALTER TABLE ".MAIN_DB_PREFIX."expedition ADD COLUMN ref_customer varchar(30) AFTER entity";
        $sqlAdd2 = "ALTER TABLE ".MAIN_DB_PREFIX."expedition ADD COLUMN date_delivery date DEFAULT NULL AFTER date_expedition";

        if ($db->query($sqlAdd1) && $db->query($sqlAdd2))
        {
            $sqlSelect = "SELECT e.rowid as shipping_id, c.ref_client, c.date_livraison";
            $sqlSelect.= " FROM ".MAIN_DB_PREFIX."expedition as e";
            $sqlSelect.= ", ".MAIN_DB_PREFIX."element_element as el";
            $sqlSelect.= " LEFT JOIN ".MAIN_DB_PREFIX."commande as c ON c.rowid = el.fk_source AND el.sourcetype = 'commande'";
            $sqlSelect.= " WHERE e.rowid = el.fk_target";
            $sqlSelect.= " AND el.targettype = 'shipping'";

            $resql = $db->query($sqlSelect);
            if ($resql)
            {
                $i = 0;
                $num = $db->num_rows($resql);

                if ($num)
                {
                    while ($i < $num)
                    {
                        $obj = $db->fetch_object($resql);

                        $sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."expedition SET";
                        $sqlUpdate.= " ref_customer = '".$obj->ref_client."'";
                        $sqlUpdate.= ", date_delivery = '".($obj->date_livraison?$obj->date_livraison:'null')."'";
                        $sqlUpdate.= " WHERE rowid = ".$obj->shipping_id;

                        $result=$db->query($sqlUpdate);
                        if (! $result)
                        {
                            $error++;
                            dol_print_error($db);
                        }
                        print ". ";
                        $i++;
                    }
                }
                else
                {
                    print $langs->trans('AlreadyDone')."<br>\n";
                }

                if ($error == 0)
                {
                    $db->commit();
                }
                else
                {
                    dol_print_error($db);
                    $db->rollback();
                }
            }
            else
            {
                dol_print_error($db);
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }

    print '</td></tr>';
}

/**
 * Migrate link stored into fk_expedition into llx_element_element
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_shipping_delivery($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationShippingDelivery')."</b><br>\n";

    $error = 0;

    $result = $db->DDLDescTable(MAIN_DB_PREFIX."livraison","fk_expedition");
    $obj = $db->fetch_object($result);
    if ($obj)
    {
        dolibarr_install_syslog("upgrade2::migrate_shipping_delivery");

        $db->begin();

        $sqlSelect = "SELECT rowid, fk_expedition";
        $sqlSelect.= " FROM ".MAIN_DB_PREFIX."livraison";
        $sqlSelect.= " WHERE fk_expedition is not null";

        $resql = $db->query($sqlSelect);
        if ($resql)
        {
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num)
            {
                while ($i < $num)
                {
                    $obj = $db->fetch_object($resql);

                    $sqlInsert = "INSERT INTO ".MAIN_DB_PREFIX."element_element (";
                    $sqlInsert.= "fk_source";
                    $sqlInsert.= ", sourcetype";
                    $sqlInsert.= ", fk_target";
                    $sqlInsert.= ", targettype";
                    $sqlInsert.= ") VALUES (";
                    $sqlInsert.= $obj->fk_expedition;
                    $sqlInsert.= ", 'shipping'";
                    $sqlInsert.= ", ".$obj->rowid;
                    $sqlInsert.= ", 'delivery'";
                    $sqlInsert.= ")";

                    $result=$db->query($sqlInsert);
                    if ($result)
                    {
                        $sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."livraison SET fk_expedition = NULL";
                        $sqlUpdate.= " WHERE rowid = ".$obj->rowid;

                        $result=$db->query($sqlUpdate);
                        if (! $result)
                        {
                            $error++;
                            dol_print_error($db);
                        }
                        print ". ";
                    }
                    else
                    {
                        $error++;
                        dol_print_error($db);
                    }
                    $i++;
                }
            }
            else
            {
                print $langs->trans('AlreadyDone')."<br>\n";
            }

            if ($error == 0)
            {
                $sqlDelete = "DELETE FROM ".MAIN_DB_PREFIX."element_element WHERE sourcetype = 'commande' AND targettype = 'delivery'";
                $db->query($sqlDelete);

                $db->commit();

                // DDL commands must not be inside a transaction
                $sqlDrop = "ALTER TABLE ".MAIN_DB_PREFIX."livraison DROP COLUMN fk_expedition";
                $db->query($sqlDrop);
            }
            else
            {
                dol_print_error($db);
                $db->rollback();
            }
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        print $langs->trans('AlreadyDone')."<br>\n";
    }

    print '</td></tr>';
}

/**
 * We try to complete field ref_customer and date_delivery that are empty into llx_livraison.
 * We set them with value from llx_expedition.
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_shipping_delivery2($db,$langs,$conf)
{
    print '<tr><td colspan="4">';

    print '<br>';
    print '<b>'.$langs->trans('MigrationShippingDelivery2')."</b><br>\n";

    $error = 0;

    dolibarr_install_syslog("upgrade2::migrate_shipping_delivery2");

    $db->begin();

    $sqlSelect = "SELECT l.rowid as delivery_id, e.ref_customer, e.date_delivery";
    $sqlSelect.= " FROM ".MAIN_DB_PREFIX."livraison as l,";
    $sqlSelect.= " ".MAIN_DB_PREFIX."element_element as el,";
    $sqlSelect.= " ".MAIN_DB_PREFIX."expedition as e";
    $sqlSelect.= " WHERE l.rowid = el.fk_target";
    $sqlSelect.= " AND el.targettype = 'delivery'";
    $sqlSelect.= " AND e.rowid = el.fk_source AND el.sourcetype = 'shipping'";
    $sqlSelect.= " AND (e.ref_customer IS NOT NULL OR e.date_delivery IS NOT NULL)";   // Useless to process this record if both are null
    // Add condition to know if we never migrate this record
    $sqlSelect.= " AND (l.ref_customer IS NULL".($db->type!='pgsql'?" or l.ref_customer = ''":"").")";
    $sqlSelect.= " AND (l.date_delivery IS NULL".($db->type!='pgsql'?" or l.date_delivery = ''":"").")";

    $resql = $db->query($sqlSelect);
    if ($resql)
    {
        $i = 0;
        $num = $db->num_rows($resql);

        if ($num)
        {
            while ($i < $num)
            {
                $obj = $db->fetch_object($resql);

                $sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."livraison SET";
                $sqlUpdate.= " ref_customer = '".$obj->ref_customer."',";
                $sqlUpdate.= " date_delivery = ".($obj->date_delivery?"'".$obj->date_delivery."'":'null');
                $sqlUpdate.= " WHERE rowid = ".$obj->delivery_id;

                $result=$db->query($sqlUpdate);
                if (! $result)
                {
                    $error++;
                    dol_print_error($db);
                }
                print ". ";
                $i++;
            }
        }
        else
        {
            print $langs->trans('AlreadyDone')."<br>\n";
        }

        if ($error == 0)
        {
            $db->commit();
        }
        else
        {
            dol_print_error($db);
            $db->rollback();
        }
    }
    else
    {
        dol_print_error($db);
        $db->rollback();
    }

    print '</td></tr>';
}

/**
 * Migrate link stored into fk_xxxx into fk_element and elementtype
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_actioncomm_element($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationActioncommElement')."</b><br>\n";

	$elements = array(
		'propal' => 'propalrowid',
		'order' => 'fk_commande',
		'invoice' => 'fk_facture',
		'contract' => 'fk_contract',
		'order_supplier' => 'fk_supplier_order',
		'invoice_supplier' => 'fk_supplier_invoice'
	);

	foreach($elements as $type => $field)
	{
		$result = $db->DDLDescTable(MAIN_DB_PREFIX."actioncomm",$field);
		$obj = $db->fetch_object($result);
		if ($obj)
		{
			dolibarr_install_syslog("upgrade2::migrate_actioncomm_element field=" . $field);

			$db->begin();

			$sql = "UPDATE ".MAIN_DB_PREFIX."actioncomm SET ";
			$sql.= "fk_element = ".$field.", elementtype = '".$type."'";
			$sql.= " WHERE ".$field." IS NOT NULL";
			$sql.= " AND fk_element IS NULL";
			$sql.= " AND elementtype IS NULL";

			$resql = $db->query($sql);
			if ($resql)
			{
				$db->commit();

				// DDL commands must not be inside a transaction
				// We will drop at next version because a migrate should be runnable several times if it fails.
				//$sqlDrop = "ALTER TABLE ".MAIN_DB_PREFIX."actioncomm DROP COLUMN ".$field;
				//$db->query($sqlDrop);
				//print ". ";
			}
			else
			{
				dol_print_error($db);
				$db->rollback();
			}
		}
		else
		{
			print $langs->trans('AlreadyDone')."<br>\n";
		}
	}

	print '</td></tr>';
}

/**
 * Migrate link stored into fk_mode_reglement
 *
 * @param	DoliDB		$db		Database handler
 * @param	Translate	$langs	Object langs
 * @param	Conf		$conf	Object conf
 * @return	void
 */
function migrate_mode_reglement($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationPaymentMode')."</b><br>\n";

	$elements = array(
		'old_id' => array(5,8,9,10,11),
		'new_id' => array(50,51,52,53,54),
		'code' => array('VAD','TRA','LCR','FAC','PRO'),
		'tables' => array('commande_fournisseur','commande','facture_rec','facture','propal')
	);
	$count=0;

	foreach($elements['old_id'] as $key => $old_id)
	{
		$error=0;

		dolibarr_install_syslog("upgrade2::migrate_mode_reglement code=" . $elements['code'][$key]);

		$sqlSelect = "SELECT id";
		$sqlSelect.= " FROM ".MAIN_DB_PREFIX."c_paiement";
		$sqlSelect.= " WHERE id = ".$old_id;
		$sqlSelect.= " AND code = '".$elements['code'][$key]."'";

		$resql = $db->query($sqlSelect);
		if ($resql)
		{
			$num = $db->num_rows($resql);
			if ($num)
			{
				$count++;

				$db->begin();

				$sqla = "UPDATE ".MAIN_DB_PREFIX."paiement SET ";
				$sqla.= "fk_paiement = ".$elements['new_id'][$key];
				$sqla.= " WHERE fk_paiement = ".$old_id;
				$sqla.= " AND fk_paiement IN (SELECT id FROM ".MAIN_DB_PREFIX."c_paiement WHERE id = ".$old_id." AND code = '".$elements['code'][$key]."')";
				$resqla = $db->query($sqla);

				$sql = "UPDATE ".MAIN_DB_PREFIX."c_paiement SET ";
				$sql.= "id = ".$elements['new_id'][$key];
				$sql.= " WHERE id = ".$old_id;
				$sql.= " AND code = '".$elements['code'][$key]."'";
				$resql = $db->query($sql);

				if ($resqla && $resql)
				{
					foreach($elements['tables'] as $table)
					{
						$sql = "UPDATE ".MAIN_DB_PREFIX.$table." SET ";
						$sql.= "fk_mode_reglement = ".$elements['new_id'][$key];
						$sql.= " WHERE fk_mode_reglement = ".$old_id;

						$resql = $db->query($sql);
						if (! $resql)
						{
							dol_print_error($db);
							$error++;
						}
						print ". ";
					}

					if (! $error)
					{
						$db->commit();
					}
					else
					{
						dol_print_error($db);
						$db->rollback();
					}
				}
				else
				{
					dol_print_error($db);
					$db->rollback();
				}
			}
		}
	}

	if ($count == 0) print $langs->trans('AlreadyDone')."<br>\n";


	print '</td></tr>';
}


/**
 * Delete duplicates in table categorie_association
 *
 * @param	DoliDB		$db			Database handler
 * @param	Translate	$langs		Object langs
 * @param	Conf		$conf		Object conf
 * @param	string		$versionto	Version target
 * @return	void
 */
function migrate_clean_association($db,$langs,$conf,$versionto)
{
    $result = $db->DDLDescTable(MAIN_DB_PREFIX."categorie_association");
    if ($result)	// result defined for version 3.2 or -
    {
        $obj = $db->fetch_object($result);
        if ($obj)	// It table categorie_association exists
        {
            $couples=array();
            $filles=array();
            $sql = "SELECT fk_categorie_mere, fk_categorie_fille";
            $sql.= " FROM ".MAIN_DB_PREFIX."categorie_association";
            dolibarr_install_syslog("upgrade: search duplicate");
            $resql = $db->query($sql);
            if ($resql)
            {
                $num=$db->num_rows($resql);
                while ($obj=$db->fetch_object($resql))
                {
                    if (! isset($filles[$obj->fk_categorie_fille]))	// Only one record as child (a child has only on parent).
                    {
                        if ($obj->fk_categorie_mere != $obj->fk_categorie_fille)
                        {
                            $filles[$obj->fk_categorie_fille]=1;	// Set record for this child
                            $couples[$obj->fk_categorie_mere.'_'.$obj->fk_categorie_fille]=array('mere'=>$obj->fk_categorie_mere, 'fille'=>$obj->fk_categorie_fille);
                        }
                    }
                }

                dolibarr_install_syslog("upgrade: result is num=" . $num . " count(couples)=" . count($couples));

                // If there is duplicates couples or child with two parents
                if (count($couples) > 0 && $num > count($couples))
                {
                    $error=0;

                    $db->begin();

                    // We delete all
                    $sql="DELETE FROM ".MAIN_DB_PREFIX."categorie_association";
                    dolibarr_install_syslog("upgrade: delete association");
                    $resqld=$db->query($sql);
                    if ($resqld)
                    {
                        // And we insert only each record once
                        foreach($couples as $key => $val)
                        {
                            $sql ="INSERT INTO ".MAIN_DB_PREFIX."categorie_association(fk_categorie_mere,fk_categorie_fille)";
                            $sql.=" VALUES(".$val['mere'].", ".$val['fille'].")";
                            dolibarr_install_syslog("upgrade: insert association");
                            $resqli=$db->query($sql);
                            if (! $resqli) $error++;
                        }
                    }

                    if (! $error)
                    {
                        print '<tr><td>'.$langs->trans("MigrationCategorieAssociation").'</td>';
                        print '<td align="right">'.$langs->trans("RemoveDuplicates").' '.$langs->trans("Success").' ('.$num.'=>'.count($couples).')</td></tr>';
                        $db->commit();
                    }
                    else
                    {
                        print '<tr><td>'.$langs->trans("MigrationCategorieAssociation").'</td>';
                        print '<td align="right">'.$langs->trans("RemoveDuplicates").' '.$langs->trans("Failed").'</td></tr>';
                        $db->rollback();
                    }
                }
            }
            else
            {
                print '<tr><td>'.$langs->trans("Error").'</td>';
                print '<td align="right"><div class="error">'.$db->lasterror().'</div></td></tr>';
            }
        }
    }
}


/**
 * Migrate categorie association
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_categorie_association($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationCategorieAssociation')."</b><br>\n";

	$error = 0;

	if ($db->DDLInfoTable(MAIN_DB_PREFIX."categorie_association"))
	{
		dolibarr_install_syslog("upgrade2::migrate_categorie_association");

		$db->begin();

		$sqlSelect = "SELECT fk_categorie_mere, fk_categorie_fille";
		$sqlSelect.= " FROM ".MAIN_DB_PREFIX."categorie_association";

		$resql = $db->query($sqlSelect);
		if ($resql)
		{
			$i = 0;
			$num = $db->num_rows($resql);

			if ($num)
			{
				while ($i < $num)
				{
					$obj = $db->fetch_object($resql);

					$sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."categorie SET ";
					$sqlUpdate.= "fk_parent = ".$obj->fk_categorie_mere;
					$sqlUpdate.= " WHERE rowid = ".$obj->fk_categorie_fille;

					$result=$db->query($sqlUpdate);
					if (! $result)
					{
						$error++;
						dol_print_error($db);
					}
					print ". ";
					$i++;
				}
			}
			else
			{
				print $langs->trans('AlreadyDone')."<br>\n";
			}

			if (! $error)
			{
				// TODO DROP table in the next release
				/*
				$sqlDrop = "DROP TABLE ".MAIN_DB_PREFIX."categorie_association";
				if ($db->query($sqlDrop))
				{
					$db->commit();
				}
				else
				{
					$db->rollback();
				}
				*/

				$db->commit();
			}
			else
			{
				$db->rollback();
			}
		}
		else
		{
			dol_print_error($db);
			$db->rollback();
		}
	}
	else
	{
		print $langs->trans('AlreadyDone')."<br>\n";
	}

	print '</td></tr>';
}

/**
 * Migrate event assignement to owner
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_event_assignement($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationEvents')."</b><br>\n";

	$error = 0;

	dolibarr_install_syslog("upgrade2::migrate_event_assignement");

	$db->begin();

	$sqlSelect = "SELECT a.id, a.fk_user_action";
	$sqlSelect.= " FROM ".MAIN_DB_PREFIX."actioncomm as a";
	$sqlSelect.= " LEFT JOIN ".MAIN_DB_PREFIX."actioncomm_resources as ar ON ar.fk_actioncomm = a.id AND ar.element_type = 'user' AND ar.fk_element = a.fk_user_action";
	$sqlSelect.= " WHERE fk_user_action > 0 AND fk_user_action NOT IN (SELECT fk_element FROM ".MAIN_DB_PREFIX."actioncomm_resources as ar WHERE ar.fk_actioncomm = a.id AND ar.element_type = 'user')";
	$sqlSelect.= " ORDER BY a.id";
	//print $sqlSelect;

	$resql = $db->query($sqlSelect);
	if ($resql)
	{
		$i = 0;
		$num = $db->num_rows($resql);

		if ($num)
		{
			while ($i < $num)
			{
				$obj = $db->fetch_object($resql);

				$sqlUpdate = "INSERT INTO ".MAIN_DB_PREFIX."actioncomm_resources(fk_actioncomm, element_type, fk_element) ";
				$sqlUpdate.= "VALUES(".$obj->id.", 'user', ".$obj->fk_user_action.")";

				$result=$db->query($sqlUpdate);
				if (! $result)
				{
					$error++;
					dol_print_error($db);
				}
				print ". ";
				$i++;
			}
		}
		else
		{
			print $langs->trans('AlreadyDone')."<br>\n";
		}

		if (! $error)
		{
			$db->commit();
		}
		else
		{
			$db->rollback();
		}
	}
	else
	{
		dol_print_error($db);
		$db->rollback();
	}


	print '</td></tr>';
}

/**
 * Migrate event assignement to owner
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_event_assignement_contact($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationEventsContact')."</b><br>\n";

	$error = 0;

	dolibarr_install_syslog("upgrade2::migrate_event_assignement");

	$db->begin();

	$sqlSelect = "SELECT a.id, a.fk_contact";
	$sqlSelect.= " FROM ".MAIN_DB_PREFIX."actioncomm as a";
	$sqlSelect.= " LEFT JOIN ".MAIN_DB_PREFIX."actioncomm_resources as ar ON ar.fk_actioncomm = a.id AND ar.element_type = 'socpeople' AND ar.fk_element = a.fk_contact";
	$sqlSelect.= " WHERE fk_contact > 0 AND fk_contact NOT IN (SELECT fk_element FROM ".MAIN_DB_PREFIX."actioncomm_resources as ar WHERE ar.fk_actioncomm = a.id AND ar.element_type = 'socpeople')";
	$sqlSelect.= " ORDER BY a.id";
	//print $sqlSelect;

	$resql = $db->query($sqlSelect);
	if ($resql)
	{
		$i = 0;
		$num = $db->num_rows($resql);

		if ($num)
		{
			while ($i < $num)
			{
				$obj = $db->fetch_object($resql);

				$sqlUpdate = "INSERT INTO ".MAIN_DB_PREFIX."actioncomm_resources(fk_actioncomm, element_type, fk_element) ";
				$sqlUpdate.= "VALUES(".$obj->id.", 'socpeople', ".$obj->fk_contact.")";

				$result=$db->query($sqlUpdate);
				if (! $result)
				{
					$error++;
					dol_print_error($db);
				}
				print ". ";
				$i++;
			}
		}
		else
		{
			print $langs->trans('AlreadyDone')."<br>\n";
		}

		if (! $error)
		{
			$db->commit();
		}
		else
		{
			$db->rollback();
		}
	}
	else
	{
		dol_print_error($db);
		$db->rollback();
	}


	print '</td></tr>';
}


/**
 * Migrate to reset the blocked log for V7+ algorithm
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_reset_blocked_log($db,$langs,$conf)
{
	global $user;

	require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';

	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationResetBlockedLog')."</b><br>\n";

	$error = 0;

	dolibarr_install_syslog("upgrade2::migrate_reset_blocked_log");

	$db->begin();

	$sqlSelect = "SELECT DISTINCT entity";
	$sqlSelect.= " FROM ".MAIN_DB_PREFIX."blockedlog";

	//print $sqlSelect;

	$resql = $db->query($sqlSelect);
	if ($resql)
	{
		$i = 0;
		$num = $db->num_rows($resql);

		if ($num)
		{
			while ($i < $num)
			{
				$obj = $db->fetch_object($resql);

				print 'Process entity '.$obj->entity;

				$sqlSearch = "SELECT count(rowid) as nb FROM ".MAIN_DB_PREFIX."blockedlog WHERE action = 'MODULE_SET' and entity = ".$obj->entity;
				$resqlSearch = $db->query($sqlSearch);
				if ($resqlSearch)
				{
					$objSearch = $db->fetch_object($resqlSearch);
					//var_dump($objSearch);
					if ($objSearch && $objSearch->nb == 0)
					{
						print ' - Record for entity must be reset...';

						$sqlUpdate = "DELETE FROM ".MAIN_DB_PREFIX."blockedlog";
						$sqlUpdate.= " WHERE entity = " . $obj->entity;
						$resqlUpdate=$db->query($sqlUpdate);
						if (! $resqlUpdate)
						{
							$error++;
							dol_print_error($db);
						}
						else
						{
							// Add set line
							$object=new stdClass();
							$object->id = 1;
							$object->element = 'module';
							$object->ref = 'systemevent';
							$object->entity = $obj->entity;
							$object->date = dol_now();

							$b=new BlockedLog($db);
							$b->setObjectData($object, 'MODULE_SET', 0);

							$res = $b->create($user);
							if ($res<=0) {
								$error++;
							}
						}
					}
					else
					{
						print ' - '.$langs->trans('AlreadyInV7').'<br>';
					}
				}
				else
				{
					dol_print_error($db);
				}

				$i++;
			}
		}
		else
		{
			print $langs->trans('NothingToDo')."<br>\n";
		}

		if (! $error)
		{
			$db->commit();
		}
		else
		{
			$db->rollback();
		}
	}
	else
	{
		dol_print_error($db);
		$db->rollback();
	}

	print '</td></tr>';
}


/**
 * Migrate to add entity value into llx_societe_remise
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_remise_entity($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationRemiseEntity')."</b><br>\n";

	$error = 0;

	dolibarr_install_syslog("upgrade2::migrate_remise_entity");

	$db->begin();

	$sqlSelect = "SELECT sr.rowid, s.entity";
	$sqlSelect.= " FROM ".MAIN_DB_PREFIX."societe_remise as sr, ".MAIN_DB_PREFIX."societe as s";
	$sqlSelect.= " WHERE sr.fk_soc = s.rowid and sr.entity != s.entity";

	//print $sqlSelect;

	$resql = $db->query($sqlSelect);
	if ($resql)
	{
		$i = 0;
		$num = $db->num_rows($resql);

		if ($num)
		{
			while ($i < $num)
			{
				$obj = $db->fetch_object($resql);

				$sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."societe_remise SET";
				$sqlUpdate.= " entity = " . $obj->entity;
				$sqlUpdate.= " WHERE rowid = " . $obj->rowid;

				$result=$db->query($sqlUpdate);
				if (! $result)
				{
					$error++;
					dol_print_error($db);
				}

				print ". ";
				$i++;
			}
		}
		else
		{
			print $langs->trans('AlreadyDone')."<br>\n";
		}

		if (! $error)
		{
			$db->commit();
		}
		else
		{
			$db->rollback();
		}
	}
	else
	{
		dol_print_error($db);
		$db->rollback();
	}

	print '</td></tr>';
}

/**
 * Migrate to add entity value into llx_societe_remise_except
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_remise_except_entity($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<br>';
	print '<b>'.$langs->trans('MigrationRemiseExceptEntity')."</b><br>\n";

	$error = 0;

	dolibarr_install_syslog("upgrade2::migrate_remise_except_entity");

	$db->begin();

	$sqlSelect = "SELECT sr.rowid, sr.fk_soc, sr.fk_facture_source, sr.fk_facture, sr.fk_facture_line";
	$sqlSelect.= " FROM ".MAIN_DB_PREFIX."societe_remise_except as sr";
	//print $sqlSelect;

	$resql = $db->query($sqlSelect);
	if ($resql)
	{
		$i = 0;
		$num = $db->num_rows($resql);

		if ($num)
		{
			while ($i < $num)
			{
				$obj = $db->fetch_object($resql);

				if (!empty($obj->fk_facture_source) || !empty($obj->fk_facture))
				{
					$fk_facture = (!empty($obj->fk_facture_source) ? $obj->fk_facture_source : $obj->fk_facture);

					$sqlSelect2 = "SELECT f.entity";
					$sqlSelect2.= " FROM ".MAIN_DB_PREFIX."facture as f";
					$sqlSelect2.= " WHERE f.rowid = " . $fk_facture;
				}
				else if (!empty($obj->fk_facture_line))
				{
					$sqlSelect2 = "SELECT f.entity";
					$sqlSelect2.= " FROM ".MAIN_DB_PREFIX."facture as f, ".MAIN_DB_PREFIX."facturedet as fd";
					$sqlSelect2.= " WHERE fd.rowid = " . $obj->fk_facture_line;
					$sqlSelect2.= " AND fd.fk_facture = f.rowid";
				}
				else
				{
					$sqlSelect2 = "SELECT s.entity";
					$sqlSelect2.= " FROM ".MAIN_DB_PREFIX."societe as s";
					$sqlSelect2.= " WHERE s.rowid = " . $obj->fk_soc;
				}

				$resql2 = $db->query($sqlSelect2);
				if ($resql2)
				{
					if ($db->num_rows($resql2) > 0)
					{
						$obj2 = $db->fetch_object($resql2);

						$sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."societe_remise_except SET";
						$sqlUpdate.= " entity = " . $obj2->entity;
						$sqlUpdate.= " WHERE rowid = " . $obj->rowid;

						$result=$db->query($sqlUpdate);
						if (! $result)
						{
							$error++;
							dol_print_error($db);
						}
					}
				}
				else
				{
					$error++;
					dol_print_error($db);
				}

				print ". ";
				$i++;
			}
		}
		else
		{
			print $langs->trans('AlreadyDone')."<br>\n";
		}

		if (! $error)
		{
			$db->commit();
		}
		else
		{
			$db->rollback();
		}
	}
	else
	{
		dol_print_error($db);
		$db->rollback();
	}


	print '</td></tr>';
}

/**
 * Migrate to add entity value into llx_user_rights
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_user_rights_entity($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<b>'.$langs->trans('MigrationUserRightsEntity')."</b><br>\n";

	$error = 0;

	dolibarr_install_syslog("upgrade2::migrate_user_rights_entity");

	$db->begin();

	$sqlSelect = "SELECT u.rowid, u.entity";
	$sqlSelect.= " FROM ".MAIN_DB_PREFIX."user as u";
	$sqlSelect.= " WHERE u.entity > 1";
	//print $sqlSelect;

	$resql = $db->query($sqlSelect);
	if ($resql)
	{
		$i = 0;
		$num = $db->num_rows($resql);

		if ($num)
		{
			while ($i < $num)
			{
				$obj = $db->fetch_object($resql);

				$sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."user_rights SET";
				$sqlUpdate.= " entity = " . $obj->entity;
				$sqlUpdate.= " WHERE fk_user = " . $obj->rowid;

				$result=$db->query($sqlUpdate);
				if (! $result)
				{
					$error++;
					dol_print_error($db);
				}

				print ". ";
				$i++;
			}
		}
		else
		{
			print $langs->trans('AlreadyDone')."<br>\n";
		}

		if (! $error)
		{
			$db->commit();
		}
		else
		{
			$db->rollback();
		}
	}
	else
	{
		dol_print_error($db);
		$db->rollback();
	}


	print '</td></tr>';
}

/**
 * Migrate to add entity value into llx_usergroup_rights
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @return	void
 */
function migrate_usergroup_rights_entity($db,$langs,$conf)
{
	print '<tr><td colspan="4">';

	print '<b>'.$langs->trans('MigrationUserGroupRightsEntity')."</b><br>\n";

	$error = 0;

	dolibarr_install_syslog("upgrade2::migrate_usergroup_rights_entity");

	$db->begin();

	$sqlSelect = "SELECT u.rowid, u.entity";
	$sqlSelect.= " FROM ".MAIN_DB_PREFIX."usergroup as u";
	$sqlSelect.= " WHERE u.entity > 1";
	//print $sqlSelect;

	$resql = $db->query($sqlSelect);
	if ($resql)
	{
		$i = 0;
		$num = $db->num_rows($resql);

		if ($num)
		{
			while ($i < $num)
			{
				$obj = $db->fetch_object($resql);

				$sqlUpdate = "UPDATE ".MAIN_DB_PREFIX."usergroup_rights SET";
				$sqlUpdate.= " entity = " . $obj->entity;
				$sqlUpdate.= " WHERE fk_usergroup = " . $obj->rowid;

				$result=$db->query($sqlUpdate);
				if (! $result)
				{
					$error++;
					dol_print_error($db);
				}

				print ". ";
				$i++;
			}
		}
		else
		{
			print $langs->trans('AlreadyDone')."<br>\n";
		}

		if (! $error)
		{
			$db->commit();
		}
		else
		{
			$db->rollback();
		}
	}
	else
	{
		dol_print_error($db);
		$db->rollback();
	}


	print '</td></tr>';
}

/**
 * Migration directory
 *
 * @param	DoliDB		$db			Database handler
 * @param	Translate	$langs		Object langs
 * @param	Conf		$conf		Object conf
 * @param	string		$oldname	Old name (relative to DOL_DATA_ROOT)
 * @param	string		$newname	New name (relative to DOL_DATA_ROOT)
 * @return	void
 */
function migrate_rename_directories($db,$langs,$conf,$oldname,$newname)
{
    dolibarr_install_syslog("upgrade2::migrate_rename_directories");

    if (is_dir(DOL_DATA_ROOT.$oldname) && ! file_exists(DOL_DATA_ROOT.$newname))
    {
        dolibarr_install_syslog("upgrade2::migrate_rename_directories move " . DOL_DATA_ROOT . $oldname . ' into ' . DOL_DATA_ROOT . $newname);
        @rename(DOL_DATA_ROOT.$oldname,DOL_DATA_ROOT.$newname);
    }
}


/**
 * Delete deprecated files
 *
 * @param	DoliDB		$db			Database handler
 * @param	Translate	$langs		Object langs
 * @param	Conf		$conf		Object conf
 * @return	void
 */
function migrate_delete_old_files($db,$langs,$conf)
{
    $result=true;

    dolibarr_install_syslog("upgrade2::migrate_delete_old_files");

    // List of files to delete
    $filetodeletearray=array(
    DOL_DOCUMENT_ROOT.'/core/triggers/interface_demo.class.php',
    DOL_DOCUMENT_ROOT.'/core/menus/barre_left/default.php',
    DOL_DOCUMENT_ROOT.'/core/menus/barre_top/default.php',
    DOL_DOCUMENT_ROOT.'/core/modules/modComptabiliteExpert.class.php',
    DOL_DOCUMENT_ROOT.'/core/modules/modCommercial.class.php',
    DOL_DOCUMENT_ROOT.'/core/modules/modProduit.class.php',
    DOL_DOCUMENT_ROOT.'/phenix/inc/triggers/interface_modPhenix_Phenixsynchro.class.php',
    DOL_DOCUMENT_ROOT.'/webcalendar/inc/triggers/interface_modWebcalendar_webcalsynchro.class.php',
    DOL_DOCUMENT_ROOT.'/core/triggers/interface_modWebcalendar_Webcalsynchro.class.php',
    DOL_DOCUMENT_ROOT.'/core/triggers/interface_modCommande_Ecotax.class.php',
    DOL_DOCUMENT_ROOT.'/core/triggers/interface_modCommande_fraisport.class.php',
    DOL_DOCUMENT_ROOT.'/core/triggers/interface_modPropale_PropalWorkflow.class.php',
    DOL_DOCUMENT_ROOT.'/core/menus/smartphone/iphone.lib.php',
    DOL_DOCUMENT_ROOT.'/core/menus/smartphone/iphone_backoffice.php',
    DOL_DOCUMENT_ROOT.'/core/menus/smartphone/iphone_frontoffice.php',
    DOL_DOCUMENT_ROOT.'/core/menus/standard/auguria_backoffice.php',
    DOL_DOCUMENT_ROOT.'/core/menus/standard/auguria_frontoffice.php',
    DOL_DOCUMENT_ROOT.'/core/menus/standard/eldy_backoffice.php',
    DOL_DOCUMENT_ROOT.'/core/menus/standard/eldy_frontoffice.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/contacts2.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/contacts3.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/contacts4.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/framboise.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/dolibarr_services_expired.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/peche.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/poire.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/mailings/kiwi.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/facture/pdf_crabe.modules.php',
    DOL_DOCUMENT_ROOT.'/core/modules/facture/pdf_oursin.modules.php',

    DOL_DOCUMENT_ROOT.'/compta/facture/class/api_invoice.class.php',
    DOL_DOCUMENT_ROOT.'/commande/class/api_commande.class.php',
    DOL_DOCUMENT_ROOT.'/user/class/api_user.class.php',
    DOL_DOCUMENT_ROOT.'/product/class/api_product.class.php',
    DOL_DOCUMENT_ROOT.'/societe/class/api_contact.class.php',
    DOL_DOCUMENT_ROOT.'/societe/class/api_thirdparty.class.php'

    );

    foreach ($filetodeletearray as $filetodelete)
    {
        //print '<b>'.$filetodelete."</b><br>\n";
        $result=1;
        if (file_exists($filetodelete))
        {
            $result=dol_delete_file($filetodelete,0,0,0,null,true);
            if (! $result)
            {
                $langs->load("errors");
                print '<div class="error">'.$langs->trans("Error").': '.$langs->trans("ErrorFailToDeleteFile",$filetodelete);
                print ' '.$langs->trans("RemoveItManuallyAndPressF5ToContinue").'</div>';
            }
            else
			{
                //print $langs->trans("FileWasRemoved",$filetodelete);
            }
        }
    }
    return $result;
}

/**
 * Remove deprecated directories
 *
 * @param	DoliDB		$db			Database handler
 * @param	Translate	$langs		Object langs
 * @param	Conf		$conf		Object conf
 * @return	void
 */
function migrate_delete_old_dir($db,$langs,$conf)
{
    $result=true;

    dolibarr_install_syslog("upgrade2::migrate_delete_old_dir");

    // List of files to delete
    $filetodeletearray=array(
    DOL_DOCUMENT_ROOT.'/core/modules/facture/terre',
    DOL_DOCUMENT_ROOT.'/core/modules/facture/mercure'
    );

    foreach ($filetodeletearray as $filetodelete)
    {
        //print '<b>'.$filetodelete."</b><br>\n";
        if (file_exists($filetodelete))
        {
            $result=dol_delete_dir_recursive($filetodelete);
        }
        if (! $result)
        {
            $langs->load("errors");
            print '<div class="error">'.$langs->trans("Error").': '.$langs->trans("ErrorFailToDeleteDir",$filetodelete);
            print ' '.$langs->trans("RemoveItManuallyAndPressF5ToContinue").'</div>';
        }
    }
    return $result;
}


/**
 * Disable/Reenable features modules.
 * We must do this when internal menu of module or permissions has changed
 * or when triggers have moved.
 *
 * @param	DoliDB		$db				Database handler
 * @param	Translate	$langs			Object langs
 * @param	Conf		$conf			Object conf
 * @param	array		$listofmodule	List of modules
 * @param   int         $force          1=Reload module even if not already loaded
 * @return	void
 */
function migrate_reload_modules($db, $langs, $conf, $listofmodule=array(), $force=0)
{
	if (count($listofmodule) == 0) return;

	dolibarr_install_syslog("upgrade2::migrate_reload_modules force=".$force.", listofmodule=".join(',', array_keys($listofmodule)));

	foreach($listofmodule as $moduletoreload => $reloadmode)	// reloadmodule can be 'noboxes', 'newboxdefonly', 'forceactivate'
	{
		if (empty($moduletoreload) || (empty($conf->global->$moduletoreload) && ! $force)) continue; // Discard reload if module not enabled

		$mod=null;

		if ($moduletoreload == 'MAIN_MODULE_AGENDA')
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Agenda module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modAgenda.class.php';
			if ($res) {
				$mod=new modAgenda($db);
				$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_API')
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Rest API module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modApi.class.php';
			if ($res) {
				$mod=new modApi($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_BARCODE')
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Barcode module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modBarcode.class.php';
			if ($res) {
				$mod=new modBarcode($db);
				$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_CRON')
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Cron module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modCron.class.php';
			if ($res) {
				$mod=new modCron($db);
				$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_SOCIETE')
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Societe module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modSociete.class.php';
			if ($res) {
				$mod=new modSociete($db);
				$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_PRODUIT')    // Permission has changed into 2.7
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Produit module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modProduct.class.php';
			if ($res) {
				$mod=new modProduct($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_SERVICE')    // Permission has changed into 2.7
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Service module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modService.class.php';
			if ($res) {
				$mod=new modService($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_COMMANDE')   // Permission has changed into 2.9
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Commande module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modCommande.class.php';
			if ($res) {
				$mod=new modCommande($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_FACTURE')    // Permission has changed into 2.9
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Facture module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modFacture.class.php';
			if ($res) {
				$mod=new modFacture($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_FOURNISSEUR')    // Permission has changed into 2.9
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Fournisseur module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modFournisseur.class.php';
			if ($res) {
				$mod=new modFournisseur($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_HOLIDAY')    // Permission and tabs has changed into 3.8
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Leave Request module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modHoliday.class.php';
			if ($res) {
				$mod=new modHoliday($db);
				$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_DEPLACEMENT')    // Permission has changed into 3.0
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Deplacement module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modDeplacement.class.php';
			if ($res) {
				$mod=new modDeplacement($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_DON')    // Permission has changed into 3.0
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Don module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modDon.class.php';
			if ($res) {
				$mod=new modDon($db);
				//$mod->remove('noboxes');
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_ECM')    // Permission has changed into 3.0 and 3.1
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate ECM module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modECM.class.php';
			if ($res) {
				$mod=new modECM($db);
				$mod->remove('noboxes');	// We need to remove because a permission id has been removed
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_PAYBOX')    // Permission has changed into 3.0
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Paybox module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modPaybox.class.php';
			if ($res) {
				$mod=new modPaybox($db);
				$mod->remove('noboxes');  // We need to remove because id of module has changed
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_SUPPLIERPROPOSAL')		// Module after 3.5
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Supplier Proposal module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modSupplierProposal.class.php';
			if ($res) {
				$mod=new modSupplierProposal($db);
				$mod->remove('noboxes');  // We need to remove because id of module has changed
				$mod->init($reloadmode);
			}
		}
		elseif ($moduletoreload == 'MAIN_MODULE_OPENSURVEY')    // Permission has changed into 3.0
		{
			dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate Opensurvey module");
			$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/modOpenSurvey.class.php';
			if ($res) {
				$mod=new modOpenSurvey($db);
				$mod->remove('noboxes');  // We need to remove because menu entries has changed
				$mod->init($reloadmode);
			}
		}
		else
		{
			$tmp = preg_match('/MAIN_MODULE_([a-zA-Z0-9]+)/', $moduletoreload, $reg);
			if (! empty($reg[1]))
			{
				if (strtoupper($moduletoreload) == $moduletoreload)	// If key is un uppercase
				{
					$moduletoreloadshort = ucfirst(strtolower($reg[1]));
				}
				else												// If key is a mix of up and low case
				{
					$moduletoreloadshort = $reg[1];
				}
				dolibarr_install_syslog("upgrade2::migrate_reload_modules Reactivate module ".$moduletoreloadshort." with mode ".$reloadmode);
				$res=@include_once DOL_DOCUMENT_ROOT.'/core/modules/mod'.$moduletoreloadshort.'.class.php';
				if ($res) {
					$classname = 'mod'.$moduletoreloadshort;
					$mod=new $classname($db);
					//$mod->remove('noboxes');
					$mod->init($reloadmode);
				}
				else
				{
					dolibarr_install_syslog('Failed to include '.DOL_DOCUMENT_ROOT.'/core/modules/mod'.$moduletoreloadshort.'.class.php');

					$res=@dol_include_once(strtolower($moduletoreloadshort).'/core/modules/mod'.$moduletoreloadshort.'.class.php');
					if ($res) {
						$classname = 'mod'.$moduletoreloadshort;
						$mod=new $classname($db);
						//$mod->remove('noboxes');
						$mod->init($reloadmode);
					}
					else
					{
						dolibarr_install_syslog('Failed to include '.strtolower($moduletoreloadshort).'/core/modules/mod'.$moduletoreloadshort.'.class.php');
					}
				}
			}
			else
			{
				dolibarr_install_syslog("Error, can't find module with name ".$moduletoreload, LOG_WARNING);
				print "Error, can't find module with name ".$moduletoreload;
			}
		}

		if (! empty($mod) && is_object($mod))
		{
			print '<tr><td colspan="4">';
			print '<b>'.$langs->trans('Upgrade').'</b>: ';
			print $langs->trans('MigrationReloadModule').' '.$mod->getName();  // We keep getName outside of trans because getName is already encoded/translated
			print "<!-- (".$reloadmode.") -->";
			print "<br>\n";
			print '</td></tr>';
		}
	}
}



/**
 * Reload menu if dynamic menus, if modified by version
 *
 * @param	DoliDB		$db			Database handler
 * @param	Translate	$langs		Object langs
 * @param	Conf		$conf		Object conf
 * @param	string		$versionto	Version target
 * @return	void
 */
function migrate_reload_menu($db,$langs,$conf,$versionto)
{
    global $conf;
    dolibarr_install_syslog("upgrade2::migrate_reload_menu");

    // Define list of menu handlers to initialize
    $listofmenuhandler=array();
    if ($conf->global->MAIN_MENU_STANDARD == 'auguria_menu' || $conf->global->MAIN_MENU_SMARTPHONE == 'auguria_menu'
    	|| $conf->global->MAIN_MENUFRONT_STANDARD == 'auguria_menu' || $conf->global->MAIN_MENUFRONT_SMARTPHONE == 'auguria_menu')
    {
    	$listofmenuhandler['auguria']=1;   // We set here only dynamic menu handlers
    }

    foreach ($listofmenuhandler as $key => $val)
    {
        print '<tr><td colspan="4">';

        //print "x".$key;
        print '<br>';
        print '<b>'.$langs->trans('Upgrade').'</b>: '.$langs->trans('MenuHandler')." ".$key."<br>\n";

        // Load sql ini_menu_handler.sql file
        $dir = DOL_DOCUMENT_ROOT."/core/menus/";
        $file='init_menu_'.$key.'.sql';
        if (file_exists($dir.$file))
        {
            $result=run_sql($dir.$file,1,'',1,$key);
        }

        print '</td></tr>';
    }
}




/* A faire egalement: Modif statut paye et fk_facture des factures payes completement

On recherche facture incorrecte:
select f.rowid, f.total_ttc as t1, sum(pf.amount) as t2 from llx_facture as f, llx_paiement_facture as pf where pf.fk_facture=f.rowid and f.fk_statut in(2,3) and paye=0 and close_code is null group by f.rowid
having  f.total_ttc = sum(pf.amount)

On les corrige:
update llx_facture set paye=1, fk_statut=2 where close_code is null
and rowid in (...)
*/