Initial XMLDB schema for data tables. Using FKs where they are obvious.

[moodle.git] / mod / scorm / player.php

<?PHP  // $Id$\r
\r
/// This page prints a particular instance of aicc/scorm package\r
\r
    require_once('../../config.php');\r
    require_once('locallib.php');\r
    require_once('sequencinglib.php');\r
    \r
    //\r
    // Checkin' script parameters\r
    //\r
    $id = optional_param('id', '', PARAM_INT);       // Course Module ID, or\r
    $a = optional_param('a', '', PARAM_INT);         // scorm ID\r
    $scoid = required_param('scoid', PARAM_INT);  // sco ID\r
    $mode = optional_param('mode', 'normal', PARAM_ALPHA); // navigation mode\r
    $currentorg = optional_param('currentorg', '', PARAM_RAW); // selected organization\r
    $newattempt = optional_param('newattempt', 'off', PARAM_ALPHA); // the user request to start a new attempt\r
\r
    if (!empty($id)) {\r
        if (! $cm = get_record("course_modules", "id", $id)) {\r
            error("Course Module ID was incorrect");\r
        }\r
        if (! $course = get_record("course", "id", $cm->course)) {\r
            error("Course is misconfigured");\r
        }\r
        if (! $scorm = get_record("scorm", "id", $cm->instance)) {\r
            error("Course module is incorrect");\r
        }\r
    } else if (!empty($a)) {\r
        if (! $scorm = get_record("scorm", "id", $a)) {\r
            error("Course module is incorrect");\r
        }\r
        if (! $course = get_record("course", "id", $scorm->course)) {\r
            error("Course is misconfigured");\r
        }\r
        if (! $cm = get_coursemodule_from_instance("scorm", $scorm->id, $course->id)) {\r
            error("Course Module ID was incorrect");\r
        }\r
    } else {\r
        error('A required parameter is missing');\r
    }\r
\r
    require_login($course->id, false, $cm);\r
\r
    //$f = "D:\\test.txt";\r
    //@$ft = fopen($f,"a");\r
    //fwrite($ft,"\n ++ Thong tin quyen set attempt ".$USER->setAttempt);\r
    $strscorms = get_string('modulenameplural', 'scorm');\r
    $strscorm  = get_string('modulename', 'scorm');\r
    $strpopup = get_string('popup','scorm');\r
\r
    $attempt = scorm_get_last_attempt($scorm->id,$USER->id);    \r
    \r
    //Kiem tra xem co phai la tiep tuc khong \r
    if ($mode=='continue') {\r
        $scoid = scorm_get_suspendscoid($scorm->id,$USER->id);\r
        $USER->setAttempt = 'set';\r
        $mode = 'normal';\r
    }\r
    if (($mode == 'normal') && ($USER->setAttempt == 'notset')) {\r
        $attempt++;\r
        $USER->setAttempt = 'set';\r
    }\r
    //Thuc hien Sequencing\r
\r
    if ($mode!='review') {\r
        $sequencingResult = scorm_sequecingrule_implement($scorm->id,$scoid,$USER->id);\r
        //echo "<script language='JavaScript'>";\r
        //    echo "alert('Sequencing');";\r
        //echo "<script>";\r
        if (($sequencingResult->rule == 'pre') && ($sequencingResult->action == 'disabled')){\r
            echo "<script language='JavaScript'>";\r
            echo "alert('Disabling');";\r
            echo "</script>";        \r
        }\r
        if (($sequencingResult->rule == 'exit') && ($sequencingResult->action == 'exit')){\r
            $exitscoid = get_sco_after_exit($scoid,$scorm->id);\r
            //fwrite($ft,"\n ++ Thong tin exit sco la ".$exitscoid);\r
            $orgstr = '&currentorg='.$currentorg;\r
            $modepop = '&mode='.$mode;\r
            $scostr = '&scoid='.$exitscoid;\r
            echo "<script language='JavaScript'>";\r
            echo "alert('Exiting');";\r
            echo "location.href='".$CFG->wwwroot.'/mod/scorm/player.php?id='.$cm->id.$orgstr.$modepop.$scostr."';";\r
            echo "</script>";                \r
        }        \r
    }    \r
