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

/**
 * Availability condition: User has a specific competency.
 *
 * @package mod_booking
 * @copyright 2025 Wunderbyte GmbH <info@wunderbyte.at>
 * @author Bernhard Fischer
 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

namespace mod_booking\bo_availability\conditions;

use context_system;
use core_competency\user_competency;
use mod_booking\bo_availability\bo_condition;
use mod_booking\bo_availability\bo_info;
use mod_booking\booking;
use mod_booking\booking_option_settings;
use mod_booking\local\competencies\competencies_handler;
use mod_booking\local\override_user_field;
use mod_booking\option\fields\competencies;
use mod_booking\singleton_service;
use mod_booking\utils\wb_payment;
use MoodleQuickForm;
use stdClass;
use Throwable;

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

require_once($CFG->dirroot . '/user/profile/lib.php');

/**
 * Availability condition: User has a specific (global) competency.
 *
 * @package mod_booking
 * @copyright 2025 Wunderbyte GmbH <info@wunderbyte.at>
 * @author Bernhard Fischer
 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
class hascompetency implements bo_condition {
    /** @var int $id Id is set via json during construction but we still need a default ID */
    public $id = MOD_BOOKING_BO_COND_JSON_HASCOMPETENCY;

    /** @var bool $overridable Indicates if the condition can be overriden. */
    public $overridable = true;

    /** @var bool $overwrittenbybillboard Indicates if the condition can be overwritten by the billboard. */
    public $overwrittenbybillboard = true;

    /** @var stdClass $customsettings an stdclass coming from the json which passes custom settings */
    public $customsettings = null;

    /**
     * Singleton instance.
     *
     * @var object
     */
    private static $instance = null;

    /**
     * Singleton instance.
     *
     * @param ?int $id
     * @return object
     *
     */
    public static function instance(?int $id = null): object {
        if (empty(self::$instance)) {
            self::$instance = new self($id);
        }
        return self::$instance;
    }

    /**
     * Reset method to clear the singleton state.
     *
     * @return void
     *
     */
    public static function reset_instance(): void {
        self::$instance = null;
    }

    /**
     * Constructor.
     *
     * @param ?int $id
     * @return void
     */
    private function __construct(?int $id = null) {
        if ($id) {
            $this->id = $id;
        }
    }

    /**
     * Get the condition id.
     *
     * @return int
     *
     */
    public function get_id(): int {
        return $this->id;
    }

    /**
     * Needed to see if class can take JSON.
     * @return bool
     */
    public function is_json_compatible(): bool {
        return true; // Customizable condition.
    }

    /**
     * Needed to see if it shows up in mform.
     * @return bool
     */
    public function is_shown_in_mform(): bool {
        return true;
    }

    /**
     * Returns the name of the condition.
     *
     * @return string
     *
     */
    public function get_name(): string {
        return get_string('bocondhascompetency', 'mod_booking');
    }

    /**
     * Returns whether the condition is skippable or not.
     *
     * @return bool
     */
    public function is_skippable(): bool {
        return true;
    }

    /**
     * Determines whether a particular item is currently available
     * according to this availability condition.
     * @param booking_option_settings $settings Item we're checking
     * @param int $userid User ID to check availability for
     * @param bool $not Set true if we are inverting the condition
     * @return bool true if available
     */
    public function is_available(booking_option_settings $settings, int $userid, bool $not = false): bool {

        // This is the return value. Not available to begin with.
        $isavailable = false;

        if (empty($this->customsettings->competencyids)) {
            $isavailable = true;
        } else {
            $competencyids = $this->customsettings->competencyids;
            $hascompetency = true; // We start with true.

            // Operator: AND.
            if (empty($this->customsettings->competencyidsoperator) || $this->customsettings->competencyidsoperator != 'OR') {
                foreach ($competencyids as $competencyid) {
                    try {
                        $hascompetency = $hascompetency && competencies_handler::user_has_competency($userid, $competencyid);
                    } catch (Throwable $e) {
                        // If an error occurs, we assume the user does not have the competency.
                        $hascompetency = false;
                        debugging('Exception in hascompetency condition: ' . $e->getMessage());
                    }
                    // We only get true, if the user has ALL selected competencies.
                }
            } else {
                // Operator: OR.
                $hascompetency = false;
                foreach ($competencyids as $competencyid) {
                    try {
                        // As soon as we find one of the competencies for the users, we break.
                        if (competencies_handler::user_has_competency($userid, $competencyid)) {
                            $hascompetency = true;
                            break;
                        }
                    } catch (Throwable $e) {
                        debugging('Exception in hascompetency condition: ' . $e->getMessage());
                    }
                    // We only get true, if the user has at least one of the competencies.
                }
            }
            $isavailable = $hascompetency;
        }

        // If it's inversed, we inverse.
        if ($not) {
            $isavailable = !$isavailable;
        }

        return $isavailable;
    }

    /**
     * Each function can return additional sql.
     * This will be used if the conditions should not only block booking...
     * ... but actually hide the conditons alltogether.
     * @param int $userid
     * @param array $params This is the array with parameters for the sql query.
     * @return array
     */
    public function return_sql(int $userid = 0, &$params = []): array {
        return ['', '', '', [], ''];
    }

    /**
     * The hard block is complementary to the is_available check.
     * While is_available is used to build eg also the prebooking modals and...
     * ... introduces eg the booking policy or the subbooking page, the hard block is meant to prevent ...
     * ... unwanted booking. It's the check just before booking if we really...
     * ... want the user to book. It will return always return false on subbookings...
     * ... as they are not necessary, but return true when the booking policy is not yet answered.
     * Hard block is only checked if is_available already returns false.
     *
     * @param booking_option_settings $settings
     * @param int $userid
     * @return bool
     */
    public function hard_block(booking_option_settings $settings, $userid): bool {

        $context = context_system::instance();
        if (has_capability('mod/booking:overrideboconditions', $context)) {
            return false;
        }

        return true;
    }

    /**
     * Obtains a string describing this restriction (whether or not
     * it actually applies). Used to obtain information that is displayed to
     * students if the activity is not available to them, and for staff to see
     * what conditions are.
     *
     * The $full parameter can be used to distinguish between 'staff' cases
     * (when displaying all information about the activity) and 'student' cases
     * (when displaying only conditions they don't meet).
     *
     * @param booking_option_settings $settings Item we're checking
     * @param int $userid User ID to check availability for
     * @param bool $full Set true if this is the 'full information' view
     * @param bool $not Set true if we are inverting the condition
     * @return array availability and Information string (for admin) about all restrictions on
     *   this item
     */
    public function get_description(booking_option_settings $settings, $userid = null, $full = false, $not = false): array {

        $description = '';

        $isavailable = $this->is_available($settings, $userid, $not);

        $description = $this->get_description_string($isavailable, $full, $settings);

        return [$isavailable, $description, MOD_BOOKING_BO_PREPAGE_NONE, MOD_BOOKING_BO_BUTTON_MYALERT];
    }

    /**
     * Only customizable functions need to return their necessary form elements.
     *
     * @param MoodleQuickForm $mform
     * @param int $optionid
     * @return void
     */
    public function add_condition_to_mform(MoodleQuickForm &$mform, int $optionid = 0) {
        global $DB;

        // Check if PRO version is activated.
        if (wb_payment::pro_version_is_activated()) {
            $competenciesarray = [];
            if (
                $competenciesrecords = $DB->get_records('competency')
            ) {
                foreach ($competenciesrecords as $competenciesrecord) {
                    $competenciesarray[$competenciesrecord->id] =
                        "$competenciesrecord->shortname (ID: $competenciesrecord->id)";
                }
            }

            $mform->addElement(
                'advcheckbox',
                'bo_cond_hascompetency_restrict',
                get_string('bocondhascompetency', 'mod_booking')
            );

            $hascompetencyoptions = [
                'tags' => false,
                'multiple' => true,
            ];

            $overrideoperators = [
                'OR' => get_string('overrideoperator:or', 'mod_booking'),
                'AND' => get_string('overrideoperator:and', 'mod_booking'),
            ];

            $competencyoperator = [
                'OR' => get_string('onecompetencymustbefound', 'mod_booking'),
                'AND' => get_string('allcompetenciesmustbefound', 'mod_booking'),
            ];

            $mform->addElement(
                'autocomplete',
                'bo_cond_hascompetency_competencyids',
                get_string('competencies', 'mod_booking'),
                $competenciesarray,
                $hascompetencyoptions
            );
            $mform->hideIf('bo_cond_hascompetency_competencyids', 'bo_cond_hascompetency_restrict', 'notchecked');

            $mform->addElement(
                'select',
                'bo_cond_hascompetency_competencyids_operator',
                get_string('overrideoperator', 'mod_booking'),
                $competencyoperator
            );
            $mform->setDefault('bo_cond_hascompetency_competencyids_operator', 'AND');
            $mform->hideIf('bo_cond_hascompetency_competencyids_operator', 'bo_cond_hascompetency_restrict', 'notchecked');

            $mform->addElement(
                'checkbox',
                'bo_cond_hascompetency_overrideconditioncheckbox',
                get_string('overrideconditioncheckbox', 'mod_booking')
            );
            $mform->hideIf('bo_cond_hascompetency_overrideconditioncheckbox', 'bo_cond_hascompetency_restrict', 'notchecked');

            $mform->addElement(
                'select',
                'bo_cond_hascompetency_overrideoperator',
                get_string('overrideoperator', 'mod_booking'),
                $overrideoperators
            );
            $mform->hideIf(
                'bo_cond_hascompetency_overrideoperator',
                'bo_cond_hascompetency_overrideconditioncheckbox',
                'notchecked'
            );

            $overrideconditions = bo_info::get_conditions(MOD_BOOKING_CONDPARAM_CANBEOVERRIDDEN);
            $overrideconditionsarray = [];
            foreach ($overrideconditions as $overridecondition) {
                // We do not combine conditions of same type with each other.
                if ($overridecondition->id == $this->id) {
                    continue;
                }
                // Remove the namespace from classname.
                $fullclassname = get_class($overridecondition); // With namespace.
                $classnameparts = explode('\\', $fullclassname);
                $shortclassname = end($classnameparts); // Without namespace.
                $shortclassname = str_replace("_", "", $shortclassname); // Remove underscroll.
                $overrideconditionsarray[$overridecondition->id] =
                    // Mdlcode-disable-next-line cannot-parse-string.
                    get_string('bocond' . $shortclassname, 'mod_booking');
            }

            // Check for json conditions that might have been saved before.
            if (!empty($optionid) && $optionid > 0) {
                $settings = singleton_service::get_instance_of_booking_option_settings($optionid);
                if (!empty($settings->availability)) {
                    $jsonconditions = json_decode($settings->availability);
                    if (!empty($jsonconditions)) {
                        foreach ($jsonconditions as $jsoncondition) {
                            $currentclassname = $jsoncondition->class;
                            $currentcondition = $currentclassname::instance();
                            // Currently conditions of the same type cannot be combined with each other.
                            if (
                                $jsoncondition->id != $this->id
                                && isset($currentcondition->overridable)
                                && ($currentcondition->overridable == true)
                            ) {
                                // Mdlcode-disable-next-line cannot-parse-string.
                                $overrideconditionsarray[$jsoncondition->id] = get_string('bocond' .
                                    str_replace("_", "", $jsoncondition->name), 'mod_booking');
                            }
                        }
                    }
                }
            }

            $options = [
                'noselectionstring' => get_string('choose...', 'mod_booking'),
                'tags' => false,
                'multiple' => true,
            ];
            $mform->addElement(
                'autocomplete',
                'bo_cond_hascompetency_overridecondition',
                get_string('overridecondition', 'mod_booking'),
                $overrideconditionsarray,
                $options
            );
            $mform->hideIf(
                'bo_cond_hascompetency_overridecondition',
                'bo_cond_hascompetency_overrideconditioncheckbox',
                'notchecked'
            );
        } else {
            // No PRO license is active.
            $mform->addElement(
                'static',
                'bo_cond_hascompetency_restrict',
                get_string('bocondhascompetency', 'mod_booking'),
                get_string('proversiononly', 'mod_booking')
            );
        }

        $mform->addElement(
            'html',
            '<div id="bo_cond_hascompetency_restrict_hr" class="d-flex justify-content-end"><hr class="w-75"/></div>'
        );
    }

    /**
     * Returns a condition object which is needed to create the condition JSON.
     *
     * @param stdClass $fromform
     * @return stdClass|null the object for the JSON
     */
    public function get_condition_object_for_json(stdClass $fromform): stdClass {
        $conditionobject = new stdClass();
        if (!empty($fromform->bo_cond_hascompetency_restrict)) {
            // Remove the namespace from classname.
            $classname = __CLASS__;
            $classnameparts = explode('\\', $classname);
            $shortclassname = end($classnameparts); // Without namespace.

            $conditionobject->id = $this->id;
            $conditionobject->name = $shortclassname;
            $conditionobject->class = $classname;
            $conditionobject->competencyids = $fromform->bo_cond_hascompetency_competencyids;
            $conditionobject->competencyidsoperator = $fromform->bo_cond_hascompetency_competencyids_operator;

            if (!empty($fromform->bo_cond_hascompetency_overrideconditioncheckbox)) {
                $conditionobject->overrides = $fromform->bo_cond_hascompetency_overridecondition;
                $conditionobject->overrideoperator = $fromform->bo_cond_hascompetency_overrideoperator;
            }
        }
        // Might be an empty object if restriction is not set.
        return $conditionobject;
    }

    /**
     * Set default values to be shown in form when loaded from DB.
     * @param stdClass $defaultvalues the default values
     * @param stdClass $acdefault the condition object from JSON
     */
    public function set_defaults(stdClass &$defaultvalues, stdClass $acdefault) {
        if (!empty($acdefault->competencyids)) {
            $defaultvalues->bo_cond_hascompetency_restrict = "1";
            $defaultvalues->bo_cond_hascompetency_competencyids = $acdefault->competencyids;
            $defaultvalues->bo_cond_hascompetency_competencyids_operator = $acdefault->competencyidsoperator ?? 'AND';
        }
        if (!empty($acdefault->overrides)) {
            $defaultvalues->bo_cond_hascompetency_overrideconditioncheckbox = "1";
            $defaultvalues->bo_cond_hascompetency_overridecondition = $acdefault->overrides;
            $defaultvalues->bo_cond_hascompetency_overrideoperator = $acdefault->overrideoperator;
        }
    }

    /**
     * The page refers to an additional page which a booking option can inject before the booking process.
     * Not all bo_conditions need to take advantage of this. But eg a condition which requires...
     * ... the acceptance of a booking policy would render the policy with this function.
     *
     * @param int $optionid
     * @param int $userid optional user id
     * @return array
     */
    public function render_page(int $optionid, int $userid = 0) {
        return [];
    }

    /**
     * Some conditions (like price & bookit) provide a button.
     * Renders the button, attaches js to the Page footer and returns the html.
     * Return should look somehow like this.
     * ['mod_booking/bookit_button', $data];
     *
     * @param booking_option_settings $settings
     * @param int $userid
     * @param bool $full
     * @param bool $not
     * @param bool $fullwidth
     * @return array
     */
    public function render_button(
        booking_option_settings $settings,
        int $userid = 0,
        bool $full = false,
        bool $not = false,
        bool $fullwidth = true
    ): array {

        $label = $this->get_description_string(false, $full, $settings);

        return bo_info::render_button($settings, $userid, $label, 'alert alert-warning', true, $fullwidth, 'alert', 'option');
    }

    /**
     * Helper function to return localized description strings.
     *
     * @param bool $isavailable
     * @param bool $full
     * @param booking_option_settings $settings
     * @return string
     */
    private function get_description_string(bool $isavailable, bool $full, booking_option_settings $settings): string {

        if (
            !$isavailable
            && $this->overwrittenbybillboard
            && !empty($desc = bo_info::apply_billboard($this, $settings))
        ) {
            return $desc;
        }
        global $DB;

        if ($isavailable) {
            $description = $full ? get_string('bocondhascompetencyfullavailable', 'mod_booking') :
                get_string('bocondhascompetencyavailable', 'mod_booking');
        } else {
            if (!$this->customsettings) {
                // This description can only work with the right custom settings.
                $availabilityarray = json_decode($settings->availability);

                foreach ($availabilityarray as $availability) {
                    if (strpos($availability->class, 'hascompetency') > 0) {
                        $this->customsettings = (object)$availability;
                    }
                }
            }

            if (!isset($this->customsettings->competencyids)) {
                return 'Error in "hascompetency" availability condition: no competency ids are set!';
            }

            $a = '';
            $competencystringsarr = [];
            foreach ($this->customsettings->competencyids as $competencyid) {
                $shortname = competencies_handler::get_competency_shortname_by_id($competencyid);
                if (empty($shortname)) {
                    debugging('Error in "hascompetency" availability condition: shortname for competency with id ' .
                        $competencyid . ' not found!', DEBUG_DEVELOPER);
                    continue;
                }
                $competencystringsarr[] = $shortname;
            }

            $a = implode(', ', $competencystringsarr);

            if (
                isset($this->customsettings->competencyidsoperator)
                && $this->customsettings->competencyidsoperator == 'OR'
            ) {
                $description = $full ?
                    get_string('bocondhascompetencyfullnotavailable', 'mod_booking', $a) :
                    get_string('bocondhascompetencynotavailable', 'mod_booking', $a);
            } else {
                $description = $full ?
                    get_string('bocondhascompetencyfullnotavailableand', 'mod_booking', $a) :
                    get_string('bocondhascompetencynotavailableand', 'mod_booking', $a);
            }
        }

        return $description;
    }
}
