Ajustes no validador

validador.php

@@ -7,7 +7,45 @@ $code = required_param('code', PARAM_TEXT); // código do documento que se desej
 
 // AKFS_LAJJDS_MDLJR
 
-// TODO: conectar no oracle, banco do SGA, e chamar function passando o código e interpretar os resultados
+$conn = oci_connect($CFG->sgadbhost, $CFG->sgadbpass, $CFG->sgadbhost);
+if (!$conn) {
+    $e = oci_error();
+    trigger_error(htmlentities($e['message'], ENT_QUOTES), E_USER_ERROR);
+}
+
+// Prepare the statement
+//$stid = oci_parse($conn, 'SELECT * FROM tbl_curso');
+// FIXME substituir call_protocolo por validaDocumento('ABCD')
+$stid = oci_parse($conn, "begin :ret := valida_documento('ABCD'); end;");
+if (!$stid) {
+    $e = oci_error($conn);
+    trigger_error(htmlentities($e['message'], ENT_QUOTES), E_USER_ERROR);
+}
+
+oci_bind_by_name($stid, ':ret', $r, 200);
+
+// Perform the logic of the query
+if (!oci_execute($stid)) {
+    $e = oci_error($stid);
+    trigger_error(htmlentities($e['message'], ENT_QUOTES), E_USER_ERROR);
+} 
+
+
+// // Fetch the results of the query
+// print "<table border='1'>\n";
+// while ($row = oci_fetch_array($stid, OCI_ASSOC+OCI_RETURN_NULLS)) {
+//     print "<tr>\n";
+//     print "    <td>" . $row[1] . "</td>\n";
+//     //foreach ($row as $item) {
+//       //  print "    <td>" . ($item !== null ? htmlentities($item, ENT_QUOTES) : "&nbsp;") . "</td>\n";
+//     //}
+//     print "</tr>\n";
+// }
+// print "</table>\n";
+
+oci_free_statement($stid);
+oci_close($conn);
+
 
 // Resultado pode ser inválido (mostrar mensagem de erro de validação)
 // ou válido (mostrar dados do documento vindo da function)
@@ -29,4 +67,6 @@ $saida = '<b>Aluno</b>' . "Fulano" . '<br><b>Curso</b>: ' . 'Direito Legislativo
 
 echo html_writer::div($saida);
 
+echo html_writer::div("Result is: ".$r);
+
 echo $OUTPUT->footer();