\r
    //Thiet lap attempt_status cho scoid\r
    scorm_set_attempt($scoid,$USER->id);\r
    //Ket thuc thiet lap attemp_status\r
    if ($mode!='review') {\r
        //Update trang thai\r
        scorm_rollup_updatestatus($scorm->id,$scoid,$USER->id);\r
        //------------------------------\r
    }    \r
    //Thiet lap thong tin lien quan truy xuat Scorm\r
    $statistic = get_record('scorm_statistic',"scormid",$scorm->id,"userid",$USER->id);\r
    if (empty($statistic)) {\r
        $statisticInput->accesstime = time();\r
        $statisticInput->durationtime = 0;\r
        $statisticInput->status = 'during';\r
        $statisticInput->attemptnumber = $attempt;\r
        $statisticInput->scormid = $scorm->id;\r
        $statisticInput->userid = $USER->id;\r
        $statisticid = scorm_insert_statistic($statisticInput);\r
    } else {\r
        if ($statistic->status=='suspend') {\r
            $statisticInput->accesstime = time();\r
            $statisticInput->durationtime = $statistic->durationtime;\r
            $statisticInput->status = 'during';\r
            $statisticInput->attemptnumber = $attempt;\r
            $statisticInput->scormid = $scorm->id;\r
            $statisticInput->userid = $USER->id;\r
        }\r
    }    \r
\r
    //---------------------Ket thuc thiet lap thoi gian ---------------\r
\r
    //Lay thoi gian toi da cho phep\r
    $absoluteTimeLimit = scorm_get_AbsoluteTimeLimit($scoid);\r
    if ($absoluteTimeLimit > 0) {    \r
        echo "<script type='text/javascript'>"; \r
        echo "alert('Bai nay co thoi gian lam la: ".$absoluteTimeLimit."');";\r
        echo "function remind(msg1) {"; \r
        echo "var msg = 'Da het gio lam bai ' + msg1 +' Secs.Lua chon bai khac de tiep tuc';";\r
        echo "alert(msg);"; \r
        echo "window.location.href = 'view.php?id=".$scorm->id."';";\r
        echo "}";\r
        echo "setTimeout('remind(".$absoluteTimeLimit.")',".$absoluteTimeLimit.");";\r
        echo "</script>";\r
    }\r
    //--------------------------------\r
\r
    \r
    if ($course->category != 0) {\r
        $navigation = "<a target=\"{$CFG->framename}\" href=\"../../course/view.php?id=$course->id\">$course->shortname</a> ->";\r
        if ($scorms = get_all_instances_in_course('scorm', $course)) {\r
            // The module SCORM activity with the least id is the course  \r
            $firstscorm = current($scorms);\r
            if (!(($course->format == 'scorm') && ($firstscorm->id == $scorm->id))) {\r
                $navigation .= "<a target=\"{$CFG->framename}\" href=\"index.php?id=$course->id\">$strscorms</a> ->";\r
            }\r
        }\r
    } else {\r
        $navigation = "<a target=\"{$CFG->framename}\" href=\"index.php?id=$course->id\">$strscorms</a> ->";\r
    }\r
\r
    $pagetitle = strip_tags("$course->shortname: ".format_string($scorm->name));\r
\r
    if (!$cm->visible and !isteacher($course->id)) {\r
        print_header($pagetitle, "$course->fullname",\r
                 "$navigation <a target='{$CFG->framename}' href='view.php?id=$cm->id'>".format_string($scorm->name,true)."</a>",\r
                 '', '', true, update_module_button($cm->id, $course->id, $strscorm), '', false);\r
        notice(get_string("activityiscurrentlyhidden"));\r
    }\r
\r
    //\r
    // TOC processing\r
    //\r
    //$attempt = scorm_get_last_attempt($scorm->id, $USER->id);\r
    //$f = "D:\\test.txt";\r
    //@$ft = fopen($f,"a");\r
    ////fwrite($ft,"\n ++ ++ + ++ Gia tri $attempt lay duoc la ".$attempt);\r
