Index: openacs-4/packages/proctoring-support/lib/proctoring-upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/lib/Attic/proctoring-upload.tcl,v
diff -u -r1.1.2.12 -r1.1.2.13
--- openacs-4/packages/proctoring-support/lib/proctoring-upload.tcl	9 Feb 2022 15:09:51 -0000	1.1.2.12
+++ openacs-4/packages/proctoring-support/lib/proctoring-upload.tcl	10 Feb 2022 09:32:58 -0000	1.1.2.13
@@ -80,6 +80,16 @@
     file mkdir -- $proctoring_dir
     file rename -force -- ${file.tmpfile} $file_path
 
+    # Create an entry in the database for the file we have just
+    # collected, so that we can further enrich it with metadata in
+    # later postprocessing phases.
+    ::xo::dc dml -prepare {integer integer integer text text text} init_artifact {
+        insert into proctoring_object_artifacts
+        (object_id, user_id, timestamp, name, type, file)
+        values
+        (:object_id, :user_id, to_timestamp(:timestamp), :name, :type, :file_path)
+    }
+
     # Notify a websocket about the upload so that e.g. a UI can be updated
     # in real time.
     if {$notify_p} {