CORE-1900 Update Tapis app sharing calls

cyverse-de · Jun 29, 2024 · 9327024 · 9327024
1 parent 92de694
commit 9327024
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/apps/service/apps/tapis/sharing.clj b/src/apps/service/apps/tapis/sharing.clj
@@ -11,7 +11,9 @@
   (if-not (ipg/user-source? (:source_id sharee))
     (failure-fn "Sharing HPC apps with a group is not supported")
     (try+
-     (.shareAppWithUser tapis (:id sharee) app-id level)
+     (if level
+       (.shareAppWithUser tapis (:id sharee) app-id level)
+       (.unshareAppWithUser tapis (:id sharee) app-id))
      (success-fn)
      (catch [:error_code ce/ERR_UNAVAILABLE] {:keys [reason]}
        (log/error (:throwable &throw-context) "Tapis app listing timed out")