\r
    //if ($mode=='normal'){\r
    //    $newattempt = 'on';\r
    //}\r
    if (($newattempt=='on') && (($attempt < $scorm->maxattempt) || ($scorm->maxattempt == 0))) {\r
        $attempt++;\r
        //$f = "D:\\test.txt";\r
        //@$ft = fopen($f,"a");\r
        //fwrite($ft,"\n ----New attempt------- ".$attempt);\r
\r
    }\r
    $attemptstr = '&amp;attempt=' . $attempt;\r
\r
    //fwrite($ft,"\n ----Gia tri attempt bay gio la------- ".$attempt);\r
    $result = scorm_get_toc($USER,$scorm,'structurelist',$currentorg,$scoid,$mode,$attempt,true);\r
    $sco = $result->sco;\r
\r
    if (($mode == 'browse') && ($scorm->hidebrowse == 1)) {\r
       $mode = 'normal';\r
    }\r
    if ($mode != 'browse') {\r
        ////fwrite($ft,"\n ++ ++ + ++ Gia tri $mode khac browser ".$mode);\r
        if ($trackdata = scorm_get_tracks($sco->id,$USER->id,$attempt)) {\r
            if (($trackdata->status == 'completed') || ($trackdata->status == 'passed') || ($trackdata->status == 'failed')) {\r
                $mode = 'review';\r
                ////fwrite($ft,"\n ++ ++ + ++ Gia tri $mode ".$mode);\r
            } else {\r
                $mode = 'normal';\r
                ////fwrite($ft,"\n ++ ++ + ++ Gia tri $mode ".$mode);\r
            }\r
        }\r
    }\r
\r
    add_to_log($course->id, 'scorm', 'view', "player.php?id=$cm->id&scoid=$sco->id", "$scorm->id");\r
\r
    $scoidstr = '&amp;scoid='.$sco->id;\r
    $scoidpop = '&scoid='.$sco->id;\r
    $modestr = '&amp;mode='.$mode;\r
    if ($mode == 'browse') {\r
        $modepop = '&mode='.$mode;\r
    } else {\r
        $modepop = '';\r
    }\r
    $orgstr = '&currentorg='.$currentorg;\r
\r
    $SESSION->scorm_scoid = $sco->id;\r
    $SESSION->scorm_status = 'Not Initialized';\r
    $SESSION->scorm_mode = $mode;\r
    $SESSION->attempt = $attempt;\r
\r
    //    Doan code them\r
    ////fwrite($ft,"\n ++ ++ + ++ Gia tri attempt duoc gan cho user la ".$attempt);\r
    $USER->attempt = $attempt;\r
    //------------Ket thuc doan them\r
\r
    //\r
    // Print the page header\r
    //\r
    $bodyscript = '';\r
    if ($scorm->popup == 1) {\r
        $bodyscript = 'onunload="main.close();"';\r
    }\r
\r
    // Kiem tra xem co duoc exit khong\r
    if (scorm_isChoiceexit($sco->scorm,$sco->id)) {\r
        $exitlink = '(<a href="'.$CFG->wwwroot.'/course/view.php?id='.$cm->course.'">'.get_string('exit','scorm').'</a>)&nbsp;';\r
    } else {\r
        $exitlink = get_string('exitisnotallowed','scorm');\r
    }\r
\r
    //Luu giu khoa hoc thoat ra\r
    $suspend = '(<a href="suspend.php?scorm='.$sco->scorm.'&sco='.$sco->id.'&userid='.$USER->id.'&id='.$cm->course.'">'.get_string('suspend','scorm').'</a>)&nbsp;';\r
