/** * 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; */ } }