<?php // $Id: report.php,v 1.0 2008/12/23 06:09:28 mlazar Exp $

/////////////////////////////////////////////////////////////////////////////////
/// Webconference.com Module
/// Block module displays all course WebConferences
/////////////////////////////////////////////////////////////////////////////////

    require_once('../../config.php');
    require_once('lib.php');

    $id            = required_param('id', PARAM_INT);
    $start         = optional_param('start', 0, PARAM_INT);   // Start of period
    $end           = optional_param('end', 0, PARAM_INT);     // End of period
    $deletesession = optional_param('deletesession', 0, PARAM_BOOL);
    $confirmdelete = optional_param('confirmdelete', 0, PARAM_BOOL);

    if (! $cm = get_record('course_modules', 'id', $id)) {
        error('Course Module ID was incorrect');
    }
    if (! $wcmtg = get_record('webconference', 'id', $cm->instance)) {
        error('Course module is incorrect');
    }
    if (! $course = get_record('course', 'id', $wcmtg->course)) {
        error('Course is misconfigured');
    }

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

    $isteacher     = isteacher($course->id);
    $isteacheredit = isteacheredit($course->id);

    if (isguest()) {
        error(get_string('historynotavail', 'webconference');
    }

    add_to_log($course->id, 'webconference', 'report', "report.php?id=$cm->id", $wcmtg->id, $cm->id);

    $strwctitleplural         = get_string('modulenameplural', "webconference");
    $strwctitle          = get_string('modulename', 'webconference');
    $strwchistory    = get_string('viewhistory', 'webconference');
    $strseemeeting    = get_string('seemeeting', 'webconference');
    $strdeletesession = get_string('deletemeeting', 'webconference');

/// Print a session if one has been specified

    if ($start and $end and !$confirmdelete) {   // Show the full history

        print_header_simple(format_string($wcmtg->name).": $strwcreport", '',
                     "<a href=\"index.php?id=$course->id\">$strwctitleplural</a> ->
                     <a href=\"view.php?id=$cm->id\">".format_string($wcmtg->name,true)."</a> ->
                     <a href=\"history.php?id=$cm->id\">$strwchistory</a>",
                      '', '', true, '', navmenu($course, $cm));

    /// Check to see if groups are being used here
        if ($groupmode = groupmode($course, $cm)) {   // Groups are being used
            $currentgroup = setup_and_print_groups($course, $groupmode, "report.php?id=$cm->id");
        } else {
            $currentgroup = false;
        }

        if (!empty($currentgroup)) {
            $groupselect = " AND groupid = '$currentgroup'";
        } else {
            $groupselect = "";
        }

        if ($deletesession and $isteacheredit) {
            notice_yesno(get_string('deletemeetingsure', 'webconference'),
                         "history.php?id=$cm->id&amp;deletesession=1&amp;confirmdelete=1&amp;start=$start&amp;end=$end&amp;sesskey=$USER->sesskey",
                         "history.php?id=$cm->id");
        }

        if (!$messages = get_records_select('webconference_messages', "webconferenceid = $wcmtg->id AND
                                                              timestamp >= '$start' AND
                                                              timestamp <= '$end' $groupselect", "timestamp ASC")) {
            print_heading(get_string('nomessages', 'webconference'));

        } else {
            echo '<p align="center">'.userdate($start).' --> '. userdate($end).'</p>';

            print_simple_box_start('center');
            foreach ($messages as $message) {
                $formatmessage = webconference_format_message($message, $course->id, $USER);
                echo $formatmessage->html;
            }
            print_simple_box_end('center');
        }

        if (!$deletesession or !$isteacheredit) {
            print_continue("history.php?id=$cm->id");
        }

        print_footer($course);
        exit;
    }


/// Display Meeting History

    print_header_simple(format_string($wcmtg->name).": $strwcreport", '',
                 "<a href=\"index.php?id=$course->id\">$strwctitleplural</a> ->
                 <a href=\"view.php?id=$cm->id\">".format_string($wcmtg->name,true)."</a> -> $strwchistory",
                  '', '', true, '', navmenu($course, $cm));

    print_heading(format_string($wcmtg->name).': '.get_string('meetings', 'webconference'));

/// Check to see if groups are being used here
    if ($groupmode = groupmode($course, $cm)) {   // Groups are being used
        $currentgroup = setup_and_print_groups($course, $groupmode, "report.php?id=$cm->id");
    } else {
        $currentgroup = false;
    }

    if (!empty($currentgroup)) {
        $groupselect = " AND groupid = '$currentgroup'";
    } else {
        $groupselect = "";
    }

/// Delete a session if one has been specified

    if ($deletesession and $isteacheredit and $confirmdelete and $start and $end and confirm_sesskey()) {
        delete_records_select('webconference_messages', "webconferenceid = $wcmtg->id AND
                                            timestamp >= '$start' AND
                                            timestamp <= '$end' $groupselect");
        $strdeleted  = get_string('deleted');
        notify("$strdeleted: ".userdate($start).' --> '. userdate($end));
        unset($deletesession);
    }

/// Get the messages

    if (empty($messages)) {   /// May have already got them above
        if (!$messages = get_records_select('webconference_messages', "webconferenceid = '$wcmtg->id' $groupselect", "timestamp DESC")) {
            print_heading(get_string('nomessages', 'webconference'));
            print_footer($course);
            exit;
        }
    }

/// Show all the sessions

    $sessiongap = 5 * 60;    // 5 minutes silence means a new session
    $sessionend = 0;
    $sessionstart   = 0;
    $sessionusers = array();
    $lasttime   = 0;

    $messagesleft = count($messages);

    foreach ($messages as $message) {  // We are walking BACKWARDS through the messages

        $messagesleft --;              // Countdown

        if (!$lasttime) {
            $lasttime = $message->timestamp;
        }
        if (!$sessionend) {
            $sessionend = $message->timestamp;
        }
        if ((($lasttime - $message->timestamp) < $sessiongap) and $messagesleft) {  // Same session
            if ($message->userid and !$message->system) {       // Remember user and count messages
                if (empty($sessionusers[$message->userid])) {
                    $sessionusers[$message->userid] = 1;
                } else {
                    $sessionusers[$message->userid] ++;
                }
            }
        } else {
            $sessionstart = $lasttime;

            if ($sessionend - $sessionstart > 60 and count($sessionusers) > 1) {

                echo '<p align="center">'.userdate($sessionstart).' --> '. userdate($sessionend).'</p>';

                print_simple_box_start('center');

                arsort($sessionusers);
                foreach ($sessionusers as $sessionuser => $usermessagecount) {
                    if ($user = get_record('user', 'id', $sessionuser)) {
                        print_user_picture($user->id, $course->id, $user->picture);
                        echo '&nbsp;'.fullname($user, $isteacher);
                        echo "&nbsp;($usermessagecount)<br />";
                    }
                }

                echo '<p align="right">';
                echo "<a href=\"history.php?id=$cm->id&amp;start=$sessionstart&amp;end=$sessionend\">$strseemeeting</a>";
                if ($isteacheredit) {
                    echo "<br /><a href=\"history.php?id=$cm->id&amp;start=$sessionstart&amp;end=$sessionend&amp;deletesession=1\">$strdeletesession</a>";
                }
                echo '</p>';
                print_simple_box_end();
            }

            $sessionend = $message->timestamp;
            $sessionusers = array();
            $sessionusers[$message->userid] = 1;
        }
        $lasttime = $message->timestamp;
    }

/// Finish the page
    print_footer($course);

?>