\r
    print_header($pagetitle, "$course->fullname",\r
                 "$navigation <a target='{$CFG->framename}' href='view.php?id=$cm->id'>".format_string($scorm->name,true)."</a>",\r
                 '', '', true, $exitlink.$suspend.update_module_button($cm->id, $course->id, $strscorm), '', false, $bodyscript);\r
    if ($sco->scormtype == 'sco') {\r
?>\r
    <script language="JavaScript" type="text/javascript" src="request.js"></script>\r
    <script language="JavaScript" type="text/javascript" src="api.php?id=<?php echo $cm->id.$scoidstr.$modestr.$attemptstr ?>"></script>\r
<?php\r
    }\r
    if (($sco->previd != 0) && ($sco->previous == 0)) {\r
        $scostr = '&scoid='.$sco->previd;\r
        echo '    <script language="javascript">var prev="'.$CFG->wwwroot.'/mod/scorm/player.php?id='.$cm->id.$orgstr.$modepop.$scostr."\";</script>\n";\r
    } else {\r
        echo '    <script language="javascript">var prev="'.$CFG->wwwroot.'/mod/scorm/view.php?id='.$cm->id."\";</script>\n";\r
    }\r
    if (($sco->nextid != 0) && ($sco->next == 0)) {\r
        $scostr = '&scoid='.$sco->nextid;\r
        echo '    <script language="javascript">var next="'.$CFG->wwwroot.'/mod/scorm/player.php?id='.$cm->id.$orgstr.$modepop.$scostr."\";</script>\n";\r
    } else {\r
        echo '    <script language="javascript">var next="'.$CFG->wwwroot.'/mod/scorm/view.php?id='.$cm->id."\";</script>\n";\r
    }\r
?>\r
    <div id="scormpage">\r
<?php  \r
    if ($scorm->hidetoc == 0) {\r
?>\r
        <div id="tocbox" class="generalbox">\r
            <div id="tochead" class="header"><?php print_string('coursestruct','scorm') ?></div>\r
            <div id="toctree">\r
            <?php echo $result->toc; ?>\r
            </div>\r
        </div>\r
<?php\r
        $class = ' class="toc"';\r
    } else {\r
        $class = ' class="no-toc"';\r
    }\r
?>\r
        <div id="scormbox"<?php echo $class ?>>\r
<?php\r
    // This very big test check if is necessary the "scormtop" div\r
    if (\r
           ($mode != 'normal') ||  // We are not in normal mode so review or browse text will displayed\r
           (\r
               ($scorm->hidenav == 0) &&  // Teacher want to display navigation links\r
               (\r
                   (\r
                       ($sco->previd != 0) &&  // This is not the first learning object of the package\r
                       ($sco->previous == 0)   // Moodle must manage the previous link\r
                   ) || \r
                   (\r
                       ($sco->nextid != 0) &&  // This is not the last learning object of the package\r
                       ($sco->next == 0)       // Moodle must manage the next link\r
                   ) \r
               )\r
           ) || ($scorm->hidetoc == 2)      // Teacher want to display toc in a small dropdown menu \r
       ) {\r
?>\r
            <div id="scormtop">\r
        <?php echo $mode == 'browse' ? '<div id="scormmode" class="left">'.get_string('browsemode','scorm')."</div>\n" : ''; ?>\r
        <?php echo $mode == 'review' ? '<div id="scormmode" class="left">'.get_string('reviewmode','scorm')."</div>\n" : ''; ?>\r
<?php\r
        if (($scorm->hidenav == 0) || ($scorm->hidetoc == 2)) {\r
?>\r
                <div id="scormnav" class="right">\r
        <?php\r
            $orgstr = '&amp;currentorg='.$currentorg;\r
            if (($scorm->hidenav == 0) && ($sco->previd != 0) && ($sco->previous == 0)) {\r
                /// Print the prev LO link\r
                $scostr = '&amp;scoid='.$sco->previd;\r
                $url = $CFG->wwwroot.'/mod/scorm/player.php?id='.$cm->id.$orgstr.$modestr.$scostr;\r
                echo '<a href="'.$url.'">&lt; '.get_string('prev','scorm').'</a>';\r
            }\r
            if ($scorm->hidetoc == 2) {\r
                echo $result->tocmenu;\r
            }\r
            if (($scorm->hidenav == 0) && ($sco->nextid != 0) && ($sco->next == 0)) {\r
                /// Print the next LO link\r
                $scostr = '&amp;scoid='.$sco->nextid;\r
                $url = $CFG->wwwroot.'/mod/scorm/player.php?id='.$cm->id.$orgstr.$modestr.$scostr;\r
                echo '            &nbsp;<a href="'.$url.'">'.get_string('next','scorm').' &gt;</a>';\r
            }\r
        ?>\r
\r
                </div>\r
<?php\r
        } \r
?>\r
            </div>\r
<?php\r
    } // The end of the very big test\r
?>\r
            <div id="scormobject" class="right">\r
                <noscript>\r
                    <div id="noscript">\r
                        <?php print_string('noscriptnoscorm','scorm'); // No Martin(i), No Party ;-) ?>\r
