Renaming global functions to include lti prefix

[moodle.git] / mod / lti / typessettings.php

<?php\r
// This file is part of BasicLTI4Moodle\r
//\r
// BasicLTI4Moodle is an IMS BasicLTI (Basic Learning Tools for Interoperability)\r
// consumer for Moodle 1.9 and Moodle 2.0. BasicLTI is a IMS Standard that allows web\r
// based learning tools to be easily integrated in LMS as native ones. The IMS BasicLTI\r
// specification is part of the IMS standard Common Cartridge 1.1 Sakai and other main LMS\r
// are already supporting or going to support BasicLTI. This project Implements the consumer\r
// for Moodle. Moodle is a Free Open source Learning Management System by Martin Dougiamas.\r
// BasicLTI4Moodle is a project iniciated and leaded by Ludo(Marc Alier) and Jordi Piguillem\r
// at the GESSI research group at UPC.\r
// SimpleLTI consumer for Moodle is an implementation of the early specification of LTI\r
// by Charles Severance (Dr Chuck) htp://dr-chuck.com , developed by Jordi Piguillem in a\r
// Google Summer of Code 2008 project co-mentored by Charles Severance and Marc Alier.\r
//\r
// BasicLTI4Moodle is copyright 2009 by Marc Alier Forment, Jordi Piguillem and Nikolas Galanis\r
// of the Universitat Politecnica de Catalunya http://www.upc.edu\r
// Contact info: Marc Alier Forment granludo @ gmail.com or marc.alier @ upc.edu\r
//\r
// Moodle is free software: you can redistribute it and/or modify\r
// it under the terms of the GNU General Public License as published by\r
// the Free Software Foundation, either version 3 of the License, or\r
// (at your option) any later version.\r
//\r
// Moodle is distributed in the hope that it will be useful,\r
// but WITHOUT ANY WARRANTY; without even the implied warranty of\r
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
// GNU General Public License for more details.\r
//\r
// You should have received a copy of the GNU General Public License\r
// along with Moodle. If not, see <http://www.gnu.org/licenses/>.\r
\r
/**\r
 * This file contains the script used to clone Moodle admin setting page.\r
 * It is used to create a new form used to pre-configure basiclti\r
 * activities\r
 *\r
 * @package lti\r
 * @copyright 2009 Marc Alier, Jordi Piguillem, Nikolas Galanis\r
 *  marc.alier@upc.edu\r
 * @copyright 2009 Universitat Politecnica de Catalunya http://www.upc.edu\r
 *\r
 * @author Marc Alier\r
 * @author Jordi Piguillem\r
 * @author Nikolas Galanis\r
 *\r
 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later\r
 */\r
