From e01c95432dfbeed0b84736a14f17e3d2142a7f9e Mon Sep 17 00:00:00 2001
From: Erik Bruchez <erik@bruchez.org>
Date: Mon, 8 Aug 2022 14:48:13 -0700
Subject: [PATCH] For #5397: support checking new `list` permission

---
 .../jvm/src/main/resources/apps/fr/summary/view.xhtml       | 6 ++++++
 .../scala/org/orbeon/oxf/fr/permission/operations.scala     | 4 +++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/form-runner/jvm/src/main/resources/apps/fr/summary/view.xhtml b/form-runner/jvm/src/main/resources/apps/fr/summary/view.xhtml
index 6328702409..7b65a46f0e 100644
--- a/form-runner/jvm/src/main/resources/apps/fr/summary/view.xhtml
+++ b/form-runner/jvm/src/main/resources/apps/fr/summary/view.xhtml
@@ -357,6 +357,12 @@
                     name="operations-from-role"
                     value="frf:authorizedOperationsBasedOnRolesXPath($source-form-metadata/permissions)"/>
 
+                <!-- Check if the user doesn't have the permission to 'list'
+                     https://github.com/orbeon/orbeon-forms/issues/5397 -->
+                <xf:action
+                    if="not('list' = $operations-from-role)"
+                    type="xpath">frf:sendError(403)</xf:action>
+
                 <!-- Remember global operations -->
                 <xf:setvalue
                     ref="xxf:instance('fr-authorized-operations')"
diff --git a/form-runner/shared/src/main/scala/org/orbeon/oxf/fr/permission/operations.scala b/form-runner/shared/src/main/scala/org/orbeon/oxf/fr/permission/operations.scala
index 5d53c866f6..dd69b0f2bf 100644
--- a/form-runner/shared/src/main/scala/org/orbeon/oxf/fr/permission/operations.scala
+++ b/form-runner/shared/src/main/scala/org/orbeon/oxf/fr/permission/operations.scala
@@ -44,6 +44,7 @@ object Operation extends Enum[Operation] {
   case object Read   extends Operation
   case object Update extends Operation
   case object Delete extends Operation
+  case object List   extends Operation
 }
 
 object Operations {
@@ -53,7 +54,8 @@ object Operations {
     Operation.Create,
     Operation.Read,
     Operation.Update,
-    Operation.Delete
+    Operation.Delete,
+    Operation.List
   )
 
   def parseFromHeaders(headers: Map[String, List[String]]): Option[Operations] =