#Gocha#

<?php
/**
 * @package    mod
 * @subpackage videoaula
 */

defined('MOODLE_INTERNAL') || die;

/**
 * List of features supported in videoaula module
 * @param string $feature FEATURE_xx constant for requested feature
 * @return mixed True if module supports feature, false if not, null if doesn't know
 */
function videoaula_supports($feature) {
    switch($feature) {
        case FEATURE_MOD_ARCHETYPE:           return MOD_ARCHETYPE_RESOURCE;
        case FEATURE_GROUPS:                  return false;
        case FEATURE_GROUPINGS:               return false;
        case FEATURE_GROUPMEMBERSONLY:        return true;
        case FEATURE_MOD_INTRO:               return true;
        case FEATURE_COMPLETION_TRACKS_VIEWS: return true;
        case FEATURE_GRADE_HAS_GRADE:         return false;
        case FEATURE_GRADE_OUTCOMES:          return false;
        case FEATURE_BACKUP_MOODLE2:          return true;
        case FEATURE_SHOW_DESCRIPTION:        return true;

default: return null;
    }
}

/**
 * Returns all other caps used in module
 * @return array
 */
function videoaula_get_extra_capabilities() {
    return array('moodle/site:accessallgroups');
}

/**
 * This function is used by the reset_course_userdata function in moodlelib.
 * @param $data the data submitted from the reset course.
 * @return array status array
 */
function videoaula_reset_userdata($data) {
    return array();
}

/**
 * List of view style log actions
 * @return array
 */
function videoaula_get_view_actions() {
    return array('view','view all');
}

/**
 * List of update style log actions
 * @return array
 */
function videoaula_get_post_actions() {
    return array('update', 'add');
}

/**
 * Add videoaula instance.
 * @param stdClass $data
 * @param mod_videoaula_mod_form $mform
 * @return int new videoaula instance id
 */
function videoaula_add_instance($data, $mform = null) {
    global $CFG, $DB;
    require_once("$CFG->libdir/resourcelib.php");

$cmid = $data->coursemodule;

$data->timemodified = time();
    $displayoptions = array();
    if ($data->display == RESOURCELIB_DISPLAY_POPUP) {
        $displayoptions['popupwidth']  = $data->popupwidth;
        $displayoptions['popupheight'] = $data->popupheight;
    }
    $displayoptions['printintro']   = $data->printintro;
    $data->displayoptions = serialize($displayoptions);

if ($mform) {
        $data->content       = $data->page['text'];
        $data->contentformat = $data->page['format'];
    }

$data->id = $DB->insert_record('videoaula', $data);

// we need to use context now, so we need to make sure all needed info is already in db
    $DB->set_field('course_modules', 'instance', $data->id, array('id'=>$cmid));
    $context = context_module::instance($cmid);

if ($mform and !empty($data->page['itemid'])) {
        $draftitemid = $data->page['itemid'];
        $data->content = file_save_draft_area_files($draftitemid, $context->id, 'mod_videoaula', 'content', 0, videoaula_get_editor_options($context), $data->content);
        $DB->update_record('videoaula', $data);
    }

return $data->id;
}

/**
 * Update videoaula instance.
 * @param object $data
 * @param object $mform
 * @return bool true
 */
function videoaula_update_instance($data, $mform) {
    global $CFG, $DB;
    require_once("$CFG->libdir/resourcelib.php");

$cmid        = $data->coursemodule;
    $draftitemid = $data->page['itemid'];

$data->timemodified = time();
    $data->id           = $data->instance;
    $data->revision++;

$displayoptions = array();
    if ($data->display == RESOURCELIB_DISPLAY_POPUP) {
        $displayoptions['popupwidth']  = $data->popupwidth;
        $displayoptions['popupheight'] = $data->popupheight;
    }
    $displayoptions['printintro']   = $data->printintro;
    $data->displayoptions = serialize($displayoptions);

$data->content       = $data->page['text'];
    $data->contentformat = $data->page['format'];

$DB->update_record('videoaula', $data);

$context = context_module::instance($cmid);
    if ($draftitemid) {
        $data->content = file_save_draft_area_files($draftitemid, $context->id, 'mod_videoaula', 'content', 0, videoaula_get_editor_options($context), $data->content);
        $DB->update_record('videoaula', $data);
    }

return true;
}

/**
 * Delete videoaula instance.
 * @param int $id
 * @return bool true
 */
