Index: openacs-4/packages/proctoring-support/www/review.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/www/Attic/review.tcl,v diff -u -r1.1.2.5 -r1.1.2.6 --- openacs-4/packages/proctoring-support/www/review.tcl 3 Mar 2022 09:18:58 -0000 1.1.2.5 +++ openacs-4/packages/proctoring-support/www/review.tcl 3 Mar 2022 10:38:59 -0000 1.1.2.6 @@ -111,9 +111,10 @@ update proctoring_object_artifacts as a set metadata = jsonb_set(coalesce(metadata, '{}'), '{revisions}', - (select revisions from updated_revisions where artifact_id = a.artifact_id)) - where (artifact_id in (select artifact_id from updated_revisions) - or artifact_id = :artifact_id) + u.revisions) + from updated_revisions u + full join dual on true + where a.artifact_id = u.artifact_id and acs_permission.permission_p(a.object_id, :reviewer_id, 'admin') returning a.object_id, a.metadata->'revisions' as revisions ) @@ -140,4 +141,3 @@ ad_returnredirect $return_url ad_script_abort } -