[Summary view]

   1  <?php
   2  // This file is part of Moodle - http://moodle.org/
   3  //
   4  // Moodle is free software: you can redistribute it and/or modify
   5  // it under the terms of the GNU General Public License as published by
   6  // the Free Software Foundation, either version 3 of the License, or
   7  // (at your option) any later version.
   8  //
   9  // Moodle is distributed in the hope that it will be useful,
  10  // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  // GNU General Public License for more details.
  13  //
  14  // You should have received a copy of the GNU General Public License
  15  // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
  16  
  17  /**
  18   * Create model form.
  19   *
  20   * @package    tool_analytics
  21   * @copyright  2019 David Monllao {@link http://www.davidmonllao.com}
  22   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  23   */
  24  
  25  require_once(__DIR__ . '/../../../config.php');
  26  
  27  require_login();
  28  \core_analytics\manager::check_can_manage_models();
  29  
  30  if (!\core_analytics\manager::is_analytics_enabled()) {
  31      $PAGE->set_context(\context_system::instance());
  32      $renderer = $PAGE->get_renderer('tool_analytics');
  33      echo $renderer->render_analytics_disabled();
  34      exit(0);
  35  }
  36  
  37  $returnurl = new \moodle_url('/admin/tool/analytics/index.php');
  38  $url = new \moodle_url('/admin/tool/analytics/createmodel.php');
  39  $title = get_string('createmodel', 'tool_analytics');
  40  
  41  \tool_analytics\output\helper::set_navbar($title, $url);
  42  
  43  // Static targets are not editable, we discard them.
  44  $targets = array_filter(\core_analytics\manager::get_all_targets(), function($target) {
  45      return (!$target->based_on_assumptions());
  46  });
  47  
  48  // Set 'supportscontexts' to true as at this stage we don't know if the contexts are supported by
  49  // the selected target.
  50  $customdata = array(
  51      'trainedmodel' => false,
  52      'staticmodel' => false,
  53      'targets' => $targets,
  54      'indicators' => \core_analytics\manager::get_all_indicators(),
  55      'timesplittings' => \core_analytics\manager::get_all_time_splittings(),
  56      'predictionprocessors' => \core_analytics\manager::get_all_prediction_processors(),
  57      'supportscontexts' => true,
  58  );
  59  $mform = new \tool_analytics\output\form\edit_model(null, $customdata);
  60  
  61  if ($mform->is_cancelled()) {
  62      redirect($returnurl);
  63  
  64  } else if ($data = $mform->get_data()) {
  65  
  66      // Converting option names to class names.
  67      $targetclass = \tool_analytics\output\helper::option_to_class($data->target);
  68      if (empty($targets[$targetclass])) {
  69          throw new \moodle_exception('errorinvalidtarget', 'analytics', '', $targetclass);
  70      }
  71      $target = $targets[$targetclass];
  72  
  73      $indicators = array();
  74      foreach ($data->indicators as $indicator) {
  75          $indicatorinstance = \core_analytics\manager::get_indicator(
  76              \tool_analytics\output\helper::option_to_class($indicator)
  77          );
  78          $indicators[$indicatorinstance->get_id()] = $indicatorinstance;
  79      }
  80      $timesplitting = \tool_analytics\output\helper::option_to_class($data->timesplitting);
  81      $predictionsprocessor = \tool_analytics\output\helper::option_to_class($data->predictionsprocessor);
  82  
  83      // Insert the model into db.
  84      $model = \core_analytics\model::create($target, []);
  85  
  86      // Filter out indicators that can not be used by this target.
  87      $invalidindicators = array_diff_key($indicators, $model->get_potential_indicators());
  88      if ($invalidindicators) {
  89          $indicators = array_diff_key($indicators, $invalidindicators);
  90      }
  91  
  92      // Update the model with the rest of the data provided in the form.
  93      $model->update($data->enabled, $indicators, $timesplitting, $predictionsprocessor, $data->contexts);
  94  
  95      $message = '';
  96      $messagetype = \core\output\notification::NOTIFY_SUCCESS;
  97      if (!empty($invalidindicators)) {
  98          $message = get_string('invalidindicatorsremoved', 'tool_analytics');
  99      }
 100      redirect($returnurl, $message, 0, $messagetype);
 101  }
 102  
 103  echo $OUTPUT->header();
 104  $mform->display();
 105  echo $OUTPUT->footer();