\r
                    </div>\r
                </noscript>\r
<?php\r
    if ($result->prerequisites) {\r
        if ($scorm->popup == 0) {\r
            if (strpos('MSIE',$_SERVER['HTTP_USER_AGENT']) === false) { \r
                /// Internet Explorer does not has full support to objects\r
?>\r
                <iframe id="main" \r
                        class="scoframe"\r
                        width="<?php echo $scorm->width<=100 ? $scorm->width.'%' : $scorm->width ?>" \r
                        height="<?php echo $scorm->height<=100 ? $scorm->height.'%' : $scorm->height ?>" \r
                        src="loadSCO.php?id=<?php echo $cm->id.$scoidstr.$modestr ?>">\r
                </iframe>\r
<?php\r
            } else {\r
?>\r
                <object id="main" \r
                        class="scoframe" \r
                        width="<?php echo $scorm->width<=100 ? $scorm->width.'%' : $scorm->width ?>" \r
                        height="<?php echo $scorm->height<=100 ? $scorm->height.'%' : $scorm->height ?>" \r
                        data="loadSCO.php?id=<?php echo $cm->id.$scoidstr.$modestr ?>"\r
                        type="text/html">\r
                     <?php print_string('noobjectsupport', 'scorm'); ?>\r
                </object>\r
<?php\r
            }\r
        } else {\r
?>\r
                    <script lanuguage="javascript">\r
                        function openpopup(url,name,options,width,height) {\r
                            fullurl = "<?php echo $CFG->wwwroot.'/mod/scorm/' ?>" + url;\r
                            windowobj = window.open(fullurl,name,options);\r
                            if ((width==100) && (height==100)) {\r
                                // Fullscreen\r
                                windowobj.moveTo(0,0);\r
                            } \r
                            if (width<=100) {\r
                                width = Math.round(screen.availWidth * width / 100);\r
                            }\r
                            if (height<=100) {\r
                                height = Math.round(screen.availHeight * height / 100);\r
                            }\r
                            windowobj.resizeTo(width,height);\r
                            windowobj.focus();\r
                            return windowobj;\r
                        }\r
\r
                        url = "loadSCO.php?id=<?php echo $cm->id.$scoidpop ?>";\r
                        width = <?php p($scorm->width) ?>;\r
                        height = <?php p($scorm->height) ?>;\r
                        var main = openpopup(url, "<?php p($scorm->name) ?>", "<?php p($scorm->options) ?>", width, height);\r
                    </script>\r
                    <noscript>\r
<?php\r
            if (strpos('MSIE',$_SERVER['HTTP_USER_AGENT']) === false) { \r
                /// Internet Explorer does not has full support to objects\r
?>\r
                    <iframe id="main"\r
                            class="scoframe"\r
                            width="<?php echo $scorm->width<=100 ? $scorm->width.'%' : $scorm->width ?>" \r
                            height="<?php echo $scorm->height<=100 ? $scorm->height.'%' : $scorm->height ?>" \r
                            src="loadSCO.php?id=<?php echo $cm->id.$scoidstr.$modestr ?>">\r
                    </iframe>\r
<?php\r
            } else {\r
?>\r
                    <object id="main" \r
                            class="scoframe" \r
                            width="<?php echo $scorm->width<=100 ? $scorm->width.'%' : $scorm->width ?>" \r
                            height="<?php echo $scorm->height<=100 ? $scorm->height.'%' : $scorm->height ?>" \r
                            data="loadSCO.php?id=<?php echo $cm->id.$scoidstr.$modestr ?>"\r
                            type="text/html">\r
                         <?php print_string('noobjectsupport', 'scorm'); ?>\r
                    </object>\r
<?php\r
            }\r
?>\r
                    </noscript>\r
<?php            \r
        }\r
    } else {\r
        print_simple_box(get_string('noprerequisites','scorm'),'center');\r
    }\r
?>\r
            </div> <!-- SCORM object -->\r
        </div> <!-- SCORM box  -->\r
    </div> <!-- SCORM content -->\r
    </div> <!-- Content -->\r
    </div> <!-- Page -->\r
\r
</body>\r
</html>\r
\r