Index: openacs-4/packages/proctoring-support/lib/proctoring-enforce.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/lib/Attic/proctoring-enforce.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/proctoring-support/lib/proctoring-enforce.adp	11 Aug 2020 07:01:02 -0000	1.1.2.1
@@ -0,0 +1,10 @@
+<script <if @::__csp_nonce@ not nil>nonce="@::__csp_nonce@"</if>>
+  window.addEventListener("load", function(e) {
+      var isProctored = @proctoring_p@;
+      var inProctoringIframe = window.parent != undefined &&
+          window.parent.document.querySelector("#proctored-iframe-@object_id@") != null;
+      if (isProctored && !inProctoringIframe) {
+          location.href = "@object_url@";
+      }
+  });
+</script>
\ No newline at end of file
Index: openacs-4/packages/proctoring-support/lib/proctoring-enforce.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/lib/Attic/proctoring-enforce.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/proctoring-support/lib/proctoring-enforce.tcl	11 Aug 2020 07:01:02 -0000	1.1.2.1
@@ -0,0 +1,22 @@
+ad_include_contract {
+    Inside a page, this include behaves as a captive portal and if
+    proctoring is enabled and we are still not in the proctoring
+    iframe, user is force redirected to the object_url
+} {
+    object_id:naturalnum,notnull
+    object_url:localurl,notnull
+}
+
+if {[ns_conn isconnected]} {
+    set admin_p [permission::permission_p -object_id $object_id -party_id [ad_conn user_id] -privilege admin]
+    set read_p [permission::permission_p -object_id $object_id -party_id [ad_conn user_id] -privilege read]
+} else {
+    set admin_p false
+    set read_p false
+}
+
+if {$read_p && !$admin_p} {
+    set proctoring_p [::proctoring::active_p -object_id $object_id]
+} else {
+    set proctoring_p false
+}