MDL-22028 multichoice is now default new question type - anything is better that the horrible essay type

mod/lesson/editpage.php

@@ -74,7 +74,10 @@ if ($edit) {
     $data = new stdClass;
     $data->id = $cm->id;
     $data->pageid = $pageid;
-    $data->qtype = $qtype;
+    if ($qtype) {
+        //TODO: the handling of form for the selection of question type is a bloody hack! (skodak)
+        $data->qtype = $qtype;
+    }
     $data = file_prepare_standard_editor($data, 'contents', $editoroptions, null);
     $mform->set_data($data);
     $PAGE->navbar->add(get_string('addanewpage', 'lesson'), $PAGE->url);

mod/lesson/editpage_form.php

@@ -48,6 +48,7 @@ class lesson_add_page_form_selection extends lesson_add_page_form_base {
         $types = $this->manager->get_page_type_strings(lesson_page::TYPE_QUESTION);
         asort($types);
         $mform->addElement('select', 'qtype', get_string('selectaqtype', 'lesson'), $types);
+        $mform->setDefault('qtype', LESSON_PAGE_MULTICHOICE); // preselect the most common type
     }
 }