Proyectos de Subversion Moodle

<?php

// This file is part of Moodle - http://moodle.org/

//

// Moodle 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.

//

// Moodle 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 Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**

 * Contains classes, functions and constants used in badges.

 *

 * @package    core

 * @subpackage badges

 * @copyright  2012 onwards Totara Learning Solutions Ltd {@link http://www.totaralms.com/}

 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 * @author     Yuliya Bozhko <yuliya.bozhko@totaralms.com>

 */

defined('MOODLE_INTERNAL') || die();

/* Include required award criteria library. */

require_once($CFG->dirroot . '/badges/criteria/award_criteria.php');

/* Include required user badge exporter */

use core_badges\external\user_badge_exporter;

/*

 * Number of records per page.

*/

define('BADGE_PERPAGE', 50);

/*

 * Badge award criteria aggregation method.

 */

define('BADGE_CRITERIA_AGGREGATION_ALL', 1);

/*

 * Badge award criteria aggregation method.

 */

define('BADGE_CRITERIA_AGGREGATION_ANY', 2);

/*

 * Inactive badge means that this badge cannot be earned and has not been awarded

 * yet. Its award criteria can be changed.

 */

define('BADGE_STATUS_INACTIVE', 0);

/*

 * Active badge means that this badge can we earned, but it has not been awarded

 * yet. Can be deactivated for the purpose of changing its criteria.

 */

define('BADGE_STATUS_ACTIVE', 1);

/*

 * Inactive badge can no longer be earned, but it has been awarded in the past and

 * therefore its criteria cannot be changed.

 */

define('BADGE_STATUS_INACTIVE_LOCKED', 2);

/*

 * Active badge means that it can be earned and has already been awarded to users.

 * Its criteria cannot be changed any more.

 */

define('BADGE_STATUS_ACTIVE_LOCKED', 3);

/*

 * Archived badge is considered deleted and can no longer be earned and is not

 * displayed in the list of all badges.

 */

define('BADGE_STATUS_ARCHIVED', 4);

/*

 * Badge type for site badges.

 */

define('BADGE_TYPE_SITE', 1);

/*

 * Badge type for course badges.

 */

define('BADGE_TYPE_COURSE', 2);

/*

 * Badge messaging schedule options.

 */

define('BADGE_MESSAGE_NEVER', 0);

define('BADGE_MESSAGE_ALWAYS', 1);

define('BADGE_MESSAGE_DAILY', 2);

define('BADGE_MESSAGE_WEEKLY', 3);

define('BADGE_MESSAGE_MONTHLY', 4);

/*

 * URL of backpack. Custom ones can be added.

 */

define('BADGRIO_BACKPACKAPIURL', 'https://api.badgr.io/v2');

define('BADGRIO_BACKPACKWEBURL', 'https://badgr.io');

/*

 * @deprecated since 3.9 (MDL-66357).

 */

define('BADGE_BACKPACKAPIURL', 'https://backpack.openbadges.org');

define('BADGE_BACKPACKWEBURL', 'https://backpack.openbadges.org');

/*

 * Open Badges specifications.

 */

define('OPEN_BADGES_V1', 1);

define('OPEN_BADGES_V2', 2);

define('OPEN_BADGES_V2P1', 2.1);

/*

 * Only use for Open Badges 2.0 specification

 */

define('OPEN_BADGES_V2_CONTEXT', 'https://w3id.org/openbadges/v2');

define('OPEN_BADGES_V2_TYPE_ASSERTION', 'Assertion');

define('OPEN_BADGES_V2_TYPE_BADGE', 'BadgeClass');

define('OPEN_BADGES_V2_TYPE_ISSUER', 'Issuer');

define('OPEN_BADGES_V2_TYPE_ENDORSEMENT', 'Endorsement');

define('OPEN_BADGES_V2_TYPE_AUTHOR', 'Author');

define('BACKPACK_MOVE_UP', -1);

define('BACKPACK_MOVE_DOWN', 1);

// Global badge class has been moved to the component namespace.

class_alias('\core_badges\badge', 'badge');

/**

 * Sends notifications to users about awarded badges.

 *

 * @param \core_badges\badge $badge Badge that was issued

 * @param int $userid Recipient ID

 * @param string $issued Unique hash of an issued badge

 * @param string $filepathhash File path hash of an issued badge for attachments

 */

function badges_notify_badge_award(badge $badge, $userid, $issued, $filepathhash) {

    global $CFG, $DB;

    $admin = get_admin();

    $userfrom = new stdClass();

    $userfrom->id = $admin->id;

    $userfrom->email = !empty($CFG->badges_defaultissuercontact) ? $CFG->badges_defaultissuercontact : $admin->email;

    foreach (\core_user\fields::get_name_fields() as $addname) {

        $userfrom->$addname = !empty($CFG->badges_defaultissuername) ? '' : $admin->$addname;

    }

    $userfrom->firstname = !empty($CFG->badges_defaultissuername) ? $CFG->badges_defaultissuername : $admin->firstname;

    $userfrom->maildisplay = true;

    $badgeurl = new moodle_url('/badges/badge.php', ['hash' => $issued]);

    $issuedlink = html_writer::link($badgeurl, $badge->name);

    $userto = $DB->get_record('user', array('id' => $userid), '*', MUST_EXIST);

    $params = new stdClass();

    $params->badgename = $badge->name;

    $params->username = fullname($userto);

    $params->badgelink = $issuedlink;

    $message = badge_message_from_template($badge->message, $params);

    $plaintext = html_to_text($message);

    // Notify recipient.

    $eventdata = new \core\message\message();

    $eventdata->courseid          = is_null($badge->courseid) ? SITEID : $badge->courseid; // Profile/site come with no courseid.

    $eventdata->component         = 'moodle';

    $eventdata->name              = 'badgerecipientnotice';

    $eventdata->userfrom          = $userfrom;

    $eventdata->userto            = $userto;

    $eventdata->notification      = 1;

    $eventdata->contexturl        = $badgeurl;

    $eventdata->contexturlname    = $badge->name;

    $eventdata->subject           = $badge->messagesubject;

    $eventdata->fullmessage       = $plaintext;

    $eventdata->fullmessageformat = FORMAT_HTML;

    $eventdata->fullmessagehtml   = $message;

    $eventdata->smallmessage      = '';

    $eventdata->customdata        = [

        'notificationiconurl' => moodle_url::make_pluginfile_url(

            $badge->get_context()->id, 'badges', 'badgeimage', $badge->id, '/', 'f1')->out(),

        'hash' => $issued,

    ];

    // Attach badge image if possible.

    if (!empty($CFG->allowattachments) && $badge->attachment && is_string($filepathhash)) {

        $fs = get_file_storage();

        $file = $fs->get_file_by_hash($filepathhash);

        $eventdata->attachment = $file;

        $eventdata->attachname = str_replace(' ', '_', $badge->name) . ".png";

        message_send($eventdata);

    } else {

        message_send($eventdata);

    }

    // Notify badge creator about the award if they receive notifications every time.

    if ($badge->notification == 1) {

        $userfrom = core_user::get_noreply_user();

        $userfrom->maildisplay = true;

        $creator = $DB->get_record('user', array('id' => $badge->usercreated), '*', MUST_EXIST);

        $a = new stdClass();

        $a->user = fullname($userto);

        $a->link = $issuedlink;

        $creatormessage = get_string('creatorbody', 'badges', $a);

        $creatorsubject = get_string('creatorsubject', 'badges', $badge->name);

        $eventdata = new \core\message\message();

        $eventdata->courseid          = $badge->courseid;

        $eventdata->component         = 'moodle';

        $eventdata->name              = 'badgecreatornotice';

        $eventdata->userfrom          = $userfrom;

        $eventdata->userto            = $creator;

        $eventdata->notification      = 1;

        $eventdata->contexturl        = $badgeurl;

        $eventdata->contexturlname    = $badge->name;

        $eventdata->subject           = $creatorsubject;

        $eventdata->fullmessage       = html_to_text($creatormessage);

        $eventdata->fullmessageformat = FORMAT_HTML;

        $eventdata->fullmessagehtml   = $creatormessage;

        $eventdata->smallmessage      = '';

        $eventdata->customdata        = [

            'notificationiconurl' => moodle_url::make_pluginfile_url(

                $badge->get_context()->id, 'badges', 'badgeimage', $badge->id, '/', 'f1')->out(),

            'hash' => $issued,

        ];

        message_send($eventdata);

        $DB->set_field('badge_issued', 'issuernotified', time(), array('badgeid' => $badge->id, 'userid' => $userid));

    }

}

/**

 * Caclulates date for the next message digest to badge creators.

 *

 * @param int $schedule Type of message schedule BADGE_MESSAGE_DAILY|BADGE_MESSAGE_WEEKLY|BADGE_MESSAGE_MONTHLY.

 * @return int Timestamp for next cron

 */

function badges_calculate_message_schedule($schedule) {

    $nextcron = 0;

    switch ($schedule) {

        case BADGE_MESSAGE_DAILY:

            $tomorrow = new DateTime("1 day", core_date::get_server_timezone_object());

            $nextcron = $tomorrow->getTimestamp();

            break;

        case BADGE_MESSAGE_WEEKLY:

            $nextweek = new DateTime("1 week", core_date::get_server_timezone_object());

            $nextcron = $nextweek->getTimestamp();

            break;

        case BADGE_MESSAGE_MONTHLY:

            $nextmonth = new DateTime("1 month", core_date::get_server_timezone_object());

            $nextcron = $nextmonth->getTimestamp();

            break;

    }

    return $nextcron;

}

/**

 * Replaces variables in a message template and returns text ready to be emailed to a user.

 *

 * @param string $message Message body.

 * @return string Message with replaced values

 */

function badge_message_from_template($message, $params) {

    $msg = $message;

    foreach ($params as $key => $value) {

        $msg = str_replace("%$key%", $value, $msg);

    }

    return $msg;

}

/**

 * Get all badges.

 *

 * @param int Type of badges to return

 * @param int Course ID for course badges

 * @param string $sort An SQL field to sort by

 * @param string $dir The sort direction ASC|DESC

 * @param int $page The page or records to return

 * @param int $perpage The number of records to return per page

 * @param int $user User specific search

 * @return array $badge Array of records matching criteria

 */

function badges_get_badges($type, $courseid = 0, $sort = '', $dir = '', $page = 0, $perpage = BADGE_PERPAGE, $user = 0) {

    global $DB;

    $records = array();

    $params = array();

    $where = "b.status != :deleted AND b.type = :type ";

    $params['deleted'] = BADGE_STATUS_ARCHIVED;

    $userfields = array('b.id, b.name, b.status');

    $usersql = "";

    if ($user != 0) {

        $userfields[] = 'bi.dateissued';

        $userfields[] = 'bi.uniquehash';

        $usersql = " LEFT JOIN {badge_issued} bi ON b.id = bi.badgeid AND bi.userid = :userid ";

        $params['userid'] = $user;

        $where .= " AND (b.status = 1 OR b.status = 3) ";

    }

    $fields = implode(', ', $userfields);

    if ($courseid != 0 ) {

        $where .= "AND b.courseid = :courseid ";

        $params['courseid'] = $courseid;

    }

    $sorting = (($sort != '' && $dir != '') ? 'ORDER BY ' . $sort . ' ' . $dir : '');

    $params['type'] = $type;

    $sql = "SELECT $fields FROM {badge} b $usersql WHERE $where $sorting";

    $records = $DB->get_records_sql($sql, $params, $page * $perpage, $perpage);

    $badges = array();

    foreach ($records as $r) {

        $badge = new badge($r->id);

        $badges[$r->id] = $badge;

        if ($user != 0) {

            $badges[$r->id]->dateissued = $r->dateissued;

            $badges[$r->id]->uniquehash = $r->uniquehash;

        } else {

            $badges[$r->id]->awards = $DB->count_records_sql('SELECT COUNT(b.userid)

                                        FROM {badge_issued} b INNER JOIN {user} u ON b.userid = u.id

                                        WHERE b.badgeid = :badgeid AND u.deleted = 0', array('badgeid' => $badge->id));

            $badges[$r->id]->statstring = $badge->get_status_name();

        }

    }

    return $badges;

}

/**

 * Get badges for a specific user.

 *

 * @param int $userid User ID

 * @param int $courseid Badges earned by a user in a specific course

 * @param int $page The page or records to return

 * @param int $perpage The number of records to return per page

 * @param string $search A simple string to search for

 * @param bool $onlypublic Return only public badges

 * @return array of badges ordered by decreasing date of issue

 */

function badges_get_user_badges($userid, $courseid = 0, $page = 0, $perpage = 0, $search = '', $onlypublic = false) {

    global $CFG, $DB;

    $params = array(

        'userid' => $userid

    );

    $sql = 'SELECT

                bi.uniquehash,

                bi.dateissued,

                bi.dateexpire,

                bi.id as issuedid,

                bi.visible,

                u.email,

                b.*

            FROM

                {badge} b,

                {badge_issued} bi,

                {user} u

            WHERE b.id = bi.badgeid

                AND u.id = bi.userid

                AND bi.userid = :userid';

    if (!empty($search)) {

        $sql .= ' AND (' . $DB->sql_like('b.name', ':search', false) . ') ';

        $params['search'] = '%'.$DB->sql_like_escape($search).'%';

    }

    if ($onlypublic) {

        $sql .= ' AND (bi.visible = 1) ';

    }

    if (empty($CFG->badges_allowcoursebadges)) {

        $sql .= ' AND b.courseid IS NULL';

    } else if ($courseid != 0) {

        $sql .= ' AND (b.courseid = :courseid) ';

        $params['courseid'] = $courseid;

    }

    $sql .= ' ORDER BY bi.dateissued DESC';

    $badges = $DB->get_records_sql($sql, $params, $page * $perpage, $perpage);

    return $badges;

}

/**

 * Get badge by hash.

 *

 * @param string $hash

 * @return object|bool

 */

function badges_get_badge_by_hash(string $hash): object|bool {

    global $DB;

    $sql = 'SELECT

                bi.uniquehash,

                bi.dateissued,

                bi.userid,

                bi.dateexpire,

                bi.id as issuedid,

                bi.visible,

                u.email,

                b.*

            FROM

                {badge} b,

                {badge_issued} bi,

                {user} u

            WHERE b.id = bi.badgeid

                AND u.id = bi.userid

                AND ' . $DB->sql_compare_text('bi.uniquehash', 40) . ' = ' . $DB->sql_compare_text(':hash', 40);

    $badge = $DB->get_record_sql($sql, ['hash' => $hash], IGNORE_MISSING);

    return $badge;

}

/**

 * Update badge instance to external functions.

 *

 * @param stdClass $badge

 * @param stdClass $user

 * @return object

 */

function badges_prepare_badge_for_external(stdClass $badge, stdClass $user): object {

    global $PAGE, $USER;

    if ($badge->type == BADGE_TYPE_SITE) {

        $context = context_system::instance();

    } else {

        $context = context_course::instance($badge->courseid);

    }

    $canconfiguredetails = has_capability('moodle/badges:configuredetails', $context);

    // If the user is viewing another user's badge and doesn't have the right capability return only part of the data.

    if ($USER->id != $user->id && !$canconfiguredetails) {

        $badge = (object) [

            'id'            => $badge->id,

            'name'          => $badge->name,

            'type'          => $badge->type,

            'description'   => $badge->description,

            'issuername'    => $badge->issuername,

            'issuerurl'     => $badge->issuerurl,

            'issuercontact' => $badge->issuercontact,

            'uniquehash'    => $badge->uniquehash,

            'dateissued'    => $badge->dateissued,

            'dateexpire'    => $badge->dateexpire,

            'version'       => $badge->version,

            'language'      => $badge->language,

            'imageauthorname'  => $badge->imageauthorname,

            'imageauthoremail' => $badge->imageauthoremail,

            'imageauthorurl'   => $badge->imageauthorurl,

            'imagecaption'     => $badge->imagecaption,

        ];

    }

    // Create a badge instance to be able to get the endorsement and other info.

    $badgeinstance = new badge($badge->id);

    $endorsement   = $badgeinstance->get_endorsement();

    $alignments    = $badgeinstance->get_alignments();

    $relatedbadges = $badgeinstance->get_related_badges();

    if (!$canconfiguredetails) {

        // Return only the properties visible by the user.

        if (!empty($alignments)) {

            foreach ($alignments as $alignment) {

                unset($alignment->targetdescription);

                unset($alignment->targetframework);

                unset($alignment->targetcode);

            }

        }

        if (!empty($relatedbadges)) {

            foreach ($relatedbadges as $relatedbadge) {

                unset($relatedbadge->version);

                unset($relatedbadge->language);

                unset($relatedbadge->type);

            }

        }

    }

    $related = [

        'context'       => $context,

        'endorsement'   => $endorsement ? $endorsement : null,

        'alignment'     => $alignments,

        'relatedbadges' => $relatedbadges,

    ];

    $exporter = new user_badge_exporter($badge, $related);

    return $exporter->export($PAGE->get_renderer('core'));

}

/**

 * Extends the course administration navigation with the Badges page

 *

 * @param navigation_node $coursenode

 * @param object $course

 */

function badges_add_course_navigation(navigation_node $coursenode, stdClass $course) {

    global $CFG, $SITE;

    $coursecontext = context_course::instance($course->id);

    $isfrontpage = (!$coursecontext || $course->id == $SITE->id);

    $canmanage = has_any_capability(array('moodle/badges:viewawarded',

                                          'moodle/badges:createbadge',

                                          'moodle/badges:awardbadge',

                                          'moodle/badges:configurecriteria',

                                          'moodle/badges:configuremessages',

                                          'moodle/badges:configuredetails',

                                          'moodle/badges:deletebadge'), $coursecontext);

    if (!empty($CFG->enablebadges) && !empty($CFG->badges_allowcoursebadges) && !$isfrontpage && $canmanage) {

        $coursenode->add(get_string('coursebadges', 'badges'), null,

                navigation_node::TYPE_CONTAINER, null, 'coursebadges',

                new pix_icon('i/badge', get_string('coursebadges', 'badges')));

        $url = new moodle_url('/badges/index.php', array('type' => BADGE_TYPE_COURSE, 'id' => $course->id));

        $coursenode->get('coursebadges')->add(get_string('managebadges', 'badges'), $url,

            navigation_node::TYPE_SETTING, null, 'coursebadges');

        if (has_capability('moodle/badges:createbadge', $coursecontext)) {

            $url = new moodle_url('/badges/newbadge.php', array('type' => BADGE_TYPE_COURSE, 'id' => $course->id));

            $coursenode->get('coursebadges')->add(get_string('newbadge', 'badges'), $url,

                    navigation_node::TYPE_SETTING, null, 'newbadge');

        }

    }

}

/**

 * Triggered when badge is manually awarded.

 *

 * @param   object      $data

 * @return  boolean

 */

function badges_award_handle_manual_criteria_review(stdClass $data) {

    $criteria = $data->crit;

    $userid = $data->userid;

    $badge = new badge($criteria->badgeid);

    if (!$badge->is_active() || $badge->is_issued($userid)) {

        return true;

    }

    if ($criteria->review($userid)) {

        $criteria->mark_complete($userid);

        if ($badge->criteria[BADGE_CRITERIA_TYPE_OVERALL]->review($userid)) {

            $badge->criteria[BADGE_CRITERIA_TYPE_OVERALL]->mark_complete($userid);

            $badge->issue($userid);

        }

    }

    return true;

}

/**

 * Process badge image from form data

 *

 * @param badge $badge Badge object

 * @param string $iconfile Original file

 */

function badges_process_badge_image(badge $badge, $iconfile) {

    global $CFG, $USER;

    require_once($CFG->libdir. '/gdlib.php');

    if (!empty($CFG->gdversion)) {

        process_new_icon($badge->get_context(), 'badges', 'badgeimage', $badge->id, $iconfile, true);

        @unlink($iconfile);

        // Clean up file draft area after badge image has been saved.

        $context = context_user::instance($USER->id, MUST_EXIST);

        $fs = get_file_storage();

        $fs->delete_area_files($context->id, 'user', 'draft');

    }

}

/**

 * Print badge image.

 *

 * @param badge $badge Badge object

 * @param stdClass $context

 * @param string $size

 */

function print_badge_image(badge $badge, stdClass $context, $size = 'small') {

    $fsize = ($size == 'small') ? 'f2' : 'f1';

    $imageurl = moodle_url::make_pluginfile_url($context->id, 'badges', 'badgeimage', $badge->id, '/', $fsize, false);

    // Appending a random parameter to image link to forse browser reload the image.

    $imageurl->param('refresh', rand(1, 10000));

    $attributes = array('src' => $imageurl, 'alt' => s($badge->name), 'class' => 'activatebadge');

    return html_writer::empty_tag('img', $attributes);

}

/**

 * Bake issued badge.

 *

 * @param string $hash Unique hash of an issued badge.

 * @param int $badgeid ID of the original badge.

 * @param int $userid ID of badge recipient (optional).

 * @param boolean $pathhash Return file pathhash instead of image url (optional).

 * @return string|moodle_url|null Returns either new file path hash or new file URL

 */

function badges_bake($hash, $badgeid, $userid = 0, $pathhash = false) {

    global $CFG, $USER;

    require_once(__DIR__ . '/../badges/lib/bakerlib.php');

    $badge = new badge($badgeid);

    $badge_context = $badge->get_context();

    $userid = ($userid) ? $userid : $USER->id;

    $user_context = context_user::instance($userid);

    $fs = get_file_storage();

    if (!$fs->file_exists($user_context->id, 'badges', 'userbadge', $badge->id, '/', $hash . '.png')) {

        if ($file = $fs->get_file($badge_context->id, 'badges', 'badgeimage', $badge->id, '/', 'f3.png')) {

            $contents = $file->get_content();

            $filehandler = new PNG_MetaDataHandler($contents);

            // For now, the site backpack OB version will be used as default.

            $obversion = badges_open_badges_backpack_api();

            $assertion = new core_badges_assertion($hash, $obversion);

            $assertionjson = json_encode($assertion->get_badge_assertion());

            if ($filehandler->check_chunks("iTXt", "openbadges")) {

                // Add assertion URL iTXt chunk.

                $newcontents = $filehandler->add_chunks("iTXt", "openbadges", $assertionjson);

                $fileinfo = array(

                        'contextid' => $user_context->id,

                        'component' => 'badges',

                        'filearea' => 'userbadge',

                        'itemid' => $badge->id,

                        'filepath' => '/',

                        'filename' => $hash . '.png',

                );

                // Create a file with added contents.

                $newfile = $fs->create_file_from_string($fileinfo, $newcontents);

                if ($pathhash) {

                    return $newfile->get_pathnamehash();

                }

            }

        } else {

            debugging('Error baking badge image!', DEBUG_DEVELOPER);

            return;

        }

    }

    // If file exists and we just need its path hash, return it.

    if ($pathhash) {

        $file = $fs->get_file($user_context->id, 'badges', 'userbadge', $badge->id, '/', $hash . '.png');

        return $file->get_pathnamehash();

    }

    $fileurl = moodle_url::make_pluginfile_url($user_context->id, 'badges', 'userbadge', $badge->id, '/', $hash, true);

    return $fileurl;

}

/**

 * Returns external backpack settings and badges from this backpack.

 *

 * This function first checks if badges for the user are cached and

 * tries to retrieve them from the cache. Otherwise, badges are obtained

 * through curl request to the backpack.

 *

 * @param int $userid Backpack user ID.

 * @param boolean $refresh Refresh badges collection in cache.

 * @return null|object Returns null is there is no backpack or object with backpack settings.

 */

function get_backpack_settings($userid, $refresh = false) {

    global $DB;

    // Try to get badges from cache first.

    $badgescache = cache::make('core', 'externalbadges');

    $out = $badgescache->get($userid);

    if ($out !== false && !$refresh) {

        return $out;

    }

    // Get badges through curl request to the backpack.

    $record = $DB->get_record('badge_backpack', array('userid' => $userid));

    if ($record) {

        $sitebackpack = badges_get_site_backpack($record->externalbackpackid);

        $backpack = new \core_badges\backpack_api($sitebackpack, $record);

        $out = new stdClass();

        $out->backpackid = $sitebackpack->id;

        if ($collections = $DB->get_records('badge_external', array('backpackid' => $record->id))) {

            $out->totalcollections = count($collections);

            $out->totalbadges = 0;

            $out->badges = array();

            foreach ($collections as $collection) {

                $badges = $backpack->get_badges($collection, true);

                if (!empty($badges)) {

                    $out->badges = array_merge($out->badges, $badges);

                    $out->totalbadges += count($badges);

                } else {

                    $out->badges = array_merge($out->badges, array());

                }

            }

        } else {

            $out->totalbadges = 0;

            $out->totalcollections = 0;

        }

        $badgescache->set($userid, $out);

        return $out;

    }

    return null;

}

/**

 * Download all user badges in zip archive.

 *

 * @param int $userid ID of badge owner.

 */

function badges_download($userid) {

    global $CFG, $DB;

    $context = context_user::instance($userid);

    $records = $DB->get_records('badge_issued', array('userid' => $userid));

    // Get list of files to download.

    $fs = get_file_storage();

    $filelist = array();

    foreach ($records as $issued) {

        $badge = new badge($issued->badgeid);

        // Need to make image name user-readable and unique using filename safe characters.

        $name =  $badge->name . ' ' . userdate($issued->dateissued, '%d %b %Y') . ' ' . hash('crc32', $badge->id);

        $name = str_replace(' ', '_', $name);

        $name = clean_param($name, PARAM_FILE);

        if ($file = $fs->get_file($context->id, 'badges', 'userbadge', $issued->badgeid, '/', $issued->uniquehash . '.png')) {

            $filelist[$name . '.png'] = $file;

        }

    }

    // Zip files and sent them to a user.

    $tempzip = tempnam($CFG->tempdir.'/', 'mybadges');

    $zipper = new zip_packer();

    if ($zipper->archive_to_pathname($filelist, $tempzip)) {

        send_temp_file($tempzip, 'badges.zip');

    } else {

        debugging("Problems with archiving the files.", DEBUG_DEVELOPER);

        die;

    }

}

/**

 * Checks if user has external backpack connected.

 *

 * @param int $userid ID of a user.

 * @return bool True|False whether backpack connection exists.

 */

function badges_user_has_backpack($userid) {

    global $DB;

    return $DB->record_exists('badge_backpack', array('userid' => $userid));

}

/**

 * Handles what happens to the course badges when a course is deleted.

 *

 * @param int $courseid course ID.

 * @return void.

 */

function badges_handle_course_deletion($courseid) {

    global $CFG, $DB;

    include_once $CFG->libdir . '/filelib.php';

    $systemcontext = context_system::instance();

    $coursecontext = context_course::instance($courseid);

    $fs = get_file_storage();

    // Move badges images to the system context.

    $fs->move_area_files_to_new_context($coursecontext->id, $systemcontext->id, 'badges', 'badgeimage');

    // Get all course badges.

    $badges = $DB->get_records('badge', array('type' => BADGE_TYPE_COURSE, 'courseid' => $courseid));

    foreach ($badges as $badge) {

        // Archive badges in this course.

        $toupdate = new stdClass();

        $toupdate->id = $badge->id;

        $toupdate->type = BADGE_TYPE_SITE;

        $toupdate->courseid = null;

        $toupdate->status = BADGE_STATUS_ARCHIVED;

        $DB->update_record('badge', $toupdate);

    }

}

/**

 * Create the site backpack with this data.

 *

 * @param stdClass $data The new backpack data.

 * @return boolean

 */

function badges_create_site_backpack($data) {

    global $DB;

    $context = context_system::instance();

    require_capability('moodle/badges:manageglobalsettings', $context);

    $max = $DB->get_field_sql('SELECT MAX(sortorder) FROM {badge_external_backpack}');

    $data->sortorder = $max + 1;

    return badges_save_external_backpack($data);

}

/**

 * Update the backpack with this id.

 *

 * @param integer $id The backpack to edit

 * @param stdClass $data The new backpack data.

 * @return boolean

 */

function badges_update_site_backpack($id, $data) {

    global $DB;

    $context = context_system::instance();

    require_capability('moodle/badges:manageglobalsettings', $context);

    if ($backpack = badges_get_site_backpack($id)) {

        $data->id = $id;

        return badges_save_external_backpack($data);

    }

    return false;

}

/**

 * Delete the backpack with this id.

 *

 * @param integer $id The backpack to delete.

 * @return boolean

 */

function badges_delete_site_backpack($id) {

    global $DB;

    $context = context_system::instance();

    require_capability('moodle/badges:manageglobalsettings', $context);

    // Only remove site backpack if it's not the default one.

    $defaultbackpack = badges_get_site_primary_backpack();

    if ($defaultbackpack->id != $id && $DB->record_exists('badge_external_backpack', ['id' => $id])) {

        $transaction = $DB->start_delegated_transaction();

        // Remove connections for users to this backpack.

        $sql = "SELECT DISTINCT bb.id

                  FROM {badge_backpack} bb

                 WHERE bb.externalbackpackid = :backpackid";

        $params = ['backpackid' => $id];

        $userbackpacks = $DB->get_fieldset_sql($sql, $params);

        if ($userbackpacks) {

            // Delete user external collections references to this backpack.

            list($insql, $params) = $DB->get_in_or_equal($userbackpacks);

            $DB->delete_records_select('badge_external', "backpackid $insql", $params);

        }

        $DB->delete_records('badge_backpack', ['externalbackpackid' => $id]);

        // Delete backpack entry.

        $result = $DB->delete_records('badge_external_backpack', ['id' => $id]);

        $transaction->allow_commit();

        return $result;

    }

    return false;

}

/**

 * Perform the actual create/update of external bakpacks. Any checks on the validity of the id will need to be

 * performed before it reaches this function.

 *

 * @param stdClass $data The backpack data we are updating/inserting

 * @return int Returns the id of the new/updated record

 */

function badges_save_external_backpack(stdClass $data) {

    global $DB;

    if ($data->apiversion == OPEN_BADGES_V2P1) {

        // Check if there is an existing issuer for the given backpackapiurl.

        foreach (core\oauth2\api::get_all_issuers() as $tmpissuer) {

            if ($data->backpackweburl == $tmpissuer->get('baseurl')) {

                $issuer = $tmpissuer;

                break;

            }

        }

        // Create the issuer if it doesn't exist yet.

        if (empty($issuer)) {

            $issuer = new \core\oauth2\issuer(0, (object) [

                'name' => $data->backpackweburl,

                'baseurl' => $data->backpackweburl,

                // Note: This is required because the DB schema is broken and does not accept a null value when it should.

                'image' => '',

            ]);

            $issuer->save();

        }

        // This can't be run from PHPUNIT because testing platforms need real URLs.

        // In the future, this request can be moved to the moodle-exttests repository.

        if (!PHPUNIT_TEST) {

            // Create/update the endpoints for the issuer.

            \core\oauth2\discovery\imsbadgeconnect::create_endpoints($issuer);

            $data->oauth2_issuerid = $issuer->get('id');

            $apibase = \core\oauth2\endpoint::get_record([

                'issuerid' => $data->oauth2_issuerid,

                'name' => 'apiBase',

            ]);

            $data->backpackapiurl = $apibase->get('url');

        }

    }

    $backpack = new stdClass();

    $backpack->apiversion = $data->apiversion;

    $backpack->backpackweburl = $data->backpackweburl;

    $backpack->backpackapiurl = $data->backpackapiurl;

    $backpack->oauth2_issuerid = $data->oauth2_issuerid ?? '';

    if (isset($data->sortorder)) {

        $backpack->sortorder = $data->sortorder;

    }

    if (empty($data->id)) {

        $backpack->id = $DB->insert_record('badge_external_backpack', $backpack);

    } else {

        $backpack->id = $data->id;

        $DB->update_record('badge_external_backpack', $backpack);

    }

    $data->externalbackpackid = $backpack->id;

    unset($data->id);

    badges_save_backpack_credentials($data);

    return $data->externalbackpackid;

}

/**

 * Create a backpack with the provided details. Stores the auth details of the backpack

 *

 * @param stdClass $data Backpack specific data.

 * @return int The id of the external backpack that the credentials correspond to

 */

function badges_save_backpack_credentials(stdClass $data) {

    global $DB;

    if (isset($data->backpackemail) && isset($data->password)) {

        $backpack = new stdClass();

        $backpack->email = $data->backpackemail;

        $backpack->password = !empty($data->password) ? $data->password : '';

        $backpack->externalbackpackid = $data->externalbackpackid;

        $backpack->userid = $data->userid ?? 0;

        $backpack->backpackuid = $data->backpackuid ?? 0;

        $backpack->autosync = $data->autosync ?? 0;

        if (!empty($data->badgebackpack)) {

            $backpack->id = $data->badgebackpack;

        } else if (!empty($data->id)) {

            $backpack->id = $data->id;

        }

        if (empty($backpack->id)) {

            $backpack->id = $DB->insert_record('badge_backpack', $backpack);

        } else {

            $DB->update_record('badge_backpack', $backpack);

        }

        return $backpack->externalbackpackid;

    }

    return $data->externalbackpackid ?? 0;

}

/**

 * Is any backpack enabled that supports open badges V1?

 * @param int|null $backpackid Check the version of the given id OR if null the sitewide backpack

 * @return boolean

 */

function badges_open_badges_backpack_api(?int $backpackid = null) {

    if (!$backpackid) {

        $backpack = badges_get_site_primary_backpack();

    } else {

        $backpack = badges_get_site_backpack($backpackid);

    }

    if (empty($backpack->apiversion)) {

        return OPEN_BADGES_V2;

    }

    return $backpack->apiversion;

}

/**

 * Get a site backpacks by id for a particular user or site (if userid is 0)

 *

 * @param int $id The backpack id.

 * @param int $userid The owner of the backpack, 0 if it's a sitewide backpack else a user's site backpack

 * @return stdClass

 */

function badges_get_site_backpack($id, int $userid = 0) {

    global $DB;

    $sql = "SELECT beb.*, bb.id AS badgebackpack, bb.password, bb.email AS backpackemail

              FROM {badge_external_backpack} beb

         LEFT JOIN {badge_backpack} bb ON bb.externalbackpackid = beb.id AND bb.userid=:userid

             WHERE beb.id=:id";

    return $DB->get_record_sql($sql, ['id' => $id, 'userid' => $userid]);

}

/**

 * Get the user backpack for the currently logged in user OR the provided user