Index: openacs-4/packages/proctoring-support/lib/proctoring-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/lib/proctoring-display.tcl,v diff -u -r1.1.2.14 -r1.1.2.15 --- openacs-4/packages/proctoring-support/lib/proctoring-display.tcl 22 Feb 2022 09:01:24 -0000 1.1.2.14 +++ openacs-4/packages/proctoring-support/lib/proctoring-display.tcl 22 Feb 2022 14:30:06 -0000 1.1.2.15 @@ -86,9 +86,6 @@ set folder [::proctoring::folder \ -object_id $object_id -user_id $user_id] - set delete_label [_ xowiki.delete] - set delete_confirm [_ xowiki.delete_confirm] - if {$file ne ""} { # # Display a specific artifact file: this branch of the script @@ -196,41 +193,113 @@ set folder [::proctoring::folder \ -object_id $object_id] - set delete_label [_ xowiki.delete_all] - set delete_confirm [_ xowiki.delete_all_confirm] - - if {$delete_p} { - # - # Delete all of the artifacts for this proctored object - # - ::proctoring::artifact::delete -object_id $object_id - ad_returnredirect $base_url - ad_script_abort - } - # # Display the list of proctored users for this object for whom # artifacts exist # + set bulk_actions [list] + if {$swa_p} { + lappend bulk_actions \ + "#acs-kernel.common_Delete#" [ad_conn url] "#acs-kernel.common_Delete#" + } + + template::list::create \ + -name users \ + -multirow users \ + -key user_id \ + -actions [list] \ + -bulk_actions $bulk_actions \ + -bulk_action_method post \ + -bulk_action_export_vars { + object_id {delete true} + } \ + -elements { + filter { + label "" + display_template { + + } + } + name { + label "[_ acs-admin.Name]" + link_url_col proctoring_url + } + student_id { + label "[_ proctoring-support.student_id_label]" + link_url_col proctoring_url + } + status { + label "[_ acs-subsite.Status]" + display_template { +