function evaluate_quiz($acode, $jobid, $newattempt, $blended) { global $USER; global $CFG; mtrace("Evaluation QUIZ Processing..." . "<BR><BR>"); try { print "New Attempt is: " . $newattempt . "<BR/>"; $detected_userid = find_userid($acode, $jobid); if ($detected_userid == null or $detected_userid == '') { throw new EvaluationError(get_string('ErrorUserIDEmpty', 'blended'), EvaluationError::USERID_IS_EMPTY); } $user_reg = blended_get_user($detected_userid, $blended); if ($user_reg == null) { throw new EvaluationError(get_string('ErrorUserNotInCourse', 'blended'), EvaluationError::USER_NOT_IN_THIS_COURSE); } $userid = $user_reg->id; mtrace('Obtained USERID value: ' . $userid . " OK. <BR/>"); $quiz = get_quiz($acode); $attempts = quiz_get_user_attempts($quiz->id, $userid, 'all', true); mtrace("Searching quiz... Success." . "<BR/>"); $uniqueid = get_uniqueid($acode); mtrace('Obtained uniqueid: OK. <BR/>'); $timestamp = get_timestamp($acode); mtrace('Obtained timestamp: OK. <BR/>'); if (!get_record('quiz_attempts', 'uniqueid', $uniqueid)) { $newattempt = true; } else { $newattempt = false; mtrace("User {$userid} had opened this attempt already."); } $attemptnumber = 1; if ($newattempt == false) { mtrace('Obtaining user attempt...<BR/>'); set_attempt_unfinished($uniqueid); $attempt = quiz_get_user_attempt_unfinished($quiz->id, $userid); } elseif ($newattempt == true) { mtrace('Creating new attempt...<BR/>'); $attempt = create_new_attempt($quiz, $attemptnumber, $userid, $acode, $uniqueid, $timestamp); // Save the attempt if (!insert_record('quiz_attempts', $attempt)) { throw new EvaluationError(get_string('ErrorCouldNotCreateAttempt', 'blended'), EvaluationError::CREATE_QUIZ_ATTEMPT_ERROR); } // Actualizamos el estado de las imágenes para indicar que ya está creado un nuevo attempt update_images_status($acode, $jobid); } update_question_attempts($uniqueid); // /* mtrace('<BR>Getting questions and question options... '); $questions = get_questions($attempt, $quiz); if (!get_question_options($questions)) { error('Could not load question options'); } mtrace('Success! <BR>'); // print ("<BR>He obtenido questions: "); //print_object($questions); $lastattemptid = false; // if ($attempt->attempt > 1 and $quiz->attemptonlast and !$attempt->preview) { // Find the previous attempt // if (!$lastattemptid = get_field('quiz_attempts', 'uniqueid', 'quiz', $attempt->quiz, 'userid', $attempt->userid, 'attempt', $attempt->attempt-1)) { // error('Could not find previous attempt to build on'); // } //} //print ('He obtenido lastattemptid'); mtrace('Getting question states... '); if (!($states = get_question_states($questions, $quiz, $attempt, $lastattemptid))) { error('Could not restore question sessions'); } mtrace('Success! <BR>'); mtrace('Getting responses... <BR>'); $responses = get_responses($acode, $jobid, $attempt); //print('Estas son las responses:'); //print_object($responses); //$timestamp=time(); $event = 8; $actions = question_extract_responses($questions, $responses, $event); $questionids = get_questionids($acode); // print $questionids; $questionidarray = explode(',', $questionids); $success = true; mtrace('<BR> Processing responses and saving session... '); foreach ($questionidarray as $i) { if (!isset($actions[$i])) { $actions[$i]->responses = array('' => ''); $actions[$i]->event = QUESTION_EVENTOPEN; } $actions[$i]->timestamp = $timestamp; if (question_process_responses($questions[$i], $states[$i], $actions[$i], $quiz, $attempt)) { save_question_session($questions[$i], $states[$i]); } else { $success = false; } } mtrace('Success! <BR>'); // Set the attempt to be finished $timestamp = time(); //$attempt->timefinish = $timestamp; // Update the quiz attempt and the overall grade for the quiz mtrace('<BR> Finishing the attempt... '); // print_object ($attempt); if (set_field('quiz_attempts', 'timefinish', $timestamp, 'uniqueid', $uniqueid) == false) { throw new EvaluationError('Unable to finish the quiz attempt!', EvaluationError::FINISH_QUIZ_ATTEMPT_ERROR); } mtrace('Success! <BR>'); if ($attempt->attempt > 1 || $attempt->timefinish > 0 and !$attempt->preview) { mtrace('<BR> Saving quiz grade... '); quiz_save_best_grade($quiz, $userid); } mtrace('Success! <BR>'); // */ mtrace("Process Done. <BR><BR>"); mtrace("<center> Your quiz has been succesfully evaluated!! </center>"); } catch (EvaluationError $e) { throw $e; } return; }
/** * * Creates a new PDF with the questions of a quiz's attempt. * * @param unknown_type $attempt record with the attempt info * @param unknown_type $quiz * @param unknown_type $pdf1 * @param unknown_type $blended * @param unknown_type $options array with formatting options * @param unknown_type $pdfFile * @throws PDFError */ function blended_generate_quiz($attempt, $quiz, $pdf1, $blended, $options, $pdfFile) { global $QTYPES; global $CFG; global $COURSE; $uniqueid = $attempt->id; $activity_code = $uniqueid; $identifyLabel = $options['identifyLabel']; /* switch($identifyLabel) { case 'id': $idText= $activity_code; break; case 'none': $idText=''; break; } */ $markSize = 3; $quizname = $quiz->name; $images->ok_marks = '<img src="' . $CFG->wwwroot . '/mod/blended/images/ok_marks.png" height="10" />'; $images->ko_marks = '<img src="' . $CFG->wwwroot . '/mod/blended/images/ko_marks.png" height="10" />'; // $images->ok_marks='<img src="mod/blended/images/ok_marks.png" height="10" />'; // $images->ko_marks='<img src="mod/blended/images/ko_marks.png" height="10"/>'; $howToMark = get_string('howToMarkInstructions', 'blended', $images); $instructions = $quiz->intro . ' ' . $howToMark; $fullname = "nombre persona"; $style = array('position' => 'S', 'border' => false, 'padding' => 1, 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'courier', 'fontsize' => $options['fontsize'], 'stretchtext' => 4); $headeroptions = new stdClass(); $headeroptions->rowHeight = 6; $headeroptions->logoWidth = 30; $headeroptions->codebarWidth = 40; $headeroptions->textStyle = $style; if (isset($options['logourl'])) { $headeroptions->logo_url = $options['logourl']; } else { $headeroptions->logo_url = $CFG->dirroot . '/mod/blended/pix/UVa_logo.jpg'; } $headeroptions->cellHtmlText = get_string('modulename', 'quiz') . ':' . $quizname; //Nombre: $headeroptions->cellHtmlDate = ''; $headeroptions->cellHtmlUser = get_string('Student', 'blended') . ':'; // Alumno: $headeroptions->cellCourseName = $COURSE->fullname; $headeroptions->evaluationmarksize = 3; // if null evaluation marks are not included in header $headeroptions->marksName = 'EVAL'; $headeroptions->codebarType = $blended->codebartype; $headeroptions->identifyLabel = $identifyLabel; // show readable text for codebars 'none' if not to be shown $headeroptions->instructions = $instructions; /** * Give precedence to the selected number of columns in the $options */ if (isset($options['columns'])) { $numcols = $options['columns']; } else { if (!isset($blended->numcols) || $blended->numcols == 0) { $numcols = 2; } else { $numcols = $blended->numcols; } } unset($quiz->questionsinuse); unset($QTYPES["random"]->catrandoms); $pagelist = quiz_questions_on_page($attempt->layout, 0); $pagequestions = explode(',', $pagelist); $questionlist = quiz_questions_in_quiz($attempt->layout); if (!$questionlist) { throw new PDFError("Quiz layout is empty", PDFError::QUIZ_IS_EMPTY); } $sql = "SELECT q.*, i.grade AS maxgrade, i.id AS instance" . " FROM {$CFG->prefix}question q," . " {$CFG->prefix}quiz_question_instances i" . " WHERE i.quiz = '{$quiz->id}' AND q.id = i.question" . " AND q.id IN ({$questionlist})"; if (!($questions = get_records_sql($sql))) { throw new PDFError("Questions not found. ", PDFError::QUESTIONS_NOT_FOUND); } //Carga las preguntas con sus opciones if (!get_question_options($questions)) { throw new PDFError("Could not load question options", PDFError::COULD_NOT_LOAD_QUESTION_OPTIONS); } $quiz_userid = 4; $acode = $attempt->id; if (!($attemptnumber = (int) get_field_sql('SELECT MAX(attempt)+1 FROM ' . "{$CFG->prefix}quiz_attempts WHERE quiz = '{$quiz->id}' AND " . "userid = '{$quiz_userid}' AND timefinish > 0 AND preview != 1"))) { $attemptnumber = 1; } $quiz_uniqueid = $attempt->attempt; $timenow = time(); $quiz_attempt = create_new_attempt($quiz, $attemptnumber, $quiz_userid, $acode, $quiz_uniqueid, $timenow); // Save the attempt // if (!insert_record('quiz_attempts', $quiz_attempt)) { // error('Could not create new attempt'); //} if (!($states = get_question_states($questions, $quiz, $quiz_attempt, false))) { throw new PDFError("Could not restore question sessions", PDFError::COULD_NOT_RESTORE_QUESTION_SESSIONS); } // TODO save question states someway in question_states foreach ($questions as $i => $question) { save_question_session($questions[$i], $states[$i]); } // global $QTYPES; //$question = reset($questions); //print("state answer question $question->id: ".$QTYPES[$question->qtype]->get_question_options($question)); $quests = new stdClass(); $quests = array(); foreach ($pagequestions as $i) { $options = quiz_get_renderoptions($quiz->review, $states[$i]); $quest = blended_get_question_formulation_and_controls($questions[$i], $states[$i], $quiz, $options); if (isset($quest->answers)) { foreach ($quest->answers as $c => $v) { $text = $v->answer; $quest->answers[$c]->answer = blended_image_path($text); } } $quests[] = $quest; } $idText = ''; $original = new stdClass(); $original->question = array(); $question = $quests; $num = 0; $a = 0; //foreach ($questions as $m)//esto es redundante: crea un array igual foreach ($pagequestions as $i) { $questions[$i]->questiontext = $quests[$a]->questiontext; if (isset($questions[$i]->questiontext)) { $questions[$i]->questiontext = blended_image_path($questions[$i]->questiontext); } $question[$a] = $questions[$i]; if ($question[$a]->qtype == "multichoice") { $question[$a]->anss = array(); foreach ($states[$questions[$i]->id]->options->order as $j => $aid) { $question[$a]->anss[$j] = $questions[$i]->options->answers[$aid]; $num++; } } $question[$a]->id = "q" . $question[$a]->id; $a++; } foreach ($question as $quest) { $original->question[] = $quest; } /** * Start PDF printing */ // create new PDF document $pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false); blended_new_page($pdf); $margins = $pdf->getMargins(); $columnsWidth = ($pdf->getPageWidth() - $margins['left'] - $margins['right']) / $numcols; /** * Print all questions with TPDF to calculate exact dimensions of each block */ $pdf->SetFont($headeroptions->textStyle['font'], '', $headeroptions->textStyle['fontsize']); for ($key = 0; $key < count($original->question); $key++) { $dims_borrador = new stdClass(); $dims_borrador->coords = array(); $original->question[$key]->height = blended_print_draft($pdf, $key, $original, $dims_borrador, $columnsWidth, $markSize, $headeroptions); } /** * Print final PDF */ // Array to hold sizes of elements $dimsn = array(); // Print content starting at abscisa $y $pdf1 = blended_print_quiz($pdf1, $numcols, $columnsWidth, $margins, $original, $dimsn, $markSize, $headeroptions, $uniqueid, $pdfFile); unset($pdf); return $pdf1; }