Proyectos de Subversion Moodle

Rev

| Ultima modificación | Ver Log |

Rev Autor Línea Nro. Línea
1 efrain 1
<?php
2
 
3
///////////////////////////////////////////////////////////////////////////
4
//                                                                       //
5
// NOTICE OF COPYRIGHT                                                   //
6
//                                                                       //
7
// Moodle - Modular Object-Oriented Dynamic Learning Environment         //
8
//          http://moodle.org                                            //
9
//                                                                       //
10
// Copyright (C) 1999 onwards Martin Dougiamas  http://dougiamas.com     //
11
//                                                                       //
12
// This program is free software; you can redistribute it and/or modify  //
13
// it under the terms of the GNU General Public License as published by  //
14
// the Free Software Foundation; either version 2 of the License, or     //
15
// (at your option) any later version.                                   //
16
//                                                                       //
17
// This program is distributed in the hope that it will be useful,       //
18
// but WITHOUT ANY WARRANTY; without even the implied warranty of        //
19
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         //
20
// GNU General Public License for more details:                          //
21
//                                                                       //
22
//          http://www.gnu.org/copyleft/gpl.html                         //
23
//                                                                       //
24
///////////////////////////////////////////////////////////////////////////
25
 
26
/**
27
 * Allow the administrator to look through a list of course requests and approve or reject them.
28
 *
29
 * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
30
 * @package course
31
 */
32
 
33
require_once(__DIR__ . '/../config.php');
34
require_once($CFG->libdir . '/adminlib.php');
35
require_once($CFG->dirroot . '/course/lib.php');
36
require_once($CFG->dirroot . '/course/request_form.php');
37
 
38
$approve = optional_param('approve', 0, PARAM_INT);
39
$reject = optional_param('reject', 0, PARAM_INT);
40
 
41
$baseurl = $CFG->wwwroot . '/course/pending.php';
42
$context = context_system::instance();
43
if (has_capability('moodle/site:approvecourse', $context)) {
44
    // Similar to course management capabilities, if user has approve capability in system context
45
    // we add the link to the admin menu. Otherwise we check if user has capability anywhere.
46
    admin_externalpage_setup('coursespending');
47
} else {
48
    require_login(null, false);
49
    $categories = core_course_category::make_categories_list('moodle/site:approvecourse');
50
    if (!$categories) {
51
        require_capability('moodle/site:approvecourse', $context);
52
    }
53
    $PAGE->set_context($context);
54
    $PAGE->set_url(new moodle_url('/course/pending.php'));
55
}
56
 
57
/// Process approval of a course.
58
if (!empty($approve) and confirm_sesskey()) {
59
    /// Load the request.
60
    $course = new course_request($approve);
61
    $courseid = $course->approve();
62
 
63
    if ($courseid !== false) {
64
        if (has_capability('moodle/course:update', context_course::instance($courseid))) {
65
            redirect(new moodle_url('/course/edit.php', ['id' => $courseid, 'returnto' => 'pending']));
66
        } else {
67
            redirect(new moodle_url('/course/view.php', ['id' => $courseid]));
68
        }
69
    } else {
70
        throw new \moodle_exception('courseapprovedfailed');
71
    }
72
}
73
 
74
/// Process rejection of a course.
75
if (!empty($reject)) {
76
    // Load the request.
77
    $course = new course_request($reject);
78
 
79
    // Prepare the form.
80
    $rejectform = new reject_request_form($baseurl);
81
    $default = new stdClass();
82
    $default->reject = $course->id;
83
    $rejectform->set_data($default);
84
 
85
/// Standard form processing if statement.
86
    if ($rejectform->is_cancelled()){
87
        redirect($baseurl);
88
 
89
    } else if ($data = $rejectform->get_data()) {
90
 
91
        /// Reject the request
92
        $course->reject($data->rejectnotice);
93
 
94
        /// Redirect back to the course listing.
95
        redirect($baseurl, get_string('courserejected'));
96
    }
97
 
98
/// Display the form for giving a reason for rejecting the request.
99
    echo $OUTPUT->header($rejectform->focus());
100
    $rejectform->display();
101
    echo $OUTPUT->footer();
102
    exit;
103
}
104
 
105
/// Print a list of all the pending requests.
106
echo $OUTPUT->header();
107
 
108
$pending = $DB->get_records('course_request');
109
if (empty($pending)) {
110
    echo $OUTPUT->heading(get_string('nopendingcourses'));
111
} else {
112
    echo $OUTPUT->heading(get_string('coursespending'));
113
 
114
    $role = $DB->get_record('role', ['id' => $CFG->creatornewroleid]);
115
    if ($role) {
116
        echo $OUTPUT->notification(get_string('courserequestwarning', 'core', role_get_name($role)), 'notifyproblem');
117
    } else {
118
        $userpoliciesurl = new moodle_url('/admin/settings.php', ['section' => 'userpolicies']);
119
        echo $OUTPUT->notification(get_string('courserequestroleerror', 'core', (string) $userpoliciesurl), 'notifyerror');
120
    }
121
 
122
/// Build a table of all the requests.
123
    $table = new html_table();
124
    $table->attributes['class'] = 'pendingcourserequests generaltable';
125
    $table->align = array('center', 'center', 'center', 'center', 'center', 'center');
126
    $table->head = array(get_string('requestedby'), get_string('shortnamecourse'), get_string('fullnamecourse'),
127
            get_string('summary'), get_string('category'), get_string('requestreason'), get_string('action'));
128
 
129
    foreach ($pending as $course) {
130
        $course = new course_request($course);
131
 
132
        // Check here for shortname collisions and warn about them.
133
        $course->check_shortname_collision();
134
 
135
        if (!$course->can_approve()) {
136
            continue;
137
        }
138
        $category = $course->get_category();
139
 
140
        // Fullname of the user who requested the course (with link to profile if current user can view it).
141
        $requesterfullname = $OUTPUT->user_picture($course->get_requester(), [
142
            'includefullname' => true,
143
            'link' => user_can_view_profile($course->get_requester()),
144
        ]);
145
 
146
        $row = array();
147
        $row[] = $requesterfullname;
148
        $row[] = format_string($course->shortname);
149
        $row[] = format_string($course->fullname);
150
        $row[] = format_text($course->summary, $course->summaryformat);
151
        $row[] = $category->get_formatted_name();
152
        $row[] = format_string($course->reason);
153
        $row[] = $OUTPUT->single_button(new moodle_url($baseurl, array('approve' => $course->id, 'sesskey' => sesskey())), get_string('approve'), 'get') .
154
                 $OUTPUT->single_button(new moodle_url($baseurl, array('reject' => $course->id)), get_string('rejectdots'), 'get');
155
 
156
    /// Add the row to the table.
157
        $table->data[] = $row;
158
    }
159
 
160
/// Display the table.
161
    echo html_writer::table($table);
162
 
163
/// Message about name collisions, if necessary.
164
    if (!empty($collision)) {
165
        print_string('shortnamecollisionwarning');
166
    }
167
}
168
 
169
/// Finish off the page.
170
echo $OUTPUT->single_button($CFG->wwwroot . '/course/index.php', get_string('backtocourselisting'));
171
echo $OUTPUT->footer();