/**
* Crea un archivo PDF a partir de un quiz, agregando una hoja de respuestas de opción múltiple
*
* @param unknown $cm
* @param string $debug
* @param string $context
* @param string $course
* @param string $logofilepath
* @param boolean $answersheetsonly
* @return void|NULL
*/
function emarking_create_quiz_pdf($cm, $debug = false, $context = null, $course = null, $answersheetsonly = false, $pbar = false)
{
global $DB, $CFG, $OUTPUT;
// Inclusión de librerías
require_once $CFG->dirroot . '/mod/assign/feedback/editpdf/fpdi/fpdi2tcpdf_bridge.php';
require_once $CFG->dirroot . '/mod/assign/feedback/editpdf/fpdi/fpdi.php';
require_once $CFG->libdir . '/pdflib.php';
require_once $CFG->dirroot . '/mod/quiz/locallib.php';
require_once $CFG->dirroot . '/mod/emarking/print/locallib.php';
$filedir = $CFG->dataroot . "/temp/emarking/{$context->id}";
emarking_initialize_directory($filedir, true);
$fileimg = $CFG->dataroot . "/temp/emarking/{$context->id}/qr";
emarking_initialize_directory($fileimg, true);
$userimgdir = $CFG->dataroot . "/temp/emarking/{$context->id}/u";
emarking_initialize_directory($userimgdir, true);
$logofile = emarking_get_logo_file();
$logofilepath = $logofile ? emarking_get_path_from_hash($filedir, $logofile->get_pathnamehash()) : null;
$fullhtml = array();
$numanswers = array();
$attemptids = array();
$images = array();
$imageshtml = array();
$users = emarking_get_enroled_students($course->id);
if ($pbar) {
echo $OUTPUT->heading(get_string('loadingquestions', 'mod_emarking'), 3);
$progressbar = new progress_bar();
$progressbar->create();
$progressbar->update(0, count($users), get_string('processing', 'mod_emarking'));
}
$current = 0;
foreach ($users as $user) {
$current++;
if ($pbar) {
$progressbar->update($current, count($users), "{$user->firstname}, {$user->lastname}");
}
// Get the quiz object
$quizobj = quiz::create($cm->instance, $user->id);
// Create the new attempt and initialize the question sessions
$attemptnumber = 1;
$lastattempt = null;
$timenow = time();
// Update time now, in case the server is running really slowly.
$attempts = quiz_get_user_attempts($quizobj->get_quizid(), $user->id, 'all');
$numattempts = count($attempts);
foreach ($attempts as $attempt) {
$attemptobj = quiz_attempt::create($attempt->id);
$slots = $attemptobj->get_slots();
foreach ($slots as $slot) {
$qattempt = $attemptobj->get_question_attempt($slot);
$question = $qattempt->get_question();
if ($question->get_type_name() === 'multianswer') {
$q = $question->subquestions[1];
$numanswers[$user->id][] = count($q->answers);
} else {
if ($question->get_type_name() === 'multichoice') {
$numanswers[$user->id][] = count($question->answers);
}
}
$attemptids[$user->id] = $attempt->id;
$qhtml = $attemptobj->render_question($slot, false);
$qhtml = emarking_clean_question_html($qhtml);
$currentimages = emarking_extract_images_url($qhtml);
$idx = 0;
foreach ($currentimages[1] as $imageurl) {
if (!array_search($imageurl, $images)) {
$images[] = $imageurl;
$imageshtml[] = $currentimages[0][$idx];
}
$idx++;
}
$fullhtml[$user->id][] = $qhtml;
}
// One attempt per user
break;
}
}
$save_to = $CFG->tempdir . '/emarking/printquiz/' . $cm->id . '/';
emarking_initialize_directory($save_to, true);
// Bajar las imágenes del HTML a dibujar
$search = array();
$replace = array();
$replaceweb = array();
$imagesize = array();
$idx = 0;
if ($pbar) {
$progressbar->update_full(100, get_string('finished', 'mod_emarking'));
echo $OUTPUT->heading(get_string('downloadingimages', 'mod_emarking'), 3);
$progressbar = new progress_bar();
$progressbar->create();
$progressbar->update(0, count($images), get_string('processing', 'mod_emarking'));
}
foreach ($images as $image) {
if ($pbar) {
$imagefilename = explode("/", $image);
$progressbar->update($idx + 1, count($images), $imagefilename[count($imagefilename) - 1]);
}
// Si solamente incluiremos hojas de respuesta terminamos el ciclo
if ($answersheetsonly) {
break;
}
if (!(list($filename, $imageinfo) = emarking_get_file_from_url($image, $save_to))) {
echo "Problem downloading file {$image} <hr>";
} else {
// Buscamos el src de la imagen
$search[] = 'src="' . $image . '"';
$replacehtml = ' src="' . $filename . '"';
$replacehtmlxweb = ' src="' . $image . '"';
// Si el html de la misma contiene ancho o alto, se deja tal cual
$imghtml = $imageshtml[$idx];
if (substr_count($imghtml, "width") + substr_count($imghtml, "height") == 0) {
$width = $imageinfo[0];
$height = $imageinfo[1];
$ratio = floatval(10) / floatval($height);
$height = 10;
$width = (int) ($ratio * floatval($width));
$sizehtml = 'width="' . $width . '" height="' . $height . '"';
$replacehtml = $sizehtml . ' ' . $replacehtml;
$replacehtmlxweb = $sizehtml . ' ' . $replacehtmlxweb;
}
$replace[] = $replacehtml;
$replaceweb[] = $replacehtmlxweb;
$imagesize[] = $imageinfo;
}
$idx++;
}
if ($debug) {
foreach ($fullhtml as $uid => $questions) {
$index = 0;
foreach ($questions as $question) {
echo str_replace($search, $replaceweb, $fullhtml[$uid][$index]);
$index++;
}
}
return;
}
// Now we create the pdf file with the modified html
$doc = new FPDI();
$doc->setPrintHeader(false);
$doc->setPrintFooter(false);
$doc->SetFont('times', '', 12);
// set margins
$doc->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$doc->SetHeaderMargin(250);
$doc->SetFooterMargin(PDF_MARGIN_FOOTER);
if ($pbar) {
$progressbar->update_full(100, get_string('finished', 'mod_emarking'));
echo $OUTPUT->heading(get_string('creatingpdffile', 'mod_emarking'), 3);
$progressbar = new progress_bar();
$progressbar->create();
}
$current = 0;
foreach ($fullhtml as $uid => $questions) {
$current++;
$stinfo = $DB->get_record('user', array('id' => $uid));
$stinfo->name = $stinfo->firstname . ' ' . $stinfo->lastname;
$stinfo->picture = emarking_get_student_picture($stinfo, $userimgdir);
$stinfo->idnumber = $uid . '-' . $attemptids[$uid];
if ($pbar) {
$progressbar->update($current, count($fullhtml), $stinfo->name);
}
$groups = groups_get_user_groups($course->id, $uid);
if ($groups && isset($groups[0][0]) && ($group = $DB->get_record('groups', array('id' => $groups[0][0])))) {
$stinfo->group = $group->name;
} else {
$stinfo->group = '';
}
emarking_add_answer_sheet($doc, $filedir, $stinfo, $logofilepath, null, $fileimg, $course, $quizobj->get_quiz_name(), $numanswers[$uid], $attemptids[$uid]);
// Una vez agregada la página de respuestas, si es todo lo que hay que hacer saltar al siguiente
if ($answersheetsonly) {
continue;
}
$doc->AddPage();
emarking_draw_header($doc, $stinfo, $quizobj->get_quiz_name(), 2, $fileimg, $logofilepath, $course, null, false, 0);
$doc->SetFont('times', '', 12);
$doc->SetAutoPageBreak(true);
$doc->SetXY(PDF_MARGIN_LEFT, 40);
$index = 0;
foreach ($questions as $question) {
$prevy = $doc->getY();
$fullhtml[$uid][$index] = str_replace($search, $replace, $fullhtml[$uid][$index]);
$doc->writeHTML($fullhtml[$uid][$index]);
$y = $doc->getY();
$fmargin = $doc->getFooterMargin();
$height = $doc->getPageHeight();
$spaceleft = $height - $fmargin - $y;
$questionsize = $y - $prevy;
if ($spaceleft < 70) {
$doc->AddPage();
}
$index++;
}
}
if ($pbar) {
$progressbar->update_full(100, get_string('finished', 'mod_emarking'));
}
$qid = $quizobj->get_quizid();
$pdfquizfilename = 'quiz-' . $qid . '-' . random_string() . '.pdf';
$fs = get_file_storage();
$filerecord = array('component' => 'mod_emarking', 'filearea' => 'pdfquiz', 'contextid' => $context->id, 'itemid' => $quizobj->get_quizid(), 'filepath' => '/', 'filename' => $pdfquizfilename);
$doc->Output($filedir . '/' . $pdfquizfilename, 'F');
$file = $fs->create_file_from_pathname($filerecord, $filedir . '/' . $pdfquizfilename);
$downloadurl = moodle_url::make_file_url("{$CFG->wwwroot}/pluginfile.php", "/{$context->id}/mod_emarking/pdfquiz/{$qid}/{$pdfquizfilename}", null, true);
return $downloadurl;
}
/**
* Creates a personalized exam file.
*
* @param unknown $examid
* @return NULL
*/
function emarking_download_exam($examid, $multiplepdfs = false, $groupid = null, progress_bar $pbar = null, $sendprintorder = false, $idprinter = null, $printanswersheet = false, $debugprinting = false)
{
global $DB, $CFG, $USER, $OUTPUT;
require_once $CFG->dirroot . '/mod/emarking/lib/openbub/ans_pdf_open.php';
// Validate emarking exam object
if (!($downloadexam = $DB->get_record('emarking_exams', array('id' => $examid)))) {
throw new Exception(get_string("invalidexamid", "mod_emarking"));
}
// Contexto del curso para verificar permisos
$context = context_course::instance($downloadexam->course);
if (!has_capability('mod/emarking:downloadexam', $context)) {
throw new Exception(get_string("invalidaccess", "mod_emarking"));
}
// Verify that remote printing is enable, otherwise disable a printing order
if ($sendprintorder && (!$CFG->emarking_enableprinting || $idprinter == null)) {
throw new Exception('Printing is not enabled or printername was absent ' . $idprinter);
}
// Validate course
if (!($course = $DB->get_record('course', array('id' => $downloadexam->course)))) {
throw new Exception(get_string("invalidcourse", "mod_emarking"));
}
// Validate course category
if (!($coursecat = $DB->get_record('course_categories', array('id' => $course->category)))) {
throw new Exception(get_string("invalidcategoryid", "mod_emarking"));
}
// We tell the user we are setting up the printing
if ($pbar) {
$pbar->update(0, 1, get_string('settingupprinting', 'mod_emarking'));
}
// Default value for enrols that will be included
if ($CFG->emarking_enrolincludes && strlen($CFG->emarking_enrolincludes) > 1) {
$enrolincludes = $CFG->emarking_enrolincludes;
}
// If the exam sets enrolments, we use those
if (isset($downloadexam->enrolments) && strlen($downloadexam->enrolments) > 1) {
$enrolincludes = $downloadexam->enrolments;
}
// Convert enrolments to array
$enrolincludes = explode(",", $enrolincludes);
// Produce all PDFs first separatedly
$filedir = $CFG->dataroot . "/temp/emarking/{$context->id}";
$fileimg = $filedir . "/qr";
$userimgdir = $filedir . "/u";
$pdfdir = $filedir . "/pdf";
emarking_initialize_directory($filedir, true);
emarking_initialize_directory($fileimg, true);
emarking_initialize_directory($userimgdir, true);
emarking_initialize_directory($pdfdir, true);
// Get all the files uploaded as forms for this exam
$fs = get_file_storage();
$files = $fs->get_area_files($context->id, 'mod_emarking', 'exams', $examid);
// We filter only the PDFs
$pdffileshash = array();
foreach ($files as $filepdf) {
if ($filepdf->get_mimetype() === 'application/pdf') {
$pdffileshash[] = array('hash' => $filepdf->get_pathnamehash(), 'filename' => $filepdf->get_filename(), 'path' => emarking_get_path_from_hash($filedir, $filepdf->get_pathnamehash()));
}
}
// Verify that at least we have a PDF
if (count($pdffileshash) < 1) {
throw new Exception(get_string("examhasnopdf", "mod_emarking"));
}
$students = emarking_get_students_for_printing($downloadexam->course);
$studentinfo = array();
$currenttemplate = 0;
// Fill studentnames with student info (name, idnumber, id and picture)
foreach ($students as $student) {
$studentenrolments = explode(",", $student->enrol);
// Verifies that the student is enrolled through a valid enrolment and that we haven't added her yet
if (count(array_intersect($studentenrolments, $enrolincludes)) == 0 || isset($studentinfo[$student->id])) {
continue;
}
// We create a student info object
$studentobj = new stdClass();
$studentobj->name = substr("{$student->lastname}, {$student->firstname}", 0, 65);
$studentobj->idnumber = $student->idnumber;
$studentobj->id = $student->id;
$studentobj->picture = emarking_get_student_picture($student, $userimgdir);
// Store student info in hash so every student is stored once
$studentinfo[$student->id] = $studentobj;
}
// We validate the number of students as we are filtering by enrolment
// type after getting the data
$numberstudents = count($studentinfo);
if ($numberstudents == 0) {
throw new Exception('No students to print/create the exam');
}
// Add the extra students to the list
for ($i = $numberstudents; $i < $numberstudents + $downloadexam->extraexams; $i++) {
$studentobj = new stdClass();
$studentobj->name = '..............................................................................';
$studentobj->idnumber = 0;
$studentobj->id = 0;
$studentobj->picture = $CFG->dirroot . "/pix/u/f1.png";
$studentinfo[] = $studentobj;
}
// Check if there is a logo file
$logofilepath = emarking_get_logo_file($filedir);
// If asked to do so we create a PDF witht the students list
if ($downloadexam->printlist == 1) {
$pdf = new FPDI();
$pdf->SetPrintHeader(false);
$pdf->SetPrintFooter(false);
emarking_draw_student_list($pdf, $logofilepath, $downloadexam, $course, $studentinfo);
$studentlistpdffile = $pdfdir . "/000-studentslist.pdf";
$pdf->Output($studentlistpdffile, "F");
// se genera el nuevo pdf
$pdf = null;
}
// Here we produce a PDF file for each student
$currentstudent = 0;
foreach ($studentinfo as $stinfo) {
// If we have a progress bar, we notify the new PDF being created
if ($pbar) {
$pbar->update($currentstudent + 1, count($studentinfo), $stinfo->name);
}
// We create the PDF file
$pdf = new FPDI();
$pdf->SetPrintHeader(false);
$pdf->SetPrintFooter(false);
// We use the next form available from the list of PDF forms sent
if ($currenttemplate >= count($pdffileshash) - 1) {
$currenttemplate = 0;
} else {
$currenttemplate++;
}
// Load the PDF from the filesystem as template
$path = $pdffileshash[$currenttemplate]['path'];
$originalpdfpages = $pdf->setSourceFile($path);
$pdf->SetAutoPageBreak(false);
// Add all pages in the template, adding the header if it corresponds
for ($pagenumber = 1; $pagenumber <= $originalpdfpages + $downloadexam->extrasheets; $pagenumber++) {
// Adding a page
$pdf->AddPage();
// If the page is not an extra page, we import the page from the template
if ($pagenumber <= $originalpdfpages) {
$template = $pdf->importPage($pagenumber);
$pdf->useTemplate($template, 0, 0, 0, 0, true);
}
// If we have a personalized header, we add it
if ($downloadexam->headerqr) {
emarking_draw_header($pdf, $stinfo, $downloadexam->name, $pagenumber, $fileimg, $logofilepath, $course, $originalpdfpages + $downloadexam->extrasheets);
}
}
// The filename will be the student id - course id - page number
$qrstringtmp = $stinfo->id > 0 ? "{$stinfo->id}-{$course->id}-{$pagenumber}" : "NN{$currentstudent}+1-{$course->id}-{$pagenumber}";
// Create the PDF file for the student
$pdffile = $pdfdir . "/" . $qrstringtmp . ".pdf";
$pdf->Output($pdffile, "F");
// Store the exam file for printing later
$stinfo->examfile = $pdffile;
$stinfo->number = $currentstudent + 1;
$stinfo->pdffilename = $qrstringtmp;
$currentstudent++;
}
$sqlprinter = "SELECT id, name, command\n\t\t\tFROM {emarking_printers}\n\t\t\tWHERE id = ?";
$printerinfo = $DB->get_record_sql($sqlprinter, array($idprinter));
// If we have to print directly
$debugprintingmsg = '';
if ($sendprintorder) {
// Check if we have to print the students list
if ($downloadexam->printlist == 1) {
$printresult = emarking_print_file($printerinfo->name, $printerinfo->command, $studentlistpdffile, $debugprinting);
if (!$printresult) {
$debugprintingmsg .= 'Problems printing ' . $studentlistpdffile . '<hr>';
} else {
$debugprintingmsg .= $printresult . '<hr>';
}
}
// Print each student
$currentstudent = 0;
foreach ($studentinfo as $stinfo) {
$currentstudent++;
if ($pbar != null) {
$pbar->update($currentstudent, count($studentinfo), get_string('printing', 'mod_emarking') . ' ' . $stinfo->name);
}
if (!isset($stinfo->examfile) || !file_exists($stinfo->examfile)) {
continue;
}
$printresult = emarking_print_file($printerinfo->name, $printerinfo->command, $stinfo->examfile, $debugprinting);
if (!$printresult) {
$debugprintingmsg .= 'Problems printing ' . $stinfo->examfile . '<hr>';
} else {
$debugprintingmsg .= $printresult . '<hr>';
}
}
if ($CFG->debug || $debugprinting) {
echo $debugprintingmsg;
}
// Notify everyone that the exam was printed
emarking_send_examprinted_notification($downloadexam, $course);
$downloadexam->status = EMARKING_EXAM_SENT_TO_PRINT;
$downloadexam->printdate = time();
$DB->update_record('emarking_exams', $downloadexam);
return true;
}
$examfilename = emarking_clean_filename($course->shortname, true) . "_" . emarking_clean_filename($downloadexam->name, true);
$zipdebugmsg = '';
if ($multiplepdfs) {
$zip = new ZipArchive();
$zipfilename = $filedir . "/" . $examfilename . ".zip";
if ($zip->open($zipfilename, ZipArchive::CREATE) !== true) {
throw new Exception('Could not create zip file');
}
// Check if we have to print the students list
if ($downloadexam->printlist == 1) {
$zip->addFile($studentlistpdffile);
}
// Add every student PDF to zip file
$currentstudent = 0;
foreach ($studentinfo as $stinfo) {
$currentstudent++;
if ($pbar != null) {
$pbar->update($currentstudent, count($studentinfo), get_string('printing', 'mod_emarking') . ' ' . $stinfo->name);
}
if (!isset($stinfo->examfile) || !file_exists($stinfo->examfile)) {
continue;
}
if (!$zip->addFile($stinfo->examfile, $stinfo->pdffilename . '.pdf')) {
$zipdebugmsg .= "Problems adding {$stinfo->examfile} to ZIP file using name {$stinfo->pdffilename} <hr>";
}
}
$zip->close();
if ($CFG->debug || $debugprinting) {
echo $zipdebugmsg;
}
// Notify everyone that the exam was downloaded
emarking_send_examdownloaded_notification($downloadexam, $course);
$downloadexam->status = EMARKING_EXAM_SENT_TO_PRINT;
$downloadexam->printdate = time();
$DB->update_record('emarking_exams', $downloadexam);
// Read zip file from disk and send to the browser
$file_name = basename($zipfilename);
header("Content-Type: application/zip");
header("Content-Disposition: attachment; filename=" . $examfilename . ".zip");
header("Content-Length: " . filesize($zipfilename));
readfile($zipfilename);
exit;
}
// We create the final big PDF file
$pdf = new FPDI();
$pdf->SetPrintHeader(false);
$pdf->SetPrintFooter(false);
// We import the students list if required
if ($downloadexam->printlist) {
emarking_import_pdf_into_pdf($pdf, $studentlistpdffile);
}
// Add every student PDF to zip file
$currentstudent = 0;
foreach ($studentinfo as $stinfo) {
$currentstudent++;
if (!isset($stinfo->examfile) || !file_exists($stinfo->examfile)) {
continue;
}
emarking_import_pdf_into_pdf($pdf, $stinfo->examfile);
}
// Notify everyone that the exam was downloaded
emarking_send_examdownloaded_notification($downloadexam, $course);
$downloadexam->status = EMARKING_EXAM_SENT_TO_PRINT;
$downloadexam->printdate = time();
$DB->update_record('emarking_exams', $downloadexam);
$pdf->Output($examfilename . '.pdf', 'D');
}
/**
* Creates a personalized exam file.
*
* @param unknown $examid
* @return NULL
*/
function emarking_download_exam($examid, $multiplepdfs = false, $groupid = null, $pbar = null, $sendprintorder = false, $printername = null)
{
global $DB, $CFG, $USER, $OUTPUT;
// Se obtiene el examen
if (!($downloadexam = $DB->get_record('emarking_exams', array('id' => $examid)))) {
return null;
}
// Contexto del curso para verificar permisos
$context = context_course::instance($downloadexam->course);
if (!has_capability('mod/emarking:downloadexam', $context)) {
return null;
}
// Verify that remote printing is enable, otherwise disable a printing order
if ($sendprintorder && (!$CFG->emarking_enableprinting || $printername == null)) {
return null;
}
$course = $DB->get_record('course', array('id' => $downloadexam->course));
$coursecat = $DB->get_record('course_categories', array('id' => $course->category));
if ($downloadexam->printrandom == 1) {
$enrolincludes = 'manual,self,meta';
} else {
$enrolincludes = 'manual,self';
}
if ($CFG->emarking_enrolincludes && strlen($CFG->emarking_enrolincludes) > 1) {
$enrolincludes = $CFG->emarking_enrolincludes;
}
if (isset($downloadexam->enrolments) && strlen($downloadexam->enrolments) > 1) {
$enrolincludes = $downloadexam->enrolments;
}
$enrolincludes = explode(",", $enrolincludes);
// Get all the files uploaded as forms for this exam
$fs = get_file_storage();
$files = $fs->get_area_files($context->id, 'mod_emarking', 'exams', $examid);
// We filter only the PDFs
$pdffileshash = array();
foreach ($files as $filepdf) {
if ($filepdf->get_mimetype() === 'application/pdf') {
$pdffileshash[] = array('hash' => $filepdf->get_pathnamehash(), 'filename' => $filepdf->get_filename());
}
}
// Verify that at least we have a PDF
if (count($pdffileshash) < 1) {
return null;
}
if ($downloadexam->headerqr == 1) {
if ($groupid != null) {
$filedir = $CFG->dataroot . "/temp/emarking/{$context->id}" . "/group_" . $groupid;
} else {
$filedir = $CFG->dataroot . "/temp/emarking/{$context->id}";
}
$fileimg = $CFG->dataroot . "/temp/emarking/{$context->id}/qr";
$userimgdir = $CFG->dataroot . "/temp/emarking/{$context->id}/u";
emarking_initialize_directory($filedir, true);
emarking_initialize_directory($fileimg, true);
emarking_initialize_directory($userimgdir, true);
if ($groupid != null) {
// Se toman los resultados del query dentro de una variable.
$students = emarking_get_students_of_groups($downloadexam->course, $groupid);
} else {
// Se toman los resultados del query dentro de una variable.
$students = emarking_get_students_for_printing($downloadexam->course);
}
$nombre = array();
$current = 0;
// Los resultados del query se recorren mediante un foreach loop.
foreach ($students as $student) {
if (array_search($student->enrol, $enrolincludes) === false) {
continue;
}
$nombre[] = substr("{$student->lastname}, {$student->firstname}", 0, 65);
$rut[] = $student->idnumber;
$moodleid[] = $student->id;
// Get the image file for student
$imgfound = false;
if ($CFG->emarking_pathuserpicture && is_dir($CFG->emarking_pathuserpicture)) {
$idstring = "" . $student->idnumber;
$revid = strrev($idstring);
$idpath = $CFG->emarking_pathuserpicture;
$idpath .= "/" . substr($revid, 0, 1);
$idpath .= "/" . substr($revid, 1, 1);
if (file_exists($idpath . "/user{$idstring}.png")) {
$userimg[] = $idpath . "/user{$idstring}.png";
$imgfound = true;
}
}
if (!$imgfound) {
$usercontext = context_user::instance($student->id);
$imgfile = $DB->get_record('files', array('contextid' => $usercontext->id, 'component' => 'user', 'filearea' => 'icon', 'filename' => 'f1.png'));
if ($imgfile) {
$userimg[] = emarking_get_path_from_hash($userimgdir, $imgfile->pathnamehash, "u" . $student->id, true);
} else {
$userimg[] = $CFG->dirroot . "/pix/u/f1.png";
}
}
}
$numberstudents = count($nombre);
for ($i = $numberstudents; $i < $numberstudents + $downloadexam->extraexams; $i++) {
$nombre[$i] = '..............................................................................';
$rut[$i] = '0';
$moodleid[$i] = '0';
$userimg[$i] = $CFG->dirroot . "/pix/u/f1.png";
}
$newfile = emarking_get_path_from_hash($filedir, $pdffileshash[$current]['hash']);
$path = $filedir . "/" . str_replace(' ', '-', $pdffileshash[$current]['filename']);
$hash = hash_file('md5', $path);
$logoisconfigured = false;
if ($logofile = emarking_get_logo_file()) {
$logofilepath = emarking_get_path_from_hash($filedir, $logofile->get_pathnamehash());
$logoisconfigured = true;
}
$file1 = $filedir . "/" . emarking_clean_filename($course->shortname, true) . "_" . emarking_clean_filename($downloadexam->name, true) . ".pdf";
$pdf = new FPDI();
$cp = $pdf->setSourceFile($path);
if ($cp > 99) {
print_error(get_string('page', 'mod_emarking'));
}
if ($multiplepdfs || $groupid != null) {
$zip = new ZipArchive();
if ($groupid != null) {
$file1 = $filedir . "/" . emarking_clean_filename($course->shortname, true) . "_" . "GRUPO_" . $groupid . "_" . emarking_clean_filename($downloadexam->name, true) . ".zip";
} else {
$file1 = $filedir . "/" . emarking_clean_filename($course->shortname, true) . "_" . emarking_clean_filename($downloadexam->name, true) . ".zip";
}
if ($zip->open($file1, ZipArchive::CREATE) !== true) {
return null;
}
}
if ($sendprintorder) {
if ($pbar != null) {
$pbar->update(0, count($nombre), '');
}
}
$jobs[] = array();
if ($downloadexam->printlist == 1) {
$flag = 0;
// lista de alumnos
if ($flag == 0) {
$pdf->SetAutoPageBreak(false);
$pdf->AddPage();
$left = 85;
$top = 8;
$pdf->SetFont('Helvetica', 'B', 12);
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper("LISTA DE ALUMNOS"));
$left = 15;
$top = 16;
$pdf->SetFont('Helvetica', '', 8);
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper("Asignatura: " . $course->fullname));
$left = 15;
$top = 22;
$pdf->SetFont('Helvetica', '', 8);
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper("N° Inscritos: " . count($nombre)));
// $year = date("Y");
// $month= date("F");
// $day= date("m");
setlocale(LC_ALL, "es_ES");
$left = 15;
$top = 28;
$pdf->SetFont('Helvetica', '', 8);
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper("Fecha: " . strftime("%A %d de %B del %Y")));
$left = 15;
$top = 36;
$pdf->SetXY($left, $top);
$pdf->Cell(10, 10, "N°", 1, 0, 'L');
$pdf->Cell(120, 10, "Nombres", 1, 0, 'L');
$pdf->Cell(50, 10, "Firmas", 1, 0, 'L');
$t = 0;
$t2 = 46;
for ($a = 0; $a <= count($nombre) - 1; $a++) {
if ($n == 24 || $n == 48 || $n == 72 || $n == 96 || $n == 120) {
$pdf->AddPage();
$t = 0;
$t2 = 8;
}
$top = $t2 + $t;
$n = $a + 1;
$pdf->SetFont('Helvetica', '', 8);
$pdf->SetXY($left, $top);
$pdf->Cell(10, 10, $n . ")", 1, 0, 'L');
$pdf->Cell(120, 10, core_text::strtoupper($nombre[$a]), 1, 0, 'L');
$pdf->Cell(50, 10, "", 1, 0, 'L');
// $pdf->Write ( 1, core_text::strtoupper ( $nombre [$a] ) );
$t = $t + 10;
}
$flag = 1;
if ($multiplepdfs || $groupid != null) {
if ($groupid != null) {
$pdffile = $filedir . "/Lista_de_alumnos_" . "GRUPO_" . $groupid . ".pdf";
$pdf->Output($pdffile, "F");
// se genera el nuevo pdf
$zip->addFile($pdffile, "GRUPO_" . $groupid . ".pdf");
} else {
$pdffile = $filedir . "/Lista_de_alumnos_" . emarking_clean_filename($course->shortname, true) . ".pdf";
$pdf->Output($pdffile, "F");
// se genera el nuevo pdf
$zip->addFile($pdffile, "Lista_de_alumnos_" . emarking_clean_filename($course->shortname, true) . ".pdf");
}
}
$printername = explode(',', $CFG->emarking_printername);
if ($sendprintorder) {
if ($printername[$_POST["printername"]] != "Edificio-C-mesonSecretaria") {
$command = "lp -d " . $printername[$_POST["printername"]] . " -o StapleLocation=UpperLeft -o fit-to-page -o media=Letter " . $pdffile;
} else {
$command = "lp -d " . $printername[$_POST["printername"]] . " -o StapleLocation=SinglePortrait -o PageSize=Letter -o Duplex=none " . $pdffile;
}
$printresult = exec($command);
if ($CFG->debug) {
echo "{$command} <br>";
echo "{$printresult} <hr>";
}
}
}
}
// Here we produce a PDF file for each student
for ($k = 0; $k <= count($nombre) - 1; $k++) {
// If there are multiplepdfs we have to produce one per student
if ($multiplepdfs || $sendprintorder || $groupid != null) {
$pdf = new FPDI();
}
if ($multiplepdfs || $sendprintorder || $groupid != null || count($pdffileshash) > 1) {
$current++;
if ($current > count($pdffileshash) - 1) {
$current = 0;
}
$newfile = emarking_get_path_from_hash($filedir, $pdffileshash[$current]['hash']);
$path = $filedir . "/" . str_replace(' ', '-', $pdffileshash[$current]['filename']);
$cp = $pdf->setSourceFile($path);
}
$pdf->SetAutoPageBreak(false);
for ($i = 1; $i <= $cp + $downloadexam->extrasheets; $i = $i + 1) {
$h = rand(1, 999999);
$img = $fileimg . "/qr" . $h . "_" . $rut[$k] . "_" . $i . "_" . $hash . ".png";
$imgrotated = $fileimg . "/qr" . $h . "_" . $rut[$k] . "_" . $i . "_" . $hash . "r.png";
// Se genera QR con id, curso y número de página
$qrstring = "{$moodleid[$k]} - {$downloadexam->course} - {$i}";
QRcode::png($qrstring, $img);
// se inserta QR
QRcode::png($qrstring . " - R", $imgrotated);
// se inserta QR
$gdimg = imagecreatefrompng($imgrotated);
$rotated = imagerotate($gdimg, 180, 0);
imagepng($rotated, $imgrotated);
$pdf->AddPage();
// Agrega una nueva página
if ($i <= $cp) {
$tplIdx = $pdf->importPage($i);
// Se importan las páginas del documento pdf.
$pdf->useTemplate($tplIdx, 0, 0, 0, 0, $adjustPageSize = true);
// se inserta como template el archivo pdf subido
}
/*
* Ahora se escribe texto sobre las páginas ya importadas. Se fija la fuente, el tipo y el tamaño de la letra. Se señala el título. Se da el nombre, apellido y rut del alumno al cual pertenece la prueba. Se indica el curso correspondiente a la evaluación. Se introduce una imagen. Esta corresponde al QR que se genera con los datos
*/
if ($CFG->emarking_includelogo && $logoisconfigured) {
$pdf->Image($logofilepath, 2, 8, 30);
}
$left = 58;
$top = 8;
$pdf->SetFont('Helvetica', '', 12);
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper($downloadexam->name));
$pdf->SetFont('Helvetica', '', 9);
$top += 5;
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper(get_string('name') . ": " . $nombre[$k]));
$top += 4;
if ($rut[$k] && strlen($rut[$k]) > 0) {
$pdf->SetXY($left, $top);
$pdf->Write(1, get_string('idnumber', 'mod_emarking') . ": " . $rut[$k]);
$top += 4;
}
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper(get_string('course') . ": " . $course->fullname));
$top += 4;
if (file_exists($userimg[$k])) {
$pdf->Image($userimg[$k], 35, 8, 15, 15, "PNG", null, "T", true);
}
$totals = new stdClass();
$totals->identified = $i;
$totals->total = $cp + $downloadexam->extrasheets;
$pdf->SetXY($left, $top);
$pdf->Write(1, core_text::strtoupper(get_string('page') . ": " . get_string('aofb', 'mod_emarking', $totals)));
$pdf->Image($img, 176, 3, 34);
// y antes era -2
$pdf->Image($imgrotated, 0, $pdf->getPageHeight() - 35, 34);
unlink($img);
unlink($imgrotated);
}
if ($multiplepdfs || $sendprintorder || $groupid != null) {
$pdffile = $filedir . "/" . emarking_clean_filename($qrstring) . ".pdf";
if (file_exists($pdffile)) {
$pdffile = $filedir . "/" . emarking_clean_filename($qrstring) . "_" . $k . ".pdf";
$pdf->Output($pdffile, "F");
// se genera el nuevo pdf
$zip->addFile($pdffile, emarking_clean_filename($qrstring) . "_" . $k . ".pdf");
} else {
$pdffile = $filedir . "/" . emarking_clean_filename($qrstring) . ".pdf";
$pdf->Output($pdffile, "F");
// se genera el nuevo pdf
$zip->addFile($pdffile, emarking_clean_filename($qrstring) . ".pdf");
}
$jobs[$k]["param_1_pbar"] = $k + 1;
$jobs[$k]["param_2_pbar"] = count($nombre);
$jobs[$k]["param_3_pbar"] = 'Imprimiendo pruebas de ' . core_text::strtoupper($nombre[$k]);
$jobs[$k]["name_job"] = $pdffile;
}
}
$printername = explode(',', $CFG->emarking_printername);
if ($sendprintorder) {
foreach ($jobs as &$valor) {
if (!empty($valor)) {
if ($pbar != null) {
$pbar->update($valor["param_1_pbar"], $valor["param_2_pbar"], $valor["param_3_pbar"]);
}
if ($printername[$_POST["printername"]] != "Edificio-C-mesonSecretaria") {
$command = "lp -d " . $printername[$_POST["printername"]] . " -o StapleLocation=UpperLeft -o fit-to-page -o media=Letter " . $valor["name_job"];
} else {
$command = "lp -d " . $printername[$_POST["printername"]] . " -o StapleLocation=SinglePortrait -o PageSize=Letter -o Duplex=none " . $valor["name_job"];
}
$printresult = exec($command);
if ($CFG->debug) {
echo "{$command} <br>";
echo "{$printresult} <hr>";
}
}
}
}
if ($multiplepdfs || $groupid != null) {
// Generate Bat File
$printerarray = array();
foreach (explode(',', $CFG->emarking_printername) as $printer) {
$printerarray[] = $printer;
}
$contenido = "@echo off\r\n";
$contenido .= "TITLE Sistema de impresion\r\n";
$contenido .= "color ff\r\n";
$contenido .= "cls\r\n";
$contenido .= ":MENUPPL\r\n";
$contenido .= "cls\r\n";
$contenido .= "echo #######################################################################\r\n";
$contenido .= "echo # Sistema de impresion #\r\n";
$contenido .= "echo # #\r\n";
$contenido .= "echo # @copyright 2014 Eduardo Miranda #\r\n";
$contenido .= "echo # Fecha Modificacion 23-04-2014 #\r\n";
$contenido .= "echo # #\r\n";
$contenido .= "echo # Para realizar la impresion debe seleccionar una de las impresoras #\r\n";
$contenido .= "echo # configuradas. #\r\n";
$contenido .= "echo # #\r\n";
$contenido .= "echo # #\r\n";
$contenido .= "echo #######################################################################\r\n";
$contenido .= "echo # Seleccione una impresora: #\r\n";
$i = 0;
while ($i < count($printerarray)) {
$contenido .= "echo # " . $i . " - " . $printerarray[$i] . " #\r\n";
$i++;
}
$contenido .= "echo # " . $i++ . " - Cancelar #\r\n";
$contenido .= "echo # #\r\n";
$contenido .= "echo #######################################################################\r\n";
$contenido .= "set /p preg01= Que desea hacer? [";
$i = 0;
while ($i <= count($printerarray)) {
if ($i == count($printerarray)) {
$contenido .= $i;
} else {
$contenido .= $i . ",";
}
$i++;
}
$contenido .= "]\r\n";
$i = 0;
while ($i < count($printerarray)) {
$contenido .= "if %preg01%==" . $i . " goto MENU" . $i . "\r\n";
$i++;
}
$contenido .= "if %preg01%==" . $i++ . " goto SALIR\r\n";
$contenido .= "goto MENU\r\n";
$contenido .= "pause\r\n";
$i = 0;
while ($i < count($printerarray)) {
$contenido .= ":MENU" . $i . "\r\n";
$contenido .= "cls\r\n";
$contenido .= "set N=%Random%%random%\r\n";
$contenido .= "plink central.apuntes mkdir -m 0777 ~/pruebas/%N%\r\n";
$contenido .= "pscp *.pdf central.apuntes:pruebas/%N%\r\n";
$contenido .= "plink central.apuntes cp ~/pruebas/script_pruebas.sh ~/pruebas/%N%\r\n";
$contenido .= "plink central.apuntes cd pruebas/%N%;./script_pruebas.sh " . $printerarray[$i] . "\r\n";
$contenido .= "plink central.apuntes rm -dfr ~/pruebas/%N%\r\n";
$contenido .= "EXIT\r\n";
$i++;
}
$contenido .= ":SALIR\r\n";
$contenido .= "CLS\r\n";
$contenido .= "ECHO Cancelando...\r\n";
$contenido .= "EXIT\r\n";
$random = rand();
mkdir($CFG->dataroot . '/temp/emarking/' . $random . '_bat/', 0777);
// chmod($random."_bat/", 0777);
$fp = fopen($CFG->dataroot . "/temp/emarking/" . $random . "_bat/imprimir.bat", "x");
fwrite($fp, $contenido);
fclose($fp);
// Generate zip file
$zip->addFile($CFG->dataroot . "/temp/emarking/" . $random . "_bat/imprimir.bat", "imprimir.bat");
$zip->close();
unlink($CFG->dataroot . "/temp/emarking/" . $random . "_bat/imprimir.bat");
rmdir($CFG->dataroot . "/temp/emarking/" . $random . "_bat");
} else {
if (!$sendprintorder) {
$pdf->Output($file1, "F");
// se genera el nuevo pdf
}
}
$downloadexam->status = EMARKING_EXAM_SENT_TO_PRINT;
$downloadexam->printdate = time();
$DB->update_record('emarking_exams', $downloadexam);
if ($sendprintorder) {
$pbar->update_full(100, 'Impresión completada exitosamente');
return $filedir;
}
if ($groupid != null) {
unlink($file1);
return $filedir;
} else {
ob_start();
// modificación: ingreso de esta linea, ya que anterior revisión mostraba error en el archivo
header('Content-Description: File Transfer');
header('Content-Type: application/x-download');
header('Content-Disposition: attachment; filename=' . basename($file1));
header('Content-Transfer-Encoding: binary');
header('Expires: 0');
header('Cache-Control: must-revalidate');
header('Pragma: public');
ob_clean();
flush();
readfile($file1);
unlink($file1);
// borra archivo temporal en moodledata
exit;
}
return false;
} else {
$students = emarking_get_students_for_printing($downloadexam->course);
$filedir = $CFG->dataroot . "/temp/emarking/{$context->id}";
emarking_initialize_directory($filedir, true);
$printername = explode(',', $CFG->emarking_printername);
$totalAlumn = 0;
$pdffiles = array();
for ($current = 0; $current < count($pdffileshash); $current++) {
$newfile = emarking_get_path_from_hash($filedir, $pdffileshash[$current]['hash']);
$path = $filedir . "/" . str_replace(' ', '-', $pdffileshash[$current]['filename']);
$pdf = new FPDI();
$cp = $pdf->setSourceFile($path);
if ($cp > 99) {
print_error(get_string('page', 'mod_emarking'));
}
$pdf->SetAutoPageBreak(false);
$s = 1;
while ($s <= $cp + $downloadexam->extrasheets) {
$pdf->AddPage();
if ($s <= $cp) {
$tplIdx = $pdf->importPage($s);
// Se importan las páginas del documento pdf.
$pdf->useTemplate($tplIdx, 0, 0, 0, 0, $adjustPageSize = true);
// se inserta como template el archivo pdf subido
}
$s++;
}
$pdffile = $filedir . "/" . $current . emarking_clean_filename($file->filename);
$pdf->Output($pdffile, "F");
$pdffiles[] = $pdffile;
}
$totalAlumn = count($students);
if ($pbar != null) {
$pbar->update(0, $totalAlumn, '');
}
for ($k = 0; $k <= $totalAlumn + $downloadexam->extraexams - 1; $k++) {
$pdffile = $pdffiles[$k % count($pdffileshash)];
if ($printername[$_POST["printername"]] != "Edificio-C-mesonSecretaria") {
$command = "lp -d " . $printername[$_POST["printername"]] . " -o StapleLocation=UpperLeft -o fit-to-page -o media=Letter " . $pdffile;
} else {
$command = "lp -d " . $printername[$_POST["printername"]] . " -o StapleLocation=SinglePortrait -o PageSize=Letter -o Duplex=none " . $pdffile;
}
// $printresult = exec ( $command );
if ($CFG->debug) {
echo "{$command} <br>";
echo "{$printresult} <hr>";
}
if ($pbar != null) {
$pbar->update($k, $totalAlumn, '');
}
}
$pbar->update_full(100, 'Impresión completada exitosamente');
return true;
/*
* $downloadexam->status = EMARKING_EXAM_SENT_TO_PRINT; $downloadexam->printdate = time (); $DB->update_record ( 'emarking_exams', $downloadexam ); $downloadURL = $CFG->wwwroot . '/pluginfile.php/' . $file->contextid . '/mod_emarking/' . $file->filearea . '/' . $file->itemid . '/' . $file->filename; $startdownload = true; echo '<meta http-equiv="refresh" content="2;url=' . $downloadURL . '">'; return true;
*/
}
}