function videoaula_delete_instance($id) {
    global $DB;

if (!$page = $DB->get_record('videoaula', array('id'=>$id))) {
        return false;
    }

// note: all context files are deleted automatically

$DB->delete_records('videoaula', array('id'=>$page->id));

return true;
}

/**
 * Return use outline
 * @param object $course
 * @param object $user
 * @param object $mod
 * @param object $page
 * @return object|null
 */
function videoaula_user_outline($course, $user, $mod, $page) {
    global $DB;

if ($logs = $DB->get_records('log', array('userid'=>$user->id, 'module'=>'videoaula',
                                              'action'=>'view', 'info'=>$page->id), 'time ASC')) {

$numviews = count($logs);
        $lastlog = array_pop($logs);

$result = new stdClass();
        $result->info = get_string('numviews', '', $numviews);
        $result->time = $lastlog->time;

return $result;
    }
    return NULL;
}

/**
 * Return use complete
 * @param object $course
 * @param object $user
 * @param object $mod
 * @param object $page
 */
function videoaula_user_complete($course, $user, $mod, $page) {
    global $CFG, $DB;

if ($logs = $DB->get_records('log', array('userid'=>$user->id, 'module'=>'videoaula',
                                              'action'=>'view', 'info'=>$page->id), 'time ASC')) {
        $numviews = count($logs);
        $lastlog = array_pop($logs);

$strmostrecently = get_string('mostrecently');
        $strnumviews = get_string('numviews', '', $numviews);

echo "$strnumviews - $strmostrecently ".userdate($lastlog->time);

} else {
        print_string('neverseen', 'videoaula');
    }
}

/**
 * Given a course_module object, this function returns any
 * "extra" information that may be needed when printing
 * this activity in a course listing.
 *
 * See {@link get_array_of_activities()} in course/lib.php
 *
 * @param stdClass $coursemodule
 * @return cached_cm_info Info to customise main page display
 */
function videoaula_get_coursemodule_info($coursemodule) {
    global $CFG, $DB;
    require_once("$CFG->libdir/resourcelib.php");

if (!$page = $DB->get_record('videoaula', array('id'=>$coursemodule->instance),
            'id, name, display, displayoptions, intro, introformat')) {
        return NULL;
    }

$info = new cached_cm_info();
    $info->name = $page->name;

if ($coursemodule->showdescription) {
        // Convert intro to html. Do not filter cached version, filters run at display time.
        $info->content = format_module_intro('videoaula', $page, $coursemodule->id, false);
    }

if ($page->display != RESOURCELIB_DISPLAY_POPUP) {
        return $info;
    }

$fullurl = "$CFG->wwwroot/mod/videoaula/view.php?id=$coursemodule->id&amp;inpopup=1";
    $options = empty($page->displayoptions) ? array() : unserialize($page->displayoptions);
    $width  = empty($options['popupwidth'])  ? 620 : $options['popupwidth'];
    $height = empty($options['popupheight']) ? 450 : $options['popupheight'];
    $wh = "width=$width,height=$height,toolbar=no,location=no,menubar=no,copyhistory=no,status=no,directories=no,scrollbars=yes,resizable=yes";
    $info->onclick = "window.open('$fullurl', '', '$wh'); return false;";

return $info;
}

/**
 * Lists all browsable file areas
 *
 * @package  mod_videoaula
 * @category files
 * @param stdClass $course course object
 * @param stdClass $cm course module object
 * @param stdClass $context context object
 * @return array
 */
function videoaula_get_file_areas($course, $cm, $context) {
    $areas = array();
    $areas['content'] = get_string('content', 'videoaula');
    return $areas;
}

/**
 * File browsing support for videoaula module content area.
 *
 * @package  mod_videoaula
 * @category files
 * @param stdClass $browser file browser instance
 * @param stdClass $areas file areas
 * @param stdClass $course course object
 * @param stdClass $cm course module object
 * @param stdClass $context context object
 * @param string $filearea file area
 * @param int $itemid item ID
 * @param string $filepath file path
 * @param string $filename file name
 * @return file_info instance or null if not found
 */
function videoaula_get_file_info($browser, $areas, $course, $cm, $context, $filearea, $itemid, $filepath, $filename) {
    global $CFG;

if (!has_capability('moodle/course:managefiles', $context)) {
        // students can not peak here!
        return null;
    }

$fs = get_file_storage();

if ($filearea === 'content') {
        $filepath = is_null($filepath) ? '/' : $filepath;
        $filename = is_null($filename) ? '.' : $filename;

$urlbase = $CFG->wwwroot.'/pluginfile.php';
        if (!$storedfile = $fs->get_file($context->id, 'mod_videoaula', 'content', 0, $filepath, $filename)) {
            if ($filepath === '/' and $filename === '.') {
                $storedfile = new virtual_root_file($context->id, 'mod_videoaula', 'content', 0);
            } else {
                // not found
                return null;
            }
        }
        require_once("$CFG->dirroot/mod/videoaula/locallib.php");
        return new videoaula_content_file_info($browser, $context, $storedfile, $urlbase, $areas[$filearea], true, true, true, false);
    }

// note: videoaula_intro handled in file_browser automatically

return null;
}

