MDL-50015 mod_imscp: New WS mod_imscp_view_imscp
[moodle.git] / mod / scorm / grade.php
CommitLineData
e0ad0e73 1<?php
f7b5c6aa
DM
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/>.
e0ad0e73 16
a153c9f2
AD
17/**
18 * Redirect the user based on their capabilities to either a scorm activity or to scorm reports
19 *
20 * @package mod_scorm
21 * @category grade
22 * @copyright 2010 onwards Dan Marsden
23 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
24 */
25
f7b5c6aa 26require_once("../../config.php");
e0ad0e73 27
4cb25b36 28$id = required_param('id', PARAM_INT); // Course module ID.
e0ad0e73 29
f7b5c6aa
DM
30if (! $cm = get_coursemodule_from_id('scorm', $id)) {
31 print_error('invalidcoursemodule');
32}
e0ad0e73 33
27b8872c 34if (! $scorm = $DB->get_record('scorm', array('id' => $cm->instance))) {
f7b5c6aa
DM
35 print_error('invalidcoursemodule');
36}
e0ad0e73 37
27b8872c 38if (! $course = $DB->get_record('course', array('id' => $scorm->course))) {
f7b5c6aa
DM
39 print_error('coursemisconf');
40}
e0ad0e73 41
cdbea7ee 42require_login($course, false, $cm);
e0ad0e73 43
a3fc4b3a 44if (has_capability('mod/scorm:viewreport', context_module::instance($cm->id))) {
f7b5c6aa
DM
45 redirect('report.php?id='.$cm->id);
46} else {
47 redirect('view.php?id='.$cm->id);
48}