Génération du script SQL de clonage de schéma: correction de la requête SQL...

    {

        $schemaName = $this->extractSchemaNameFromConnection($connection);

        $refConstraintsSql = NULL;

        if ($refConstraintsIncluded) {

            $refConstraintsSql = $this->generateSQLForRefConstraintsCreation($connection);

            $refConstraintsSql = <<<EOS

    UNION ALL

$refConstraintsSql

EOS;

        }

        $sql = <<<EOS

SELECT sql from (

    --

    -- sequences

    --

SELECT DBMS_METADATA.GET_DDL ('SEQUENCE', sequence_name, sequence_owner) as sql

    SELECT 'A_'||sequence_name as ord, DBMS_METADATA.get_ddl ('SEQUENCE', sequence_name, sequence_owner) as sql

    FROM all_sequences

    where sequence_owner = '$schemaName'

order by sequence_name

    UNION ALL

    -- tables

    --

SELECT DBMS_METADATA.get_ddl ('TABLE', table_name, owner) as sql

    SELECT 'B_'||table_name as ord, DBMS_METADATA.get_ddl ('TABLE', table_name, owner) as sql

    FROM   all_tables

    WHERE  owner = '$schemaName' and

      table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées

order by table_name

    UNION ALL

    -- constraints : unique

    --

SELECT DBMS_METADATA.get_ddl ('CONSTRAINT', constraint_name, owner) as sql

    SELECT 'C_'||constraint_name as ord, DBMS_METADATA.get_ddl ('CONSTRAINT', constraint_name, owner) as sql

    from user_constraints

    WHERE constraint_type in ('U') and -- unique type

          index_name is null and -- écarte les contraintes liées automatiquement à un index car créées avec la table

          table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées

          and owner = '$schemaName'

order by constraint_name

    UNION ALL

    -- indexes

    --

SELECT DBMS_METADATA.get_ddl ('INDEX', index_name, owner) as sql

    SELECT 'D_'||index_name as ord, DBMS_METADATA.get_ddl ('INDEX', index_name, owner) as sql

    FROM   all_indexes i

    WHERE  not exists (select * from user_constraints where index_name = i.index_name) -- écarte les index créés automatiquement car liés à une contrainte 

      and owner = '$schemaName'

order by index_name

    --   select * from all_indexes WHERE  owner = '$schemaName';

    -- views

    --

SELECT DBMS_METADATA.get_ddl ('VIEW', view_name, owner) as sql

    SELECT 'E_'||view_name as ord, DBMS_METADATA.get_ddl ('VIEW', view_name, owner) as sql

    FROM   all_views

    WHERE  owner      = '$schemaName'

order by view_name

    UNION ALL

    -- packages specs

    --

SELECT DBMS_METADATA.get_ddl ('PACKAGE_SPEC', OBJECT_NAME, owner) as sql

    SELECT 'F_'||OBJECT_NAME as ord, DBMS_METADATA.get_ddl ('PACKAGE_SPEC', OBJECT_NAME, owner) as sql

    FROM   SYS.ALL_OBJECTS

    WHERE  owner = '$schemaName'

           and UPPER(OBJECT_TYPE) = 'PACKAGE'

order by OBJECT_NAME

    UNION ALL

    -- procedures and functions

    --

SELECT DBMS_METADATA.get_ddl ('PROCEDURE', OBJECT_NAME, owner) as sql

    SELECT 'G_'||OBJECT_NAME as ord, DBMS_METADATA.get_ddl ('PROCEDURE', OBJECT_NAME, owner) as sql

    FROM   SYS.ALL_OBJECTS

    WHERE  owner = '$schemaName'

           and UPPER(OBJECT_TYPE) = 'PROCEDURE'

order by OBJECT_NAME

    UNION ALL

SELECT DBMS_METADATA.get_ddl ('FUNCTION', OBJECT_NAME, owner) as sql

    SELECT 'G_'||OBJECT_NAME as ord, DBMS_METADATA.get_ddl ('FUNCTION', OBJECT_NAME, owner) as sql

    FROM   SYS.ALL_OBJECTS

    WHERE  owner = '$schemaName'

           and UPPER(OBJECT_TYPE) = 'FUNCTION'

order by OBJECT_NAME

    UNION ALL

    -- packages

    --

SELECT DBMS_METADATA.get_ddl ('PACKAGE_BODY', OBJECT_NAME, owner) as sql

    SELECT 'H_'||OBJECT_NAME as ord, DBMS_METADATA.get_ddl ('PACKAGE_BODY', OBJECT_NAME, owner) as sql

    FROM   SYS.ALL_OBJECTS

    WHERE  owner = '$schemaName'

           and UPPER(OBJECT_TYPE) = 'PACKAGE BODY'

order by OBJECT_NAME

    UNION ALL

    -- triggers

    --

SELECT DBMS_METADATA.get_ddl ('TRIGGER', trigger_NAME, owner) as sql

    SELECT 'I_'||trigger_NAME as ord, DBMS_METADATA.get_ddl ('TRIGGER', trigger_NAME, owner) as sql

    FROM   ALL_TRIGGERS

    WHERE  owner = '$schemaName'

order by trigger_NAME

    UNION ALL

    -- materialized views

    --

SELECT DBMS_METADATA.get_ddl ('MATERIALIZED_VIEW', mview_name, owner) as sql

    SELECT 'J_'||mview_name as ord, DBMS_METADATA.get_ddl ('MATERIALIZED_VIEW', mview_name, owner) as sql

    FROM   all_mviews

    WHERE  owner      = '$schemaName'

order by mview_name

EOS;

        if ($refConstraintsIncluded) {

            $refConstraintsSql = $this->generateSQLForRefConstraintsCreation($connection);

            $sql .= <<<EOS

UNION ALL

$refConstraintsSql

)

ORDER BY ORD

EOS;

        }

        return $sql;

    }

    -- reference constraints

    --

--select DBMS_METADATA.GET_DDL('CONSTRAINT', constraint_name, owner) as sql

    --select 'Z_'||mview_name as ord, DBMS_METADATA.get_ddl ('CONSTRAINT', constraint_name, owner) as sql

    --from all_constraints

    --where owner = '$schemaName'

    --      and constraint_type = 'P'

--order by constraint_name

    --union all

select DBMS_METADATA.GET_DDL('REF_CONSTRAINT', constraint_name, owner) as sql

    select 'Z_'||mview_name as ord, DBMS_METADATA.get_ddl ('REF_CONSTRAINT', constraint_name, owner) as sql

    from all_constraints

    where owner = '$schemaName'

          and constraint_type = 'R'

order by constraint_name

EOS;