/**
 * Serves the videoaula files.
 *
 * @package  mod_videoaula
 * @category files
 * @param stdClass $course course object
 * @param stdClass $cm course module object
 * @param stdClass $context context object
 * @param string $filearea file area
 * @param array $args extra arguments
 * @param bool $forcedownload whether or not force download
 * @param array $options additional options affecting the file serving
 * @return bool false if file not found, does not return if found - just send the file
 */
function videoaula_pluginfile($course, $cm, $context, $filearea, $args, $forcedownload, array $options=array()) {
    global $CFG, $DB;
    require_once("$CFG->libdir/resourcelib.php");

if ($context->contextlevel != CONTEXT_MODULE) {
        return false;
    }

require_course_login($course, true, $cm);
    if (!has_capability('mod/videoaula:view', $context)) {
        return false;
    }

if ($filearea !== 'content') {
        // intro is handled automatically in pluginfile.php
        return false;
    }

// $arg could be revision number or index.html
    $arg = array_shift($args);
    if ($arg == 'index.html' || $arg == 'index.htm') {
        // serve videoaula content
        $filename = $arg;

if (!$page = $DB->get_record('videoaula', array('id'=>$cm->instance), '*', MUST_EXIST)) {
            return false;
        }

// remove @@PLUGINFILE@@/
        $content = str_replace('@@PLUGINFILE@@/', '', $page->content);

$formatoptions = new stdClass;
        $formatoptions->noclean = true;
        $formatoptions->overflowdiv = true;
        $formatoptions->context = $context;
        $content = format_text($content, $page->contentformat, $formatoptions);

send_file($content, $filename, 0, 0, true, true);
    } else {
        $fs = get_file_storage();
        $relativepath = implode('/', $args);
        $fullpath = "/$context->id/mod_videoaula/$filearea/0/$relativepath";
        if (!$file = $fs->get_file_by_hash(sha1($fullpath)) or $file->is_directory()) {
            $page = $DB->get_record('videoaula', array('id'=>$cm->instance), 'id, legacyfiles', MUST_EXIST);
            if ($page->legacyfiles != RESOURCELIB_LEGACYFILES_ACTIVE) {
                return false;
            }
            if (!$file = resourcelib_try_file_migration('/'.$relativepath, $cm->id, $cm->course, 'mod_videoaula', 'content', 0)) {
                return false;
            }
            //file migrate - update flag
            $page->legacyfileslast = time();
            $DB->update_record('videoaula', $page);
        }

// finally send the file
        send_stored_file($file, null, 0, $forcedownload, $options);
    }
}

/**
 * Return a list of videoaula types
 * @param string $pagetype current page type
 * @param stdClass $parentcontext Block's parent context
 * @param stdClass $currentcontext Current context of block
 */
function videoaula_page_type_list($pagetype, $parentcontext, $currentcontext) {
    $module_pagetype = array('mod-videoaula-*'=>get_string('page-mod-videoaula-x', 'videoaula'));
    return $module_pagetype;
}

/**
 * Export videoaula resource contents
 *
 * @return array of file content
 */
