<?php

// This script uses installed report plugins to print quiz reports

require_once("../../config.php");
require_once($CFG->libdir.'/tablelib.php');
require_once($CFG->dirroot.'/mod/scorm/locallib.php');
require_once($CFG->dirroot.'/mod/scorm/reportsettings_form.php');
require_once($CFG->libdir.'/formslib.php');
define('SCORM_REPORT_DEFAULT_PAGE_SIZE', 20);
define('SCORM_REPORT_ATTEMPTS_ALL_STUDENTS', 0);
define('SCORM_REPORT_ATTEMPTS_STUDENTS_WITH', 1);
define('SCORM_REPORT_ATTEMPTS_STUDENTS_WITH_NO', 2);

$id = required_param('id', PARAM_INT);// Course Module ID, or

$action = optional_param('action', '', PARAM_ALPHA);
$attemptids = optional_param('attemptid', array(), PARAM_RAW);
$download = optional_param('download', '', PARAM_RAW);

$url = new moodle_url('/mod/scorm/report.php');

if ($action !== '') {
    $url->param('action', $action);
}

$url->param('id', $id);
$cm = get_coursemodule_from_id('scorm', $id, 0, false, MUST_EXIST);
$course = $DB->get_record('course', array('id'=>$cm->course), '*', MUST_EXIST);
$scorm = $DB->get_record('scorm', array('id'=>$cm->instance), '*', MUST_EXIST);

$PAGE->set_url($url);

require_login($course->id, false, $cm);

$contextmodule = get_context_instance(CONTEXT_MODULE, $cm->id);

require_capability('mod/scorm:viewreport', $contextmodule);

add_to_log($course->id, 'scorm', 'report', 'report.php?id='.$cm->id, $scorm->id, $cm->id);
$userdata = null;
if (!empty($download)) {
    $noheader = true;
}
/// Print the page header
if (empty($noheader)) {

    $strreport  = get_string('report', 'scorm');
    $strattempt  = get_string('attempt', 'scorm');

    $PAGE->set_title("$course->shortname: ".format_string($scorm->name));
    $PAGE->set_heading($course->fullname);
    $PAGE->navbar->add($strreport, new moodle_url('/mod/scorm/report.php', array('id'=>$cm->id)));

    echo $OUTPUT->header();
    $currenttab = 'reports';
    require($CFG->dirroot . '/mod/scorm/tabs.php');
    echo $OUTPUT->heading(format_string($scorm->name));
}

if ($action == 'delete' && has_capability('mod/scorm:deleteresponses', $contextmodule) && confirm_sesskey()) {
    if (scorm_delete_responses($attemptids, $scorm)) { //delete responses.
        add_to_log($course->id, 'scorm', 'delete attempts', 'report.php?id=' . $cm->id, implode(",", $attemptids), $cm->id);
        echo $OUTPUT->notification(get_string('scormresponsedeleted', 'scorm'), 'notifysuccess');
    }
}


            // No options, show the global scorm report
$pageoptions = array();
$pageoptions['id'] = $cm->id;
$reporturl = new moodle_url($CFG->wwwroot.'/mod/scorm/report.php', $pageoptions);

// find out current groups mode
$currentgroup = groups_get_activity_group($cm, true);

// detailed report
$mform = new mod_scorm_report_settings( $reporturl, compact('currentgroup') );
if ($fromform = $mform->get_data()) {
    $detailedrep = $fromform->detailedrep;
    $pagesize = $fromform->pagesize;
    $attemptsmode = $fromform->attemptsmode;
    set_user_preference('scorm_report_detailed', $detailedrep);
    set_user_preference('scorm_report_pagesize', $pagesize);
} else {
    $detailedrep = get_user_preferences('scorm_report_detailed', false);
    $pagesize = get_user_preferences('scorm_report_pagesize', 0);
    $attemptsmode = optional_param('attemptsmode', SCORM_REPORT_ATTEMPTS_STUDENTS_WITH, PARAM_INT);
}
if ($pagesize < 1) {
    $pagesize = SCORM_REPORT_DEFAULT_PAGE_SIZE;
}

// select group menu
$displayoptions = array();
$displayoptions['id'] = $cm->id;
$displayoptions['attemptsmode'] = $attemptsmode;
$reporturlwithdisplayoptions = new moodle_url($CFG->wwwroot.'/mod/scorm/report.php', $displayoptions);

