Chamilo is a learning management system focused on ease of use and accessibility
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 
chamilo-lms/tests/datafiller/fill_exe.php

99 lines
4.0 KiB

<?php
/**
* This script contains a data filling procedure for an exercise
* @author Yannick Warnier <yannick.warnier@beeznest.com>
*
*/
/**
* Initialisation section
*/
/**
* Loads the data and injects it into the Chamilo database, using the Chamilo
* internal functions.
* @return array List of user IDs for the users that have just been inserted
*/
function fill_exe()
{
$qc = 5000; //how many questions to create per exercise
$eol = PHP_EOL;
$courses = array(); //declare only to avoid parsing notice
$qst = array();
require_once 'data_exe.php'; //fill the $users array
$output = array();
$output[] = array('title' => 'Exe Filling Report: ');
$i = 1;
$lib = api_get_path(SYS_CODE_PATH);
require_once $lib.'exercice/exercise.class.php';
require_once $lib.'exercice/question.class.php';
require_once $lib.'exercice/answer.class.php';
foreach ($courses as $i => $course) {
//first check that the first item doesn't exist already
$output[$i]['line-init'] = $course['title'];
$res = CourseManager::create_course($course);
$output[$i]['line-info'] = ($res ? $res : get_lang('NotInserted'));
$i++;
if (is_array($res)) {
//now insert an exercise
foreach ($course['exes'] as $exe) {
$objExercise = new Exercise($res['real_id']);
$objExercise->id = 0;
$objExercise->course_id = $res['real_id'];
$objExercise->exercise = $exe['title'];
$objExercise->type = 1;
$objExercise->attempts = $exe['attempts'];
$objExercise->random = $exe['random'];
$objExercise->active = 1;
$objExercise->propagate_neg = 0;
$objExercise->pass_percentage = $exe['pass_percentage'];
$objExercise->session_id = 0;
$objExercise->results_disabled = 0;
$objExercise->expired_time = $exe['time'];
$objExercise->review_answers = $exe['review_answers'];
$objExercise->save();
$id = $objExercise->id;
if (!empty($id)) {
$qi = 0;
while ($qi < $qc) {
foreach ($qst as $q) {
error_log('Created '.$qi.' questions');
$question = Question::getInstance($q['type']);
$question->id = 0;
$question->question = $q['title'].' '.$qi;
$question->description = $q['desc'];
$question->type = $q['type'];
$question->course = $res;
$r = $question->save($id);
if ($r === false) {
continue;
}
$qid = $question->id;
$objExercise->addToList($qid);
$objExercise->update_question_positions();
$aid = 1;
foreach ($q['answers'] as $asw) {
$answer = new UniqueAnswer($qid);
$answer->create_answer(
$aid,
$qid,
$asw['title'],
'',
$asw['score'],
$asw['correct'],
$res['real_id']
);
$aid++;
}
$qi++;
}
}
}
}
}
}
return $output;
}