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.19 -r1.1.2.20
--- openacs-4/packages/proctoring-support/lib/proctoring-display.tcl	2 Mar 2022 15:43:47 -0000	1.1.2.19
+++ openacs-4/packages/proctoring-support/lib/proctoring-display.tcl	2 Mar 2022 17:43:32 -0000	1.1.2.20
@@ -111,6 +111,10 @@
         set portrait_url [export_vars -base "/shared/portrait-bits.tcl" {user_id {size x200}}]
 
         set back_url $base_url
+        set bulk_flag_base [export_vars -base ${proctoring_url}review-all \
+                                {user_id object_id {return_url $user_url}}]
+        set bulk_unflag_url ${bulk_flag_base}&flag=false
+        set bulk_flag_url ${bulk_flag_base}&flag=true
 
         # Populate a multirow of presets for the time filters, which
         # can also come from other packages.
@@ -153,8 +157,7 @@
                    coalesce(camera.timestamp,
                             desktop.timestamp) as timestamp,
                    null as audio_url,
-                   coalesce(camera.revisions, '[]') ||
-                     coalesce(desktop.revisions, '[]') as revisions
+                   coalesce(camera.revisions, desktop.revisions) as revisions
             from (select artifact_id,
                            timestamp,
                            file,
@@ -290,6 +293,7 @@
         with reviewed_picture_name as (
           select name from proctoring_object_artifacts
           where object_id = :object_id
+            and type <> 'audio'
           order by metadata is not null desc
           fetch first 1 rows only
         )