if ($groupmode = groups_get_activity_groupmode($cm)) {   // Groups are being used
    if (!$download) {
        groups_print_activity_menu($cm, $reporturlwithdisplayoptions->out());
    }
}

// We only want to show the checkbox to delete attempts
// if the user has permissions and if the report mode is showing attempts.
$candelete = has_capability('mod/scorm:deleteresponses', $contextmodule)
        && ($attemptsmode!= SCORM_REPORT_ATTEMPTS_STUDENTS_WITH_NO);
// select the students
$nostudents = false;

if (empty($currentgroup)) {
    // all users who can attempt scoes
    if (!$students = get_users_by_capability($contextmodule, 'mod/scorm:savetrack', '', '', '', '', '', '', false)) {
        echo $OUTPUT->notification(get_string('nostudentsyet'));
        $nostudents = true;
        $allowedlist = '';
    } else {
        $allowedlist = join(',', array_keys($students));
    }
} else {
    // all users who can attempt scoes and who are in the currently selected group
    if (!$groupstudents = get_users_by_capability($contextmodule, 'mod/scorm:savetrack', '', '', '', '', $currentgroup, '', false)) {
        echo $OUTPUT->notification(get_string('nostudentsingroup'));
        $nostudents = true;
        $groupstudents = array();
    }
    $allowedlist = join(',', array_keys($groupstudents));
}