\r
require_once('../../config.php');\r
require_once($CFG->libdir.'/adminlib.php');\r
require_once($CFG->dirroot.'/mod/lti/edit_form.php');\r
require_once($CFG->dirroot.'/mod/lti/locallib.php');\r
\r
$section      = 'modsettinglti';\r
$return       = optional_param('return', '', PARAM_ALPHA);\r
$adminediting = optional_param('adminedit', -1, PARAM_BOOL);\r
$action       = optional_param('action', null, PARAM_TEXT);\r
$id           = optional_param('id', null, PARAM_INT);\r
$useexisting  = optional_param('useexisting', null, PARAM_INT);\r
$definenew    = optional_param('definenew', null, PARAM_INT);\r
\r
/// no guest autologin\r
require_login(0, false);\r
$url = new moodle_url('/mod/lti/typesettings.php');\r
$PAGE->set_url($url);\r
\r
admin_externalpage_setup('managemodules'); // Hacky solution for printing the admin page\r
\r
$tab = optional_param('tab', '', PARAM_ALPHAEXT);\r
$redirect = "$CFG->wwwroot/$CFG->admin/settings.php?section=modsettinglti&tab={$tab}";\r
\r
/// WRITING SUBMITTED DATA (IF ANY) -------------------------------------------------------------------------------\r
\r
$statusmsg = '';\r
$errormsg  = '';\r
$focus = '';\r
\r
$data = data_submitted();\r
\r
if (confirm_sesskey() && isset($data->submitbutton)) {\r
    $type = new StdClass();\r
    \r
    if (isset($id)) {\r
        $type->id = $id;\r
\r
        lti_update_type($type, $data);\r
        \r
        redirect($redirect);\r
        die;\r
    } else {\r
        $type->state = LTI_TOOL_STATE_CONFIGURED;\r
       \r
        lti_add_type($type, $data);\r
        \r
        redirect($redirect);\r
        die;\r
    }\r
} else if(isset($data->cancel)){\r
    redirect($redirect);\r
    die;\r
}\r
\r
if ($action == 'accept') {\r
    lti_set_state_for_type($id, LTI_TOOL_STATE_CONFIGURED);\r
    redirect($redirect);\r
    die;\r
}\r
\r
if ($action == 'reject') {\r
    lti_set_state_for_type($id, LTI_TOOL_STATE_REJECTED);\r
    redirect($redirect);\r
    die;\r
}\r
\r
if ($action == 'delete') {\r
    lti_delete_type($id);\r
    redirect($redirect);\r
    die;\r
}\r
\r
/// print header stuff ------------------------------------------------------------\r
$PAGE->set_focuscontrol($focus);\r
if (empty($SITE->fullname)) {\r
    $PAGE->set_title($settingspage->visiblename);\r
    $PAGE->set_heading($settingspage->visiblename);\r
\r
    $PAGE->navbar->add('Basic LTI Administration', $CFG->wwwroot.'/admin/settings.php?section=modsettinglti');\r
\r
    echo $OUTPUT->header();\r
\r
    echo $OUTPUT->box(get_string('configintrosite', 'admin'));\r
\r
    if ($errormsg !== '') {\r
        echo $OUTPUT->notification($errormsg);\r
\r
    } else if ($statusmsg !== '') {\r
        echo $OUTPUT->notification($statusmsg, 'notifysuccess');\r
    }\r
\r
    // ---------------------------------------------------------------------------------------------------------------\r
\r
    echo '<form action="typesettings.php" method="post" id="'.$id.'" >';\r
    echo '<div class="settingsform clearfix">';\r
    echo html_writer::input_hidden_params($PAGE->url);\r
    echo '<input type="hidden" name="sesskey" value="'.sesskey().'" />';\r
    echo '<input type="hidden" name="return" value="'.$return.'" />';\r
\r
    echo $settingspage->output_html();\r
\r
    echo '<div class="form-buttons"><input class="form-submit" type="submit" value="'.get_string('savechanges', 'admin').'" /></div>';\r
\r
    echo '</div>';\r
    echo '</form>';\r
\r
} else {\r
    if ($PAGE->user_allowed_editing()) {\r
        $url = clone($PAGE->url);\r
        if ($PAGE->user_is_editing()) {\r
            $caption = get_string('blockseditoff');\r
            $url->param('adminedit', 'off');\r
        } else {\r
            $caption = get_string('blocksediton');\r
            $url->param('adminedit', 'on');\r
        }\r
        $buttons = $OUTPUT->single_button($url, $caption, 'get');\r
    }\r
\r
    $PAGE->set_title("$SITE->shortname: " . get_string('toolsetup', 'lti'));\r
\r
    $PAGE->navbar->add('Basic LTI Administration', $CFG->wwwroot.'/admin/settings.php?section=modsettinglti');\r
\r
    echo $OUTPUT->header();\r
\r
    if ($errormsg !== '') {\r
        echo $OUTPUT->notification($errormsg);\r
\r
    } else if ($statusmsg !== '') {\r
        echo $OUTPUT->notification($statusmsg, 'notifysuccess');\r
    }\r
\r
    // ---------------------------------------------------------------------------------------------------------------\r
    echo $OUTPUT->heading(get_string('toolsetup', 'lti'));\r
    echo $OUTPUT->box_start('generalbox');\r
    if ($action == 'add') {\r
        $form = new mod_lti_edit_types_form();\r
        $form->display();\r
    } else if ($action == 'update') {\r
        $form = new mod_lti_edit_types_form('typessettings.php?id='.$id);\r
        $type = lti_get_type_type_config($id);\r
        $form->set_data($type);\r
        $form->display();\r
    }\r
\r
    echo $OUTPUT->box_end();\r
}\r
\r
echo $OUTPUT->footer();\r