Merge branch 'MDL-40551_master' of https://github.com/totara/openbadges
[moodle.git] / mod / lesson / locallib.php
1 <?php
3 // This file is part of Moodle - http://moodle.org/
4 //
5 // Moodle is free software: you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation, either version 3 of the License, or
8 // (at your option) any later version.
9 //
10 // Moodle is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 // GNU General Public License for more details.
14 //
15 // You should have received a copy of the GNU General Public License
16 // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
18 /**
19  * Local library file for Lesson.  These are non-standard functions that are used
20  * only by Lesson.
21  *
22  * @package    mod
23  * @subpackage lesson
24  * @copyright 1999 onwards Martin Dougiamas  {@link http://moodle.com}
25  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or late
26  **/
28 /** Make sure this isn't being directly accessed */
29 defined('MOODLE_INTERNAL') || die();
31 /** Include the files that are required by this module */
32 require_once($CFG->dirroot.'/course/moodleform_mod.php');
33 require_once($CFG->dirroot . '/mod/lesson/lib.php');
34 require_once($CFG->libdir . '/filelib.php');
36 /** This page */
37 define('LESSON_THISPAGE', 0);
38 /** Next page -> any page not seen before */
39 define("LESSON_UNSEENPAGE", 1);
40 /** Next page -> any page not answered correctly */
41 define("LESSON_UNANSWEREDPAGE", 2);
42 /** Jump to Next Page */
43 define("LESSON_NEXTPAGE", -1);
44 /** End of Lesson */
45 define("LESSON_EOL", -9);
46 /** Jump to an unseen page within a branch and end of branch or end of lesson */
47 define("LESSON_UNSEENBRANCHPAGE", -50);
48 /** Jump to Previous Page */
49 define("LESSON_PREVIOUSPAGE", -40);
50 /** Jump to a random page within a branch and end of branch or end of lesson */
51 define("LESSON_RANDOMPAGE", -60);
52 /** Jump to a random Branch */
53 define("LESSON_RANDOMBRANCH", -70);
54 /** Cluster Jump */
55 define("LESSON_CLUSTERJUMP", -80);
56 /** Undefined */
57 define("LESSON_UNDEFINED", -99);
59 /** LESSON_MAX_EVENT_LENGTH = 432000 ; 5 days maximum */
60 define("LESSON_MAX_EVENT_LENGTH", "432000");
63 //////////////////////////////////////////////////////////////////////////////////////
64 /// Any other lesson functions go here.  Each of them must have a name that
65 /// starts with lesson_
67 /**
68  * Checks to see if a LESSON_CLUSTERJUMP or
69  * a LESSON_UNSEENBRANCHPAGE is used in a lesson.
70  *
71  * This function is only executed when a teacher is
72  * checking the navigation for a lesson.
73  *
74  * @param stdClass $lesson Id of the lesson that is to be checked.
75  * @return boolean True or false.
76  **/
77 function lesson_display_teacher_warning($lesson) {
78     global $DB;
80     // get all of the lesson answers
81     $params = array ("lessonid" => $lesson->id);
82     if (!$lessonanswers = $DB->get_records_select("lesson_answers", "lessonid = :lessonid", $params)) {
83         // no answers, then not using cluster or unseen
84         return false;
85     }
86     // just check for the first one that fulfills the requirements
87     foreach ($lessonanswers as $lessonanswer) {
88         if ($lessonanswer->jumpto == LESSON_CLUSTERJUMP || $lessonanswer->jumpto == LESSON_UNSEENBRANCHPAGE) {
89             return true;
90         }
91     }
93     // if no answers use either of the two jumps
94     return false;
95 }
97 /**
98  * Interprets the LESSON_UNSEENBRANCHPAGE jump.
99  *
100  * will return the pageid of a random unseen page that is within a branch
101  *
102  * @param lesson $lesson
103  * @param int $userid Id of the user.
104  * @param int $pageid Id of the page from which we are jumping.
105  * @return int Id of the next page.
106  **/
107 function lesson_unseen_question_jump($lesson, $user, $pageid) {
108     global $DB;
110     // get the number of retakes
111     if (!$retakes = $DB->count_records("lesson_grades", array("lessonid"=>$lesson->id, "userid"=>$user))) {
112         $retakes = 0;
113     }
115     // get all the lesson_attempts aka what the user has seen
116     if ($viewedpages = $DB->get_records("lesson_attempts", array("lessonid"=>$lesson->id, "userid"=>$user, "retry"=>$retakes), "timeseen DESC")) {
117         foreach($viewedpages as $viewed) {
118             $seenpages[] = $viewed->pageid;
119         }
120     } else {
121         $seenpages = array();
122     }
124     // get the lesson pages
125     $lessonpages = $lesson->load_all_pages();
127     if ($pageid == LESSON_UNSEENBRANCHPAGE) {  // this only happens when a student leaves in the middle of an unseen question within a branch series
128         $pageid = $seenpages[0];  // just change the pageid to the last page viewed inside the branch table
129     }
131     // go up the pages till branch table
132     while ($pageid != 0) { // this condition should never be satisfied... only happens if there are no branch tables above this page
133         if ($lessonpages[$pageid]->qtype == LESSON_PAGE_BRANCHTABLE) {
134             break;
135         }
136         $pageid = $lessonpages[$pageid]->prevpageid;
137     }
139     $pagesinbranch = $lesson->get_sub_pages_of($pageid, array(LESSON_PAGE_BRANCHTABLE, LESSON_PAGE_ENDOFBRANCH));
141     // this foreach loop stores all the pages that are within the branch table but are not in the $seenpages array
142     $unseen = array();
143     foreach($pagesinbranch as $page) {
144         if (!in_array($page->id, $seenpages)) {
145             $unseen[] = $page->id;
146         }
147     }
149     if(count($unseen) == 0) {
150         if(isset($pagesinbranch)) {
151             $temp = end($pagesinbranch);
152             $nextpage = $temp->nextpageid; // they have seen all the pages in the branch, so go to EOB/next branch table/EOL
153         } else {
154             // there are no pages inside the branch, so return the next page
155             $nextpage = $lessonpages[$pageid]->nextpageid;
156         }
157         if ($nextpage == 0) {
158             return LESSON_EOL;
159         } else {
160             return $nextpage;
161         }
162     } else {
163         return $unseen[rand(0, count($unseen)-1)];  // returns a random page id for the next page
164     }
167 /**
168  * Handles the unseen branch table jump.
169  *
170  * @param lesson $lesson
171  * @param int $userid User id.
172  * @return int Will return the page id of a branch table or end of lesson
173  **/
174 function lesson_unseen_branch_jump($lesson, $userid) {
175     global $DB;
177     if (!$retakes = $DB->count_records("lesson_grades", array("lessonid"=>$lesson->id, "userid"=>$userid))) {
178         $retakes = 0;
179     }
181     $params = array ("lessonid" => $lesson->id, "userid" => $userid, "retry" => $retakes);
182     if (!$seenbranches = $DB->get_records_select("lesson_branch", "lessonid = :lessonid AND userid = :userid AND retry = :retry", $params,
183                 "timeseen DESC")) {
184         print_error('cannotfindrecords', 'lesson');
185     }
187     // get the lesson pages
188     $lessonpages = $lesson->load_all_pages();
190     // this loads all the viewed branch tables into $seen until it finds the branch table with the flag
191     // which is the branch table that starts the unseenbranch function
192     $seen = array();
193     foreach ($seenbranches as $seenbranch) {
194         if (!$seenbranch->flag) {
195             $seen[$seenbranch->pageid] = $seenbranch->pageid;
196         } else {
197             $start = $seenbranch->pageid;
198             break;
199         }
200     }
201     // this function searches through the lesson pages to find all the branch tables
202     // that follow the flagged branch table
203     $pageid = $lessonpages[$start]->nextpageid; // move down from the flagged branch table
204     $branchtables = array();
205     while ($pageid != 0) {  // grab all of the branch table till eol
206         if ($lessonpages[$pageid]->qtype == LESSON_PAGE_BRANCHTABLE) {
207             $branchtables[] = $lessonpages[$pageid]->id;
208         }
209         $pageid = $lessonpages[$pageid]->nextpageid;
210     }
211     $unseen = array();
212     foreach ($branchtables as $branchtable) {
213         // load all of the unseen branch tables into unseen
214         if (!array_key_exists($branchtable, $seen)) {
215             $unseen[] = $branchtable;
216         }
217     }
218     if (count($unseen) > 0) {
219         return $unseen[rand(0, count($unseen)-1)];  // returns a random page id for the next page
220     } else {
221         return LESSON_EOL;  // has viewed all of the branch tables
222     }
225 /**
226  * Handles the random jump between a branch table and end of branch or end of lesson (LESSON_RANDOMPAGE).
227  *
228  * @param lesson $lesson
229  * @param int $pageid The id of the page that we are jumping from (?)
230  * @return int The pageid of a random page that is within a branch table
231  **/
232 function lesson_random_question_jump($lesson, $pageid) {
233     global $DB;
235     // get the lesson pages
236     $params = array ("lessonid" => $lesson->id);
237     if (!$lessonpages = $DB->get_records_select("lesson_pages", "lessonid = :lessonid", $params)) {
238         print_error('cannotfindpages', 'lesson');
239     }
241     // go up the pages till branch table
242     while ($pageid != 0) { // this condition should never be satisfied... only happens if there are no branch tables above this page
244         if ($lessonpages[$pageid]->qtype == LESSON_PAGE_BRANCHTABLE) {
245             break;
246         }
247         $pageid = $lessonpages[$pageid]->prevpageid;
248     }
250     // get the pages within the branch
251     $pagesinbranch = $lesson->get_sub_pages_of($pageid, array(LESSON_PAGE_BRANCHTABLE, LESSON_PAGE_ENDOFBRANCH));
253     if(count($pagesinbranch) == 0) {
254         // there are no pages inside the branch, so return the next page
255         return $lessonpages[$pageid]->nextpageid;
256     } else {
257         return $pagesinbranch[rand(0, count($pagesinbranch)-1)]->id;  // returns a random page id for the next page
258     }
261 /**
262  * Calculates a user's grade for a lesson.
263  *
264  * @param object $lesson The lesson that the user is taking.
265  * @param int $retries The attempt number.
266  * @param int $userid Id of the user (optional, default current user).
267  * @return object { nquestions => number of questions answered
268                     attempts => number of question attempts
269                     total => max points possible
270                     earned => points earned by student
271                     grade => calculated percentage grade
272                     nmanual => number of manually graded questions
273                     manualpoints => point value for manually graded questions }
274  */
275 function lesson_grade($lesson, $ntries, $userid = 0) {
276     global $USER, $DB;
278     if (empty($userid)) {
279         $userid = $USER->id;
280     }
282     // Zero out everything
283     $ncorrect     = 0;
284     $nviewed      = 0;
285     $score        = 0;
286     $nmanual      = 0;
287     $manualpoints = 0;
288     $thegrade     = 0;
289     $nquestions   = 0;
290     $total        = 0;
291     $earned       = 0;
293     $params = array ("lessonid" => $lesson->id, "userid" => $userid, "retry" => $ntries);
294     if ($useranswers = $DB->get_records_select("lesson_attempts",  "lessonid = :lessonid AND
295             userid = :userid AND retry = :retry", $params, "timeseen")) {
296         // group each try with its page
297         $attemptset = array();
298         foreach ($useranswers as $useranswer) {
299             $attemptset[$useranswer->pageid][] = $useranswer;
300         }
302         // Drop all attempts that go beyond max attempts for the lesson
303         foreach ($attemptset as $key => $set) {
304             $attemptset[$key] = array_slice($set, 0, $lesson->maxattempts);
305         }
307         // get only the pages and their answers that the user answered
308         list($usql, $parameters) = $DB->get_in_or_equal(array_keys($attemptset));
309         array_unshift($parameters, $lesson->id);
310         $pages = $DB->get_records_select("lesson_pages", "lessonid = ? AND id $usql", $parameters);
311         $answers = $DB->get_records_select("lesson_answers", "lessonid = ? AND pageid $usql", $parameters);
313         // Number of pages answered
314         $nquestions = count($pages);
316         foreach ($attemptset as $attempts) {
317             $page = lesson_page::load($pages[end($attempts)->pageid], $lesson);
318             if ($lesson->custom) {
319                 $attempt = end($attempts);
320                 // If essay question, handle it, otherwise add to score
321                 if ($page->requires_manual_grading()) {
322                     $useranswerobj = unserialize($attempt->useranswer);
323                     if (isset($useranswerobj->score)) {
324                         $earned += $useranswerobj->score;
325                     }
326                     $nmanual++;
327                     $manualpoints += $answers[$attempt->answerid]->score;
328                 } else if (!empty($attempt->answerid)) {
329                     $earned += $page->earned_score($answers, $attempt);
330                 }
331             } else {
332                 foreach ($attempts as $attempt) {
333                     $earned += $attempt->correct;
334                 }
335                 $attempt = end($attempts); // doesn't matter which one
336                 // If essay question, increase numbers
337                 if ($page->requires_manual_grading()) {
338                     $nmanual++;
339                     $manualpoints++;
340                 }
341             }
342             // Number of times answered
343             $nviewed += count($attempts);
344         }
346         if ($lesson->custom) {
347             $bestscores = array();
348             // Find the highest possible score per page to get our total
349             foreach ($answers as $answer) {
350                 if(!isset($bestscores[$answer->pageid])) {
351                     $bestscores[$answer->pageid] = $answer->score;
352                 } else if ($bestscores[$answer->pageid] < $answer->score) {
353                     $bestscores[$answer->pageid] = $answer->score;
354                 }
355             }
356             $total = array_sum($bestscores);
357         } else {
358             // Check to make sure the student has answered the minimum questions
359             if ($lesson->minquestions and $nquestions < $lesson->minquestions) {
360                 // Nope, increase number viewed by the amount of unanswered questions
361                 $total =  $nviewed + ($lesson->minquestions - $nquestions);
362             } else {
363                 $total = $nviewed;
364             }
365         }
366     }
368     if ($total) { // not zero
369         $thegrade = round(100 * $earned / $total, 5);
370     }
372     // Build the grade information object
373     $gradeinfo               = new stdClass;
374     $gradeinfo->nquestions   = $nquestions;
375     $gradeinfo->attempts     = $nviewed;
376     $gradeinfo->total        = $total;
377     $gradeinfo->earned       = $earned;
378     $gradeinfo->grade        = $thegrade;
379     $gradeinfo->nmanual      = $nmanual;
380     $gradeinfo->manualpoints = $manualpoints;
382     return $gradeinfo;
385 /**
386  * Determines if a user can view the left menu.  The determining factor
387  * is whether a user has a grade greater than or equal to the lesson setting
388  * of displayleftif
389  *
390  * @param object $lesson Lesson object of the current lesson
391  * @return boolean 0 if the user cannot see, or $lesson->displayleft to keep displayleft unchanged
392  **/
393 function lesson_displayleftif($lesson) {
394     global $CFG, $USER, $DB;
396     if (!empty($lesson->displayleftif)) {
397         // get the current user's max grade for this lesson
398         $params = array ("userid" => $USER->id, "lessonid" => $lesson->id);
399         if ($maxgrade = $DB->get_record_sql('SELECT userid, MAX(grade) AS maxgrade FROM {lesson_grades} WHERE userid = :userid AND lessonid = :lessonid GROUP BY userid', $params)) {
400             if ($maxgrade->maxgrade < $lesson->displayleftif) {
401                 return 0;  // turn off the displayleft
402             }
403         } else {
404             return 0; // no grades
405         }
406     }
408     // if we get to here, keep the original state of displayleft lesson setting
409     return $lesson->displayleft;
412 /**
413  *
414  * @param $cm
415  * @param $lesson
416  * @param $page
417  * @return unknown_type
418  */
419 function lesson_add_fake_blocks($page, $cm, $lesson, $timer = null) {
420     $bc = lesson_menu_block_contents($cm->id, $lesson);
421     if (!empty($bc)) {
422         $regions = $page->blocks->get_regions();
423         $firstregion = reset($regions);
424         $page->blocks->add_fake_block($bc, $firstregion);
425     }
427     $bc = lesson_mediafile_block_contents($cm->id, $lesson);
428     if (!empty($bc)) {
429         $page->blocks->add_fake_block($bc, $page->blocks->get_default_region());
430     }
432     if (!empty($timer)) {
433         $bc = lesson_clock_block_contents($cm->id, $lesson, $timer, $page);
434         if (!empty($bc)) {
435             $page->blocks->add_fake_block($bc, $page->blocks->get_default_region());
436         }
437     }
440 /**
441  * If there is a media file associated with this
442  * lesson, return a block_contents that displays it.
443  *
444  * @param int $cmid Course Module ID for this lesson
445  * @param object $lesson Full lesson record object
446  * @return block_contents
447  **/
448 function lesson_mediafile_block_contents($cmid, $lesson) {
449     global $OUTPUT;
450     if (empty($lesson->mediafile)) {
451         return null;
452     }
454     $options = array();
455     $options['menubar'] = 0;
456     $options['location'] = 0;
457     $options['left'] = 5;
458     $options['top'] = 5;
459     $options['scrollbars'] = 1;
460     $options['resizable'] = 1;
461     $options['width'] = $lesson->mediawidth;
462     $options['height'] = $lesson->mediaheight;
464     $link = new moodle_url('/mod/lesson/mediafile.php?id='.$cmid);
465     $action = new popup_action('click', $link, 'lessonmediafile', $options);
466     $content = $OUTPUT->action_link($link, get_string('mediafilepopup', 'lesson'), $action, array('title'=>get_string('mediafilepopup', 'lesson')));
468     $bc = new block_contents();
469     $bc->title = get_string('linkedmedia', 'lesson');
470     $bc->attributes['class'] = 'mediafile';
471     $bc->content = $content;
473     return $bc;
476 /**
477  * If a timed lesson and not a teacher, then
478  * return a block_contents containing the clock.
479  *
480  * @param int $cmid Course Module ID for this lesson
481  * @param object $lesson Full lesson record object
482  * @param object $timer Full timer record object
483  * @return block_contents
484  **/
485 function lesson_clock_block_contents($cmid, $lesson, $timer, $page) {
486     // Display for timed lessons and for students only
487     $context = context_module::instance($cmid);
488     if(!$lesson->timed || has_capability('mod/lesson:manage', $context)) {
489         return null;
490     }
492     $content = '<div class="jshidewhenenabled">';
493     $content .=  $lesson->time_remaining($timer->starttime);
494     $content .= '</div>';
496     $clocksettings = array('starttime'=>$timer->starttime, 'servertime'=>time(),'testlength'=>($lesson->maxtime * 60));
497     $page->requires->data_for_js('clocksettings', $clocksettings);
498     $page->requires->js('/mod/lesson/timer.js');
499     $page->requires->js_function_call('show_clock');
501     $bc = new block_contents();
502     $bc->title = get_string('timeremaining', 'lesson');
503     $bc->attributes['class'] = 'clock block';
504     $bc->content = $content;
506     return $bc;
509 /**
510  * If left menu is turned on, then this will
511  * print the menu in a block
512  *
513  * @param int $cmid Course Module ID for this lesson
514  * @param lesson $lesson Full lesson record object
515  * @return void
516  **/
517 function lesson_menu_block_contents($cmid, $lesson) {
518     global $CFG, $DB;
520     if (!$lesson->displayleft) {
521         return null;
522     }
524     $pages = $lesson->load_all_pages();
525     foreach ($pages as $page) {
526         if ((int)$page->prevpageid === 0) {
527             $pageid = $page->id;
528             break;
529         }
530     }
531     $currentpageid = optional_param('pageid', $pageid, PARAM_INT);
533     if (!$pageid || !$pages) {
534         return null;
535     }
537     $content = '<a href="#maincontent" class="skip">'.get_string('skip', 'lesson')."</a>\n<div class=\"menuwrapper\">\n<ul>\n";
539     while ($pageid != 0) {
540         $page = $pages[$pageid];
542         // Only process branch tables with display turned on
543         if ($page->displayinmenublock && $page->display) {
544             if ($page->id == $currentpageid) {
545                 $content .= '<li class="selected">'.format_string($page->title,true)."</li>\n";
546             } else {
547                 $content .= "<li class=\"notselected\"><a href=\"$CFG->wwwroot/mod/lesson/view.php?id=$cmid&amp;pageid=$page->id\">".format_string($page->title,true)."</a></li>\n";
548             }
550         }
551         $pageid = $page->nextpageid;
552     }
553     $content .= "</ul>\n</div>\n";
555     $bc = new block_contents();
556     $bc->title = get_string('lessonmenu', 'lesson');
557     $bc->attributes['class'] = 'menu block';
558     $bc->content = $content;
560     return $bc;
563 /**
564  * Adds header buttons to the page for the lesson
565  *
566  * @param object $cm
567  * @param object $context
568  * @param bool $extraeditbuttons
569  * @param int $lessonpageid
570  */
571 function lesson_add_header_buttons($cm, $context, $extraeditbuttons=false, $lessonpageid=null) {
572     global $CFG, $PAGE, $OUTPUT;
573     if (has_capability('mod/lesson:edit', $context) && $extraeditbuttons) {
574         if ($lessonpageid === null) {
575             print_error('invalidpageid', 'lesson');
576         }
577         if (!empty($lessonpageid) && $lessonpageid != LESSON_EOL) {
578             $url = new moodle_url('/mod/lesson/editpage.php', array('id'=>$cm->id, 'pageid'=>$lessonpageid, 'edit'=>1));
579             $PAGE->set_button($OUTPUT->single_button($url, get_string('editpagecontent', 'lesson')));
580         }
581     }
584 /**
585  * This is a function used to detect media types and generate html code.
586  *
587  * @global object $CFG
588  * @global object $PAGE
589  * @param object $lesson
590  * @param object $context
591  * @return string $code the html code of media
592  */
593 function lesson_get_media_html($lesson, $context) {
594     global $CFG, $PAGE, $OUTPUT;
595     require_once("$CFG->libdir/resourcelib.php");
597     // get the media file link
598     if (strpos($lesson->mediafile, '://') !== false) {
599         $url = new moodle_url($lesson->mediafile);
600     } else {
601         // the timemodified is used to prevent caching problems, instead of '/' we should better read from files table and use sortorder
602         $url = moodle_url::make_pluginfile_url($context->id, 'mod_lesson', 'mediafile', $lesson->timemodified, '/', ltrim($lesson->mediafile, '/'));
603     }
604     $title = $lesson->mediafile;
606     $clicktoopen = html_writer::link($url, get_string('download'));
608     $mimetype = resourcelib_guess_url_mimetype($url);
610     $extension = resourcelib_get_extension($url->out(false));
612     $mediarenderer = $PAGE->get_renderer('core', 'media');
613     $embedoptions = array(
614         core_media::OPTION_TRUSTED => true,
615         core_media::OPTION_BLOCK => true
616     );
618     // find the correct type and print it out
619     if (in_array($mimetype, array('image/gif','image/jpeg','image/png'))) {  // It's an image
620         $code = resourcelib_embed_image($url, $title);
622     } else if ($mediarenderer->can_embed_url($url, $embedoptions)) {
623         // Media (audio/video) file.
624         $code = $mediarenderer->embed_url($url, $title, 0, 0, $embedoptions);
626     } else {
627         // anything else - just try object tag enlarged as much as possible
628         $code = resourcelib_embed_general($url, $title, $clicktoopen, $mimetype);
629     }
631     return $code;
635 /**
636  * Abstract class that page type's MUST inherit from.
637  *
638  * This is the abstract class that ALL add page type forms must extend.
639  * You will notice that all but two of the methods this class contains are final.
640  * Essentially the only thing that extending classes can do is extend custom_definition.
641  * OR if it has a special requirement on creation it can extend construction_override
642  *
643  * @abstract
644  * @copyright  2009 Sam Hemelryk
645  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
646  */
647 abstract class lesson_add_page_form_base extends moodleform {
649     /**
650      * This is the classic define that is used to identify this pagetype.
651      * Will be one of LESSON_*
652      * @var int
653      */
654     public $qtype;
656     /**
657      * The simple string that describes the page type e.g. truefalse, multichoice
658      * @var string
659      */
660     public $qtypestring;
662     /**
663      * An array of options used in the htmleditor
664      * @var array
665      */
666     protected $editoroptions = array();
668     /**
669      * True if this is a standard page of false if it does something special.
670      * Questions are standard pages, branch tables are not
671      * @var bool
672      */
673     protected $standard = true;
675     /**
676      * Each page type can and should override this to add any custom elements to
677      * the basic form that they want
678      */
679     public function custom_definition() {}
681     /**
682      * Used to determine if this is a standard page or a special page
683      * @return bool
684      */
685     public final function is_standard() {
686         return (bool)$this->standard;
687     }
689     /**
690      * Add the required basic elements to the form.
691      *
692      * This method adds the basic elements to the form including title and contents
693      * and then calls custom_definition();
694      */
695     public final function definition() {
696         $mform = $this->_form;
697         $editoroptions = $this->_customdata['editoroptions'];
699         $mform->addElement('header', 'qtypeheading', get_string('createaquestionpage', 'lesson', get_string($this->qtypestring, 'lesson')));
701         $mform->addElement('hidden', 'id');
702         $mform->setType('id', PARAM_INT);
704         $mform->addElement('hidden', 'pageid');
705         $mform->setType('pageid', PARAM_INT);
707         if ($this->standard === true) {
708             $mform->addElement('hidden', 'qtype');
709             $mform->setType('qtype', PARAM_INT);
711             $mform->addElement('text', 'title', get_string('pagetitle', 'lesson'), array('size'=>70));
712             $mform->setType('title', PARAM_TEXT);
713             $mform->addRule('title', get_string('required'), 'required', null, 'client');
715             $this->editoroptions = array('noclean'=>true, 'maxfiles'=>EDITOR_UNLIMITED_FILES, 'maxbytes'=>$this->_customdata['maxbytes']);
716             $mform->addElement('editor', 'contents_editor', get_string('pagecontents', 'lesson'), null, $this->editoroptions);
717             $mform->setType('contents_editor', PARAM_RAW);
718             $mform->addRule('contents_editor', get_string('required'), 'required', null, 'client');
719         }
721         $this->custom_definition();
723         if ($this->_customdata['edit'] === true) {
724             $mform->addElement('hidden', 'edit', 1);
725             $mform->setType('edit', PARAM_BOOL);
726             $this->add_action_buttons(get_string('cancel'), get_string('savepage', 'lesson'));
727         } else if ($this->qtype === 'questiontype') {
728             $this->add_action_buttons(get_string('cancel'), get_string('addaquestionpage', 'lesson'));
729         } else {
730             $this->add_action_buttons(get_string('cancel'), get_string('savepage', 'lesson'));
731         }
732     }
734     /**
735      * Convenience function: Adds a jumpto select element
736      *
737      * @param string $name
738      * @param string|null $label
739      * @param int $selected The page to select by default
740      */
741     protected final function add_jumpto($name, $label=null, $selected=LESSON_NEXTPAGE) {
742         $title = get_string("jump", "lesson");
743         if ($label === null) {
744             $label = $title;
745         }
746         if (is_int($name)) {
747             $name = "jumpto[$name]";
748         }
749         $this->_form->addElement('select', $name, $label, $this->_customdata['jumpto']);
750         $this->_form->setDefault($name, $selected);
751         $this->_form->addHelpButton($name, 'jumps', 'lesson');
752     }
754     /**
755      * Convenience function: Adds a score input element
756      *
757      * @param string $name
758      * @param string|null $label
759      * @param mixed $value The default value
760      */
761     protected final function add_score($name, $label=null, $value=null) {
762         if ($label === null) {
763             $label = get_string("score", "lesson");
764         }
766         if (is_int($name)) {
767             $name = "score[$name]";
768         }
769         $this->_form->addElement('text', $name, $label, array('size'=>5));
770         $this->_form->setType($name, PARAM_INT);
771         if ($value !== null) {
772             $this->_form->setDefault($name, $value);
773         }
774     }
776     /**
777      * Convenience function: Adds an answer editor
778      *
779      * @param int $count The count of the element to add
780      * @param string $label, null means default
781      * @param bool $required
782      * @return void
783      */
784     protected final function add_answer($count, $label = null, $required = false) {
785         if ($label === null) {
786             $label = get_string('answer', 'lesson');
787         }
788         $this->_form->addElement('editor', 'answer_editor['.$count.']', $label, array('rows'=>'4', 'columns'=>'80'), array('noclean'=>true));
789         $this->_form->setDefault('answer_editor['.$count.']', array('text'=>'', 'format'=>FORMAT_MOODLE));
790         if ($required) {
791             $this->_form->addRule('answer_editor['.$count.']', get_string('required'), 'required', null, 'client');
792         }
793     }
794     /**
795      * Convenience function: Adds an response editor
796      *
797      * @param int $count The count of the element to add
798      * @param string $label, null means default
799      * @param bool $required
800      * @return void
801      */
802     protected final function add_response($count, $label = null, $required = false) {
803         if ($label === null) {
804             $label = get_string('response', 'lesson');
805         }
806         $this->_form->addElement('editor', 'response_editor['.$count.']', $label, array('rows'=>'4', 'columns'=>'80'), array('noclean'=>true));
807         $this->_form->setDefault('response_editor['.$count.']', array('text'=>'', 'format'=>FORMAT_MOODLE));
808         if ($required) {
809             $this->_form->addRule('response_editor['.$count.']', get_string('required'), 'required', null, 'client');
810         }
811     }
813     /**
814      * A function that gets called upon init of this object by the calling script.
815      *
816      * This can be used to process an immediate action if required. Currently it
817      * is only used in special cases by non-standard page types.
818      *
819      * @return bool
820      */
821     public function construction_override($pageid, lesson $lesson) {
822         return true;
823     }
828 /**
829  * Class representation of a lesson
830  *
831  * This class is used the interact with, and manage a lesson once instantiated.
832  * If you need to fetch a lesson object you can do so by calling
833  *
834  * <code>
835  * lesson::load($lessonid);
836  * // or
837  * $lessonrecord = $DB->get_record('lesson', $lessonid);
838  * $lesson = new lesson($lessonrecord);
839  * </code>
840  *
841  * The class itself extends lesson_base as all classes within the lesson module should
842  *
843  * These properties are from the database
844  * @property int $id The id of this lesson
845  * @property int $course The ID of the course this lesson belongs to
846  * @property string $name The name of this lesson
847  * @property int $practice Flag to toggle this as a practice lesson
848  * @property int $modattempts Toggle to allow the user to go back and review answers
849  * @property int $usepassword Toggle the use of a password for entry
850  * @property string $password The password to require users to enter
851  * @property int $dependency ID of another lesson this lesson is dependent on
852  * @property string $conditions Conditions of the lesson dependency
853  * @property int $grade The maximum grade a user can achieve (%)
854  * @property int $custom Toggle custom scoring on or off
855  * @property int $ongoing Toggle display of an ongoing score
856  * @property int $usemaxgrade How retakes are handled (max=1, mean=0)
857  * @property int $maxanswers The max number of answers or branches
858  * @property int $maxattempts The maximum number of attempts a user can record
859  * @property int $review Toggle use or wrong answer review button
860  * @property int $nextpagedefault Override the default next page
861  * @property int $feedback Toggles display of default feedback
862  * @property int $minquestions Sets a minimum value of pages seen when calculating grades
863  * @property int $maxpages Maximum number of pages this lesson can contain
864  * @property int $retake Flag to allow users to retake a lesson
865  * @property int $activitylink Relate this lesson to another lesson
866  * @property string $mediafile File to pop up to or webpage to display
867  * @property int $mediaheight Sets the height of the media file popup
868  * @property int $mediawidth Sets the width of the media file popup
869  * @property int $mediaclose Toggle display of a media close button
870  * @property int $slideshow Flag for whether branch pages should be shown as slideshows
871  * @property int $width Width of slideshow
872  * @property int $height Height of slideshow
873  * @property string $bgcolor Background colour of slideshow
874  * @property int $displayleft Display a left menu
875  * @property int $displayleftif Sets the condition on which the left menu is displayed
876  * @property int $progressbar Flag to toggle display of a lesson progress bar
877  * @property int $highscores Flag to toggle collection of high scores
878  * @property int $maxhighscores Number of high scores to limit to
879  * @property int $available Timestamp of when this lesson becomes available
880  * @property int $deadline Timestamp of when this lesson is no longer available
881  * @property int $timemodified Timestamp when lesson was last modified
882  *
883  * These properties are calculated
884  * @property int $firstpageid Id of the first page of this lesson (prevpageid=0)
885  * @property int $lastpageid Id of the last page of this lesson (nextpageid=0)
886  *
887  * @copyright  2009 Sam Hemelryk
888  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
889  */
890 class lesson extends lesson_base {
892     /**
893      * The id of the first page (where prevpageid = 0) gets set and retrieved by
894      * {@see get_firstpageid()} by directly calling <code>$lesson->firstpageid;</code>
895      * @var int
896      */
897     protected $firstpageid = null;
898     /**
899      * The id of the last page (where nextpageid = 0) gets set and retrieved by
900      * {@see get_lastpageid()} by directly calling <code>$lesson->lastpageid;</code>
901      * @var int
902      */
903     protected $lastpageid = null;
904     /**
905      * An array used to cache the pages associated with this lesson after the first
906      * time they have been loaded.
907      * A note to developers: If you are going to be working with MORE than one or
908      * two pages from a lesson you should probably call {@see $lesson->load_all_pages()}
909      * in order to save excess database queries.
910      * @var array An array of lesson_page objects
911      */
912     protected $pages = array();
913     /**
914      * Flag that gets set to true once all of the pages associated with the lesson
915      * have been loaded.
916      * @var bool
917      */
918     protected $loadedallpages = false;
920     /**
921      * Simply generates a lesson object given an array/object of properties
922      * Overrides {@see lesson_base->create()}
923      * @static
924      * @param object|array $properties
925      * @return lesson
926      */
927     public static function create($properties) {
928         return new lesson($properties);
929     }
931     /**
932      * Generates a lesson object from the database given its id
933      * @static
934      * @param int $lessonid
935      * @return lesson
936      */
937     public static function load($lessonid) {
938         global $DB;
940         if (!$lesson = $DB->get_record('lesson', array('id' => $lessonid))) {
941             print_error('invalidcoursemodule');
942         }
943         return new lesson($lesson);
944     }
946     /**
947      * Deletes this lesson from the database
948      */
949     public function delete() {
950         global $CFG, $DB;
951         require_once($CFG->libdir.'/gradelib.php');
952         require_once($CFG->dirroot.'/calendar/lib.php');
954         $DB->delete_records("lesson", array("id"=>$this->properties->id));
955         $DB->delete_records("lesson_pages", array("lessonid"=>$this->properties->id));
956         $DB->delete_records("lesson_answers", array("lessonid"=>$this->properties->id));
957         $DB->delete_records("lesson_attempts", array("lessonid"=>$this->properties->id));
958         $DB->delete_records("lesson_grades", array("lessonid"=>$this->properties->id));
959         $DB->delete_records("lesson_timer", array("lessonid"=>$this->properties->id));
960         $DB->delete_records("lesson_branch", array("lessonid"=>$this->properties->id));
961         $DB->delete_records("lesson_high_scores", array("lessonid"=>$this->properties->id));
962         if ($events = $DB->get_records('event', array("modulename"=>'lesson', "instance"=>$this->properties->id))) {
963             foreach($events as $event) {
964                 $event = calendar_event::load($event);
965                 $event->delete();
966             }
967         }
969         grade_update('mod/lesson', $this->properties->course, 'mod', 'lesson', $this->properties->id, 0, null, array('deleted'=>1));
970         return true;
971     }
973     /**
974      * Fetches messages from the session that may have been set in previous page
975      * actions.
976      *
977      * <code>
978      * // Do not call this method directly instead use
979      * $lesson->messages;
980      * </code>
981      *
982      * @return array
983      */
984     protected function get_messages() {
985         global $SESSION;
987         $messages = array();
988         if (!empty($SESSION->lesson_messages) && is_array($SESSION->lesson_messages) && array_key_exists($this->properties->id, $SESSION->lesson_messages)) {
989             $messages = $SESSION->lesson_messages[$this->properties->id];
990             unset($SESSION->lesson_messages[$this->properties->id]);
991         }
993         return $messages;
994     }
996     /**
997      * Get all of the attempts for the current user.
998      *
999      * @param int $retries
1000      * @param bool $correct Optional: only fetch correct attempts
1001      * @param int $pageid Optional: only fetch attempts at the given page
1002      * @param int $userid Optional: defaults to the current user if not set
1003      * @return array|false
1004      */
1005     public function get_attempts($retries, $correct=false, $pageid=null, $userid=null) {
1006         global $USER, $DB;
1007         $params = array("lessonid"=>$this->properties->id, "userid"=>$userid, "retry"=>$retries);
1008         if ($correct) {
1009             $params['correct'] = 1;
1010         }
1011         if ($pageid !== null) {
1012             $params['pageid'] = $pageid;
1013         }
1014         if ($userid === null) {
1015             $params['userid'] = $USER->id;
1016         }
1017         return $DB->get_records('lesson_attempts', $params, 'timeseen ASC');
1018     }
1020     /**
1021      * Returns the first page for the lesson or false if there isn't one.
1022      *
1023      * This method should be called via the magic method __get();
1024      * <code>
1025      * $firstpage = $lesson->firstpage;
1026      * </code>
1027      *
1028      * @return lesson_page|bool Returns the lesson_page specialised object or false
1029      */
1030     protected function get_firstpage() {
1031         $pages = $this->load_all_pages();
1032         if (count($pages) > 0) {
1033             foreach ($pages as $page) {
1034                 if ((int)$page->prevpageid === 0) {
1035                     return $page;
1036                 }
1037             }
1038         }
1039         return false;
1040     }
1042     /**
1043      * Returns the last page for the lesson or false if there isn't one.
1044      *
1045      * This method should be called via the magic method __get();
1046      * <code>
1047      * $lastpage = $lesson->lastpage;
1048      * </code>
1049      *
1050      * @return lesson_page|bool Returns the lesson_page specialised object or false
1051      */
1052     protected function get_lastpage() {
1053         $pages = $this->load_all_pages();
1054         if (count($pages) > 0) {
1055             foreach ($pages as $page) {
1056                 if ((int)$page->nextpageid === 0) {
1057                     return $page;
1058                 }
1059             }
1060         }
1061         return false;
1062     }
1064     /**
1065      * Returns the id of the first page of this lesson. (prevpageid = 0)
1066      * @return int
1067      */
1068     protected function get_firstpageid() {
1069         global $DB;
1070         if ($this->firstpageid == null) {
1071             if (!$this->loadedallpages) {
1072                 $firstpageid = $DB->get_field('lesson_pages', 'id', array('lessonid'=>$this->properties->id, 'prevpageid'=>0));
1073                 if (!$firstpageid) {
1074                     print_error('cannotfindfirstpage', 'lesson');
1075                 }
1076                 $this->firstpageid = $firstpageid;
1077             } else {
1078                 $firstpage = $this->get_firstpage();
1079                 $this->firstpageid = $firstpage->id;
1080             }
1081         }
1082         return $this->firstpageid;
1083     }
1085     /**
1086      * Returns the id of the last page of this lesson. (nextpageid = 0)
1087      * @return int
1088      */
1089     public function get_lastpageid() {
1090         global $DB;
1091         if ($this->lastpageid == null) {
1092             if (!$this->loadedallpages) {
1093                 $lastpageid = $DB->get_field('lesson_pages', 'id', array('lessonid'=>$this->properties->id, 'nextpageid'=>0));
1094                 if (!$lastpageid) {
1095                     print_error('cannotfindlastpage', 'lesson');
1096                 }
1097                 $this->lastpageid = $lastpageid;
1098             } else {
1099                 $lastpageid = $this->get_lastpage();
1100                 $this->lastpageid = $lastpageid->id;
1101             }
1102         }
1104         return $this->lastpageid;
1105     }
1107      /**
1108      * Gets the next page id to display after the one that is provided.
1109      * @param int $nextpageid
1110      * @return bool
1111      */
1112     public function get_next_page($nextpageid) {
1113         global $USER, $DB;
1114         $allpages = $this->load_all_pages();
1115         if ($this->properties->nextpagedefault) {
1116             // in Flash Card mode...first get number of retakes
1117             $nretakes = $DB->count_records("lesson_grades", array("lessonid" => $this->properties->id, "userid" => $USER->id));
1118             shuffle($allpages);
1119             $found = false;
1120             if ($this->properties->nextpagedefault == LESSON_UNSEENPAGE) {
1121                 foreach ($allpages as $nextpage) {
1122                     if (!$DB->count_records("lesson_attempts", array("pageid" => $nextpage->id, "userid" => $USER->id, "retry" => $nretakes))) {
1123                         $found = true;
1124                         break;
1125                     }
1126                 }
1127             } elseif ($this->properties->nextpagedefault == LESSON_UNANSWEREDPAGE) {
1128                 foreach ($allpages as $nextpage) {
1129                     if (!$DB->count_records("lesson_attempts", array('pageid' => $nextpage->id, 'userid' => $USER->id, 'correct' => 1, 'retry' => $nretakes))) {
1130                         $found = true;
1131                         break;
1132                     }
1133                 }
1134             }
1135             if ($found) {
1136                 if ($this->properties->maxpages) {
1137                     // check number of pages viewed (in the lesson)
1138                     if ($DB->count_records("lesson_attempts", array("lessonid" => $this->properties->id, "userid" => $USER->id, "retry" => $nretakes)) >= $this->properties->maxpages) {
1139                         return LESSON_EOL;
1140                     }
1141                 }
1142                 return $nextpage->id;
1143             }
1144         }
1145         // In a normal lesson mode
1146         foreach ($allpages as $nextpage) {
1147             if ((int)$nextpage->id === (int)$nextpageid) {
1148                 return $nextpage->id;
1149             }
1150         }
1151         return LESSON_EOL;
1152     }
1154     /**
1155      * Sets a message against the session for this lesson that will displayed next
1156      * time the lesson processes messages
1157      *
1158      * @param string $message
1159      * @param string $class
1160      * @param string $align
1161      * @return bool
1162      */
1163     public function add_message($message, $class="notifyproblem", $align='center') {
1164         global $SESSION;
1166         if (empty($SESSION->lesson_messages) || !is_array($SESSION->lesson_messages)) {
1167             $SESSION->lesson_messages = array();
1168             $SESSION->lesson_messages[$this->properties->id] = array();
1169         } else if (!array_key_exists($this->properties->id, $SESSION->lesson_messages)) {
1170             $SESSION->lesson_messages[$this->properties->id] = array();
1171         }
1173         $SESSION->lesson_messages[$this->properties->id][] = array($message, $class, $align);
1175         return true;
1176     }
1178     /**
1179      * Check if the lesson is accessible at the present time
1180      * @return bool True if the lesson is accessible, false otherwise
1181      */
1182     public function is_accessible() {
1183         $available = $this->properties->available;
1184         $deadline = $this->properties->deadline;
1185         return (($available == 0 || time() >= $available) && ($deadline == 0 || time() < $deadline));
1186     }
1188     /**
1189      * Starts the lesson time for the current user
1190      * @return bool Returns true
1191      */
1192     public function start_timer() {
1193         global $USER, $DB;
1194         $USER->startlesson[$this->properties->id] = true;
1195         $startlesson = new stdClass;
1196         $startlesson->lessonid = $this->properties->id;
1197         $startlesson->userid = $USER->id;
1198         $startlesson->starttime = time();
1199         $startlesson->lessontime = time();
1200         $DB->insert_record('lesson_timer', $startlesson);
1201         if ($this->properties->timed) {
1202             $this->add_message(get_string('maxtimewarning', 'lesson', $this->properties->maxtime), 'center');
1203         }
1204         return true;
1205     }
1207     /**
1208      * Updates the timer to the current time and returns the new timer object
1209      * @param bool $restart If set to true the timer is restarted
1210      * @param bool $continue If set to true AND $restart=true then the timer
1211      *                        will continue from a previous attempt
1212      * @return stdClass The new timer
1213      */
1214     public function update_timer($restart=false, $continue=false) {
1215         global $USER, $DB;
1216         // clock code
1217         // get time information for this user
1218         if (!$timer = $DB->get_records('lesson_timer', array ("lessonid" => $this->properties->id, "userid" => $USER->id), 'starttime DESC', '*', 0, 1)) {
1219             print_error('cannotfindtimer', 'lesson');
1220         } else {
1221             $timer = current($timer); // this will get the latest start time record
1222         }
1224         if ($restart) {
1225             if ($continue) {
1226                 // continue a previous test, need to update the clock  (think this option is disabled atm)
1227                 $timer->starttime = time() - ($timer->lessontime - $timer->starttime);
1228             } else {
1229                 // starting over, so reset the clock
1230                 $timer->starttime = time();
1231             }
1232         }
1234         $timer->lessontime = time();
1235         $DB->update_record('lesson_timer', $timer);
1236         return $timer;
1237     }
1239     /**
1240      * Updates the timer to the current time then stops it by unsetting the user var
1241      * @return bool Returns true
1242      */
1243     public function stop_timer() {
1244         global $USER, $DB;
1245         unset($USER->startlesson[$this->properties->id]);
1246         return $this->update_timer(false, false);
1247     }
1249     /**
1250      * Checks to see if the lesson has pages
1251      */
1252     public function has_pages() {
1253         global $DB;
1254         $pagecount = $DB->count_records('lesson_pages', array('lessonid'=>$this->properties->id));
1255         return ($pagecount>0);
1256     }
1258     /**
1259      * Returns the link for the related activity
1260      * @return array|false
1261      */
1262     public function link_for_activitylink() {
1263         global $DB;
1264         $module = $DB->get_record('course_modules', array('id' => $this->properties->activitylink));
1265         if ($module) {
1266             $modname = $DB->get_field('modules', 'name', array('id' => $module->module));
1267             if ($modname) {
1268                 $instancename = $DB->get_field($modname, 'name', array('id' => $module->instance));
1269                 if ($instancename) {
1270                     return html_writer::link(new moodle_url('/mod/'.$modname.'/view.php', array('id'=>$this->properties->activitylink)),
1271                         get_string('activitylinkname', 'lesson', $instancename),
1272                         array('class'=>'centerpadded lessonbutton standardbutton'));
1273                 }
1274             }
1275         }
1276         return '';
1277     }
1279     /**
1280      * Loads the requested page.
1281      *
1282      * This function will return the requested page id as either a specialised
1283      * lesson_page object OR as a generic lesson_page.
1284      * If the page has been loaded previously it will be returned from the pages
1285      * array, otherwise it will be loaded from the database first
1286      *
1287      * @param int $pageid
1288      * @return lesson_page A lesson_page object or an object that extends it
1289      */
1290     public function load_page($pageid) {
1291         if (!array_key_exists($pageid, $this->pages)) {
1292             $manager = lesson_page_type_manager::get($this);
1293             $this->pages[$pageid] = $manager->load_page($pageid, $this);
1294         }
1295         return $this->pages[$pageid];
1296     }
1298     /**
1299      * Loads ALL of the pages for this lesson
1300      *
1301      * @return array An array containing all pages from this lesson
1302      */
1303     public function load_all_pages() {
1304         if (!$this->loadedallpages) {
1305             $manager = lesson_page_type_manager::get($this);
1306             $this->pages = $manager->load_all_pages($this);
1307             $this->loadedallpages = true;
1308         }
1309         return $this->pages;
1310     }
1312     /**
1313      * Determines if a jumpto value is correct or not.
1314      *
1315      * returns true if jumpto page is (logically) after the pageid page or
1316      * if the jumpto value is a special value.  Returns false in all other cases.
1317      *
1318      * @param int $pageid Id of the page from which you are jumping from.
1319      * @param int $jumpto The jumpto number.
1320      * @return boolean True or false after a series of tests.
1321      **/
1322     public function jumpto_is_correct($pageid, $jumpto) {
1323         global $DB;
1325         // first test the special values
1326         if (!$jumpto) {
1327             // same page
1328             return false;
1329         } elseif ($jumpto == LESSON_NEXTPAGE) {
1330             return true;
1331         } elseif ($jumpto == LESSON_UNSEENBRANCHPAGE) {
1332             return true;
1333         } elseif ($jumpto == LESSON_RANDOMPAGE) {
1334             return true;
1335         } elseif ($jumpto == LESSON_CLUSTERJUMP) {
1336             return true;
1337         } elseif ($jumpto == LESSON_EOL) {
1338             return true;
1339         }
1341         $pages = $this->load_all_pages();
1342         $apageid = $pages[$pageid]->nextpageid;
1343         while ($apageid != 0) {
1344             if ($jumpto == $apageid) {
1345                 return true;
1346             }
1347             $apageid = $pages[$apageid]->nextpageid;
1348         }
1349         return false;
1350     }
1352     /**
1353      * Returns the time a user has remaining on this lesson
1354      * @param int $starttime Starttime timestamp
1355      * @return string
1356      */
1357     public function time_remaining($starttime) {
1358         $timeleft = $starttime + $this->maxtime * 60 - time();
1359         $hours = floor($timeleft/3600);
1360         $timeleft = $timeleft - ($hours * 3600);
1361         $minutes = floor($timeleft/60);
1362         $secs = $timeleft - ($minutes * 60);
1364         if ($minutes < 10) {
1365             $minutes = "0$minutes";
1366         }
1367         if ($secs < 10) {
1368             $secs = "0$secs";
1369         }
1370         $output   = array();
1371         $output[] = $hours;
1372         $output[] = $minutes;
1373         $output[] = $secs;
1374         $output = implode(':', $output);
1375         return $output;
1376     }
1378     /**
1379      * Interprets LESSON_CLUSTERJUMP jumpto value.
1380      *
1381      * This will select a page randomly
1382      * and the page selected will be inbetween a cluster page and end of clutter or end of lesson
1383      * and the page selected will be a page that has not been viewed already
1384      * and if any pages are within a branch table or end of branch then only 1 page within
1385      * the branch table or end of branch will be randomly selected (sub clustering).
1386      *
1387      * @param int $pageid Id of the current page from which we are jumping from.
1388      * @param int $userid Id of the user.
1389      * @return int The id of the next page.
1390      **/
1391     public function cluster_jump($pageid, $userid=null) {
1392         global $DB, $USER;
1394         if ($userid===null) {
1395             $userid = $USER->id;
1396         }
1397         // get the number of retakes
1398         if (!$retakes = $DB->count_records("lesson_grades", array("lessonid"=>$this->properties->id, "userid"=>$userid))) {
1399             $retakes = 0;
1400         }
1401         // get all the lesson_attempts aka what the user has seen
1402         $seenpages = array();
1403         if ($attempts = $this->get_attempts($retakes)) {
1404             foreach ($attempts as $attempt) {
1405                 $seenpages[$attempt->pageid] = $attempt->pageid;
1406             }
1408         }
1410         // get the lesson pages
1411         $lessonpages = $this->load_all_pages();
1412         // find the start of the cluster
1413         while ($pageid != 0) { // this condition should not be satisfied... should be a cluster page
1414             if ($lessonpages[$pageid]->qtype == LESSON_PAGE_CLUSTER) {
1415                 break;
1416             }
1417             $pageid = $lessonpages[$pageid]->prevpageid;
1418         }
1420         $clusterpages = array();
1421         $clusterpages = $this->get_sub_pages_of($pageid, array(LESSON_PAGE_ENDOFCLUSTER));
1422         $unseen = array();
1423         foreach ($clusterpages as $key=>$cluster) {
1424             if ($cluster->type !== lesson_page::TYPE_QUESTION) {
1425                 unset($clusterpages[$key]);
1426             } elseif ($cluster->is_unseen($seenpages)) {
1427                 $unseen[] = $cluster;
1428             }
1429         }
1431         if (count($unseen) > 0) {
1432             // it does not contain elements, then use exitjump, otherwise find out next page/branch
1433             $nextpage = $unseen[rand(0, count($unseen)-1)];
1434             if ($nextpage->qtype == LESSON_PAGE_BRANCHTABLE) {
1435                 // if branch table, then pick a random page inside of it
1436                 $branchpages = $this->get_sub_pages_of($nextpage->id, array(LESSON_PAGE_BRANCHTABLE, LESSON_PAGE_ENDOFBRANCH));
1437                 return $branchpages[rand(0, count($branchpages)-1)]->id;
1438             } else { // otherwise, return the page's id
1439                 return $nextpage->id;
1440             }
1441         } else {
1442             // seen all there is to see, leave the cluster
1443             if (end($clusterpages)->nextpageid == 0) {
1444                 return LESSON_EOL;
1445             } else {
1446                 $clusterendid = $pageid;
1447                 while ($clusterendid != 0) { // this condition should not be satisfied... should be a cluster page
1448                     if ($lessonpages[$clusterendid]->qtype == LESSON_PAGE_CLUSTER) {
1449                         break;
1450                     }
1451                     $clusterendid = $lessonpages[$clusterendid]->prevpageid;
1452                 }
1453                 $exitjump = $DB->get_field("lesson_answers", "jumpto", array("pageid" => $clusterendid, "lessonid" => $this->properties->id));
1454                 if ($exitjump == LESSON_NEXTPAGE) {
1455                     $exitjump = $lessonpages[$pageid]->nextpageid;
1456                 }
1457                 if ($exitjump == 0) {
1458                     return LESSON_EOL;
1459                 } else if (in_array($exitjump, array(LESSON_EOL, LESSON_PREVIOUSPAGE))) {
1460                     return $exitjump;
1461                 } else {
1462                     if (!array_key_exists($exitjump, $lessonpages)) {
1463                         $found = false;
1464                         foreach ($lessonpages as $page) {
1465                             if ($page->id === $clusterendid) {
1466                                 $found = true;
1467                             } else if ($page->qtype == LESSON_PAGE_ENDOFCLUSTER) {
1468                                 $exitjump = $DB->get_field("lesson_answers", "jumpto", array("pageid" => $page->id, "lessonid" => $this->properties->id));
1469                                 break;
1470                             }
1471                         }
1472                     }
1473                     if (!array_key_exists($exitjump, $lessonpages)) {
1474                         return LESSON_EOL;
1475                     }
1476                     return $exitjump;
1477                 }
1478             }
1479         }
1480     }
1482     /**
1483      * Finds all pages that appear to be a subtype of the provided pageid until
1484      * an end point specified within $ends is encountered or no more pages exist
1485      *
1486      * @param int $pageid
1487      * @param array $ends An array of LESSON_PAGE_* types that signify an end of
1488      *               the subtype
1489      * @return array An array of specialised lesson_page objects
1490      */
1491     public function get_sub_pages_of($pageid, array $ends) {
1492         $lessonpages = $this->load_all_pages();
1493         $pageid = $lessonpages[$pageid]->nextpageid;  // move to the first page after the branch table
1494         $pages = array();
1496         while (true) {
1497             if ($pageid == 0 || in_array($lessonpages[$pageid]->qtype, $ends)) {
1498                 break;
1499             }
1500             $pages[] = $lessonpages[$pageid];
1501             $pageid = $lessonpages[$pageid]->nextpageid;
1502         }
1504         return $pages;
1505     }
1507     /**
1508      * Checks to see if the specified page[id] is a subpage of a type specified in
1509      * the $types array, until either there are no more pages of we find a type
1510      * corresponding to that of a type specified in $ends
1511      *
1512      * @param int $pageid The id of the page to check
1513      * @param array $types An array of types that would signify this page was a subpage
1514      * @param array $ends An array of types that mean this is not a subpage
1515      * @return bool
1516      */
1517     public function is_sub_page_of_type($pageid, array $types, array $ends) {
1518         $pages = $this->load_all_pages();
1519         $pageid = $pages[$pageid]->prevpageid; // move up one
1521         array_unshift($ends, 0);
1522         // go up the pages till branch table
1523         while (true) {
1524             if ($pageid==0 || in_array($pages[$pageid]->qtype, $ends)) {
1525                 return false;
1526             } else if (in_array($pages[$pageid]->qtype, $types)) {
1527                 return true;
1528             }
1529             $pageid = $pages[$pageid]->prevpageid;
1530         }
1531     }
1535 /**
1536  * Abstract class to provide a core functions to the all lesson classes
1537  *
1538  * This class should be abstracted by ALL classes with the lesson module to ensure
1539  * that all classes within this module can be interacted with in the same way.
1540  *
1541  * This class provides the user with a basic properties array that can be fetched
1542  * or set via magic methods, or alternatively by defining methods get_blah() or
1543  * set_blah() within the extending object.
1544  *
1545  * @copyright  2009 Sam Hemelryk
1546  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
1547  */
1548 abstract class lesson_base {
1550     /**
1551      * An object containing properties
1552      * @var stdClass
1553      */
1554     protected $properties;
1556     /**
1557      * The constructor
1558      * @param stdClass $properties
1559      */
1560     public function __construct($properties) {
1561         $this->properties = (object)$properties;
1562     }
1564     /**
1565      * Magic property method
1566      *
1567      * Attempts to call a set_$key method if one exists otherwise falls back
1568      * to simply set the property
1569      *
1570      * @param string $key
1571      * @param mixed $value
1572      */
1573     public function __set($key, $value) {
1574         if (method_exists($this, 'set_'.$key)) {
1575             $this->{'set_'.$key}($value);
1576         }
1577         $this->properties->{$key} = $value;
1578     }
1580     /**
1581      * Magic get method
1582      *
1583      * Attempts to call a get_$key method to return the property and ralls over
1584      * to return the raw property
1585      *
1586      * @param str $key
1587      * @return mixed
1588      */
1589     public function __get($key) {
1590         if (method_exists($this, 'get_'.$key)) {
1591             return $this->{'get_'.$key}();
1592         }
1593         return $this->properties->{$key};
1594     }
1596     /**
1597      * Stupid PHP needs an isset magic method if you use the get magic method and
1598      * still want empty calls to work.... blah ~!
1599      *
1600      * @param string $key
1601      * @return bool
1602      */
1603     public function __isset($key) {
1604         if (method_exists($this, 'get_'.$key)) {
1605             $val = $this->{'get_'.$key}();
1606             return !empty($val);
1607         }
1608         return !empty($this->properties->{$key});
1609     }
1611     //NOTE: E_STRICT does not allow to change function signature!
1613     /**
1614      * If implemented should create a new instance, save it in the DB and return it
1615      */
1616     //public static function create() {}
1617     /**
1618      * If implemented should load an instance from the DB and return it
1619      */
1620     //public static function load() {}
1621     /**
1622      * Fetches all of the properties of the object
1623      * @return stdClass
1624      */
1625     public function properties() {
1626         return $this->properties;
1627     }
1631 /**
1632  * Abstract class representation of a page associated with a lesson.
1633  *
1634  * This class should MUST be extended by all specialised page types defined in
1635  * mod/lesson/pagetypes/.
1636  * There are a handful of abstract methods that need to be defined as well as
1637  * severl methods that can optionally be defined in order to make the page type
1638  * operate in the desired way
1639  *
1640  * Database properties
1641  * @property int $id The id of this lesson page
1642  * @property int $lessonid The id of the lesson this page belongs to
1643  * @property int $prevpageid The id of the page before this one
1644  * @property int $nextpageid The id of the next page in the page sequence
1645  * @property int $qtype Identifies the page type of this page
1646  * @property int $qoption Used to record page type specific options
1647  * @property int $layout Used to record page specific layout selections
1648  * @property int $display Used to record page specific display selections
1649  * @property int $timecreated Timestamp for when the page was created
1650  * @property int $timemodified Timestamp for when the page was last modified
1651  * @property string $title The title of this page
1652  * @property string $contents The rich content shown to describe the page
1653  * @property int $contentsformat The format of the contents field
1654  *
1655  * Calculated properties
1656  * @property-read array $answers An array of answers for this page
1657  * @property-read bool $displayinmenublock Toggles display in the left menu block
1658  * @property-read array $jumps An array containing all the jumps this page uses
1659  * @property-read lesson $lesson The lesson this page belongs to
1660  * @property-read int $type The type of the page [question | structure]
1661  * @property-read typeid The unique identifier for the page type
1662  * @property-read typestring The string that describes this page type
1663  *
1664  * @abstract
1665  * @copyright  2009 Sam Hemelryk
1666  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
1667  */
1668 abstract class lesson_page extends lesson_base {
1670     /**
1671      * A reference to the lesson this page belongs to
1672      * @var lesson
1673      */
1674     protected $lesson = null;
1675     /**
1676      * Contains the answers to this lesson_page once loaded
1677      * @var null|array
1678      */
1679     protected $answers = null;
1680     /**
1681      * This sets the type of the page, can be one of the constants defined below
1682      * @var int
1683      */
1684     protected $type = 0;
1686     /**
1687      * Constants used to identify the type of the page
1688      */
1689     const TYPE_QUESTION = 0;
1690     const TYPE_STRUCTURE = 1;
1692     /**
1693      * This method should return the integer used to identify the page type within
1694      * the database and throughout code. This maps back to the defines used in 1.x
1695      * @abstract
1696      * @return int
1697      */
1698     abstract protected function get_typeid();
1699     /**
1700      * This method should return the string that describes the pagetype
1701      * @abstract
1702      * @return string
1703      */
1704     abstract protected function get_typestring();
1706     /**
1707      * This method gets called to display the page to the user taking the lesson
1708      * @abstract
1709      * @param object $renderer
1710      * @param object $attempt
1711      * @return string
1712      */
1713     abstract public function display($renderer, $attempt);
1715     /**
1716      * Creates a new lesson_page within the database and returns the correct pagetype
1717      * object to use to interact with the new lesson
1718      *
1719      * @final
1720      * @static
1721      * @param object $properties
1722      * @param lesson $lesson
1723      * @return lesson_page Specialised object that extends lesson_page
1724      */
1725     final public static function create($properties, lesson $lesson, $context, $maxbytes) {
1726         global $DB;
1727         $newpage = new stdClass;
1728         $newpage->title = $properties->title;
1729         $newpage->contents = $properties->contents_editor['text'];
1730         $newpage->contentsformat = $properties->contents_editor['format'];
1731         $newpage->lessonid = $lesson->id;
1732         $newpage->timecreated = time();
1733         $newpage->qtype = $properties->qtype;
1734         $newpage->qoption = (isset($properties->qoption))?1:0;
1735         $newpage->layout = (isset($properties->layout))?1:0;
1736         $newpage->display = (isset($properties->display))?1:0;
1737         $newpage->prevpageid = 0; // this is a first page
1738         $newpage->nextpageid = 0; // this is the only page
1740         if ($properties->pageid) {
1741             $prevpage = $DB->get_record("lesson_pages", array("id" => $properties->pageid), 'id, nextpageid');
1742             if (!$prevpage) {
1743                 print_error('cannotfindpages', 'lesson');
1744             }
1745             $newpage->prevpageid = $prevpage->id;
1746             $newpage->nextpageid = $prevpage->nextpageid;
1747         } else {
1748             $nextpage = $DB->get_record('lesson_pages', array('lessonid'=>$lesson->id, 'prevpageid'=>0), 'id');
1749             if ($nextpage) {
1750                 // This is the first page, there are existing pages put this at the start
1751                 $newpage->nextpageid = $nextpage->id;
1752             }
1753         }
1755         $newpage->id = $DB->insert_record("lesson_pages", $newpage);
1757         $editor = new stdClass;
1758         $editor->id = $newpage->id;
1759         $editor->contents_editor = $properties->contents_editor;
1760         $editor = file_postupdate_standard_editor($editor, 'contents', array('noclean'=>true, 'maxfiles'=>EDITOR_UNLIMITED_FILES, 'maxbytes'=>$maxbytes), $context, 'mod_lesson', 'page_contents', $editor->id);
1761         $DB->update_record("lesson_pages", $editor);
1763         if ($newpage->prevpageid > 0) {
1764             $DB->set_field("lesson_pages", "nextpageid", $newpage->id, array("id" => $newpage->prevpageid));
1765         }
1766         if ($newpage->nextpageid > 0) {
1767             $DB->set_field("lesson_pages", "prevpageid", $newpage->id, array("id" => $newpage->nextpageid));
1768         }
1770         $page = lesson_page::load($newpage, $lesson);
1771         $page->create_answers($properties);
1773         $lesson->add_message(get_string('insertedpage', 'lesson').': '.format_string($newpage->title, true), 'notifysuccess');
1775         return $page;
1776     }
1778     /**
1779      * This method loads a page object from the database and returns it as a
1780      * specialised object that extends lesson_page
1781      *
1782      * @final
1783      * @static
1784      * @param int $id
1785      * @param lesson $lesson
1786      * @return lesson_page Specialised lesson_page object
1787      */
1788     final public static function load($id, lesson $lesson) {
1789         global $DB;
1791         if (is_object($id) && !empty($id->qtype)) {
1792             $page = $id;
1793         } else {
1794             $page = $DB->get_record("lesson_pages", array("id" => $id));
1795             if (!$page) {
1796                 print_error('cannotfindpages', 'lesson');
1797             }
1798         }
1799         $manager = lesson_page_type_manager::get($lesson);
1801         $class = 'lesson_page_type_'.$manager->get_page_type_idstring($page->qtype);
1802         if (!class_exists($class)) {
1803             $class = 'lesson_page';
1804         }
1806         return new $class($page, $lesson);
1807     }
1809     /**
1810      * Deletes a lesson_page from the database as well as any associated records.
1811      * @final
1812      * @return bool
1813      */
1814     final public function delete() {
1815         global $DB;
1816         // first delete all the associated records...
1817         $DB->delete_records("lesson_attempts", array("pageid" => $this->properties->id));
1818         // ...now delete the answers...
1819         $DB->delete_records("lesson_answers", array("pageid" => $this->properties->id));
1820         // ..and the page itself
1821         $DB->delete_records("lesson_pages", array("id" => $this->properties->id));
1823         // repair the hole in the linkage
1824         if (!$this->properties->prevpageid && !$this->properties->nextpageid) {
1825             //This is the only page, no repair needed
1826         } elseif (!$this->properties->prevpageid) {
1827             // this is the first page...
1828             $page = $this->lesson->load_page($this->properties->nextpageid);
1829             $page->move(null, 0);
1830         } elseif (!$this->properties->nextpageid) {
1831             // this is the last page...
1832             $page = $this->lesson->load_page($this->properties->prevpageid);
1833             $page->move(0);
1834         } else {
1835             // page is in the middle...
1836             $prevpage = $this->lesson->load_page($this->properties->prevpageid);
1837             $nextpage = $this->lesson->load_page($this->properties->nextpageid);
1839             $prevpage->move($nextpage->id);
1840             $nextpage->move(null, $prevpage->id);
1841         }
1842         return true;
1843     }
1845     /**
1846      * Moves a page by updating its nextpageid and prevpageid values within
1847      * the database
1848      *
1849      * @final
1850      * @param int $nextpageid
1851      * @param int $prevpageid
1852      */
1853     final public function move($nextpageid=null, $prevpageid=null) {
1854         global $DB;
1855         if ($nextpageid === null) {
1856             $nextpageid = $this->properties->nextpageid;
1857         }
1858         if ($prevpageid === null) {
1859             $prevpageid = $this->properties->prevpageid;
1860         }
1861         $obj = new stdClass;
1862         $obj->id = $this->properties->id;
1863         $obj->prevpageid = $prevpageid;
1864         $obj->nextpageid = $nextpageid;
1865         $DB->update_record('lesson_pages', $obj);
1866     }
1868     /**
1869      * Returns the answers that are associated with this page in the database
1870      *
1871      * @final
1872      * @return array
1873      */
1874     final public function get_answers() {
1875         global $DB;
1876         if ($this->answers === null) {
1877             $this->answers = array();
1878             $answers = $DB->get_records('lesson_answers', array('pageid'=>$this->properties->id, 'lessonid'=>$this->lesson->id), 'id');
1879             if (!$answers) {
1880                 // It is possible that a lesson upgraded from Moodle 1.9 still
1881                 // contains questions without any answers [MDL-25632].
1882                 // debugging(get_string('cannotfindanswer', 'lesson'));
1883                 return array();
1884             }
1885             foreach ($answers as $answer) {
1886                 $this->answers[count($this->answers)] = new lesson_page_answer($answer);
1887             }
1888         }
1889         return $this->answers;
1890     }
1892     /**
1893      * Returns the lesson this page is associated with
1894      * @final
1895      * @return lesson
1896      */
1897     final protected function get_lesson() {
1898         return $this->lesson;
1899     }
1901     /**
1902      * Returns the type of page this is. Not to be confused with page type
1903      * @final
1904      * @return int
1905      */
1906     final protected function get_type() {
1907         return $this->type;
1908     }
1910     /**
1911      * Records an attempt at this page
1912      *
1913      * @final
1914      * @global moodle_database $DB
1915      * @param stdClass $context
1916      * @return stdClass Returns the result of the attempt
1917      */
1918     final public function record_attempt($context) {
1919         global $DB, $USER, $OUTPUT;
1921         /**
1922          * This should be overridden by each page type to actually check the response
1923          * against what ever custom criteria they have defined
1924          */
1925         $result = $this->check_answer();
1927         $result->attemptsremaining  = 0;
1928         $result->maxattemptsreached = false;
1930         if ($result->noanswer) {
1931             $result->newpageid = $this->properties->id; // display same page again
1932             $result->feedback  = get_string('noanswer', 'lesson');
1933         } else {
1934             if (!has_capability('mod/lesson:manage', $context)) {
1935                 $nretakes = $DB->count_records("lesson_grades", array("lessonid"=>$this->lesson->id, "userid"=>$USER->id));
1936                 // record student's attempt
1937                 $attempt = new stdClass;
1938                 $attempt->lessonid = $this->lesson->id;
1939                 $attempt->pageid = $this->properties->id;
1940                 $attempt->userid = $USER->id;
1941                 $attempt->answerid = $result->answerid;
1942                 $attempt->retry = $nretakes;
1943                 $attempt->correct = $result->correctanswer;
1944                 if($result->userresponse !== null) {
1945                     $attempt->useranswer = $result->userresponse;
1946                 }
1948                 $attempt->timeseen = time();
1949                 // if allow modattempts, then update the old attempt record, otherwise, insert new answer record
1950                 if (isset($USER->modattempts[$this->lesson->id])) {
1951                     $attempt->retry = $nretakes - 1; // they are going through on review, $nretakes will be too high
1952                 }
1954                 if ($this->lesson->retake || (!$this->lesson->retake && $nretakes == 0)) {
1955                     $DB->insert_record("lesson_attempts", $attempt);
1956                 }
1957                 // "number of attempts remaining" message if $this->lesson->maxattempts > 1
1958                 // displaying of message(s) is at the end of page for more ergonomic display
1959                 if (!$result->correctanswer && ($result->newpageid == 0)) {
1960                     // wrong answer and student is stuck on this page - check how many attempts
1961                     // the student has had at this page/question
1962                     $nattempts = $DB->count_records("lesson_attempts", array("pageid"=>$this->properties->id, "userid"=>$USER->id, "retry" => $attempt->retry));
1963                     // retreive the number of attempts left counter for displaying at bottom of feedback page
1964                     if ($nattempts >= $this->lesson->maxattempts) {
1965                         if ($this->lesson->maxattempts > 1) { // don't bother with message if only one attempt
1966                             $result->maxattemptsreached = true;
1967                         }
1968                         $result->newpageid = LESSON_NEXTPAGE;
1969                     } else if ($this->lesson->maxattempts > 1) { // don't bother with message if only one attempt
1970                         $result->attemptsremaining = $this->lesson->maxattempts - $nattempts;
1971                     }
1972                 }
1973             }
1974             // TODO: merge this code with the jump code below.  Convert jumpto page into a proper page id
1975             if ($result->newpageid == 0) {
1976                 $result->newpageid = $this->properties->id;
1977             } elseif ($result->newpageid == LESSON_NEXTPAGE) {
1978                 $result->newpageid = $this->lesson->get_next_page($this->properties->nextpageid);
1979             }
1981             // Determine default feedback if necessary
1982             if (empty($result->response)) {
1983                 if (!$this->lesson->feedback && !$result->noanswer && !($this->lesson->review & !$result->correctanswer && !$result->isessayquestion)) {
1984                     // These conditions have been met:
1985                     //  1. The lesson manager has not supplied feedback to the student
1986                     //  2. Not displaying default feedback
1987                     //  3. The user did provide an answer
1988                     //  4. We are not reviewing with an incorrect answer (and not reviewing an essay question)
1990                     $result->nodefaultresponse = true;  // This will cause a redirect below
1991                 } else if ($result->isessayquestion) {
1992                     $result->response = get_string('defaultessayresponse', 'lesson');
1993                 } else if ($result->correctanswer) {
1994                     $result->response = get_string('thatsthecorrectanswer', 'lesson');
1995                 } else {
1996                     $result->response = get_string('thatsthewronganswer', 'lesson');
1997                 }
1998             }
2000             if ($result->response) {
2001                 if ($this->lesson->review && !$result->correctanswer && !$result->isessayquestion) {
2002                     $nretakes = $DB->count_records("lesson_grades", array("lessonid"=>$this->lesson->id, "userid"=>$USER->id));
2003                     $qattempts = $DB->count_records("lesson_attempts", array("userid"=>$USER->id, "retry"=>$nretakes, "pageid"=>$this->properties->id));
2004                     if ($qattempts == 1) {
2005                         $result->feedback = $OUTPUT->box(get_string("firstwrong", "lesson"), 'feedback');
2006                     } else {
2007                         $result->feedback = $OUTPUT->BOX(get_string("secondpluswrong", "lesson"), 'feedback');
2008                     }
2009                 } else {
2010                     $class = 'response';
2011                     if ($result->correctanswer) {
2012                         $class .= ' correct'; //CSS over-ride this if they exist (!important)
2013                     } else if (!$result->isessayquestion) {
2014                         $class .= ' incorrect'; //CSS over-ride this if they exist (!important)
2015                     }
2016                     $options = new stdClass;
2017                     $options->noclean = true;
2018                     $options->para = true;
2019                     $options->overflowdiv = true;
2020                     $result->feedback = $OUTPUT->box(format_text($this->get_contents(), $this->properties->contentsformat, $options), 'generalbox boxaligncenter');
2021                     $result->feedback .= '<div class="correctanswer generalbox"><em>'.get_string("youranswer", "lesson").'</em> : '.$result->studentanswer; // already in clean html
2022                     $result->feedback .= $OUTPUT->box($result->response, $class); // already conerted to HTML
2023                     $result->feedback .= '</div>';
2024                 }
2025             }
2026         }
2028         return $result;
2029     }
2031     /**
2032      * Returns the string for a jump name
2033      *
2034      * @final
2035      * @param int $jumpto Jump code or page ID
2036      * @return string
2037      **/
2038     final protected function get_jump_name($jumpto) {
2039         global $DB;
2040         static $jumpnames = array();
2042         if (!array_key_exists($jumpto, $jumpnames)) {
2043             if ($jumpto == LESSON_THISPAGE) {
2044                 $jumptitle = get_string('thispage', 'lesson');
2045             } elseif ($jumpto == LESSON_NEXTPAGE) {
2046                 $jumptitle = get_string('nextpage', 'lesson');
2047             } elseif ($jumpto == LESSON_EOL) {
2048                 $jumptitle = get_string('endoflesson', 'lesson');
2049             } elseif ($jumpto == LESSON_UNSEENBRANCHPAGE) {
2050                 $jumptitle = get_string('unseenpageinbranch', 'lesson');
2051             } elseif ($jumpto == LESSON_PREVIOUSPAGE) {
2052                 $jumptitle = get_string('previouspage', 'lesson');
2053             } elseif ($jumpto == LESSON_RANDOMPAGE) {
2054                 $jumptitle = get_string('randompageinbranch', 'lesson');
2055             } elseif ($jumpto == LESSON_RANDOMBRANCH) {
2056                 $jumptitle = get_string('randombranch', 'lesson');
2057             } elseif ($jumpto == LESSON_CLUSTERJUMP) {
2058                 $jumptitle = get_string('clusterjump', 'lesson');
2059             } else {
2060                 if (!$jumptitle = $DB->get_field('lesson_pages', 'title', array('id' => $jumpto))) {
2061                     $jumptitle = '<strong>'.get_string('notdefined', 'lesson').'</strong>';
2062                 }
2063             }
2064             $jumpnames[$jumpto] = format_string($jumptitle,true);
2065         }
2067         return $jumpnames[$jumpto];
2068     }
2070     /**
2071      * Constructor method
2072      * @param object $properties
2073      * @param lesson $lesson
2074      */
2075     public function __construct($properties, lesson $lesson) {
2076         parent::__construct($properties);
2077         $this->lesson = $lesson;
2078     }
2080     /**
2081      * Returns the score for the attempt
2082      * This may be overridden by page types that require manual grading
2083      * @param array $answers
2084      * @param object $attempt
2085      * @return int
2086      */
2087     public function earned_score($answers, $attempt) {
2088         return $answers[$attempt->answerid]->score;
2089     }
2091     /**
2092      * This is a callback method that can be override and gets called when ever a page
2093      * is viewed
2094      *
2095      * @param bool $canmanage True if the user has the manage cap
2096      * @return mixed
2097      */
2098     public function callback_on_view($canmanage) {
2099         return true;
2100     }
2102     /**
2103      * Updates a lesson page and its answers within the database
2104      *
2105      * @param object $properties
2106      * @return bool
2107      */
2108     public function update($properties, $context = null, $maxbytes = null) {
2109         global $DB, $PAGE;
2110         $answers  = $this->get_answers();
2111         $properties->id = $this->properties->id;
2112         $properties->lessonid = $this->lesson->id;
2113         if (empty($properties->qoption)) {
2114             $properties->qoption = '0';
2115         }
2116         if (empty($context)) {
2117             $context = $PAGE->context;
2118         }
2119         if ($maxbytes === null) {
2120             $maxbytes = get_user_max_upload_file_size($context);
2121         }
2122         $properties->timemodified = time();
2123         $properties = file_postupdate_standard_editor($properties, 'contents', array('noclean'=>true, 'maxfiles'=>EDITOR_UNLIMITED_FILES, 'maxbytes'=>$maxbytes), $context, 'mod_lesson', 'page_contents', $properties->id);
2124         $DB->update_record("lesson_pages", $properties);
2126         for ($i = 0; $i < $this->lesson->maxanswers; $i++) {
2127             if (!array_key_exists($i, $this->answers)) {
2128                 $this->answers[$i] = new stdClass;
2129                 $this->answers[$i]->lessonid = $this->lesson->id;
2130                 $this->answers[$i]->pageid = $this->id;
2131                 $this->answers[$i]->timecreated = $this->timecreated;
2132             }
2134             if (!empty($properties->answer_editor[$i]) && is_array($properties->answer_editor[$i])) {
2135                 $this->answers[$i]->answer = $properties->answer_editor[$i]['text'];
2136                 $this->answers[$i]->answerformat = $properties->answer_editor[$i]['format'];
2137             }
2138             if (!empty($properties->response_editor[$i]) && is_array($properties->response_editor[$i])) {
2139                 $this->answers[$i]->response = $properties->response_editor[$i]['text'];
2140                 $this->answers[$i]->responseformat = $properties->response_editor[$i]['format'];
2141             }
2143             // we don't need to check for isset here because properties called it's own isset method.
2144             if ($this->answers[$i]->answer != '') {
2145                 if (isset($properties->jumpto[$i])) {
2146                     $this->answers[$i]->jumpto = $properties->jumpto[$i];
2147                 }
2148                 if ($this->lesson->custom && isset($properties->score[$i])) {
2149                     $this->answers[$i]->score = $properties->score[$i];
2150                 }
2151                 if (!isset($this->answers[$i]->id)) {
2152                     $this->answers[$i]->id =  $DB->insert_record("lesson_answers", $this->answers[$i]);
2153                 } else {
2154                     $DB->update_record("lesson_answers", $this->answers[$i]->properties());
2155                 }
2157             } else if (isset($this->answers[$i]->id)) {
2158                 $DB->delete_records('lesson_answers', array('id'=>$this->answers[$i]->id));
2159                 unset($this->answers[$i]);
2160             }
2161         }
2162         return true;
2163     }
2165     /**
2166      * Can be set to true if the page requires a static link to create a new instance
2167      * instead of simply being included in the dropdown
2168      * @param int $previd
2169      * @return bool
2170      */
2171     public function add_page_link($previd) {
2172         return false;
2173     }
2175     /**
2176      * Returns true if a page has been viewed before
2177      *
2178      * @param array|int $param Either an array of pages that have been seen or the
2179      *                   number of retakes a user has had
2180      * @return bool
2181      */
2182     public function is_unseen($param) {
2183         global $USER, $DB;
2184         if (is_array($param)) {
2185             $seenpages = $param;
2186             return (!array_key_exists($this->properties->id, $seenpages));
2187         } else {
2188             $nretakes = $param;
2189             if (!$DB->count_records("lesson_attempts", array("pageid"=>$this->properties->id, "userid"=>$USER->id, "retry"=>$nretakes))) {
2190                 return true;
2191             }
2192         }
2193         return false;
2194     }
2196     /**
2197      * Checks to see if a page has been answered previously
2198      * @param int $nretakes
2199      * @return bool
2200      */
2201     public function is_unanswered($nretakes) {
2202         global $DB, $USER;
2203         if (!$DB->count_records("lesson_attempts", array('pageid'=>$this->properties->id, 'userid'=>$USER->id, 'correct'=>1, 'retry'=>$nretakes))) {
2204             return true;
2205         }
2206         return false;
2207     }
2209     /**
2210      * Creates answers within the database for this lesson_page. Usually only ever
2211      * called when creating a new page instance
2212      * @param object $properties
2213      * @return array
2214      */
2215     public function create_answers($properties) {
2216         global $DB;
2217         // now add the answers
2218         $newanswer = new stdClass;
2219         $newanswer->lessonid = $this->lesson->id;
2220         $newanswer->pageid = $this->properties->id;
2221         $newanswer->timecreated = $this->properties->timecreated;
2223         $answers = array();
2225         for ($i = 0; $i < $this->lesson->maxanswers; $i++) {
2226             $answer = clone($newanswer);
2228             if (!empty($properties->answer_editor[$i]) && is_array($properties->answer_editor[$i])) {
2229                 $answer->answer = $properties->answer_editor[$i]['text'];
2230                 $answer->answerformat = $properties->answer_editor[$i]['format'];
2231             }
2232             if (!empty($properties->response_editor[$i]) && is_array($properties->response_editor[$i])) {
2233                 $answer->response = $properties->response_editor[$i]['text'];
2234                 $answer->responseformat = $properties->response_editor[$i]['format'];
2235             }
2237             if (isset($answer->answer) && $answer->answer != '') {
2238                 if (isset($properties->jumpto[$i])) {
2239                     $answer->jumpto = $properties->jumpto[$i];
2240                 }
2241                 if ($this->lesson->custom && isset($properties->score[$i])) {
2242                     $answer->score = $properties->score[$i];
2243                 }
2244                 $answer->id = $DB->insert_record("lesson_answers", $answer);
2245                 $answers[$answer->id] = new lesson_page_answer($answer);
2246             } else {
2247                 break;
2248             }
2249         }
2251         $this->answers = $answers;
2252         return $answers;
2253     }
2255     /**
2256      * This method MUST be overridden by all question page types, or page types that
2257      * wish to score a page.
2258      *
2259      * The structure of result should always be the same so it is a good idea when
2260      * overriding this method on a page type to call
2261      * <code>
2262      * $result = parent::check_answer();
2263      * </code>
2264      * before modifying it as required.
2265      *
2266      * @return stdClass
2267      */
2268     public function check_answer() {
2269         $result = new stdClass;
2270         $result->answerid        = 0;
2271         $result->noanswer        = false;
2272         $result->correctanswer   = false;
2273         $result->isessayquestion = false;   // use this to turn off review button on essay questions
2274         $result->response        = '';
2275         $result->newpageid       = 0;       // stay on the page
2276         $result->studentanswer   = '';      // use this to store student's answer(s) in order to display it on feedback page
2277         $result->userresponse    = null;
2278         $result->feedback        = '';
2279         $result->nodefaultresponse  = false; // Flag for redirecting when default feedback is turned off
2280         return $result;
2281     }
2283     /**
2284      * True if the page uses a custom option
2285      *
2286      * Should be override and set to true if the page uses a custom option.
2287      *
2288      * @return bool
2289      */
2290     public function has_option() {
2291         return false;
2292     }
2294     /**
2295      * Returns the maximum number of answers for this page given the maximum number
2296      * of answers permitted by the lesson.
2297      *
2298      * @param int $default
2299      * @return int
2300      */
2301     public function max_answers($default) {
2302         return $default;
2303     }
2305     /**
2306      * Returns the properties of this lesson page as an object
2307      * @return stdClass;
2308      */
2309     public function properties() {
2310         $properties = clone($this->properties);
2311         if ($this->answers === null) {
2312             $this->get_answers();
2313         }
2314         if (count($this->answers)>0) {
2315             $count = 0;
2316             $qtype = $properties->qtype;
2317             foreach ($this->answers as $answer) {
2318                 $properties->{'answer_editor['.$count.']'} = array('text' => $answer->answer, 'format' => $answer->answerformat);
2319                 if ($qtype != LESSON_PAGE_MATCHING) {
2320                     $properties->{'response_editor['.$count.']'} = array('text' => $answer->response, 'format' => $answer->responseformat);
2321                 } else {
2322                     $properties->{'response_editor['.$count.']'} = $answer->response;
2323                 }
2324                 $properties->{'jumpto['.$count.']'} = $answer->jumpto;
2325                 $properties->{'score['.$count.']'} = $answer->score;
2326                 $count++;
2327             }
2328         }
2329         return $properties;
2330     }
2332     /**
2333      * Returns an array of options to display when choosing the jumpto for a page/answer
2334      * @static
2335      * @param int $pageid
2336      * @param lesson $lesson
2337      * @return array
2338      */
2339     public static function get_jumptooptions($pageid, lesson $lesson) {
2340         global $DB;
2341         $jump = array();
2342         $jump[0] = get_string("thispage", "lesson");
2343         $jump[LESSON_NEXTPAGE] = get_string("nextpage", "lesson");
2344         $jump[LESSON_PREVIOUSPAGE] = get_string("previouspage", "lesson");
2345         $jump[LESSON_EOL] = get_string("endoflesson", "lesson");
2347         if ($pageid == 0) {
2348             return $jump;
2349         }
2351         $pages = $lesson->load_all_pages();
2352         if ($pages[$pageid]->qtype == LESSON_PAGE_BRANCHTABLE || $lesson->is_sub_page_of_type($pageid, array(LESSON_PAGE_BRANCHTABLE), array(LESSON_PAGE_ENDOFBRANCH, LESSON_PAGE_CLUSTER))) {
2353             $jump[LESSON_UNSEENBRANCHPAGE] = get_string("unseenpageinbranch", "lesson");
2354             $jump[LESSON_RANDOMPAGE] = get_string("randompageinbranch", "lesson");
2355         }
2356         if($pages[$pageid]->qtype == LESSON_PAGE_CLUSTER || $lesson->is_sub_page_of_type($pageid, array(LESSON_PAGE_CLUSTER), array(LESSON_PAGE_ENDOFCLUSTER))) {
2357             $jump[LESSON_CLUSTERJUMP] = get_string("clusterjump", "lesson");
2358         }
2359         if (!optional_param('firstpage', 0, PARAM_INT)) {
2360             $apageid = $DB->get_field("lesson_pages", "id", array("lessonid" => $lesson->id, "prevpageid" => 0));
2361             while (true) {
2362                 if ($apageid) {
2363                     $title = $DB->get_field("lesson_pages", "title", array("id" => $apageid));
2364                     $jump[$apageid] = strip_tags(format_string($title,true));
2365                     $apageid = $DB->get_field("lesson_pages", "nextpageid", array("id" => $apageid));
2366                 } else {
2367                     // last page reached
2368                     break;
2369                 }
2370             }
2371         }
2372         return $jump;
2373     }
2374     /**
2375      * Returns the contents field for the page properly formatted and with plugin
2376      * file url's converted
2377      * @return string
2378      */
2379     public function get_contents() {
2380         global $PAGE;
2381         if (!empty($this->properties->contents)) {
2382             if (!isset($this->properties->contentsformat)) {
2383                 $this->properties->contentsformat = FORMAT_HTML;
2384             }
2385             $context = context_module::instance($PAGE->cm->id);
2386             $contents = file_rewrite_pluginfile_urls($this->properties->contents, 'pluginfile.php', $context->id, 'mod_lesson',
2387                                                      'page_contents', $this->properties->id);  // Must do this BEFORE format_text()!
2388             return format_text($contents, $this->properties->contentsformat,
2389                                array('context' => $context, 'noclean' => true,
2390                                      'overflowdiv' => true));  // Page edit is marked with XSS, we want all content here.
2391         } else {
2392             return '';
2393         }
2394     }
2396     /**
2397      * Set to true if this page should display in the menu block
2398      * @return bool
2399      */
2400     protected function get_displayinmenublock() {
2401         return false;
2402     }
2404     /**
2405      * Get the string that describes the options of this page type
2406      * @return string
2407      */
2408     public function option_description_string() {
2409         return '';
2410     }
2412     /**
2413      * Updates a table with the answers for this page
2414      * @param html_table $table
2415      * @return html_table
2416      */
2417     public function display_answers(html_table $table) {
2418         $answers = $this->get_answers();
2419         $i = 1;
2420         foreach ($answers as $answer) {
2421             $cells = array();
2422             $cells[] = "<span class=\"label\">".get_string("jump", "lesson")." $i<span>: ";
2423             $cells[] = $this->get_jump_name($answer->jumpto);
2424             $table->data[] = new html_table_row($cells);
2425             if ($i === 1){
2426                 $table->data[count($table->data)-1]->cells[0]->style = 'width:20%;';
2427             }
2428             $i++;
2429         }
2430         return $table;
2431     }
2433     /**
2434      * Determines if this page should be grayed out on the management/report screens
2435      * @return int 0 or 1
2436      */
2437     protected function get_grayout() {
2438         return 0;
2439     }
2441     /**
2442      * Adds stats for this page to the &pagestats object. This should be defined
2443      * for all page types that grade
2444      * @param array $pagestats
2445      * @param int $tries
2446      * @return bool
2447      */
2448     public function stats(array &$pagestats, $tries) {
2449         return true;
2450     }
2452     /**
2453      * Formats the answers of this page for a report
2454      *
2455      * @param object $answerpage
2456      * @param object $answerdata
2457      * @param object $useranswer
2458      * @param array $pagestats
2459      * @param int $i Count of first level answers
2460      * @param int $n Count of second level answers
2461      * @return object The answer page for this
2462      */
2463     public function report_answers($answerpage, $answerdata, $useranswer, $pagestats, &$i, &$n) {
2464         $answers = $this->get_answers();
2465         $formattextdefoptions = new stdClass;
2466         $formattextdefoptions->para = false;  //I'll use it widely in this page
2467         foreach ($answers as $answer) {
2468             $data = get_string('jumpsto', 'lesson', $this->get_jump_name($answer->jumpto));
2469             $answerdata->answers[] = array($data, "");
2470             $answerpage->answerdata = $answerdata;
2471         }
2472         return $answerpage;
2473     }
2475     /**
2476      * Gets an array of the jumps used by the answers of this page
2477      *
2478      * @return array
2479      */
2480     public function get_jumps() {
2481         global $DB;
2482         $jumps = array();
2483         $params = array ("lessonid" => $this->lesson->id, "pageid" => $this->properties->id);
2484         if ($answers = $this->get_answers()) {
2485             foreach ($answers as $answer) {
2486                 $jumps[] = $this->get_jump_name($answer->jumpto);
2487             }
2488         } else {
2489             $jumps[] = $this->get_jump_name($this->properties->nextpageid);
2490         }
2491         return $jumps;
2492     }
2493     /**
2494      * Informs whether this page type require manual grading or not
2495      * @return bool
2496      */
2497     public function requires_manual_grading() {
2498         return false;
2499     }
2501     /**
2502      * A callback method that allows a page to override the next page a user will
2503      * see during when this page is being completed.
2504      * @return false|int
2505      */
2506     public function override_next_page() {
2507         return false;
2508     }
2510     /**
2511      * This method is used to determine if this page is a valid page
2512      *
2513      * @param array $validpages
2514      * @param array $pageviews
2515      * @return int The next page id to check
2516      */
2517     public function valid_page_and_view(&$validpages, &$pageviews) {
2518         $validpages[$this->properties->id] = 1;
2519         return $this->properties->nextpageid;
2520     }
2525 /**
2526  * Class used to represent an answer to a page
2527  *
2528  * @property int $id The ID of this answer in the database
2529  * @property int $lessonid The ID of the lesson this answer belongs to
2530  * @property int $pageid The ID of the page this answer belongs to
2531  * @property int $jumpto Identifies where the user goes upon completing a page with this answer
2532  * @property int $grade The grade this answer is worth
2533  * @property int $score The score this answer will give
2534  * @property int $flags Used to store options for the answer
2535  * @property int $timecreated A timestamp of when the answer was created
2536  * @property int $timemodified A timestamp of when the answer was modified
2537  * @property string $answer The answer itself
2538  * @property string $response The response the user sees if selecting this answer
2539  *
2540  * @copyright  2009 Sam Hemelryk
2541  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
2542  */
2543 class lesson_page_answer extends lesson_base {
2545     /**
2546      * Loads an page answer from the DB
2547      *
2548      * @param int $id
2549      * @return lesson_page_answer
2550      */
2551     public static function load($id) {
2552         global $DB;
2553         $answer = $DB->get_record("lesson_answers", array("id" => $id));
2554         return new lesson_page_answer($answer);
2555     }
2557     /**
2558      * Given an object of properties and a page created answer(s) and saves them
2559      * in the database.
2560      *
2561      * @param stdClass $properties
2562      * @param lesson_page $page
2563      * @return array
2564      */
2565     public static function create($properties, lesson_page $page) {
2566         return $page->create_answers($properties);
2567     }
2571 /**
2572  * A management class for page types
2573  *
2574  * This class is responsible for managing the different pages. A manager object can
2575  * be retrieved by calling the following line of code:
2576  * <code>
2577  * $manager  = lesson_page_type_manager::get($lesson);
2578  * </code>
2579  * The first time the page type manager is retrieved the it includes all of the
2580  * different page types located in mod/lesson/pagetypes.
2581  *
2582  * @copyright  2009 Sam Hemelryk
2583  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
2584  */
2585 class lesson_page_type_manager {
2587     /**
2588      * An array of different page type classes
2589      * @var array
2590      */
2591     protected $types = array();
2593     /**
2594      * Retrieves the lesson page type manager object
2595      *
2596      * If the object hasn't yet been created it is created here.
2597      *
2598      * @staticvar lesson_page_type_manager $pagetypemanager
2599      * @param lesson $lesson
2600      * @return lesson_page_type_manager
2601      */
2602     public static function get(lesson $lesson) {
2603         static $pagetypemanager;
2604         if (!($pagetypemanager instanceof lesson_page_type_manager)) {
2605             $pagetypemanager = new lesson_page_type_manager();
2606             $pagetypemanager->load_lesson_types($lesson);
2607         }
2608         return $pagetypemanager;
2609     }
2611     /**
2612      * Finds and loads all lesson page types in mod/lesson/pagetypes
2613      *
2614      * @param lesson $lesson
2615      */
2616     public function load_lesson_types(lesson $lesson) {
2617         global $CFG;
2618         $basedir = $CFG->dirroot.'/mod/lesson/pagetypes/';
2619         $dir = dir($basedir);
2620         while (false !== ($entry = $dir->read())) {
2621             if (strpos($entry, '.')===0 || !preg_match('#^[a-zA-Z]+\.php#i', $entry)) {
2622                 continue;
2623             }
2624             require_once($basedir.$entry);
2625             $class = 'lesson_page_type_'.strtok($entry,'.');
2626             if (class_exists($class)) {
2627                 $pagetype = new $class(new stdClass, $lesson);
2628                 $this->types[$pagetype->typeid] = $pagetype;
2629             }
2630         }
2632     }
2634     /**
2635      * Returns an array of strings to describe the loaded page types
2636      *
2637      * @param int $type Can be used to return JUST the string for the requested type
2638      * @return array
2639      */
2640     public function get_page_type_strings($type=null, $special=true) {
2641         $types = array();
2642         foreach ($this->types as $pagetype) {
2643             if (($type===null || $pagetype->type===$type) && ($special===true || $pagetype->is_standard())) {
2644                 $types[$pagetype->typeid] = $pagetype->typestring;
2645             }
2646         }
2647         return $types;
2648     }
2650     /**
2651      * Returns the basic string used to identify a page type provided with an id
2652      *
2653      * This string can be used to instantiate or identify the page type class.
2654      * If the page type id is unknown then 'unknown' is returned
2655      *
2656      * @param int $id
2657      * @return string
2658      */
2659     public function get_page_type_idstring($id) {
2660         foreach ($this->types as $pagetype) {
2661             if ((int)$pagetype->typeid === (int)$id) {
2662                 return $pagetype->idstring;
2663             }
2664         }
2665         return 'unknown';
2666     }
2668     /**
2669      * Loads a page for the provided lesson given it's id
2670      *
2671      * This function loads a page from the lesson when given both the lesson it belongs
2672      * to as well as the page's id.
2673      * If the page doesn't exist an error is thrown
2674      *
2675      * @param int $pageid The id of the page to load
2676      * @param lesson $lesson The lesson the page belongs to
2677      * @return lesson_page A class that extends lesson_page
2678      */
2679     public function load_page($pageid, lesson $lesson) {
2680         global $DB;
2681         if (!($page =$DB->get_record('lesson_pages', array('id'=>$pageid, 'lessonid'=>$lesson->id)))) {
2682             print_error('cannotfindpages', 'lesson');
2683         }
2684         $pagetype = get_class($this->types[$page->qtype]);
2685         $page = new $pagetype($page, $lesson);
2686         return $page;
2687     }
2689     /**
2690      * This function detects errors in the ordering between 2 pages and updates the page records.
2691      *
2692      * @param stdClass $page1 Either the first of 2 pages or null if the $page2 param is the first in the list.
2693      * @param stdClass $page1 Either the second of 2 pages or null if the $page1 param is the last in the list.
2694      */
2695     protected function check_page_order($page1, $page2) {
2696         global $DB;
2697         if (empty($page1)) {
2698             if ($page2->prevpageid != 0) {
2699                 debugging("***prevpageid of page " . $page2->id . " set to 0***");
2700                 $page2->prevpageid = 0;
2701                 $DB->set_field("lesson_pages", "prevpageid", 0, array("id" => $page2->id));
2702             }
2703         } else if (empty($page2)) {
2704             if ($page1->nextpageid != 0) {
2705                 debugging("***nextpageid of page " . $page1->id . " set to 0***");
2706                 $page1->nextpageid = 0;
2707                 $DB->set_field("lesson_pages", "nextpageid", 0, array("id" => $page1->id));
2708             }
2709         } else {
2710             if ($page1->nextpageid != $page2->id) {
2711                 debugging("***nextpageid of page " . $page1->id . " set to " . $page2->id . "***");
2712                 $page1->nextpageid = $page2->id;
2713                 $DB->set_field("lesson_pages", "nextpageid", $page2->id, array("id" => $page1->id));
2714             }
2715             if ($page2->prevpageid != $page1->id) {
2716                 debugging("***prevpageid of page " . $page2->id . " set to " . $page1->id . "***");
2717                 $page2->prevpageid = $page1->id;
2718                 $DB->set_field("lesson_pages", "prevpageid", $page1->id, array("id" => $page2->id));
2719             }
2720         }
2721     }
2723     /**
2724      * This function loads ALL pages that belong to the lesson.
2725      *
2726      * @param lesson $lesson
2727      * @return array An array of lesson_page_type_*
2728      */
2729     public function load_all_pages(lesson $lesson) {
2730         global $DB;
2731         if (!($pages =$DB->get_records('lesson_pages', array('lessonid'=>$lesson->id)))) {
2732             print_error('cannotfindpages', 'lesson');
2733         }
2734         foreach ($pages as $key=>$page) {
2735             $pagetype = get_class($this->types[$page->qtype]);
2736             $pages[$key] = new $pagetype($page, $lesson);
2737         }
2739         $orderedpages = array();
2740         $lastpageid = 0;
2741         $morepages = true;
2742         while ($morepages) {
2743             $morepages = false;
2744             foreach ($pages as $page) {
2745                 if ((int)$page->prevpageid === (int)$lastpageid) {
2746                     // Check for errors in page ordering and fix them on the fly.
2747                     $prevpage = null;
2748                     if ($lastpageid !== 0) {
2749                         $prevpage = $orderedpages[$lastpageid];
2750                     }
2751                     $this->check_page_order($prevpage, $page);
2752                     $morepages = true;
2753                     $orderedpages[$page->id] = $page;
2754                     unset($pages[$page->id]);
2755                     $lastpageid = $page->id;
2756                     if ((int)$page->nextpageid===0) {
2757                         break 2;
2758                     } else {
2759                         break 1;
2760                     }
2761                 }
2762             }
2763         }
2765         // Add remaining pages and fix the nextpageid links for each page.
2766         foreach ($pages as $page) {
2767             // Check for errors in page ordering and fix them on the fly.
2768             $prevpage = null;
2769             if ($lastpageid !== 0) {
2770                 $prevpage = $orderedpages[$lastpageid];
2771             }
2772             $this->check_page_order($prevpage, $page);
2773             $orderedpages[$page->id] = $page;
2774             unset($pages[$page->id]);
2775             $lastpageid = $page->id;
2776         }
2778         if ($lastpageid !== 0) {
2779             $this->check_page_order($orderedpages[$lastpageid], null);
2780         }
2782         return $orderedpages;
2783     }
2785     /**
2786      * Fetches an mform that can be used to create/edit an page
2787      *
2788      * @param int $type The id for the page type
2789      * @param array $arguments Any arguments to pass to the mform
2790      * @return lesson_add_page_form_base
2791      */
2792     public function get_page_form($type, $arguments) {
2793         $class = 'lesson_add_page_form_'.$this->get_page_type_idstring($type);
2794         if (!class_exists($class) || get_parent_class($class)!=='lesson_add_page_form_base') {
2795             debugging('Lesson page type unknown class requested '.$class, DEBUG_DEVELOPER);
2796             $class = 'lesson_add_page_form_selection';
2797         } else if ($class === 'lesson_add_page_form_unknown') {
2798             $class = 'lesson_add_page_form_selection';
2799         }
2800         return new $class(null, $arguments);
2801     }
2803     /**
2804      * Returns an array of links to use as add page links
2805      * @param int $previd The id of the previous page
2806      * @return array
2807      */
2808     public function get_add_page_type_links($previd) {
2809         global $OUTPUT;
2811         $links = array();
2813         foreach ($this->types as $key=>$type) {
2814             if ($link = $type->add_page_link($previd)) {
2815                 $links[$key] = $link;
2816             }
2817         }
2819         return $links;
2820     }