function videoaula_export_contents($cm, $baseurl) {
    global $CFG, $DB;
    $contents = array();
    $context = context_module::instance($cm->id);

$page = $DB->get_record('videoaula', array('id'=>$cm->instance), '*', MUST_EXIST);

// videoaula contents
    $fs = get_file_storage();
    $files = $fs->get_area_files($context->id, 'mod_videoaula', 'content', 0, 'sortorder DESC, id ASC', false);
    foreach ($files as $fileinfo) {
        $file = array();
        $file['type']         = 'file';
        $file['filename']     = $fileinfo->get_filename();
        $file['filepath']     = $fileinfo->get_filepath();
        $file['filesize']     = $fileinfo->get_filesize();
        $file['fileurl']      = file_encode_url("$CFG->wwwroot/" . $baseurl, '/'.$context->id.'/mod_videoaula/content/'.$page->revision.$fileinfo->get_filepath().$fileinfo->get_filename(), true);
        $file['timecreated']  = $fileinfo->get_timecreated();
        $file['timemodified'] = $fileinfo->get_timemodified();
        $file['sortorder']    = $fileinfo->get_sortorder();
        $file['userid']       = $fileinfo->get_userid();
        $file['author']       = $fileinfo->get_author();
        $file['license']      = $fileinfo->get_license();
        $contents[] = $file;
    }

// videoaula html content
    $filename = 'index.html';
    $pagefile = array();
    $pagefile['type']         = 'file';
    $pagefile['filename']     = $filename;
    $pagefile['filepath']     = '/';
    $pagefile['filesize']     = 0;
    $pagefile['fileurl']      = file_encode_url("$CFG->wwwroot/" . $baseurl, '/'.$context->id.'/mod_videoaula/content/' . $filename, true);
    $pagefile['timecreated']  = null;
    $pagefile['timemodified'] = $page->timemodified;
    // make this file as main file
    $pagefile['sortorder']    = 1;
    $pagefile['userid']       = null;
    $pagefile['author']       = null;
    $pagefile['license']      = null;
    $contents[] = $pagefile;

return $contents;
}

/**
 * Register the ability to handle drag and drop file uploads
 * @return array containing details of the files / types the mod can handle
 */
function videoaula_dndupload_register() {
    return array('types' => array(
                     array('identifier' => 'text/html', 'message' => get_string('createpage', 'videoaula')),
                     array('identifier' => 'text', 'message' => get_string('createpage', 'videoaula'))
                 ));
}

/**
 * Handle a file that has been uploaded
 * @param object $uploadinfo details of the file / content that has been uploaded
 * @return int instance id of the newly created mod
 */
function videoaula_dndupload_handle($uploadinfo) {
    // Gather the required info.
    $data = new stdClass();
    $data->course = $uploadinfo->course->id;
    $data->name = $uploadinfo->displayname;
    $data->intro = '<p>'.$uploadinfo->displayname.'</p>';
    $data->introformat = FORMAT_HTML;
    if ($uploadinfo->type == 'text/html') {
        $data->contentformat = FORMAT_HTML;
        $data->content = clean_param($uploadinfo->content, PARAM_CLEANHTML);
    } else {
        $data->contentformat = FORMAT_PLAIN;
        $data->content = clean_param($uploadinfo->content, PARAM_TEXT);
    }
    $data->coursemodule = $uploadinfo->coursemodule;

// Set the display options to the site defaults.
    $config = get_config('videoaula');
    $data->display = $config->display;
    $data->popupheight = $config->popupheight;
    $data->popupwidth = $config->popupwidth;
    $data->printintro = $config->printintro;

return videoaula_add_instance($data, null);
}

/**
 * Gets a full choice record
 *
 * @param int $videoaulaid
 * @return object|bool The choice or false
 */
function videoaula_get_videoaula($videoaulaid) {
    global $DB;
    return $DB->get_record("videoaula", array("id" => $videoaulaid));
}

/**
 * @global object
 * @global object
 * @global object
 * @uses CONTEXT_MODULE
 * @param object $choice
 * @param object $cm
 * @param int $groupmode
 * @return array
 */
function videoaula_get_response_data($videoaula, $cm, $groupmode) {
    global $CFG, $USER, $DB;

$context = context_module::instance($cm->id);

/// Get the current group
    if ($groupmode > 0) {
        $currentgroup = groups_get_activity_group($cm);
    } else {
        $currentgroup = 0;
    }

/// Initialise the returned array, which is a matrix:  $allresponses[responseid][userid] = responseobject
    $allresponses = array();

/// First get all the users who have access here
/// To start with we assume they are all "unanswered" then move them later
    $allresponses[0] = get_enrolled_users($context, 'mod/videoaula:view', $currentgroup, user_picture::fields('u', array('idnumber')));

/// Get all the recorded responses for this videoaula
    $rawresponses = $DB->get_records('videoaula_checkpoint', array('videoaulaid' => $videoaula->id));

/// Use the responses to move users into the correct column

if ($rawresponses) {
        foreach ($rawresponses as $response) {
            if (isset($allresponses[0][$response->userid])) {   // This person is enrolled and in correct group
                $allresponses[0][$response->userid]->timemodified = $response->timemodified;
                $allresponses[$response->checkpoint][$response->userid] = clone($allresponses[0][$response->userid]);
                unset($allresponses[0][$response->userid]);   // Remove from unanswered column
            }
        }
    }
    return $allresponses;
}