- id.
- '" id="s'.$question->id.'" />';
- $reordercheckboxlabel='
';
- $reordercheckboxlabelclose=' ';
- }
- if (!$quiz->shufflequestions) {
- // Print and increment question number
- $questioncountstring="";
- if ($questioncount>999 OR ($reordertool && $questioncount>99)){
- $questioncountstring=
- "$reordercheckboxlabel
$questioncount ".
- $reordercheckboxlabelclose.$reordercheckbox;
- }else{
- $questioncountstring=$reordercheckboxlabel.$questioncount.
- $reordercheckboxlabelclose.$reordercheckbox;
- }
- echo $questioncountstring;
- $qno += $question->length;
+ // Show the re-ordering field if the tool is turned on.
+ // But don't show it in front of pagebreaks if they are hidden.
+ if ($reordertool) {
+ if ($qnum or $showbreaks) {
+ echo '
-
qtype != 'description' && !$reordertool) {
- ?>
-
-
-
- ';
- ?>
-
-
-
-
- qtype,'random')===0){ // it is a random question
- if(!$reordertool){
- quiz_print_randomquestion($question, $pageurl, $quiz,
- $quiz_qbanktool);
- }else{
- quiz_print_randomquestion_reordertool($question,
- $pageurl, $quiz);
- }
- }else{ // it is a single question
- if(!$reordertool){
- quiz_print_singlequestion($question, $questionurl, $quiz);
- }else{
- quiz_print_singlequestion_reordertool($question,
- $questionurl, $quiz);
- }
- }
- ?>
-
-
';
+ echo '';
+ echo 'Page break ';
+ echo '';
+ if ($count > 1) {
+ echo "out_action(array('up'=>$count))."\"> ";
}
- echo "";
+ echo ' ';
+ if ($count < $lastindex) {
+ echo "out_action(array('down'=>$count))."\"> ";
- if(!$reordertool){
- echo "";
- print_single_button($pageurl->out(true),
- array("cmid"=>$quiz->cmid,
- "courseid"=>$quiz->course,
- "addpage"=>$count,
- "sesskey"=>sesskey()),
- get_string("addpagehere","quiz"),
- 'get',
- '_self',
- false,
- '',
- $hasattempts);
- echo "
";
+ echo "out_action(array('delete'=>$count))."\">
+ ";
}
- $pagecount;
- $pageopen=false;
- $count++;
+ echo '
';
}
- }
-
- }
- if($reordertool){
- echo $reordercontrolsbottom;
- echo '';
- }
-
-
-
- return $sumgrade;
-}
-
-/**
- * Print all the controls for adding questions directly into the
- * specific page in the edit tab of edit.php
- *
- * @param unknown_type $quiz
- * @param unknown_type $pageurl
- * @param unknown_type $page
- * @param unknown_type $hasattempts
- */
-function quiz_print_pagecontrols($quiz,$pageurl,$page, $hasattempts){
- global $CFG;
- $strcreatenewquestion=get_string("createnewquestion",'quiz');
- $strselectquestiontype=get_string("selectquestiontype",'quiz');
- echo '';
- // get the current context
- $thiscontext = get_context_instance(CONTEXT_COURSE, $quiz->course);
- $contexts = new question_edit_contexts($thiscontext);
- // get default category and turn its infor into a string that works in an url
- $defaultcategory = question_make_default_categories($contexts->all());
- $categorystring = "$defaultcategory->id,$defaultcategory->contextid";
- //create the url the question page will return to
- $returnurl_addtoquiz=new moodle_url($pageurl->out(true),
- array("addonpage"=>$page));
- //create the url of the new question page to forward to. return url is given
- //as a parameter and automatically urlencoded.
- $newquestionparams = array('returnurl' => $returnurl_addtoquiz->out(false),
- 'cmid'=>$quiz->cmid, "appendqnumstring"=>"addquestion", "category"=>$categorystring);
- $newquestionurl_object = new moodle_url("$CFG->wwwroot/question/question.php",
- $newquestionparams);
- $newquestionurl=$newquestionurl_object->out(false);
- echo get_string("addquestion","quiz").": ";
- if ($hasattempts) {
- $disabled = 'disabled="disabled"';
- } else {
- $disabled = '';
- }
- popup_form ($newquestionurl.'&qtype=',
- question_type_menu(),
- "addquestion_$page",
- "",
- $strselectquestiontype,
- "",
- "",
- false,
- "self",
- "",
- null,
- $strcreatenewquestion, $hasattempts);
- helpbutton("questiontypes", $strcreatenewquestion, "quiz");
- echo '
';
- print_single_button($CFG->wwwroot."/question/question.php",
- array("cmid"=>$quiz->cmid,
- "courseid"=>$quiz->course,
- "returnurl"=>$returnurl_addtoquiz->out(false),
- "appendqnumstring"=>"addquestion",
- "category"=>$categorystring,
- "qtype"=>"description"),
- get_string("adddescriptionlabel","quiz"),'get', '_self', false, '',
- $hasattempts);
- echo "\n
";
- ?>
-
- ";
-}
-/**
- * Process submitted form data to create a new category for a random question
- * This is used by edit.php and addrandom.php
- * cmid
- *
- * @param object $qcobject
- * @param boolean $redirect if true, redirect to edit.php with GET
- * parameters to add the question
- * @param integer $cmid id of the quiz' course module; required if $redirect=true
- * @return mixed category_id if $redirect==false and operation successfull, returns new category's id. if operation failed, returns false.
- */
-function quiz_process_randomquestion_formdata(&$qcobject, $redirect=false, $cmid=0){
- global $CFG;
- $newrandomcategory=0;
- $addonpage=0;
- if ($redirect && !$cmid){
- return false;
- }
- if ($qcobject->catform_rand->is_cancelled()){
- return false;
- }elseif ($catformdata = $qcobject->catform_rand->get_data()) {
- $addonpage=$catformdata->addonpage;
- if (!$catformdata->id) {//new category
- $newrandomcategory=$qcobject->add_category($catformdata->parent,
- $catformdata->name, $catformdata->info,true);
- if(!is_null($newrandomcategory)){
- if (! $newcategory = get_record('question_categories', 'id',
- $newrandomcategory)) {
- error('Category ID is incorrect');
- }
- }else{
- error("New category for random question could not be created.");
- return false;
- }
- } else {
- error("New category for random question could not be created.");
- return false;
+ $count++;
+ // missing
here, if loop is broken, need to close the
+ echo "";
+ continue;
}
- }
- if ($redirect && $newrandomcategory){
- redirect($CFG->wwwroot."/mod/quiz/edit.php?cmid=$cmid&addonpage=$addonpage&addrandom=1&categoryid=$newrandomcategory&randomcount=1&sesskey=".sesskey());
- }else{
- return($newrandomcategory);
-
- }
-}
+ $question = $questions[$qnum];
-
-/**
- * Print a simple question list of the questions in a question bank category.
- * Used for random question display in the edit tab of edit.php
- */
-function quiz_simple_question_list($pageurl, $categorylist, $numbertoshow=3,
- $showhidden=false, $sortorderdecoded='qtype, name ASC',
- $showquestiontext = true){
-
- if (!$questions = get_records_select('question',
- "category IN ($categorylist) AND parent = '0' $showhidden",
- $sortorderdecoded, '*', 0, $numbertoshow)) {
- // There are no questions on the requested page.
- $page = 0;
- if (!$questions = get_records_select('question',
- "category IN ($categorylist) AND parent = '0' $showhidden",
- $sortorderdecoded, '*', 0, $perpage)) {
- // There are no questions at all
- //TODO: if moodle used PHP exceptions, we would raise one here so that
- //the main UI would know to display quis status "unfinished".
- return;
+ echo "
";
+ if ($count != 0) {
+ echo "out_action(array('up'=>$count))."\"> ";
}
- }
- foreach ($questions as $question) {
- echo "";
- quiz_question_tostring($question,true, $showquestiontext, false);
- echo " ";
- }
-}
-/**
- * Print a given single question in quiz for the edit tab of edit.php.
- * Meant to be used from quiz_print_question_list()
- */
-function quiz_print_singlequestion(&$question, &$questionurl, &$quiz){
- $stredit = get_string("edit");
- $strview = get_string("view");
-
- global $COURSE,$QTYPES,$CFG;
- ?>
-
- noclean = false;
- $formatoptions->para = false;
- $formatoptions->newlines = false;
- $questiontext=strip_tags(format_text($question->questiontext,
- FORMAT_MOODLE,$formatoptions, $COURSE->id));
- if (question_has_capability_on($question, 'edit', $question->category)
- || question_has_capability_on($question, 'move',
- $question->category)) {
- echo "
out()."\">".
- "'
- ." ";
- } elseif (question_has_capability_on($question, 'view',
- $question->category)){
- echo "
out(false, array('id'=>$question->id))."\">".
- " ";
- }else{
- echo $questiontext;
- }
- echo '
';
- $namestr = $QTYPES[$question->qtype]->menu_name();
- print_question_icon($question);
- echo " $namestr ";
- echo '
'.
- quiz_question_preview_button($quiz, $question).' ';
- ?>
-
';
- print_question_icon($question);
- print_string('random','quiz');
- echo " ".get_string("fromcategory",'quiz').":
";
-
- echo '";
-
- $questioncount=count_records_select('question',
- "category IN ($category->id) AND parent = '0' ");
-
- echo ' ";
+ echo "
";
+ if ($count < $lastindex-1) {
+ echo "out_action(array('down'=>$count))."\"> ";
}
- print_string("totalquestionsinrandomqcategory","quiz",$questioncount);
- echo "";
- echo "";
- }
-
- echo "";
-
- echo '';
- echo "
";
-
- echo "";
-
-}
-
-/**
- * Print a given single question in quiz for the reordertool tab of edit.php.
- * Meant to be used from quiz_print_question_list()
- */
-function quiz_print_singlequestion_reordertool(&$question, &$questionurl, &$quiz){
- $stredit = get_string("edit");
- $strview = get_string("view");
-
- global $COURSE,$QTYPES, $CFG;
- $reordercheckboxlabel='';
- $reordercheckboxlabelclose=' ';
-
- ?>
-
- noclean = false;
- $formatoptions->para = false;
- $formatoptions->newlines = false;
- echo $reordercheckboxlabel;
- print_question_icon($question);
- echo "$reordercheckboxlabelclose ";
- $questiontext=strip_tags(format_text($question->questiontext,
- FORMAT_MOODLE,$formatoptions, $COURSE->id));
- $editstring="";
- if (question_has_capability_on($question, 'edit', $question->category) || question_has_capability_on($question, 'move', $question->category)) {
- echo "$reordercheckboxlabel ".
- quiz_question_tostring($question,false).
- $reordercheckboxlabelclose;
- $editstring="
out(false, array('id'=>$question->id)).
- "\"> ";
- } elseif (question_has_capability_on($question, 'view',
- $question->category)){
- echo "$reordercheckboxlabel".
- quiz_question_tostring($question,false).
- "$reordercheckboxlabelclose";
- $editstring="
out(false,
- array('id'=>$question->id))."\">$questionstring ";
- }else{
- echo "$reordercheckboxlabel".
- quiz_question_tostring($question,false).
- "$reordercheckboxlabelclose";
- }
- echo '
'.$editstring.
- quiz_question_preview_button($quiz, $question, false).
- ' ';
- ?>
-
';
-
- //TODO: I am bad with contexts so I left this out from the below get_record call:, 'contextid', $contextid
- if (!$category = get_record('question_categories', 'id', $question->category)) {
- notify('Random question category not found!');
- return;
- }
- echo '
';
- $url=$pageurl->out(false,array("qbanktool"=>1, "cat"=>$category->id.','.
- $category->contextid));
- $reordercheckboxlabel='
';
- $reordercheckboxlabelclose=' ';
-
- echo $reordercheckboxlabel;
- print_question_icon($question);
- $editstring= "
";
- $questioncount=count_records_select('question',
- "category IN ($category->id) AND parent = '0' ");
- $randomquestionlistsize=3;
-
- if(!$questioncount){
- echo '
';
- print_string("empty", "quiz");
- echo ' ';
- }
-
- print_string('random','quiz');
- echo ": $reordercheckboxlabelclose
";
-
- echo '
';
- echo ''.$reordercheckboxlabel.$category->name.
- $reordercheckboxlabelclose.'';
- echo ''.$editstring.
- quiz_question_preview_button($quiz, $question,false).' ';
-
- echo "
";
-
-
- echo '
';
- echo "
";
-
- echo "
';
- if($showicon){
- $result.=print_question_icon($question,true);
- echo " ";
- }
- $result.=shorten_text(format_string($question->name),200).' ';
- if($showquestiontext){
- $formatoptions = new stdClass;
- $formatoptions->noclean = true;
- $formatoptions->para = false;
- $questiontext=strip_tags(format_text($question->questiontext,
- $question->questiontextformat,
- $formatoptions, $COURSE->id));
- $questiontext=shorten_text($questiontext,200);
- $result.='';
- if(!empty($questiontext)){
- $result.=$questiontext;
- }else{
- //TODO: if moodle used PHP exceptions, we would raise one here so that
- //the main UI would know to display quis status "unfinished".
- $result.='';
- $result.= get_string("questiontextisempty","quiz");
- $result.=' ';
- }
- $result.=' ';
- }
- if($return){
- return $result;
- }else{
- echo $result;
+ if (!$quiz->shufflequestions) {
+ // Print and increment question number
+ echo ' '.($question->length ? $qno : ' ').' ';
+ $qno += $question->length;
+ } else {
+ echo '
';
}
-}
-
-
-
-
-/**
- * Shows the question bank editing interface.
- * A changed copy of the function at question/editlib.php; to be refactored.
- *
- * The function also processes a number of actions:
- *
- * Actions affecting the question pool:
- * move Moves a question to a different category
- * deleteselected Deletes the selected questions from the category
- * Other actions:
- * category Chooses the category
- * displayoptions Sets display options
- *
- * @author Martin Dougiamas and many others. This has recently been extensively
- * rewritten by Gustav Delius and other members of the Serving Mathematics project
- * {@link http://maths.york.ac.uk/serving_maths}
- * @param moodle_url $pageurl object representing this pages url.
- */
-function quiz_question_showbank($tabname, $contexts, $pageurl, $cm,
- $page, $perpage, $sortorder, $sortorderdecoded, $cat, $recurse,
- $showhidden, $showquestiontext, $cmoptions){
- global $COURSE;
-
- if (optional_param('deleteselected', false, PARAM_BOOL)){ // teacher still has to confirm
- // make a list of all the questions that are selected
- $rawquestions = $_REQUEST; // This code is called by both POST forms and GET links, so cannot use data_submitted.
- $questionlist = ''; // comma separated list of ids of questions to be deleted
- $questionnames = ''; // string with names of questions separated by
with
- // an asterix in front of those that are in use
- $inuse = false; // set to true if at least one of the questions is in use
- foreach ($rawquestions as $key => $value) { // Parse input for question ids
- if (preg_match('!^q([0-9]+)$!', $key, $matches)) {
- $key = $matches[1];
- $questionlist .= $key.',';
- question_require_capability_on($key, 'edit');
- if (record_exists('quiz_question_instances', 'question', $key)) {
- $questionnames .= '* ';
- $inuse = true;
- }
- $questionnames .= get_field('question', 'name', 'id', $key).
- '
';
- }
- }
- if (!$questionlist) { // no questions were selected
- redirect($pageurl->out());
+ echo '
' . format_string($question->name) . ' ';
+ echo "
";
+ print_question_icon($question);
+ echo " ";
+ echo '
';
+ if ($question->qtype == 'description') {
+ echo " ';
- // Add an explanation about questions in use
- if ($inuse) {
- $questionnames .= '";
- print_string("selectcategoryabove", "quiz");
- echo "
";
- print_box_end();
- return;
+ $returnurl = $pageurl->out();
+ $questionparams = array('returnurl' => $returnurl, 'cmid'=>$quiz->cmid, 'id' => $question->id);
+ $questionurl = new moodle_url("$CFG->wwwroot/question/question.php", $questionparams);
+ if (question_has_capability_on($question, 'edit', $question->category) || question_has_capability_on($question, 'move', $question->category)) {
+ echo "out()."\">
+ ";
+ } elseif (question_has_capability_on($question, 'view', $question->category)){
+ echo "out(false, array('id'=>$question->id))."\"> ";
}
-
- if (!$category = get_record('question_categories', 'id', $categoryid,
- 'contextid', $contextid)) {
- print_box_start('generalbox questionbank');
- notify('Category not found!');
- print_box_end();
- return;
+ if ($allowdelete && question_has_capability_on($question, 'use', $question->category)) { // remove from quiz, not question delete.
+ echo "out_action(array('delete'=>$count))."\">
+ ";
}
- $formatoptions = new stdClass;
- $formatoptions->noclean = true;
- $strcategory = get_string('category', 'quiz');
- echo ''.
- $strcategory;
- echo ': ';
- echo shorten_text(strip_tags(format_text($category->name, FORMAT_MOODLE,
- $formatoptions, $COURSE->id)),60);
- echo '
';
- echo shorten_text(strip_tags(format_text($category->info, FORMAT_MOODLE,
- $formatoptions, $COURSE->id)),200);
- echo '
";
- print_string("selectcategoryabove", "quiz");
- echo "
";
- return;
- }
-
- if (!$category = get_record('question_categories', 'id', $categoryid,
- 'contextid', $contextid)) {
- notify('Category not found!');
- return;
+ echo " ";
+ $count++;
+ $sumgrade += $quiz->grades[$qnum];
}
- $catcontext = get_context_instance_by_id($contextid);
- $canadd = has_capability('moodle/question:add', $catcontext);
- //check for capabilities on all questions in category, will also apply to sub cats.
- $caneditall =has_capability('moodle/question:editall', $catcontext);
- $canuseall =has_capability('moodle/question:useall', $catcontext);
- $canmoveall =has_capability('moodle/question:moveall', $catcontext);
-
- if ($cm AND $cm->modname == 'quiz') {
- $quizid = $cm->instance;
- } else {
- $quizid = 0;
- }
- $returnurl = $pageurl->out();
- $questionurl = new moodle_url("$CFG->wwwroot/question/question.php",
- array('returnurl' => $returnurl));
- if ($cm!==null){
- $questionurl->param('cmid', $cm->id);
- } else {
- $questionurl->param('courseid', $COURSE->id);
- }
- $questionmoveurl = new moodle_url("$CFG->wwwroot/question/contextmoveq.php",
- array('returnurl' => $returnurl));
- if ($cm!==null){
- $questionmoveurl->param('cmid', $cm->id);
- } else {
- $questionmoveurl->param('courseid', $COURSE->id);
- }
+ echo "
\n";
+ print_string('total');
+ echo ": ";
+ echo "\n";
+ echo "$sumgrade ";
+ echo " \n \n";
+ echo "
\n";
+ print_string('maximumgrade');
+ echo ": ";
+ echo "\n";
+ echo ' ';
+ helpbutton("maxgrade", get_string("maximumgrade"), "quiz");
+ echo "