if ( !$nostudents ) {

    // Now check if asked download of data
    if ($download) {
        $filename = clean_filename("$course->shortname ".format_string($scorm->name, true));
    }

    // Define table columns
    $columns = array();
    $headers = array();
    if (!$download && $candelete) {
        $columns[]= 'checkbox';
        $headers[]= NULL;
    }
    if (!$download && $CFG->grade_report_showuserimage) {
        $columns[]= 'picture';
        $headers[]= '';
    }
    $columns[]= 'fullname';
    $headers[]= get_string('name');
    if ($CFG->grade_report_showuseridnumber) {
        $columns[]= 'idnumber';
        $headers[]= get_string('idnumber');
    }
    $columns[]= 'attempt';
    $headers[]= get_string('attempt', 'scorm');
    $columns[]= 'start';
    $headers[]= get_string('started', 'scorm');
    $columns[]= 'finish';
    $headers[]= get_string('last', 'scorm');
    $columns[]= 'score';
    $headers[]= get_string('score', 'scorm');
    if ($detailedrep && $scoes = $DB->get_records('scorm_scoes', array("scorm"=>$scorm->id), 'id')) {
        foreach ($scoes as $sco) {
            if ($sco->launch!='') {
                $columns[]= 'scograde'.$sco->id;
                $headers[]= format_string($sco->title);
                $table->head[]= format_string($sco->title);
            }
        }
    } else {
        $scoes = NULL;
    }

    if (!$download) {
        $table = new flexible_table('mod-scorm-report');

        $table->define_columns($columns);
        $table->define_headers($headers);
        $table->define_baseurl($reporturlwithdisplayoptions->out());

        $table->sortable(true);
        $table->collapsible(true);

        $table->column_suppress('picture');
        $table->column_suppress('fullname');
        $table->column_suppress('idnumber');

        $table->no_sorting('start');
        $table->no_sorting('finish');
        $table->no_sorting('score');
        if ( $scoes ) {
            foreach ($scoes as $sco) {
                if ($sco->launch!='') {
                    $table->no_sorting('scograde'.$sco->id);
                }
            }
        }

        $table->column_class('picture', 'picture');
        $table->column_class('fullname', 'bold');
        $table->column_class('score', 'bold');

        $table->set_attribute('cellspacing', '0');
        $table->set_attribute('id', 'attempts');
        $table->set_attribute('class', 'generaltable generalbox');

        // Start working -- this is necessary as soon as the niceties are over
        $table->setup();
    } else if ($download =='ODS') {
        require_once("$CFG->libdir/odslib.class.php");

        $filename .= ".ods";
        // Creating a workbook
        $workbook = new MoodleODSWorkbook("-");
        // Sending HTTP headers
        $workbook->send($filename);
        // Creating the first worksheet
        $sheettitle = get_string('report', 'scorm');
        $myxls =& $workbook->add_worksheet($sheettitle);
        // format types
        $format =& $workbook->add_format();
        $format->set_bold(0);
        $formatbc =& $workbook->add_format();
        $formatbc->set_bold(1);
        $formatbc->set_align('center');
        $formatb =& $workbook->add_format();
        $formatb->set_bold(1);
        $formaty =& $workbook->add_format();
        $formaty->set_bg_color('yellow');
        $formatc =& $workbook->add_format();
        $formatc->set_align('center');
        $formatr =& $workbook->add_format();
        $formatr->set_bold(1);
        $formatr->set_color('red');
        $formatr->set_align('center');
        $formatg =& $workbook->add_format();
        $formatg->set_bold(1);
        $formatg->set_color('green');
        $formatg->set_align('center');
        // Here starts workshhet headers

        $colnum = 0;
        foreach ($headers as $item) {
            $myxls->write(0, $colnum, $item, $formatbc);
            $colnum++;
        }
        $rownum=1;
    } else if ($download =='Excel') {
        require_once("$CFG->libdir/excellib.class.php");

        $filename .= ".xls";
        // Creating a workbook
        $workbook = new MoodleExcelWorkbook("-");
        // Sending HTTP headers
        $workbook->send($filename);
        // Creating the first worksheet
        $sheettitle = get_string('report', 'scorm');
        $myxls =& $workbook->add_worksheet($sheettitle);
        // format types
        $format =& $workbook->add_format();
        $format->set_bold(0);
        $formatbc =& $workbook->add_format();
        $formatbc->set_bold(1);
        $formatbc->set_align('center');
        $formatb =& $workbook->add_format();
        $formatb->set_bold(1);
        $formaty =& $workbook->add_format();
        $formaty->set_bg_color('yellow');
        $formatc =& $workbook->add_format();
        $formatc->set_align('center');
        $formatr =& $workbook->add_format();
        $formatr->set_bold(1);
        $formatr->set_color('red');
        $formatr->set_align('center');
        $formatg =& $workbook->add_format();
        $formatg->set_bold(1);
        $formatg->set_color('green');
        $formatg->set_align('center');

        $colnum = 0;
        foreach ($headers as $item) {
            $myxls->write(0, $colnum, $item, $formatbc);
            $colnum++;
        }
        $rownum=1;
    } else if ($download=='CSV') {
        $filename .= ".txt";
        header("Content-Type: application/download\n");
        header("Content-Disposition: attachment; filename=\"$filename\"");
        header("Expires: 0");
        header("Cache-Control: must-revalidate,post-check=0,pre-check=0");
        header("Pragma: public");
        echo implode("\t", $headers)." \n";
    }

                    // Construct the SQL
    $select = 'SELECT DISTINCT '.$DB->sql_concat('u.id', '\'#\'', 'COALESCE(st.attempt, 0)').' AS uniqueid, ';
    $select .= 'st.scormid AS scormid, st.attempt AS attempt, ' .
            'u.id AS userid, u.idnumber, u.firstname, u.lastname, u.picture, u.imagealt, u.email ';

    // This part is the same for all cases - join users and scorm_scoes_track tables
    $from = 'FROM {user} u ';
    $from .= 'LEFT JOIN {scorm_scoes_track} st ON st.userid = u.id AND st.scormid = '.$scorm->id;
    switch ($attemptsmode) {
        case SCORM_REPORT_ATTEMPTS_STUDENTS_WITH:
            // Show only students with attempts
            $where = ' WHERE u.id IN (' .$allowedlist. ') AND st.userid IS NOT NULL';
            break;
        case SCORM_REPORT_ATTEMPTS_STUDENTS_WITH_NO:
            // Show only students without attempts
            $where = ' WHERE u.id IN (' .$allowedlist. ') AND st.userid IS NULL';
            break;
        case SCORM_REPORT_ATTEMPTS_ALL_STUDENTS:
            // Show all students with or without attempts
            $where = ' WHERE u.id IN (' .$allowedlist. ') AND (st.userid IS NOT NULL OR st.userid IS NULL)';
            break;
    }

    $countsql = 'SELECT COUNT(DISTINCT('.$DB->sql_concat('u.id', '\'#\'', 'COALESCE(st.attempt, 0)').')) AS nbresults, ';
    $countsql .= 'COUNT(DISTINCT('.$DB->sql_concat('u.id', '\'#\'', 'st.attempt').')) AS nbattempts, ';
    $countsql .= 'COUNT(DISTINCT(u.id)) AS nbusers ';
    $countsql .= $from.$where;
    $params = array();

    if (!$download) {
        $sort = $table->get_sql_sort();
    }
    else {
        $sort = '';
    }
    // Fix some wired sorting
    if (empty($sort)) {
        $sort = ' ORDER BY uniqueid';
    } else {
        $sort = ' ORDER BY '.$sort;
    }

    if (!$download) {
        // Add extra limits due to initials bar
        list($twhere, $tparams) = $table->get_sql_where();
        if ($twhere) {
            $where .= ' AND '.$twhere; //initial bar
            $params = array_merge($params, $tparams);
        }

        if (!empty($countsql)) {
            $count = $DB->get_record_sql($countsql);
            $totalinitials = $count->nbresults;
            if ($twhere) {
$countsql .= ' AND '.$twhere;
            }
            $count = $DB->get_record_sql($countsql, $params);
            $total  = $count->nbresults;
        }

        $table->pagesize($pagesize, $total);

        echo '<div class="quizattemptcounts">';
        if ( $count->nbresults == $count->nbattempts ) {
            echo get_string('reportcountattempts', 'scorm', $count);
        } else if ( $count->nbattempts>0 ) {
            echo get_string('reportcountallattempts', 'scorm', $count);
        } else {
            echo $count->nbusers.' '.get_string('users');
        }
        echo '</div>';
    }

    // Fetch the attempts
    if (!$download) {
        $attempts = $DB->get_records_sql($select.$from.$where.$sort, $params,
        $table->get_page_start(), $table->get_page_size());
        echo '<div id="scormtablecontainer">';
        if ($candelete) {
            // Start form
            $strreallydel  = addslashes_js(get_string('deleteattemptcheck', 'scorm'));
            echo '<form id="attemptsform" method="post" action="' . $reporturlwithdisplayoptions->out(true) .
    '" onsubmit="return confirm(\''.$strreallydel.'\');">';
            echo '<input type="hidden" name="action" value="delete"/>';
            echo '<input type="hidden" name="sesskey" value="'.sesskey().'" />';
            echo '<div style="display: none;">';
            echo html_writer::input_hidden_params($reporturlwithdisplayoptions);
            echo '</div>';
            echo '<div>';
        }
        $table->initialbars($totalinitials>20); // Build table rows
    } else {
        $attempts = $DB->get_records_sql($select.$from.$where.$sort, $params);
    }

    if ($attempts) {
        foreach ($attempts as $scouser) {
            $row = array();
            if (!empty($scouser->attempt)) {
                $timetracks = scorm_get_sco_runtime($scorm->id, false, $scouser->userid, $scouser->attempt);
            }
            if (in_array('checkbox', $columns)) {
                if ($candelete && !empty($timetracks->start)) {
                    $row[] = '<input type="checkbox" name="attemptid[]" value="'. $scouser->userid . ':' . $scouser->attempt . '" />';
                } else if ($candelete) {
                    $row[] = '';
                }
            }
            if (in_array('picture', $columns)) {
                $user = (object)array(
                        'id'=>$scouser->userid,
                        'picture'=>$scouser->picture,
                        'imagealt'=>$scouser->imagealt,
                        'email'=>$scouser->email,
                        'firstname'=>$scouser->firstname,
                        'lastname'=>$scouser->lastname);
                $row[] = $OUTPUT->user_picture($user, array('courseid'=>$course->id));
            }
            if (!$download) {
                $row[] = '<a href="'.$CFG->wwwroot.'/user/view.php?id='.$scouser->userid.'&amp;course='.$course->id.'">'.fullname($scouser).'</a>';
            } else {
                $row[] = fullname($scouser);
            }
            if (in_array('idnumber', $columns)) {
                $row[] = $scouser->idnumber;
            }
            if (empty($timetracks->start)) {
                $row[] = '-';
                $row[] = '-';
                $row[] = '-';
                $row[] = '-';
            } else {
                if (!$download) $row[] = '<a href="userreport.php?a='.$scorm->id.'&amp;user='.$scouser->userid.'&amp;attempt='.$scouser->attempt.'">'.$scouser->attempt.'</a>';
                else $row[] = $scouser->attempt;
                if ($download =='ODS' || $download =='Excel' ) $row[] = userdate($timetracks->start, get_string("strftimedatetime", "langconfig"));
                else $row[] = userdate($timetracks->start);
                if ($download =='ODS' || $download =='Excel' ) $row[] = userdate($timetracks->finish, get_string('strftimedatetime', 'langconfig'));
                else $row[] = userdate($timetracks->finish);

                $row[] = scorm_grade_user_attempt($scorm, $scouser->userid, $scouser->attempt);
            }
                            // print out all scores of attempt
            if ($scoes) {
                foreach ($scoes as $sco) {
                    if ($sco->launch!='') {
                        if ($trackdata = scorm_get_tracks($sco->id, $scouser->userid, $scouser->attempt)) {
                            if ($trackdata->status == '') {
                                $trackdata->status = 'notattempted';
                            }
                            $strstatus = get_string($trackdata->status, 'scorm');
                            // if raw score exists, print it
                            if ($trackdata->score_raw != '') {
                                $score = $trackdata->score_raw;
                                // add max score if it exists
                                if ($scorm->version == 'SCORM_1.3') {
                                    $maxkey = 'cmi.score.max';
                                } else {
                                    $maxkey = 'cmi.core.score.max';
                                }
                                if (isset($trackdata->$maxkey)) {
                                    $score .= '/'.$trackdata->$maxkey;
                                }
                            // else print out status
                            } else {
                                $score = $strstatus;
                            }
                            if (!$download) {
                                $row[] = '<img src="'.$OUTPUT->pix_url($trackdata->status, 'scorm').'" alt="'.$strstatus.'" title="'.$strstatus.'" /><br/>
                                        <a href="userreport.php?b='.$sco->id.'&amp;user='.$scouser->userid.'&amp;attempt='.$scouser->attempt.
                                        '" title="'.get_string('details', 'scorm').'">'.$score.'</a>';
                            } else {
                                $row[] = $score;
                            }
                        } else {
                            // if we don't have track data, we haven't attempted yet
                            $strstatus = get_string('notattempted', 'scorm');
                            if (!$download) {
                                $row[] = '<img src="'.$OUTPUT->pix_url('notattempted', 'scorm').'" alt="'.$strstatus.'" title="'.$strstatus.'" /><br/>'.$strstatus;
                            } else {
                                $row[] = $strstatus;
                            }
                        }
                    }
                }
            }

            if (!$download) {
                $table->add_data($row);
            } else if ($download == 'Excel' or $download == 'ODS') {
                $colnum = 0;
                foreach ($row as $item) {
                    $myxls->write($rownum, $colnum, $item, $format);
                    $colnum++;
                }
                $rownum++;
            } else if ($download=='CSV') {
                $text = implode("\t", $row);
                echo $text." \n";
            }
        }
        if (!$download) {
            $table->finish_output();
            if ($candelete) {
                echo '<table id="commands">';
                echo '<tr><td>';
                echo '<a href="javascript:select_all_in(\'DIV\', null, \'scormtablecontainer\');">'.
                     get_string('selectall', 'scorm').'</a> / ';
                echo '<a href="javascript:deselect_all_in(\'DIV\', null, \'scormtablecontainer\');">'.
                     get_string('selectnone', 'scorm').'</a> ';
                echo '&nbsp;&nbsp;';
                echo '<input type="submit" value="'.get_string('deleteselected', 'quiz_overview').'"/>';
                echo '</td></tr></table>';
                // Close form
                echo '</div>';
                echo '</form>';
            }
            echo '</div>';
            if (!empty($attempts)) {
                echo '<table class="boxaligncenter"><tr>';
                echo '<td>';
                echo $OUTPUT->single_button(new moodle_url('/mod/scorm/report.php', $pageoptions + $displayoptions + array('download' => 'ODS')), get_string('downloadods'));
                echo "</td>\n";
                echo '<td>';
                echo $OUTPUT->single_button(new moodle_url('/mod/scorm/report.php', $pageoptions + $displayoptions + array('download' => 'Excel')), get_string('downloadexcel'));
                echo "</td>\n";
                echo '<td>';
                echo $OUTPUT->single_button(new moodle_url('/mod/scorm/report.php', $pageoptions + $displayoptions + array('download' => 'CSV')), get_string('downloadtext'));
                echo "</td>\n";
                echo "<td>";
                echo "</td>\n";
                echo '</tr></table>';
            }
        }
        if (!$download) {
            $mform->set_data($displayoptions + compact('detailedrep', 'pagesize'));
            $mform->display();
        }
    } else {
        echo $OUTPUT->notification(get_string('noactivity', 'scorm'));
    }
    if ($download == 'Excel' or $download == 'ODS') {
        $workbook->close();
        exit;
    } else if ($download == 'CSV') {
        exit;
    }
} else {
    echo $OUTPUT->notification(get_string('noactivity', 'scorm'));
}

if (empty($noheader)) {
    echo $OUTPUT->footer();
}