Index: openacs-4/packages/proctoring-support/lib/proctoring-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/lib/Attic/proctoring-display.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/proctoring-support/lib/proctoring-display.tcl	10 Feb 2022 09:32:58 -0000	1.1.2.6
+++ openacs-4/packages/proctoring-support/lib/proctoring-display.tcl	10 Feb 2022 16:31:03 -0000	1.1.2.7
@@ -73,14 +73,8 @@
 
 if {$delete_p && [llength $user_id] >= 1} {
     foreach u $user_id {
-        ::xo::dc dml -prepare {integer integer} delete_artifacts {
-            delete from proctoring_object_artifacts
-            where object_id = :object_id
-              and user_id = :u
-        }
-        set folder [::proctoring::folder \
-                        -object_id $object_id -user_id $u]
-        file delete -force -- $folder
+        ::proctoring::artifact::delete \
+            -object_id $object_id -user_id $u
     }
     ad_returnredirect $base_url
     ad_script_abort
@@ -180,11 +174,7 @@
     set delete_confirm [_ xowiki.delete_all_confirm]
 
     if {$delete_p} {
-        ::xo::dc dml -prepare integer delete_artifacts {
-            delete from proctoring_object_artifacts
-            where object_id = :object_id
-        }
-        file delete -force -- $folder
+        ::proctoring::artifact::delete -object_id $object_id
         ad_returnredirect $base_url
         ad_script_abort
     }