Subversion Repositories eFlore/Projets.eflore-projets

-- suppress dup:

-- >= 115 au 22/07/2013

-- mysql -N <<<"SELECT distinct ce_utilisateur FROM `BASEEDIT`.`cel_obs` GROUP BY ce_utilisateur, ordre HAVING COUNT(*) > 1;" > ordre-dup.txt

DROP FUNCTION IF EXISTS next_ordre;

DROP PROCEDURE IF EXISTS ordre_need_update;

DROP PROCEDURE IF EXISTS update_ordre_user;

DROP PROCEDURE IF EXISTS update_ordre_users;

DELIMITER |

CREATE FUNCTION next_ordre( s1 VARCHAR(255) )

  RETURNS INT

  NOT DETERMINISTIC

  BEGIN

        DECLARE c INT;

        SET c = (SELECT MAX(ordre) + 1 FROM `BASEEDIT`.`cel_obs` where ce_utilisateur = s1);

        RETURN c;

  END

|

-- SELECT next_ordre("");

CREATE PROCEDURE ordre_need_update(IN _s1 VARCHAR(255), OUT _ordre INT, OUT _c INT, OUT _min_obs INT)

  BEGIN

        SELECT ordre, count(ordre), MIN(id_observation) INTO _ordre, _c, _min_obs FROM `BASEEDIT`.`cel_obs` WHERE ce_utilisateur = _s1 GROUP BY ordre HAVING COUNT(ordre) > 1 LIMIT 1;

  END

|

-- SELECT ordre_need_update("");

CREATE PROCEDURE update_ordre_user(IN _s1 VARCHAR(255))

  BEGIN

    DECLARE obs_match int default -1;

    CALL ordre_need_update(_s1, @o, @c, @minobs);

    -- pour chaque ordre dupliqué

    WHILE @o IS NOT NULL DO

       SELECT CONCAT("    ", @o) as "   ordre", @c as "(count/doublons)";

       -- SELECT id_observation FROM `BASEEDIT`.`cel_obs` WHERE ce_utilisateur = _s1 AND ordre = @o AND id_observation != @minobs;

       -- pour chaque obs concernée, exceptée la première, on met à jour l'ordre,

       -- en utilisant next_ordre()

       WHILE obs_match != 0 DO

             -- SELECT CONCAT("== do update on", @o);

             UPDATE `BASEEDIT`.`cel_obs` SET ordre = next_ordre(_s1)

                    WHERE ce_utilisateur = _s1 AND ordre = @o AND id_observation != @minobs LIMIT 1;

             SELECT ROW_COUNT() into obs_match;

             -- SELECT @o, obs_match;

       END WHILE;

       -- toutes les observations dupliquées pour l'ordre @o ont été mises à jour

       -- un nouvel ordre à mettre à jour va être obtenu par ordre_need_update()

       -- dont nous restaurons obs_match à une valeur qui n'empêche pas la boucle

       -- contenant l'UPDATE

       SELECT -1 into obs_match;

       CALL ordre_need_update(_s1, @o, @c, @minobs);

       -- SELECT "====X", @o, @c;

    END WHILE;

  END

|

-- CALL update_ordre_user("");

CREATE PROCEDURE update_ordre_users()

  BEGIN

    DECLARE _nom VARCHAR(255);

    DECLARE subst INT DEFAULT 0;

    DECLARE done INT DEFAULT 1;

    -- temp table

    CREATE TEMPORARY TABLE IF NOT EXISTS _temp_users (ce_utilisateur VARCHAR(255)) ENGINE=MEMORY AS \

    -- the following fails (http://dba.stackexchange.com/questions/48231 ?)

    -- ( SELECT DISTINCT ce_utilisateur FROM `BASEEDIT`.`cel_obs` GROUP BY ce_utilisateur, ordre HAVING COUNT(*) > 1 );

    ( SELECT DISTINCT ce_utilisateur FROM `BASEEDIT`.`cel_obs` WHERE ce_utilisateur IN \

      (SELECT ce_utilisateur FROM `BASEEDIT`.`cel_obs` GROUP BY ce_utilisateur, ordre HAVING COUNT(1) > 1) );

    SELECT COUNT(*) INTO done FROM _temp_users;

    -- la requête principale de sélection des utilisateurs à mettre à jour

    WHILE done > 0 DO

        SELECT ce_utilisateur INTO _nom FROM _temp_users LIMIT 1;

        SELECT _nom AS "utilisateur en mise à jour:";

        CALL update_ordre_user(_nom);

        SET subst = subst + 1;

        DELETE FROM _temp_users WHERE ce_utilisateur = _nom;

        SELECT COUNT(*) INTO done FROM _temp_users;

    END WHILE;

    SELECT subst AS "utilisateurs mis à jour";

END

|

DELIMITER ;

CALL update_ordre_users();

DROP FUNCTION IF EXISTS next_ordre;

DROP PROCEDURE IF EXISTS ordre_need_update;

DROP PROCEDURE IF EXISTS update_ordre_user;

DROP PROCEDURE IF EXISTS update_ordre_users;

-- clef unique sur (id_utilisateur, ordre)

-- [mais seulement si on a dédupliqué TOUS les utilisateurs, y compris l'utilisateur ''

-- à voir aussi: maj-hash-id-obs-migr.sql]

CREATE UNIQUE INDEX couple_user_ordre ON `BASEEDIT`.`cel_obs`(ce_utilisateur, ordre);