Proyectos de Subversion Moodle

    // Automatically generated Moodle v4.4.0 release upgrade line.

    // Put any upgrade step following this.

    // Automatically generated Moodle v4.5.0 release upgrade line.

    // Put any upgrade step following this.

    // Automatically generated Moodle v5.0.0 release upgrade line.

    // Put any upgrade step following this.

    if ($oldversion < 2025041402) {

        // Remove duplicated enrolment records, keeping only the earliest records.

        $transaction = $DB->start_delegated_transaction();

        $courses = $DB->get_records_sql(

            "

             SELECT courseid

               FROM {enrol}

              WHERE enrol = 'database'

           GROUP BY courseid

             HAVING COUNT(*) > 1"

        );

        foreach ($courses as $course) {

            $instances = $DB->get_records('enrol', ['enrol' => 'database', 'courseid' => $course->courseid], 'id ASC');

            $idtokeep = array_key_first($instances);

            $idstodelete = array_slice(array_keys($instances), 1);

            [$insql, $inparams] = $DB->get_in_or_equal($idstodelete, SQL_PARAMS_NAMED);

            // Migrate enrolments where possible.

            // First, get the user enrolments that can be migrated.

            $migrateusers = $DB->get_records_sql(

                "SELECT ue.id

                   FROM {user_enrolments} ue

                  WHERE ue.enrolid $insql

                        AND NOT EXISTS (

                            SELECT 1

                              FROM {user_enrolments} ue2

                             WHERE ue2.userid  = ue.userid

                                   AND ue2.enrolid = :idtokeep)",

                    array_merge($inparams, ['idtokeep' => $idtokeep]),

            );

            // Then update them if any exist.

            if (!empty($migrateusers)) {

                $migrateids = array_keys($migrateusers);

                [$migratein, $migrateparams] = $DB->get_in_or_equal($migrateids, SQL_PARAMS_NAMED);

                $DB->execute(

                    "UPDATE {user_enrolments} SET enrolid = :idtokeep WHERE id $migratein",

                    array_merge($migrateparams, ['idtokeep' => $idtokeep]),

                );

            }

            $DB->delete_records_select('user_enrolments', "enrolid $insql", $inparams);

            // Migrate role assignments.

            $DB->execute(

                "

                UPDATE {role_assignments}

                   SET itemid = :idtokeep

                 WHERE component = :component

                   AND itemid $insql",

                array_merge($inparams, ['component' => 'enrol_database', 'idtokeep' => $idtokeep])

            );

            $DB->delete_records_select('role_assignments', "itemid $insql", $inparams);

            $DB->delete_records_list('enrol', 'id', $idstodelete);

        }